packages feed

KiCS 0.8.8 → 0.8.9

raw patch · 127 files changed

+32347/−25 lines, 127 filesdep +readlinedep ~curry-frontendsetup-changednew-component:exe:kicsi

Dependencies added: readline

Dependency ranges changed: curry-frontend

Files

KiCS.cabal view
@@ -1,5 +1,5 @@ Name:          KiCS-Version:       0.8.8+Version:       0.8.9 Cabal-Version: >= 1.6 Author:        Bernd Braßel Maintainer:    Bernd Braßel@@ -22,6 +22,7 @@                *.acy                *.uacy                *.cy+                                 Executable kics@@ -38,7 +39,7 @@     ghc-paths,     process,     curry-base >= 0.2.5,-    curry-frontend >= 0.2.6+    curry-frontend >= 0.2.7   Other-Modules:     Curry.Compiler.Config     Curry.Compiler.CurryToHaskell@@ -52,6 +53,12 @@     Curry.Compiler.Simplification     Curry.Compiler.Brace +Executable kicsi+  main-is:        kicsi.hs+  hs-source-dirs: src+  Build-Depends:+    readline+ Library   hs-source-dirs: src, src/lib   Build-Depends:  @@ -106,6 +113,21 @@     Curry.Module.Traversal     Curry.Module.PropertyFile     Curry.Module.Unsafe+    Curry.Module.XML+    Curry.Module.Distribution+    Curry.Module.FlatCurry+    Curry.Module.AbstractCurry+    Curry.Module.AbstractCurryPrinter+    Curry.Module.CompactFlatCurry+    Curry.Module.CurryStringClassifier+    Curry.Module.CurrySyntax+    Curry.Module.FlatCurryGoodies+    Curry.Module.FlatCurryRead+    Curry.Module.FlatCurryShow+    Curry.Module.FlatCurryTools+    Curry.Module.FlatCurryXML+    Curry.Module.FlexRigid+    Curry.Module.PrettyFlat    Other-Modules:     Paths_KiCS
Setup.hs view
@@ -11,7 +11,6 @@ import Distribution.Verbosity  import Curry.Files.CymakePath-import Curry.Files.KiCSPath  kics :: Program kics = simpleProgram "kics"@@ -58,7 +57,7 @@  runKics :: LocalBuildInfo -> FilePath -> FilePath -> Verbosity -> IO () runKics lbi infile outfile verb = do-  let call    = callProg deafening{-verb-} lbi+  let call    = callProg verb lbi       datadir = takeDirectory infile    -- nomake not supported   mapM (\ format -> call cymake ["-e",'-':'-':format,"-i"++datadir,infile])
+ dist/build/Curry/Module/AbstractCurry.hs view
@@ -0,0 +1,1790 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.AbstractCurry (module Curry.Module.AbstractCurry) where++import Curry.RunTimeSystem+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm++++-- begin included++++-- end included++type C_QName = Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++type C_CTVarIName = Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++type C_CVarIName = Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++data C_CurryProg = C_CurryProg (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CFuncDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl)+  | C_CurryProgFail Curry.RunTimeSystem.C_Exceptions+  | C_CurryProgOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CurryProg)++data C_CVisibility = C_Public+  | C_Private+  | C_CVisibilityFail Curry.RunTimeSystem.C_Exceptions+  | C_CVisibilityOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CVisibility)++data C_CTypeDecl = C_CType (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.AbstractCurry.C_CVisibility (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CConsDecl)+  | C_CTypeSyn (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.AbstractCurry.C_CVisibility (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) Curry.Module.AbstractCurry.C_CTypeExpr+  | C_CTypeDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_CTypeDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CTypeDecl)++data C_CConsDecl = C_CCons (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int Curry.Module.AbstractCurry.C_CVisibility (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr)+  | C_CConsDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_CConsDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CConsDecl)++data C_CTypeExpr = C_CTVar (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_CFuncType Curry.Module.AbstractCurry.C_CTypeExpr Curry.Module.AbstractCurry.C_CTypeExpr+  | C_CTCons (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr)+  | C_CTypeExprFail Curry.RunTimeSystem.C_Exceptions+  | C_CTypeExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CTypeExpr)++data C_COpDecl = C_COp (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.AbstractCurry.C_CFixity Curry.Module.Prelude.C_Int+  | C_COpDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_COpDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_COpDecl)++data C_CFixity = C_CInfixOp+  | C_CInfixlOp+  | C_CInfixrOp+  | C_CFixityFail Curry.RunTimeSystem.C_Exceptions+  | C_CFixityOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CFixity)++data C_CFuncDecl = C_CFunc (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int Curry.Module.AbstractCurry.C_CVisibility Curry.Module.AbstractCurry.C_CTypeExpr Curry.Module.AbstractCurry.C_CRules+  | C_CmtFunc (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int Curry.Module.AbstractCurry.C_CVisibility Curry.Module.AbstractCurry.C_CTypeExpr Curry.Module.AbstractCurry.C_CRules+  | C_CFuncDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_CFuncDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CFuncDecl)++data C_CRules = C_CRules Curry.Module.AbstractCurry.C_CEvalAnnot (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CRule)+  | C_CExternal (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_CRulesFail Curry.RunTimeSystem.C_Exceptions+  | C_CRulesOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CRules)++data C_CEvalAnnot = C_CFlex+  | C_CRigid+  | C_CChoice+  | C_CEvalAnnotFail Curry.RunTimeSystem.C_Exceptions+  | C_CEvalAnnotOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CEvalAnnot)++data C_CRule = C_CRule (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr)) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CLocalDecl)+  | C_CRuleFail Curry.RunTimeSystem.C_Exceptions+  | C_CRuleOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CRule)++data C_CLocalDecl = C_CLocalFunc Curry.Module.AbstractCurry.C_CFuncDecl+  | C_CLocalPat Curry.Module.AbstractCurry.C_CPattern Curry.Module.AbstractCurry.C_CExpr (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CLocalDecl)+  | C_CLocalVar (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_CLocalDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_CLocalDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CLocalDecl)++data C_CExpr = C_CVar (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_CLit Curry.Module.AbstractCurry.C_CLiteral+  | C_CSymbol (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_CApply Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr+  | C_CLambda (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) Curry.Module.AbstractCurry.C_CExpr+  | C_CLetDecl (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CLocalDecl) Curry.Module.AbstractCurry.C_CExpr+  | C_CDoExpr (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CStatement)+  | C_CListComp Curry.Module.AbstractCurry.C_CExpr (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CStatement)+  | C_CCase Curry.Module.AbstractCurry.C_CExpr (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr)+  | C_CExprFail Curry.RunTimeSystem.C_Exceptions+  | C_CExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CExpr)++data C_CStatement = C_CSExpr Curry.Module.AbstractCurry.C_CExpr+  | C_CSPat Curry.Module.AbstractCurry.C_CPattern Curry.Module.AbstractCurry.C_CExpr+  | C_CSLet (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CLocalDecl)+  | C_CStatementFail Curry.RunTimeSystem.C_Exceptions+  | C_CStatementOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CStatement)++data C_CPattern = C_CPVar (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_CPLit Curry.Module.AbstractCurry.C_CLiteral+  | C_CPComb (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern)+  | C_CPAs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.AbstractCurry.C_CPattern+  | C_CPFuncComb (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern)+  | C_CPatternFail Curry.RunTimeSystem.C_Exceptions+  | C_CPatternOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CPattern)++data C_CBranchExpr = C_CBranch Curry.Module.AbstractCurry.C_CPattern Curry.Module.AbstractCurry.C_CExpr+  | C_CBranchExprFail Curry.RunTimeSystem.C_Exceptions+  | C_CBranchExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CBranchExpr)++data C_CLiteral = C_CIntc Curry.Module.Prelude.C_Int+  | C_CFloatc Curry.Module.Prelude.C_Float+  | C_CCharc Curry.Module.Prelude.C_Char+  | C_CLiteralFail Curry.RunTimeSystem.C_Exceptions+  | C_CLiteralOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractCurry.C_CLiteral)++instance BaseCurry Curry.Module.AbstractCurry.C_CurryProg where+  nf f (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.AbstractCurry.C_CurryProg(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.AbstractCurry.C_CurryProg(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CurryProgOr(Curry.RunTimeSystem.mkRef(r)(5)(i))([Curry.Module.AbstractCurry.C_CurryProg(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(5)++  failed  = Curry.Module.AbstractCurry.C_CurryProgFail++  branching  = Curry.Module.AbstractCurry.C_CurryProgOr++  consKind (Curry.Module.AbstractCurry.C_CurryProgOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CurryProgFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CurryProgFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CurryProgOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CurryProgOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CVisibility where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CVisibilityOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.AbstractCurry.C_Public,Curry.Module.AbstractCurry.C_Private]))(0)++  failed  = Curry.Module.AbstractCurry.C_CVisibilityFail++  branching  = Curry.Module.AbstractCurry.C_CVisibilityOr++  consKind (Curry.Module.AbstractCurry.C_CVisibilityOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CVisibilityFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CVisibilityFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CVisibilityOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CVisibilityOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CTypeDecl where+  nf f (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CType(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CTypeSyn(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CType(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CTypeSyn(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CTypeDeclOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.AbstractCurry.C_CType(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CTypeSyn(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.AbstractCurry.C_CTypeDeclFail++  branching  = Curry.Module.AbstractCurry.C_CTypeDeclOr++  consKind (Curry.Module.AbstractCurry.C_CTypeDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CTypeDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CTypeDeclFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CTypeDeclOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CTypeDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CConsDecl where+  nf f (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CCons(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.AbstractCurry.C_CCons(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CConsDeclOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.AbstractCurry.C_CCons(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.AbstractCurry.C_CConsDeclFail++  branching  = Curry.Module.AbstractCurry.C_CConsDeclOr++  consKind (Curry.Module.AbstractCurry.C_CConsDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CConsDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CConsDeclFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CConsDeclOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CConsDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CTypeExpr where+  nf f (Curry.Module.AbstractCurry.C_CTVar x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CTVar(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CFuncType x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CFuncType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CTCons x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CTCons(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CTVar x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CTVar(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CFuncType x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CFuncType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CTCons x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CTCons(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CTypeExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CTVar(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CFuncType(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CTCons(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CTypeExprFail++  branching  = Curry.Module.AbstractCurry.C_CTypeExprOr++  consKind (Curry.Module.AbstractCurry.C_CTypeExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CTypeExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CTypeExprFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CTypeExprOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CTypeExprOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_COpDecl where+  nf f (Curry.Module.AbstractCurry.C_COp x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_COp(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_COp x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_COp(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_COpDeclOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.AbstractCurry.C_COp(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.AbstractCurry.C_COpDeclFail++  branching  = Curry.Module.AbstractCurry.C_COpDeclOr++  consKind (Curry.Module.AbstractCurry.C_COpDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_COpDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_COpDeclFail x) = x++  orRef (Curry.Module.AbstractCurry.C_COpDeclOr x _) = x++  branches (Curry.Module.AbstractCurry.C_COpDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CFixity where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CFixityOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.AbstractCurry.C_CInfixOp,Curry.Module.AbstractCurry.C_CInfixlOp,Curry.Module.AbstractCurry.C_CInfixrOp]))(0)++  failed  = Curry.Module.AbstractCurry.C_CFixityFail++  branching  = Curry.Module.AbstractCurry.C_CFixityOr++  consKind (Curry.Module.AbstractCurry.C_CFixityOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CFixityFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CFixityFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CFixityOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CFixityOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CFuncDecl where+  nf f (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.AbstractCurry.C_CFunc(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> Curry.RunTimeSystem.nfCTC(\ v6 state6 -> f(Curry.Module.AbstractCurry.C_CmtFunc(v1)(v2)(v3)(v4)(v5)(v6))(state6))(x6)(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.AbstractCurry.C_CFunc(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> Curry.RunTimeSystem.gnfCTC(\ v6 state6 -> f(Curry.Module.AbstractCurry.C_CmtFunc(v1)(v2)(v3)(v4)(v5)(v6))(state6))(x6)(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CFuncDeclOr(Curry.RunTimeSystem.mkRef(r)(6)(i))([Curry.Module.AbstractCurry.C_CFunc(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CmtFunc(Curry.RunTimeSystem.generator((Prelude.+)(r)((5::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(6)++  failed  = Curry.Module.AbstractCurry.C_CFuncDeclFail++  branching  = Curry.Module.AbstractCurry.C_CFuncDeclOr++  consKind (Curry.Module.AbstractCurry.C_CFuncDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CFuncDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CFuncDeclFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CFuncDeclOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CFuncDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CRules where+  nf f (Curry.Module.AbstractCurry.C_CRules x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CRules(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CExternal x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CExternal(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CRules x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CRules(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CExternal x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CExternal(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CRulesOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CRules(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CExternal(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CRulesFail++  branching  = Curry.Module.AbstractCurry.C_CRulesOr++  consKind (Curry.Module.AbstractCurry.C_CRulesOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CRulesFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CRulesFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CRulesOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CRulesOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CEvalAnnot where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CEvalAnnotOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.AbstractCurry.C_CFlex,Curry.Module.AbstractCurry.C_CRigid,Curry.Module.AbstractCurry.C_CChoice]))(0)++  failed  = Curry.Module.AbstractCurry.C_CEvalAnnotFail++  branching  = Curry.Module.AbstractCurry.C_CEvalAnnotOr++  consKind (Curry.Module.AbstractCurry.C_CEvalAnnotOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CEvalAnnotFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CEvalAnnotFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CEvalAnnotOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CEvalAnnotOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CRule where+  nf f (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_CRule(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_CRule(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CRuleOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.AbstractCurry.C_CRule(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.AbstractCurry.C_CRuleFail++  branching  = Curry.Module.AbstractCurry.C_CRuleOr++  consKind (Curry.Module.AbstractCurry.C_CRuleOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CRuleFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CRuleFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CRuleOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CRuleOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CLocalDecl where+  nf f (Curry.Module.AbstractCurry.C_CLocalFunc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLocalFunc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_CLocalPat(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CLocalVar x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLocalVar(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CLocalFunc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLocalFunc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.AbstractCurry.C_CLocalPat(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CLocalVar x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLocalVar(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CLocalDeclOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.AbstractCurry.C_CLocalFunc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CLocalPat(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CLocalVar(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.AbstractCurry.C_CLocalDeclFail++  branching  = Curry.Module.AbstractCurry.C_CLocalDeclOr++  consKind (Curry.Module.AbstractCurry.C_CLocalDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CLocalDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CLocalDeclFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CLocalDeclOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CLocalDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CExpr where+  nf f (Curry.Module.AbstractCurry.C_CVar x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CVar(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CLit x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLit(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CSymbol x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSymbol(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CApply x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CApply(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CLambda x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CLambda(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CLetDecl(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CDoExpr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CDoExpr(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CListComp x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CListComp(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CCase x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CCase(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CVar x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CVar(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CLit x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CLit(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CSymbol x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSymbol(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CApply x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CApply(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CLambda x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CLambda(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CLetDecl(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CDoExpr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CDoExpr(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CListComp x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CListComp(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CCase x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CCase(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CVar(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CLit(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CSymbol(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CApply(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CLambda(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CLetDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CDoExpr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CListComp(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CCase(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CExprFail++  branching  = Curry.Module.AbstractCurry.C_CExprOr++  consKind (Curry.Module.AbstractCurry.C_CExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CExprFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CExprOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CExprOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CStatement where+  nf f (Curry.Module.AbstractCurry.C_CSExpr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSExpr(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CSPat x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CSPat(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CSLet x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSLet(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CSExpr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSExpr(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CSPat x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CSPat(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CSLet x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CSLet(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CStatementOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CSExpr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CSPat(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CSLet(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CStatementFail++  branching  = Curry.Module.AbstractCurry.C_CStatementOr++  consKind (Curry.Module.AbstractCurry.C_CStatementOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CStatementFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CStatementFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CStatementOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CStatementOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CPattern where+  nf f (Curry.Module.AbstractCurry.C_CPVar x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CPVar(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CPLit x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CPLit(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CPComb x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPComb(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CPAs x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPAs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPFuncComb(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CPVar x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CPVar(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CPLit x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CPLit(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CPComb x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPComb(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CPAs x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPAs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CPFuncComb(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CPatternOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CPVar(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CPLit(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CPComb(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CPAs(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CPFuncComb(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CPatternFail++  branching  = Curry.Module.AbstractCurry.C_CPatternOr++  consKind (Curry.Module.AbstractCurry.C_CPatternOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CPatternFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CPatternFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CPatternOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CPatternOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CBranchExpr where+  nf f (Curry.Module.AbstractCurry.C_CBranch x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CBranch(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CBranch x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractCurry.C_CBranch(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CBranchExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractCurry.C_CBranch(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractCurry.C_CBranchExprFail++  branching  = Curry.Module.AbstractCurry.C_CBranchExprOr++  consKind (Curry.Module.AbstractCurry.C_CBranchExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CBranchExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CBranchExprFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CBranchExprOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CBranchExprOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractCurry.C_CLiteral where+  nf f (Curry.Module.AbstractCurry.C_CIntc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CIntc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CFloatc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CFloatc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.AbstractCurry.C_CCharc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CCharc(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractCurry.C_CIntc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CIntc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CFloatc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CFloatc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.AbstractCurry.C_CCharc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.AbstractCurry.C_CCharc(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractCurry.C_CLiteralOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.AbstractCurry.C_CIntc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CFloatc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.AbstractCurry.C_CCharc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.AbstractCurry.C_CLiteralFail++  branching  = Curry.Module.AbstractCurry.C_CLiteralOr++  consKind (Curry.Module.AbstractCurry.C_CLiteralOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractCurry.C_CLiteralFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractCurry.C_CLiteralFail x) = x++  orRef (Curry.Module.AbstractCurry.C_CLiteralOr x _) = x++  branches (Curry.Module.AbstractCurry.C_CLiteralOr _ x) = x++++++instance Curry Curry.Module.AbstractCurry.C_CurryProg where+  strEq (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) (Curry.Module.AbstractCurry.C_CurryProg y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) (Curry.Module.AbstractCurry.C_CurryProg y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) st = Curry.Module.AbstractCurry.C_CurryProg(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)++  typeName _ = "CurryProg"++  showQ d (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CurryProg "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ _ (Curry.Module.AbstractCurry.C_CurryProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CVisibility where+  strEq Curry.Module.AbstractCurry.C_Public Curry.Module.AbstractCurry.C_Public st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.AbstractCurry.C_Private Curry.Module.AbstractCurry.C_Private st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.AbstractCurry.C_Public Curry.Module.AbstractCurry.C_Public st = Curry.Module.Prelude.C_True+  eq Curry.Module.AbstractCurry.C_Private Curry.Module.AbstractCurry.C_Private st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.AbstractCurry.C_Public st = Curry.Module.AbstractCurry.C_Public+  propagate f Curry.Module.AbstractCurry.C_Private st = Curry.Module.AbstractCurry.C_Private++  foldCurry f c Curry.Module.AbstractCurry.C_Public st = c+  foldCurry f c Curry.Module.AbstractCurry.C_Private st = c++  typeName _ = "CVisibility"++  showQ _ Curry.Module.AbstractCurry.C_Public = Prelude.showString("AbstractCurry.Public")+  showQ _ Curry.Module.AbstractCurry.C_Private = Prelude.showString("AbstractCurry.Private")+  showQ _ (Curry.Module.AbstractCurry.C_CVisibilityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CTypeDecl where+  strEq (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CType y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CTypeSyn y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CType y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CTypeSyn y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) st = Curry.Module.AbstractCurry.C_CType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) st = Curry.Module.AbstractCurry.C_CTypeSyn(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "CTypeDecl"++  showQ d (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CTypeSyn "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.AbstractCurry.C_CTypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CConsDecl where+  strEq (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CCons y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) (Curry.Module.AbstractCurry.C_CCons y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) st = Curry.Module.AbstractCurry.C_CCons(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "CConsDecl"++  showQ d (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CCons "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.AbstractCurry.C_CConsDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CTypeExpr where+  strEq (Curry.Module.AbstractCurry.C_CTVar x1) (Curry.Module.AbstractCurry.C_CTVar y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CFuncType x1 x2) (Curry.Module.AbstractCurry.C_CFuncType y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CTCons x1 x2) (Curry.Module.AbstractCurry.C_CTCons y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CTVar x1) (Curry.Module.AbstractCurry.C_CTVar y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CFuncType x1 x2) (Curry.Module.AbstractCurry.C_CFuncType y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CTCons x1 x2) (Curry.Module.AbstractCurry.C_CTCons y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CTVar x1) st = Curry.Module.AbstractCurry.C_CTVar(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CFuncType x1 x2) st = Curry.Module.AbstractCurry.C_CFuncType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CTCons x1 x2) st = Curry.Module.AbstractCurry.C_CTCons(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CTVar x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CFuncType x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CTCons x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "CTypeExpr"++  showQ d (Curry.Module.AbstractCurry.C_CTVar x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CTVar "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CFuncType x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CFuncType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CTCons x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CTCons "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.AbstractCurry.C_CTypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_COpDecl where+  strEq (Curry.Module.AbstractCurry.C_COp x1 x2 x3) (Curry.Module.AbstractCurry.C_COp y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_COp x1 x2 x3) (Curry.Module.AbstractCurry.C_COp y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_COp x1 x2 x3) st = Curry.Module.AbstractCurry.C_COp(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_COp x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "COpDecl"++  showQ d (Curry.Module.AbstractCurry.C_COp x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.COp "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.AbstractCurry.C_COpDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CFixity where+  strEq Curry.Module.AbstractCurry.C_CInfixOp Curry.Module.AbstractCurry.C_CInfixOp st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.AbstractCurry.C_CInfixlOp Curry.Module.AbstractCurry.C_CInfixlOp st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.AbstractCurry.C_CInfixrOp Curry.Module.AbstractCurry.C_CInfixrOp st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.AbstractCurry.C_CInfixOp Curry.Module.AbstractCurry.C_CInfixOp st = Curry.Module.Prelude.C_True+  eq Curry.Module.AbstractCurry.C_CInfixlOp Curry.Module.AbstractCurry.C_CInfixlOp st = Curry.Module.Prelude.C_True+  eq Curry.Module.AbstractCurry.C_CInfixrOp Curry.Module.AbstractCurry.C_CInfixrOp st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.AbstractCurry.C_CInfixOp st = Curry.Module.AbstractCurry.C_CInfixOp+  propagate f Curry.Module.AbstractCurry.C_CInfixlOp st = Curry.Module.AbstractCurry.C_CInfixlOp+  propagate f Curry.Module.AbstractCurry.C_CInfixrOp st = Curry.Module.AbstractCurry.C_CInfixrOp++  foldCurry f c Curry.Module.AbstractCurry.C_CInfixOp st = c+  foldCurry f c Curry.Module.AbstractCurry.C_CInfixlOp st = c+  foldCurry f c Curry.Module.AbstractCurry.C_CInfixrOp st = c++  typeName _ = "CFixity"++  showQ _ Curry.Module.AbstractCurry.C_CInfixOp = Prelude.showString("AbstractCurry.CInfixOp")+  showQ _ Curry.Module.AbstractCurry.C_CInfixlOp = Prelude.showString("AbstractCurry.CInfixlOp")+  showQ _ Curry.Module.AbstractCurry.C_CInfixrOp = Prelude.showString("AbstractCurry.CInfixrOp")+  showQ _ (Curry.Module.AbstractCurry.C_CFixityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CFuncDecl where+  strEq (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) (Curry.Module.AbstractCurry.C_CFunc y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) (Curry.Module.AbstractCurry.C_CmtFunc y1 y2 y3 y4 y5 y6) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(Curry.Module.Prelude.genStrEq(x6)(y6)(st))(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) (Curry.Module.AbstractCurry.C_CFunc y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) (Curry.Module.AbstractCurry.C_CmtFunc y1 y2 y3 y4 y5 y6) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x5)(y5)(st))(Curry.Module.Prelude.genEq(x6)(y6)(st))(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) st = Curry.Module.AbstractCurry.C_CFunc(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))+  propagate f (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) st = Curry.Module.AbstractCurry.C_CmtFunc(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))(f((5::Int))(x6)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(f(x6)(c)(st))(st))(st))(st))(st))(st)++  typeName _ = "CFuncDecl"++  showQ d (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CFunc "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ d (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CmtFunc "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x6))))))))))))+++  showQ _ (Curry.Module.AbstractCurry.C_CFuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CRules where+  strEq (Curry.Module.AbstractCurry.C_CRules x1 x2) (Curry.Module.AbstractCurry.C_CRules y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CExternal x1) (Curry.Module.AbstractCurry.C_CExternal y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CRules x1 x2) (Curry.Module.AbstractCurry.C_CRules y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CExternal x1) (Curry.Module.AbstractCurry.C_CExternal y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CRules x1 x2) st = Curry.Module.AbstractCurry.C_CRules(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CExternal x1) st = Curry.Module.AbstractCurry.C_CExternal(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CRules x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CExternal x1) st = f(x1)(c)(st)++  typeName _ = "CRules"++  showQ d (Curry.Module.AbstractCurry.C_CRules x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CRules "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CExternal x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CExternal "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.AbstractCurry.C_CRulesOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CEvalAnnot where+  strEq Curry.Module.AbstractCurry.C_CFlex Curry.Module.AbstractCurry.C_CFlex st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.AbstractCurry.C_CRigid Curry.Module.AbstractCurry.C_CRigid st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.AbstractCurry.C_CChoice Curry.Module.AbstractCurry.C_CChoice st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.AbstractCurry.C_CFlex Curry.Module.AbstractCurry.C_CFlex st = Curry.Module.Prelude.C_True+  eq Curry.Module.AbstractCurry.C_CRigid Curry.Module.AbstractCurry.C_CRigid st = Curry.Module.Prelude.C_True+  eq Curry.Module.AbstractCurry.C_CChoice Curry.Module.AbstractCurry.C_CChoice st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.AbstractCurry.C_CFlex st = Curry.Module.AbstractCurry.C_CFlex+  propagate f Curry.Module.AbstractCurry.C_CRigid st = Curry.Module.AbstractCurry.C_CRigid+  propagate f Curry.Module.AbstractCurry.C_CChoice st = Curry.Module.AbstractCurry.C_CChoice++  foldCurry f c Curry.Module.AbstractCurry.C_CFlex st = c+  foldCurry f c Curry.Module.AbstractCurry.C_CRigid st = c+  foldCurry f c Curry.Module.AbstractCurry.C_CChoice st = c++  typeName _ = "CEvalAnnot"++  showQ _ Curry.Module.AbstractCurry.C_CFlex = Prelude.showString("AbstractCurry.CFlex")+  showQ _ Curry.Module.AbstractCurry.C_CRigid = Prelude.showString("AbstractCurry.CRigid")+  showQ _ Curry.Module.AbstractCurry.C_CChoice = Prelude.showString("AbstractCurry.CChoice")+  showQ _ (Curry.Module.AbstractCurry.C_CEvalAnnotOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CRule where+  strEq (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) (Curry.Module.AbstractCurry.C_CRule y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) (Curry.Module.AbstractCurry.C_CRule y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) st = Curry.Module.AbstractCurry.C_CRule(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "CRule"++  showQ d (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CRule "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.AbstractCurry.C_CRuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CLocalDecl where+  strEq (Curry.Module.AbstractCurry.C_CLocalFunc x1) (Curry.Module.AbstractCurry.C_CLocalFunc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) (Curry.Module.AbstractCurry.C_CLocalPat y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CLocalVar x1) (Curry.Module.AbstractCurry.C_CLocalVar y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CLocalFunc x1) (Curry.Module.AbstractCurry.C_CLocalFunc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) (Curry.Module.AbstractCurry.C_CLocalPat y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.AbstractCurry.C_CLocalVar x1) (Curry.Module.AbstractCurry.C_CLocalVar y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CLocalFunc x1) st = Curry.Module.AbstractCurry.C_CLocalFunc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) st = Curry.Module.AbstractCurry.C_CLocalPat(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.AbstractCurry.C_CLocalVar x1) st = Curry.Module.AbstractCurry.C_CLocalVar(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CLocalFunc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CLocalVar x1) st = f(x1)(c)(st)++  typeName _ = "CLocalDecl"++  showQ d (Curry.Module.AbstractCurry.C_CLocalFunc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLocalFunc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLocalPat "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.AbstractCurry.C_CLocalVar x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLocalVar "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.AbstractCurry.C_CLocalDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CExpr where+  strEq (Curry.Module.AbstractCurry.C_CVar x1) (Curry.Module.AbstractCurry.C_CVar y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CLit x1) (Curry.Module.AbstractCurry.C_CLit y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CSymbol x1) (Curry.Module.AbstractCurry.C_CSymbol y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CApply x1 x2) (Curry.Module.AbstractCurry.C_CApply y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CLambda x1 x2) (Curry.Module.AbstractCurry.C_CLambda y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) (Curry.Module.AbstractCurry.C_CLetDecl y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CDoExpr x1) (Curry.Module.AbstractCurry.C_CDoExpr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CListComp x1 x2) (Curry.Module.AbstractCurry.C_CListComp y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CCase x1 x2) (Curry.Module.AbstractCurry.C_CCase y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CVar x1) (Curry.Module.AbstractCurry.C_CVar y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CLit x1) (Curry.Module.AbstractCurry.C_CLit y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CSymbol x1) (Curry.Module.AbstractCurry.C_CSymbol y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CApply x1 x2) (Curry.Module.AbstractCurry.C_CApply y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CLambda x1 x2) (Curry.Module.AbstractCurry.C_CLambda y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) (Curry.Module.AbstractCurry.C_CLetDecl y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CDoExpr x1) (Curry.Module.AbstractCurry.C_CDoExpr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CListComp x1 x2) (Curry.Module.AbstractCurry.C_CListComp y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CCase x1 x2) (Curry.Module.AbstractCurry.C_CCase y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CVar x1) st = Curry.Module.AbstractCurry.C_CVar(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CLit x1) st = Curry.Module.AbstractCurry.C_CLit(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CSymbol x1) st = Curry.Module.AbstractCurry.C_CSymbol(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CApply x1 x2) st = Curry.Module.AbstractCurry.C_CApply(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CLambda x1 x2) st = Curry.Module.AbstractCurry.C_CLambda(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) st = Curry.Module.AbstractCurry.C_CLetDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CDoExpr x1) st = Curry.Module.AbstractCurry.C_CDoExpr(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CListComp x1 x2) st = Curry.Module.AbstractCurry.C_CListComp(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CCase x1 x2) st = Curry.Module.AbstractCurry.C_CCase(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CVar x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CLit x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CSymbol x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CApply x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CLambda x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CDoExpr x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CListComp x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CCase x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "CExpr"++  showQ d (Curry.Module.AbstractCurry.C_CVar x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CVar "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CLit x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLit "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CSymbol x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CSymbol "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CApply x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CApply "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CLambda x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLambda "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CLetDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CDoExpr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CDoExpr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CListComp x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CListComp "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CCase x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CCase "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.AbstractCurry.C_CExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CStatement where+  strEq (Curry.Module.AbstractCurry.C_CSExpr x1) (Curry.Module.AbstractCurry.C_CSExpr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CSPat x1 x2) (Curry.Module.AbstractCurry.C_CSPat y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CSLet x1) (Curry.Module.AbstractCurry.C_CSLet y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CSExpr x1) (Curry.Module.AbstractCurry.C_CSExpr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CSPat x1 x2) (Curry.Module.AbstractCurry.C_CSPat y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CSLet x1) (Curry.Module.AbstractCurry.C_CSLet y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CSExpr x1) st = Curry.Module.AbstractCurry.C_CSExpr(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CSPat x1 x2) st = Curry.Module.AbstractCurry.C_CSPat(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CSLet x1) st = Curry.Module.AbstractCurry.C_CSLet(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CSExpr x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CSPat x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CSLet x1) st = f(x1)(c)(st)++  typeName _ = "CStatement"++  showQ d (Curry.Module.AbstractCurry.C_CSExpr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CSExpr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CSPat x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CSPat "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CSLet x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CSLet "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.AbstractCurry.C_CStatementOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CPattern where+  strEq (Curry.Module.AbstractCurry.C_CPVar x1) (Curry.Module.AbstractCurry.C_CPVar y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CPLit x1) (Curry.Module.AbstractCurry.C_CPLit y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CPComb x1 x2) (Curry.Module.AbstractCurry.C_CPComb y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CPAs x1 x2) (Curry.Module.AbstractCurry.C_CPAs y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) (Curry.Module.AbstractCurry.C_CPFuncComb y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CPVar x1) (Curry.Module.AbstractCurry.C_CPVar y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CPLit x1) (Curry.Module.AbstractCurry.C_CPLit y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CPComb x1 x2) (Curry.Module.AbstractCurry.C_CPComb y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CPAs x1 x2) (Curry.Module.AbstractCurry.C_CPAs y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) (Curry.Module.AbstractCurry.C_CPFuncComb y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CPVar x1) st = Curry.Module.AbstractCurry.C_CPVar(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CPLit x1) st = Curry.Module.AbstractCurry.C_CPLit(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CPComb x1 x2) st = Curry.Module.AbstractCurry.C_CPComb(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CPAs x1 x2) st = Curry.Module.AbstractCurry.C_CPAs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) st = Curry.Module.AbstractCurry.C_CPFuncComb(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CPVar x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CPLit x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CPComb x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CPAs x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "CPattern"++  showQ d (Curry.Module.AbstractCurry.C_CPVar x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CPVar "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CPLit x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CPLit "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CPComb x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CPComb "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CPAs x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CPAs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CPFuncComb "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.AbstractCurry.C_CPatternOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CBranchExpr where+  strEq (Curry.Module.AbstractCurry.C_CBranch x1 x2) (Curry.Module.AbstractCurry.C_CBranch y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CBranch x1 x2) (Curry.Module.AbstractCurry.C_CBranch y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CBranch x1 x2) st = Curry.Module.AbstractCurry.C_CBranch(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CBranch x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "CBranchExpr"++  showQ d (Curry.Module.AbstractCurry.C_CBranch x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CBranch "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.AbstractCurry.C_CBranchExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractCurry.C_CLiteral where+  strEq (Curry.Module.AbstractCurry.C_CIntc x1) (Curry.Module.AbstractCurry.C_CIntc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CFloatc x1) (Curry.Module.AbstractCurry.C_CFloatc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.AbstractCurry.C_CCharc x1) (Curry.Module.AbstractCurry.C_CCharc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractCurry.C_CIntc x1) (Curry.Module.AbstractCurry.C_CIntc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CFloatc x1) (Curry.Module.AbstractCurry.C_CFloatc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.AbstractCurry.C_CCharc x1) (Curry.Module.AbstractCurry.C_CCharc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractCurry.C_CIntc x1) st = Curry.Module.AbstractCurry.C_CIntc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CFloatc x1) st = Curry.Module.AbstractCurry.C_CFloatc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.AbstractCurry.C_CCharc x1) st = Curry.Module.AbstractCurry.C_CCharc(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.AbstractCurry.C_CIntc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CFloatc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.AbstractCurry.C_CCharc x1) st = f(x1)(c)(st)++  typeName _ = "CLiteral"++  showQ d (Curry.Module.AbstractCurry.C_CIntc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CIntc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CFloatc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CFloatc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.AbstractCurry.C_CCharc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractCurry.CCharc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.AbstractCurry.C_CLiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CurryProg where+  showsPrec d (Curry.Module.AbstractCurry.C_CurryProg x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryProg "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CurryProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CVisibility where+  showsPrec _ Curry.Module.AbstractCurry.C_Public = Prelude.showString("Public")+  showsPrec _ Curry.Module.AbstractCurry.C_Private = Prelude.showString("Private")+  showsPrec _ (Curry.Module.AbstractCurry.C_CVisibilityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CTypeDecl where+  showsPrec d (Curry.Module.AbstractCurry.C_CType x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CTypeSyn x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CTypeSyn "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CTypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CConsDecl where+  showsPrec d (Curry.Module.AbstractCurry.C_CCons x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CCons "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CConsDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CTypeExpr where+  showsPrec d (Curry.Module.AbstractCurry.C_CTVar x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CTVar "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CFuncType x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CFuncType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CTCons x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CTCons "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CTypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_COpDecl where+  showsPrec d (Curry.Module.AbstractCurry.C_COp x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("COp "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_COpDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CFixity where+  showsPrec _ Curry.Module.AbstractCurry.C_CInfixOp = Prelude.showString("CInfixOp")+  showsPrec _ Curry.Module.AbstractCurry.C_CInfixlOp = Prelude.showString("CInfixlOp")+  showsPrec _ Curry.Module.AbstractCurry.C_CInfixrOp = Prelude.showString("CInfixrOp")+  showsPrec _ (Curry.Module.AbstractCurry.C_CFixityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CFuncDecl where+  showsPrec d (Curry.Module.AbstractCurry.C_CFunc x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CFunc "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CmtFunc x1 x2 x3 x4 x5 x6) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CmtFunc "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x6))))))))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CFuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CRules where+  showsPrec d (Curry.Module.AbstractCurry.C_CRules x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CRules "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CExternal x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CExternal "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CRulesOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CEvalAnnot where+  showsPrec _ Curry.Module.AbstractCurry.C_CFlex = Prelude.showString("CFlex")+  showsPrec _ Curry.Module.AbstractCurry.C_CRigid = Prelude.showString("CRigid")+  showsPrec _ Curry.Module.AbstractCurry.C_CChoice = Prelude.showString("CChoice")+  showsPrec _ (Curry.Module.AbstractCurry.C_CEvalAnnotOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CRule where+  showsPrec d (Curry.Module.AbstractCurry.C_CRule x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CRule "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CRuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CLocalDecl where+  showsPrec d (Curry.Module.AbstractCurry.C_CLocalFunc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLocalFunc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CLocalPat x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLocalPat "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CLocalVar x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLocalVar "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CLocalDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CExpr where+  showsPrec d (Curry.Module.AbstractCurry.C_CVar x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CVar "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CLit x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLit "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CSymbol x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CSymbol "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CApply x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CApply "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CLambda x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLambda "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CLetDecl x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CLetDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CDoExpr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CDoExpr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CListComp x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CListComp "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CCase x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CCase "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CStatement where+  showsPrec d (Curry.Module.AbstractCurry.C_CSExpr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CSExpr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CSPat x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CSPat "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CSLet x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CSLet "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CStatementOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CPattern where+  showsPrec d (Curry.Module.AbstractCurry.C_CPVar x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CPVar "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CPLit x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CPLit "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CPComb x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CPComb "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CPAs x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CPAs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.AbstractCurry.C_CPFuncComb x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CPFuncComb "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CPatternOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CBranchExpr where+  showsPrec d (Curry.Module.AbstractCurry.C_CBranch x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CBranch "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CBranchExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractCurry.C_CLiteral where+  showsPrec d (Curry.Module.AbstractCurry.C_CIntc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CIntc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CFloatc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CFloatc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.AbstractCurry.C_CCharc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CCharc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.AbstractCurry.C_CLiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.AbstractCurry.C_CurryProg where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CurryProg(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CurryProg")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r)++++++instance Read Curry.Module.AbstractCurry.C_CVisibility where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_Public)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("Public")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_Private)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("Private")(r)])(r))++++++instance Read Curry.Module.AbstractCurry.C_CTypeDecl where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CType(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CTypeSyn(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CTypeSyn")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))++++++instance Read Curry.Module.AbstractCurry.C_CConsDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CCons(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CCons")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r)++++++instance Read Curry.Module.AbstractCurry.C_CTypeExpr where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CTVar(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CTVar")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CFuncType(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CFuncType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CTCons(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CTCons")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))++++++instance Read Curry.Module.AbstractCurry.C_COpDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_COp(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("COp")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance Read Curry.Module.AbstractCurry.C_CFixity where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CInfixOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CInfixOp")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CInfixlOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CInfixlOp")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CInfixrOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CInfixrOp")(r)])(r)))++++++instance Read Curry.Module.AbstractCurry.C_CFuncDecl where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CFunc(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CFunc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CmtFunc(x1)(x2)(x3)(x4)(x5)(x6))(r6) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CmtFunc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4), ((,) x6 r6) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r5)])(r))++++++instance Read Curry.Module.AbstractCurry.C_CRules where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CRules(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CRules")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CExternal(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CExternal")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))++++++instance Read Curry.Module.AbstractCurry.C_CEvalAnnot where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CFlex)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CFlex")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CRigid)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CRigid")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.AbstractCurry.C_CChoice)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CChoice")(r)])(r)))++++++instance Read Curry.Module.AbstractCurry.C_CRule where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CRule(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CRule")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance Read Curry.Module.AbstractCurry.C_CLocalDecl where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLocalFunc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLocalFunc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLocalPat(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLocalPat")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLocalVar(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLocalVar")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))++++++instance Read Curry.Module.AbstractCurry.C_CExpr where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CVar(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CVar")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLit(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLit")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CSymbol(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CSymbol")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CApply(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CApply")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLambda(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLambda")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CLetDecl(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CLetDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CDoExpr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CDoExpr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CListComp(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CListComp")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CCase(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CCase")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))))))))++++++instance Read Curry.Module.AbstractCurry.C_CStatement where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CSExpr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CSExpr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CSPat(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CSPat")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CSLet(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CSLet")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))++++++instance Read Curry.Module.AbstractCurry.C_CPattern where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CPVar(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CPVar")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CPLit(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CPLit")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CPComb(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CPComb")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CPAs(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CPAs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CPFuncComb(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CPFuncComb")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))))++++++instance Read Curry.Module.AbstractCurry.C_CBranchExpr where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CBranch(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CBranch")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.AbstractCurry.C_CLiteral where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CIntc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CIntc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CFloatc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CFloatc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractCurry.C_CCharc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractCurry")("CCharc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))++++++c_readCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readCurry x1 st = Curry.Module.AbstractCurry.c_readCurryWithParseOptions(x1)(Curry.Module.Distribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.Distribution.c_defaultParams(st))(st))(st)++++c_readUntypedCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readUntypedCurry x1 st = Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions(x1)(Curry.Module.Distribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.Distribution.c_defaultParams(st))(st))(st)++++c_readCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readCurryWithParseOptions x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readCurryWithParseOptions'46_'35lambda2(x2)(x1)))(st)++++c_readCurryWithParseOptions'46_'35lambda2 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readCurryWithParseOptions'46_'35lambda2 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3(x3)(x1)(x2)))(st)++++c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3 x1 x2 x3 x4 st = Curry.Module.Prelude.op_62_62(Curry.Module.AbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1(x1)(x2)(x3)(x4)(Curry.Module.Prelude.op_124_124(x1)(x4)(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_findFileInLoadPath(Curry.Module.Prelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4))(st))(st)++++c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 x1 st = Curry.Module.AbstractCurry.c_readAbstractCurryFile(x1)(st)++++c_readUntypedCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readUntypedCurryWithParseOptions x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5(x2)(x1)))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readUntypedCurryWithParseOptions'46_'35lambda5 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6(x3)(x1)(x2)))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6 x1 x2 x3 x4 st = Curry.Module.Prelude.op_62_62(Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0(x1)(x2)(x3)(x4)(Curry.Module.Prelude.op_124_124(x1)(x4)(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_findFileInLoadPath(Curry.Module.Prelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7))(st))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7 x1 st = Curry.Module.AbstractCurry.c_readAbstractCurryFile(x1)(st)++++c_abstractCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_abstractCurryFileName x1 st = Curry.Module.Distribution.c_inCurrySubdir(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.FileGoodies.c_stripSuffix(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(st))(st)++++c_untypedAbstractCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_untypedAbstractCurryFileName x1 st = Curry.Module.Distribution.c_inCurrySubdir(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.FileGoodies.c_stripSuffix(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(st))(st)++++c_readAbstractCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg+c_readAbstractCurryFile x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readAbstractCurryFile'46_'35lambda9(x1)))(st)++++c_readAbstractCurryFile'46readExistingACY'4621 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0+c_readAbstractCurryFile'46readExistingACY'4621 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8))(st)++++c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8 :: (Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1+c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8 x1 st = Curry.Module.Prelude.c_return(Curry.Module.ReadShowTerm.c_readUnqualifiedTerm((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List)))(x1)(st))(st)++++c_readAbstractCurryFile'46_'35lambda9 :: (Curry t2) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t2+c_readAbstractCurryFile'46_'35lambda9 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621(x1)(st)+c_readAbstractCurryFile'46_'35lambda9 x1 x2@Curry.Module.Prelude.C_False st = let {x3 = Curry.Module.Distribution.c_inCurrySubdir(x1)(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurry.c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10(x1)(x3)))(st)+c_readAbstractCurryFile'46_'35lambda9 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurry.c_readAbstractCurryFile'46_'35lambda9(x1)(x)(st))(i)(xs)(st)+c_readAbstractCurryFile'46_'35lambda9 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurry.readAbstractCurryFile._#lambda9")(x)++++c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 :: (Curry t3) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t3+c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621(x2)(st)+c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))(st))(st))(st)+c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurry.c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10(x1)(x2)(x)(st))(i)(xs)(st)+c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurry.readAbstractCurryFile._#lambda9._#lambda10")(x)++++c_writeAbstractCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CurryProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeAbstractCurryFile x1 x2 st = Curry.Module.Prelude.c_writeFile(x1)(Curry.Module.ReadShowTerm.c_showTerm(x2)(st))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Distribution.c_callFrontendWithParams(Curry.Module.Distribution.C_UACY)(x2)(x3)(st)+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_done(st)+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6_case_0 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurry.readUntypedCurryWithParseOptions._#lambda5._#lambda6_case_0")(x)++++c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Distribution.c_callFrontendWithParams(Curry.Module.Distribution.C_ACY)(x2)(x3)(st)+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_done(st)+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_1 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurry.readCurryWithParseOptions._#lambda2._#lambda3_case_1")(x)++
+ dist/build/Curry/Module/AbstractCurryPrinter.hs view
@@ -0,0 +1,2267 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.AbstractCurryPrinter (module Curry.Module.AbstractCurryPrinter) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.Char+import Curry.Module.FiniteMap+import Curry.Module.List+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Sort+import Curry.Module.Read++++-- begin included++++-- end included++type C_NameFM = Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0++type C_Options = Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++c_showProg :: Curry.Module.AbstractCurry.C_CurryProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showProg x1@(Curry.Module.AbstractCurry.C_CurryProg x2 x3 x4 x5 x6) st = let {x7 = Curry.Module.AbstractCurryPrinter.c_showExports(x4)(x5)(st)} in Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showProg_case_229(x7)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.List)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showImports(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showOpDecls(x6)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTypeDecls(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showFuncDeclOpt(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_nameFM(st))(x5)(st))(x2))))(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st))(st))(st)+c_showProg (Curry.Module.AbstractCurry.C_CurryProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showProg(x)(st))(i)(xs)(st)+c_showProg x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showProg")(x)++++c_defaultOptions :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_defaultOptions st = Curry.Module.Prelude.T2(Curry.Module.FiniteMap.c_emptyFM(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.AbstractCurryPrinter.c_lessString))(st))(Curry.Module.Prelude.List)++++c_showExports :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CFuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports x1 x2 st = let {x4 = Curry.Module.List.c_partition(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46allPublicCons'469))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46isPublicType'469))(x1)(st))(st)} in Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_43_43))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469))(st))(Curry.Module.AbstractCurryPrinter.c_showExports'46_'35selFP3'35withCons(x4)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469))(Curry.Module.AbstractCurryPrinter.c_showExports'46_'35selFP4'35withoutCons(x4)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46isPublicFunc'469))(x2)(st))(st))(st))(st))(st))(st)++++c_showExports'46isPublicType'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46isPublicType'469 x1@(Curry.Module.AbstractCurry.C_CType x2 x3 x4 x5) st = Curry.Module.Prelude.op_61_61(x3)(Curry.Module.AbstractCurry.C_Public)(st)+c_showExports'46isPublicType'469 x1@(Curry.Module.AbstractCurry.C_CTypeSyn x6 x7 x8 x9) st = Curry.Module.Prelude.op_61_61(x7)(Curry.Module.AbstractCurry.C_Public)(st)+c_showExports'46isPublicType'469 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46isPublicType'469(x)(st))(i)(xs)(st)+c_showExports'46isPublicType'469 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.isPublicType.9")(x)++++c_showExports'46isPublicFunc'469 :: Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46isPublicFunc'469 x1@(Curry.Module.AbstractCurry.C_CFunc x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_61_61(x4)(Curry.Module.AbstractCurry.C_Public)(st)+c_showExports'46isPublicFunc'469 x1@(Curry.Module.AbstractCurry.C_CmtFunc x7 x8 x9 x10 x11 x12) st = Curry.Module.Prelude.op_61_61(x10)(Curry.Module.AbstractCurry.C_Public)(st)+c_showExports'46isPublicFunc'469 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46isPublicFunc'469(x)(st))(i)(xs)(st)+c_showExports'46isPublicFunc'469 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.isPublicFunc.9")(x)++++c_showExports'46getTypeName'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports'46getTypeName'469 x1@(Curry.Module.AbstractCurry.C_CType x2 x3 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469_case_228(x2)(st)+c_showExports'46getTypeName'469 x1@(Curry.Module.AbstractCurry.C_CTypeSyn x8 x9 x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469_case_227(x8)(st)+c_showExports'46getTypeName'469 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469(x)(st))(i)(xs)(st)+c_showExports'46getTypeName'469 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getTypeName.9")(x)++++c_showExports'46allPublicCons'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46allPublicCons'469 x1@(Curry.Module.AbstractCurry.C_CType x2 x3 x4 x5) st = Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExports'46allPublicCons'469'46isPublicCons'4649))(x5)(st))(st))(Curry.Module.Prelude.c_length(x5)(st))(st)+c_showExports'46allPublicCons'469 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46allPublicCons'469(x)(st))(i)(xs)(st)+c_showExports'46allPublicCons'469 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.allPublicCons.9")(x)++++c_showExports'46allPublicCons'469'46isPublicCons'4649 :: Curry.Module.AbstractCurry.C_CConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46allPublicCons'469'46isPublicCons'4649 x1@(Curry.Module.AbstractCurry.C_CCons x2 x3 x4 x5) st = Curry.Module.Prelude.op_61_61(x4)(Curry.Module.AbstractCurry.C_Public)(st)+c_showExports'46allPublicCons'469'46isPublicCons'4649 (Curry.Module.AbstractCurry.C_CConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46allPublicCons'469'46isPublicCons'4649(x)(st))(i)(xs)(st)+c_showExports'46allPublicCons'469'46isPublicCons'4649 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.allPublicCons.9.isPublicCons.49")(x)++++c_showExports'46getFuncName'469 :: Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports'46getFuncName'469 x1@(Curry.Module.AbstractCurry.C_CFunc x2 x3 x4 x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469_case_226(x2)(st)+c_showExports'46getFuncName'469 x1@(Curry.Module.AbstractCurry.C_CmtFunc x9 x10 x11 x12 x13 x14) st = Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469_case_225(x10)(st)+c_showExports'46getFuncName'469 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469(x)(st))(i)(xs)(st)+c_showExports'46getFuncName'469 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getFuncName.9")(x)++++c_showExports'46_'35selFP3'35withCons :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl+c_showExports'46_'35selFP3'35withCons x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_showExports'46_'35selFP3'35withCons (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46_'35selFP3'35withCons(x)(st))(i)(xs)(st)+c_showExports'46_'35selFP3'35withCons x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports._#selFP3#withCons")(x)++++c_showExports'46_'35selFP4'35withoutCons :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl+c_showExports'46_'35selFP4'35withoutCons x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_showExports'46_'35selFP4'35withoutCons (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46_'35selFP4'35withoutCons(x)(st))(i)(xs)(st)+c_showExports'46_'35selFP4'35withoutCons x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports._#selFP4#withoutCons")(x)++++c_showImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showImports x1 st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showImport))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(Curry.Module.AbstractCurryPrinter.c_showImports_case_224(x1)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List))(st))(st))(st)++++c_showImport :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showImport x1 st = Curry.Module.AbstractCurryPrinter.c_showImport_case_223(x1)(Curry.Module.Prelude.op_47_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(st)++++c_showOpDecls :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showOpDecls x1 st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showOpDecl))(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(Curry.Module.AbstractCurryPrinter.c_showOpDecls_case_222(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.List)(st))(st))(st)++++c_showOpDecl :: Curry.Module.AbstractCurry.C_COpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showOpDecl x1@(Curry.Module.AbstractCurry.C_COp x2 x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showOpDecl_case_221(x3)(x4)(x2)(st)+c_showOpDecl (Curry.Module.AbstractCurry.C_COpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showOpDecl(x)(st))(i)(xs)(st)+c_showOpDecl x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showOpDecl")(x)++++c_showFixity :: Curry.Module.AbstractCurry.C_CFixity -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFixity x1@Curry.Module.AbstractCurry.C_CInfixOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List)))))+c_showFixity x1@Curry.Module.AbstractCurry.C_CInfixlOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))+c_showFixity x1@Curry.Module.AbstractCurry.C_CInfixrOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))+c_showFixity (Curry.Module.AbstractCurry.C_CFixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showFixity(x)(st))(i)(xs)(st)+c_showFixity x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showFixity")(x)++++c_showTypeDecls :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeDecls x1 st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeDecl))(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st))(Curry.Module.AbstractCurryPrinter.c_showTypeDecls_case_219(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.List)(st))(st))(st)++++c_showTypeDecl :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeDecl x1@(Curry.Module.AbstractCurry.C_CTypeSyn x2 x3 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showTypeDecl_case_218(x4)(x5)(x2)(st)+c_showTypeDecl x1@(Curry.Module.AbstractCurry.C_CType x8 x9 x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showTypeDecl_case_217(x10)(x11)(x8)(st)+c_showTypeDecl (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeDecl(x)(st))(i)(xs)(st)+c_showTypeDecl x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeDecl")(x)++++c_showConsDecl :: Curry.Module.AbstractCurry.C_CConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showConsDecl x1@(Curry.Module.AbstractCurry.C_CCons x2 x3 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showConsDecl_case_216(x5)(x2)(st)+c_showConsDecl (Curry.Module.AbstractCurry.C_CConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showConsDecl(x)(st))(i)(xs)(st)+c_showConsDecl x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showConsDecl")(x)++++c_showTypeExpr :: Curry.Module.Prelude.C_Bool -> Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeExpr x1 x2@(Curry.Module.AbstractCurry.C_CTVar x3) st = Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_215(x3)(st)+c_showTypeExpr x1 x2@(Curry.Module.AbstractCurry.C_CFuncType x6 x7) st = Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.AbstractCurryPrinter.c_isCFuncType(x6)(st))(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x7)(st))(st))(st))(st)+c_showTypeExpr x1 x2@(Curry.Module.AbstractCurry.C_CTCons x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_214(x1)(x9)(x8)(st)+c_showTypeExpr x1 (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeExpr(x1)(x)(st))(i)(xs)(st)+c_showTypeExpr x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeExpr")(x)++++c_showTypeVar :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeVar x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.AbstractCurryPrinter.c_showTypeVar_case_211(x2)(x3)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_null(x3)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.Char.c_isDigit))(st))(x3)(st))(st))(st))(st)+c_showTypeVar (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeVar(x)(st))(i)(xs)(st)+c_showTypeVar x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeVar")(x)++++c_showIdentifier :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showIdentifier st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_not))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))))(st)))++++c_isCFuncType :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCFuncType x1@(Curry.Module.AbstractCurry.C_CFuncType x2 x3) st = Curry.Module.Prelude.C_True+c_isCFuncType x1@(Curry.Module.AbstractCurry.C_CTVar x4) st = Curry.Module.Prelude.C_False+c_isCFuncType x1@(Curry.Module.AbstractCurry.C_CTCons x5 x6) st = Curry.Module.Prelude.C_False+c_isCFuncType (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isCFuncType(x)(st))(i)(xs)(st)+c_isCFuncType x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isCFuncType")(x)++++c_showFuncDecl :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showFuncDecl st = Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showFuncDeclOpt(Curry.Module.AbstractCurryPrinter.c_defaultOptions(st)))++++c_showFuncDeclOpt :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFuncDeclOpt x1 x2@(Curry.Module.AbstractCurry.C_CmtFunc x3 x4 x5 x6 x7 x8) st = Curry.Module.AbstractCurryPrinter.c_showCmtFunc(x1)(x3)(Curry.Module.AbstractCurry.C_CFunc(x4)(x5)(x6)(x7)(x8))(st)+c_showFuncDeclOpt x1 x2@(Curry.Module.AbstractCurry.C_CFunc x9 x10 x11 x12 x13) st = Curry.Module.AbstractCurryPrinter.c_showCmtFunc(x1)(Curry.Module.Prelude.List)(x2)(st)+c_showFuncDeclOpt x1 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showFuncDeclOpt(x1)(x)(st))(i)(xs)(st)+c_showFuncDeclOpt x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showFuncDeclOpt")(x)++++c_showCmtFunc :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCmtFunc x1 x2 x3@(Curry.Module.AbstractCurry.C_CFunc x4 x5 x6 x7 x8) st = Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_210(x1)(x2)(x7)(x8)(x4)(st)+c_showCmtFunc x1 x2 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc(x1)(x2)(x)(st))(i)(xs)(st)+c_showCmtFunc x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc")(x)++++c_showCmtFunc'46insertName'46139 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCmtFunc'46insertName'46139 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x1)(x4)(st))(st))(st)+c_showCmtFunc'46insertName'46139 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc'46insertName'46139(x1)(x)(st))(i)(xs)(st)+c_showCmtFunc'46insertName'46139 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc.insertName.139")(x)++++c_funcComment :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_funcComment st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_unlines))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_lines))(st))(st)++++c_showLocalFuncDecl :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showLocalFuncDecl x1 st = Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showFuncDeclOpt(x1))++++c_showRule :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CRule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showRule x1 x2@(Curry.Module.AbstractCurry.C_CRule x3 x4 x5) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showPattern))(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCrhsList(x1)(x4)(st))(Curry.Module.AbstractCurryPrinter.c_showRule_case_203(x1)(x5)(Curry.Module.Prelude.c_null(x5)(st))(st))(st))(st)+c_showRule x1 (Curry.Module.AbstractCurry.C_CRuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showRule(x1)(x)(st))(i)(xs)(st)+c_showRule x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showRule")(x)++++c_showEvalAnnot :: Curry.Module.AbstractCurry.C_CEvalAnnot -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showEvalAnnot x1@Curry.Module.AbstractCurry.C_CFlex st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))+c_showEvalAnnot x1@Curry.Module.AbstractCurry.C_CRigid st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))+c_showEvalAnnot x1@Curry.Module.AbstractCurry.C_CChoice st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))+c_showEvalAnnot (Curry.Module.AbstractCurry.C_CEvalAnnotOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showEvalAnnot(x)(st))(i)(xs)(st)+c_showEvalAnnot x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showEvalAnnot")(x)++++c_showCrhsList :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCrhsList x1 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showCrhsList x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_202(x1)(x4)(x3)(st)+c_showCrhsList x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCrhsList(x1)(x)(st))(i)(xs)(st)+c_showCrhsList x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCrhsList")(x)++++c_showCrhs :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCrhs x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x4)(st))(st))(st))(st)+c_showCrhs x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCrhs(x1)(x)(st))(i)(xs)(st)+c_showCrhs x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCrhs")(x)++++c_showLocalDecl :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CLocalDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLocalDecl x1 x2@(Curry.Module.AbstractCurry.C_CLocalFunc x3) st = Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showLocalFuncDecl(x1)(st))(x3)(st)+c_showLocalDecl x1 x2@(Curry.Module.AbstractCurry.C_CLocalPat x4 x5 x6) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showPattern(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x5)(st))(Curry.Module.AbstractCurryPrinter.c_showLocalDecl_case_199(x1)(x6)(Curry.Module.Prelude.c_null(x6)(st))(st))(st))(st))(st)+c_showLocalDecl x1 x2@(Curry.Module.AbstractCurry.C_CLocalVar x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPVar(x7))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(st)+c_showLocalDecl x1 (Curry.Module.AbstractCurry.C_CLocalDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)(x)(st))(i)(xs)(st)+c_showLocalDecl x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLocalDecl")(x)++++c_showExpr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showExpr st = Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showExprOpt(Curry.Module.AbstractCurryPrinter.c_defaultOptions(st)))++++c_showExprOpt :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CVar x3) st = Curry.Module.AbstractCurryPrinter.c_showExprOpt_case_198(x3)(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CLit x6) st = Curry.Module.AbstractCurryPrinter.c_showLiteral(x6)(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.AbstractCurryPrinter.c_showExprOpt_case_197(x1)(x7)(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(Curry.Module.Prelude.c_snd(x7)(st))(st))(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showApplication(x1)(Curry.Module.AbstractCurry.C_CApply(x8)(x9))(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CLambda x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection(x1)(x10)(x11)(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x12 x13) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)))(x12)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x13)(st))(st))(st))(st))(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x14) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showStatement(x1)))(x14)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CListComp x15 x16) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x15)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showStatement(x1)))(x16)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showExprOpt x1 x2@(Curry.Module.AbstractCurry.C_CCase x17 x18) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x17)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showBranchExpr(x1)))(x18)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showExprOpt x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x)(st))(i)(xs)(st)+c_showExprOpt x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExprOpt")(x)++++c_showSymbol :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSymbol x1@(Curry.Module.Prelude.T2 x3 x4) x2 st = Curry.Module.AbstractCurryPrinter.c_showSymbol_case_196(x3)(x4)(x2)(st)+c_showSymbol (Curry.Module.Prelude.T2Or i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbol(x)(x2)(st))(i)(xs)(st)+c_showSymbol x x2 st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbol")(x)++++c_showLambdaOrSection :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLambdaOrSection x1 x2@((Curry.Module.Prelude.:<) x4 x5) x3 st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_192(x1)(x2)(x3)(x5)(x4)(st)+c_showLambdaOrSection x1 x2@Curry.Module.Prelude.List x3 st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection(x1)(x)(x3)(st))(i)(xs)(st)+c_showLambdaOrSection x1 x x3 st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection")(x)++++c_showLambda :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLambda x1 x2 x3 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showPattern))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x3)(st))(st))(st))(st)++++c_showStatement :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CStatement -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showStatement x1 x2@(Curry.Module.AbstractCurry.C_CSExpr x3) st = Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x3)(st)+c_showStatement x1 x2@(Curry.Module.AbstractCurry.C_CSPat x4 x5) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showPattern(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x5)(st))(st))(st)+c_showStatement x1 x2@(Curry.Module.AbstractCurry.C_CSLet x6) st = Curry.Module.AbstractCurryPrinter.c_showStatement_case_166(x1)(x6)(st)+c_showStatement x1 (Curry.Module.AbstractCurry.C_CStatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showStatement(x1)(x)(st))(i)(xs)(st)+c_showStatement x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showStatement")(x)++++c_showPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPattern x1@(Curry.Module.AbstractCurry.C_CPVar x2) st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_164(x2)(st)+c_showPattern x1@(Curry.Module.AbstractCurry.C_CPLit x5) st = Curry.Module.AbstractCurryPrinter.c_showLiteral(x5)(st)+c_showPattern x1@(Curry.Module.AbstractCurry.C_CPComb x6 x7) st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_163(x7)(x6)(st)+c_showPattern x1@(Curry.Module.AbstractCurry.C_CPAs x12 x13) st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_159(x13)(x12)(st)+c_showPattern x1@(Curry.Module.AbstractCurry.C_CPFuncComb x16 x17) st = Curry.Module.AbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPComb(x16)(x17))(st)+c_showPattern (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern(x)(st))(i)(xs)(st)+c_showPattern x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern")(x)++++c_showPreludeCons :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeCons x1 st = let {x3 = Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP6'35name(x1)(st)} in let {x4 = Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP7'35pattlist(x1)(st)} in Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_158(x1)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(st)++++c_showPreludeCons'46_'35selFP6'35name :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeCons'46_'35selFP6'35name x1@(Curry.Module.AbstractCurry.C_CPComb x2 x3) st = Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP6'35name_case_155(x2)(st)+c_showPreludeCons'46_'35selFP6'35name (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP6'35name(x)(st))(i)(xs)(st)+c_showPreludeCons'46_'35selFP6'35name x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons._#selFP6#name")(x)++++c_showPreludeCons'46_'35selFP7'35pattlist :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern+c_showPreludeCons'46_'35selFP7'35pattlist x1@(Curry.Module.AbstractCurry.C_CPComb x2 x3) st = Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP7'35pattlist_case_154(x3)(x2)(st)+c_showPreludeCons'46_'35selFP7'35pattlist (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP7'35pattlist(x)(st))(i)(xs)(st)+c_showPreludeCons'46_'35selFP7'35pattlist x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons._#selFP7#pattlist")(x)++++c_showPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPatternList x1 st = Curry.Module.AbstractCurryPrinter.c_showPatternList_case_153(x1)(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern(x1)(st))(st)++++c_showPatListElems :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showPatListElems x1@(Curry.Module.AbstractCurry.C_CPComb x2 x3) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_149(x3)(x2)(st)+c_showPatListElems x1@(Curry.Module.AbstractCurry.C_CPVar x28) st = (Curry.Module.Prelude.:<)(Curry.Module.AbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPVar(x28))(st))(Curry.Module.Prelude.List)+c_showPatListElems x1@(Curry.Module.AbstractCurry.C_CPAs x29 x30) st = (Curry.Module.Prelude.:<)(Curry.Module.AbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPAs(x29)(x30))(st))(Curry.Module.Prelude.List)+c_showPatListElems (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems(x)(st))(i)(xs)(st)+c_showPatListElems x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems")(x)++++c_isClosedPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedPatternList x1@(Curry.Module.AbstractCurry.C_CPComb x2 x3) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_123(x3)(x2)(st)+c_isClosedPatternList x1@(Curry.Module.AbstractCurry.C_CPVar x28) st = Curry.Module.Prelude.C_False+c_isClosedPatternList x1@(Curry.Module.AbstractCurry.C_CPAs x29 x30) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList(x30)(st)+c_isClosedPatternList (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList(x)(st))(i)(xs)(st)+c_isClosedPatternList x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList")(x)++++c_isClosedStringPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedStringPattern x1@(Curry.Module.AbstractCurry.C_CPComb x2 x3) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_97(x3)(x2)(st)+c_isClosedStringPattern x1@(Curry.Module.AbstractCurry.C_CPVar x28) st = Curry.Module.Prelude.C_False+c_isClosedStringPattern (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern(x)(st))(i)(xs)(st)+c_isClosedStringPattern x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern")(x)++++c_isCharPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharPattern x1@(Curry.Module.AbstractCurry.C_CPLit x2) st = Curry.Module.AbstractCurryPrinter.c_isCharPattern_case_71(x2)(st)+c_isCharPattern x1@(Curry.Module.AbstractCurry.C_CPVar x6) st = Curry.Module.Prelude.C_False+c_isCharPattern x1@(Curry.Module.AbstractCurry.C_CPComb x7 x8) st = Curry.Module.Prelude.C_False+c_isCharPattern x1@(Curry.Module.AbstractCurry.C_CPAs x9 x10) st = Curry.Module.Prelude.C_False+c_isCharPattern x1@(Curry.Module.AbstractCurry.C_CPFuncComb x11 x12) st = Curry.Module.Prelude.C_False+c_isCharPattern (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isCharPattern(x)(st))(i)(xs)(st)+c_isCharPattern x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isCharPattern")(x)++++c_isAsPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAsPattern x1@(Curry.Module.AbstractCurry.C_CPAs x2 x3) st = Curry.Module.Prelude.C_True+c_isAsPattern x1@(Curry.Module.AbstractCurry.C_CPVar x4) st = Curry.Module.Prelude.C_False+c_isAsPattern x1@(Curry.Module.AbstractCurry.C_CPLit x5) st = Curry.Module.Prelude.C_False+c_isAsPattern x1@(Curry.Module.AbstractCurry.C_CPComb x6 x7) st = Curry.Module.Prelude.C_False+c_isAsPattern x1@(Curry.Module.AbstractCurry.C_CPFuncComb x8 x9) st = Curry.Module.Prelude.C_False+c_isAsPattern (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isAsPattern(x)(st))(i)(xs)(st)+c_isAsPattern x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isAsPattern")(x)++++c_showAsPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAsPatternList x1@(Curry.Module.AbstractCurry.C_CPAs x2 x3) st = Curry.Module.AbstractCurryPrinter.c_showAsPatternList_case_70(x3)(x2)(st)+c_showAsPatternList (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showAsPatternList(x)(st))(i)(xs)(st)+c_showAsPatternList x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showAsPatternList")(x)++++c_showBranchExpr :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CBranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBranchExpr x1 x2@(Curry.Module.AbstractCurry.C_CBranch x3 x4) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showPattern(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x4)(st))(st))(st)+c_showBranchExpr x1 (Curry.Module.AbstractCurry.C_CBranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showBranchExpr(x1)(x)(st))(i)(xs)(st)+c_showBranchExpr x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showBranchExpr")(x)++++c_showLiteral :: Curry.Module.AbstractCurry.C_CLiteral -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLiteral x1@(Curry.Module.AbstractCurry.C_CIntc x2) st = Curry.Module.Prelude.c_show(x2)(st)+c_showLiteral x1@(Curry.Module.AbstractCurry.C_CFloatc x3) st = Curry.Module.Prelude.c_show(x3)(st)+c_showLiteral x1@(Curry.Module.AbstractCurry.C_CCharc x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(Curry.Module.AbstractCurry.C_CCharc(x4))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))(st))(st)+c_showLiteral (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLiteral(x)(st))(i)(xs)(st)+c_showLiteral x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLiteral")(x)++++c_showCCharc :: Curry.Module.AbstractCurry.C_CLiteral -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCCharc x1@(Curry.Module.AbstractCurry.C_CCharc x2) st = Curry.Module.AbstractCurryPrinter.c_showCCharc_case_69(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_showCCharc (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc(x)(st))(i)(xs)(st)+c_showCCharc x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc")(x)++++c_showBlock :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBlock x1 st = Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_47_61(Curry.Module.Prelude.List)))(Curry.Module.Prelude.c_lines(x1)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st)++++c_showTypeCons :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeCons x1 x2 x3@Curry.Module.Prelude.List st = x2+c_showTypeCons x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showTypeCons_case_64(x1)(x2)(x4)(x5)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(st)+c_showTypeCons x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeCons(x1)(x2)(x)(st))(i)(xs)(st)+c_showTypeCons x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeCons")(x)++++c_showPreludeTypeCons :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeTypeCons x1 x2 st = Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_62(x1)(x2)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x2)(st))(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(st))(st))(st)++++c_showApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showApplication x1 x2 st = Curry.Module.AbstractCurryPrinter.c_showApplication_case_58(x1)(x2)(Curry.Module.AbstractCurryPrinter.c_applicationHead(x2)(st))(st)++++c_applicationHead :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CApply x2 x3) st = Curry.Module.AbstractCurryPrinter.c_applicationHead(x2)(st)+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CVar x4) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CLit x5) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CSymbol x6) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CLambda x7 x8) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CLetDecl x9 x10) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CDoExpr x11) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CListComp x12 x13) st = x1+c_applicationHead x1@(Curry.Module.AbstractCurry.C_CCase x14 x15) st = x1+c_applicationHead (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_applicationHead(x)(st))(i)(xs)(st)+c_applicationHead x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.applicationHead")(x)++++c_showSymbolApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSymbolApplication x1 x2@(Curry.Module.Prelude.T2 x4 x5) x3 st = Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_57(x1)(x3)(x4)(x5)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showSymbolApplication x1 (Curry.Module.Prelude.T2Or i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbolApplication(x1)(x)(x3)(st))(i)(xs)(st)+c_showSymbolApplication x1 x x3 st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbolApplication")(x)++++c_showListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showListApplication x1 x2 st = Curry.Module.AbstractCurryPrinter.c_showListApplication_case_53(x1)(x2)(Curry.Module.AbstractCurryPrinter.c_isStringList(x2)(st))(st)++++c_showCharListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharListApplication x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_50(x1)(x4)(x3)(st)+c_showCharListApplication x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x)(st))(i)(xs)(st)+c_showCharListApplication x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCharListApplication")(x)++++c_showConsListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showConsListApplication x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showConsListApplication_case_47(x1)(x4)(x3)(st)+c_showConsListApplication x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x)(st))(i)(xs)(st)+c_showConsListApplication x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showConsListApplication")(x)++++c_showSimpleListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSimpleListApplication x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_45(x1)(x4)(x3)(st)+c_showSimpleListApplication x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication(x1)(x)(st))(i)(xs)(st)+c_showSimpleListApplication x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSimpleListApplication")(x)++++c_showInfixApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showInfixApplication x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showInfixApplication_case_42(x1)(x2)(x5)(x4)(st)+c_showInfixApplication x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showInfixApplication(x1)(x2)(x)(st))(i)(xs)(st)+c_showInfixApplication x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showInfixApplication")(x)++++c_showITEApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showITEApplication x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_41(x1)(x4)(x3)(st)+c_showITEApplication x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showITEApplication(x1)(x)(st))(i)(xs)(st)+c_showITEApplication x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showITEApplication")(x)++++c_showTupleApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTupleApplication x1 x2 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)++++c_showTupleApplication'46p_showTuple'46386 :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTupleApplication'46p_showTuple'46386 x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.AbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386_case_38(x1)(x4)(x3)(st)+c_showTupleApplication'46p_showTuple'46386 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386(x1)(x)(st))(i)(xs)(st)+c_showTupleApplication'46p_showTuple'46386 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTupleApplication.p_showTuple.386")(x)++++c_showSimpleApplication :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CVar x5) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CLit x6) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CLambda x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x12) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CListComp x13 x14) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 x2@(Curry.Module.AbstractCurry.C_CCase x15 x16) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x2)(st)+c_showSimpleApplication x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x)(st))(i)(xs)(st)+c_showSimpleApplication x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSimpleApplication")(x)++++c_showBoxedExpr :: (Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBoxedExpr x1 x2 st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr_case_37(x1)(x2)(Curry.Module.AbstractCurryPrinter.c_isSimpleExpr(x2)(st))(st)++++c_prefixMap :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prefixMap x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(x3)))(st))(Curry.Module.Prelude.c_map(x1)(x2)(st))(st)++++c_prefixInter :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prefixInter x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_concat))(Curry.Module.List.c_intersperse(x3)(Curry.Module.Prelude.c_map(x1)(x2)(st))(st))(st)++++c_combineMap :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_combineMap x1 x2@Curry.Module.Prelude.List x3 st = Curry.Module.Prelude.List+c_combineMap x1 x2@((Curry.Module.Prelude.:<) x4 x5) x3 st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x4)(st))(Curry.Module.AbstractCurryPrinter.c_prefixMap(x1)(x5)(x3)(st))(st)+c_combineMap x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_combineMap(x1)(x)(x3)(st))(i)(xs)(st)+c_combineMap x1 x x3 st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.combineMap")(x)++++c_dropTags :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dropTags x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.AbstractCurryPrinter.c_dropTags_case_35(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\"'))(st))(st)+c_dropTags (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_dropTags(x)(st))(i)(xs)(st)+c_dropTags x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.dropTags")(x)++++c_isInfixOpName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isInfixOpName st = Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))(Curry.Module.AbstractCurryPrinter.c_infixIDs(st))))(st)++++c_isStringList :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringList x1@(Curry.Module.AbstractCurry.C_CSymbol x2) st = Curry.Module.AbstractCurryPrinter.c_isStringList_case_33(x2)(st)+c_isStringList x1@(Curry.Module.AbstractCurry.C_CVar x5) st = Curry.Module.Prelude.C_False+c_isStringList x1@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.AbstractCurryPrinter.c_isStringList_case_32(x7)(x6)(st)+c_isStringList (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isStringList(x)(st))(i)(xs)(st)+c_isStringList x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isStringList")(x)++++c_isClosedList :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CApply x2 x3) st = Curry.Module.AbstractCurryPrinter.c_isClosedList_case_29(x3)(x2)(st)+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CSymbol x34) st = Curry.Module.AbstractCurryPrinter.c_isClosedList_case_26(x34)(st)+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CVar x37) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CLit x38) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CLambda x39 x40) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CLetDecl x41 x42) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CDoExpr x43) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CListComp x44 x45) st = Curry.Module.Prelude.C_False+c_isClosedList x1@(Curry.Module.AbstractCurry.C_CCase x46 x47) st = Curry.Module.Prelude.C_False+c_isClosedList (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedList(x)(st))(i)(xs)(st)+c_isClosedList x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedList")(x)++++c_isSimpleExpr :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CVar x2) st = Curry.Module.Prelude.C_True+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CLit x3) st = Curry.Module.Prelude.C_True+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CSymbol x4) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_25(x4)(st)+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_24(x7)(Curry.Module.AbstractCurryPrinter.c_applicationHead(x7)(st))(st)+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CLambda x41 x42) st = Curry.Module.Prelude.C_False+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CLetDecl x43 x44) st = Curry.Module.Prelude.C_False+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CDoExpr x45) st = Curry.Module.Prelude.C_False+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CListComp x46 x47) st = Curry.Module.Prelude.C_False+c_isSimpleExpr x1@(Curry.Module.AbstractCurry.C_CCase x48 x49) st = Curry.Module.Prelude.C_False+c_isSimpleExpr (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr(x)(st))(i)(xs)(st)+c_isSimpleExpr x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr")(x)++++c_isAtom :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAtom x1@(Curry.Module.AbstractCurry.C_CVar x2) st = Curry.Module.Prelude.C_True+c_isAtom x1@(Curry.Module.AbstractCurry.C_CLit x3) st = Curry.Module.Prelude.C_True+c_isAtom x1@(Curry.Module.AbstractCurry.C_CSymbol x4) st = Curry.Module.AbstractCurryPrinter.c_isAtom_case_7(x4)(st)+c_isAtom x1@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.Prelude.C_False+c_isAtom x1@(Curry.Module.AbstractCurry.C_CLambda x9 x10) st = Curry.Module.Prelude.C_False+c_isAtom x1@(Curry.Module.AbstractCurry.C_CLetDecl x11 x12) st = Curry.Module.Prelude.C_False+c_isAtom x1@(Curry.Module.AbstractCurry.C_CDoExpr x13) st = Curry.Module.Prelude.C_False+c_isAtom x1@(Curry.Module.AbstractCurry.C_CListComp x14 x15) st = Curry.Module.Prelude.C_False+c_isAtom x1@(Curry.Module.AbstractCurry.C_CCase x16 x17) st = Curry.Module.Prelude.C_False+c_isAtom (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isAtom(x)(st))(i)(xs)(st)+c_isAtom x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isAtom")(x)++++c_isUntyped :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isUntyped x1@(Curry.Module.AbstractCurry.C_CTCons x2 x3) st = Curry.Module.AbstractCurryPrinter.c_isUntyped_case_6(x3)(x2)(st)+c_isUntyped x1@(Curry.Module.AbstractCurry.C_CTVar x8) st = Curry.Module.Prelude.C_False+c_isUntyped x1@(Curry.Module.AbstractCurry.C_CFuncType x9 x10) st = Curry.Module.Prelude.C_False+c_isUntyped (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isUntyped(x)(st))(i)(xs)(st)+c_isUntyped x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isUntyped")(x)++++c_isTuple :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTuple x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isTuple x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('('))(st))(Curry.Module.AbstractCurryPrinter.c_isTuple'46p1_isTuple'46492(x3)(st))(st)+c_isTuple (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isTuple(x)(st))(i)(xs)(st)+c_isTuple x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isTuple")(x)++++c_isTuple'46p1_isTuple'46492 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTuple'46p1_isTuple'46492 x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isTuple'46p1_isTuple'46492 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.AbstractCurryPrinter.c_isTuple'46p1_isTuple'46492_case_4(x2)(x3)(st)+c_isTuple'46p1_isTuple'46492 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isTuple'46p1_isTuple'46492(x)(st))(i)(xs)(st)+c_isTuple'46p1_isTuple'46492 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isTuple.p1_isTuple.492")(x)++++c_infixIDs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))))))))))))))))))))++++c_maybeShowBrackets :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_maybeShowBrackets x1 x2 st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets_case_3(x1)(st))(Curry.Module.Prelude.op_43_43(x2)(Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets_case_2(x1)(st))(st))(st)++++c_nameFM :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CFuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0)+c_nameFM st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.AbstractCurryPrinter.c_addName))(Curry.Module.FiniteMap.c_emptyFM(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.AbstractCurryPrinter.c_lessString))(st)))++++c_addName :: Curry.Module.AbstractCurry.C_CFuncDecl -> (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0+c_addName x1@(Curry.Module.AbstractCurry.C_CFunc x3 x4 x5 x6 x7) x2 st = Curry.Module.AbstractCurryPrinter.c_addName_case_1(x2)(x3)(st)+c_addName x1@(Curry.Module.AbstractCurry.C_CmtFunc x10 x11 x12 x13 x14 x15) x2 st = Curry.Module.AbstractCurryPrinter.c_addName_case_0(x2)(x11)(st)+c_addName (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_addName(x)(x2)(st))(i)(xs)(st)+c_addName x x2 st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.addName")(x)++++c_lessString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_lessString x1 x2 st = Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.C_LT)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_cmpString(st))(x1)(st))(x2)(st))(st)++++c_addName_case_0 x2 x11@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.FiniteMap.c_addToFM(x2)(x17)(Curry.Module.Prelude.T0)(st)+c_addName_case_0 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_addName_case_0(x2)(x)(st))(i)(xs)(st)+c_addName_case_0 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.addName_case_0")(x)++++c_addName_case_1 x2 x3@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.FiniteMap.c_addToFM(x2)(x9)(Curry.Module.Prelude.T0)(st)+c_addName_case_1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_addName_case_1(x2)(x)(st))(i)(xs)(st)+c_addName_case_1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.addName_case_1")(x)++++c_maybeShowBrackets_case_2 x1@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)+c_maybeShowBrackets_case_2 x1@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_maybeShowBrackets_case_2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets_case_2(x)(st))(i)(xs)(st)+c_maybeShowBrackets_case_2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.maybeShowBrackets_case_2")(x)++++c_maybeShowBrackets_case_3 x1@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List)+c_maybeShowBrackets_case_3 x1@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_maybeShowBrackets_case_3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets_case_3(x)(st))(i)(xs)(st)+c_maybeShowBrackets_case_3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.maybeShowBrackets_case_3")(x)++++c_isTuple'46p1_isTuple'46492_case_4 x2 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(')'))(st)+c_isTuple'46p1_isTuple'46492_case_4 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(','))(st))(Curry.Module.AbstractCurryPrinter.c_isTuple'46p1_isTuple'46492((Curry.Module.Prelude.:<)(x4)(x5))(st))(st)+c_isTuple'46p1_isTuple'46492_case_4 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isTuple'46p1_isTuple'46492_case_4(x2)(x)(st))(i)(xs)(st)+c_isTuple'46p1_isTuple'46492_case_4 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isTuple.p1_isTuple.492_case_4")(x)++++c_isUntyped_case_6 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_isUntyped_case_5(x4)(x5)(x3)(st)+c_isUntyped_case_6 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isUntyped_case_6(x3)(x)(st))(i)(xs)(st)+c_isUntyped_case_6 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isUntyped_case_6")(x)++++c_isUntyped_case_5 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))(st))(st)+c_isUntyped_case_5 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.Prelude.C_False+c_isUntyped_case_5 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isUntyped_case_5(x4)(x5)(x)(st))(i)(xs)(st)+c_isUntyped_case_5 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isUntyped_case_5")(x)++++c_isAtom_case_7 x4@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_not))(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x6)(st))(st)+c_isAtom_case_7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isAtom_case_7(x)(st))(i)(xs)(st)+c_isAtom_case_7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isAtom_case_7")(x)++++c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CSymbol x9) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_23(x9)(st)+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CVar x28) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CLit x29) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CApply x30 x31) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CLambda x32 x33) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CLetDecl x34 x35) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CDoExpr x36) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CListComp x37 x38) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 x8@(Curry.Module.AbstractCurry.C_CCase x39 x40) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_24 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_24(x7)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_24 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_24")(x)++++c_isSimpleExpr_case_23 x9@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_22(x11)(x10)(st)+c_isSimpleExpr_case_23 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_23(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_23 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_23")(x)++++c_isSimpleExpr_case_22 x11 x10@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_21(x11)(x12)(x13)(Curry.Module.Prelude.op_61_61(x12)(Curry.Module.Prelude.C_Char('P'))(st))(st)+c_isSimpleExpr_case_22 x11 x10@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_22 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_22(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_22 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_22")(x)++++c_isSimpleExpr_case_21 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_20(x11)(x13)(st)+c_isSimpleExpr_case_21 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_21 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_21(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_21 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_21")(x)++++c_isSimpleExpr_case_20 x11 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_19(x11)(x14)(x15)(Curry.Module.Prelude.op_61_61(x14)(Curry.Module.Prelude.C_Char('r'))(st))(st)+c_isSimpleExpr_case_20 x11 x13@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_20 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_20(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_20 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_20")(x)++++c_isSimpleExpr_case_19 x11 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_18(x11)(x15)(st)+c_isSimpleExpr_case_19 x11 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_19 x11 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_19(x11)(x14)(x15)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_19 x11 x14 x15 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_19")(x)++++c_isSimpleExpr_case_18 x11 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_17(x11)(x16)(x17)(Curry.Module.Prelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_isSimpleExpr_case_18 x11 x15@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_18 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_18(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_18 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_18")(x)++++c_isSimpleExpr_case_17 x11 x16 x17 x18@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_16(x11)(x17)(st)+c_isSimpleExpr_case_17 x11 x16 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_17 x11 x16 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_17(x11)(x16)(x17)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_17 x11 x16 x17 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_17")(x)++++c_isSimpleExpr_case_16 x11 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_15(x11)(x18)(x19)(Curry.Module.Prelude.op_61_61(x18)(Curry.Module.Prelude.C_Char('l'))(st))(st)+c_isSimpleExpr_case_16 x11 x17@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_16 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_16(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_16 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_16")(x)++++c_isSimpleExpr_case_15 x11 x18 x19 x20@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_14(x11)(x19)(st)+c_isSimpleExpr_case_15 x11 x18 x19 x20@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_15 x11 x18 x19 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_15(x11)(x18)(x19)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_15 x11 x18 x19 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_15")(x)++++c_isSimpleExpr_case_14 x11 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_13(x11)(x20)(x21)(Curry.Module.Prelude.op_61_61(x20)(Curry.Module.Prelude.C_Char('u'))(st))(st)+c_isSimpleExpr_case_14 x11 x19@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_14 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_14(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_14 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_14")(x)++++c_isSimpleExpr_case_13 x11 x20 x21 x22@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_12(x11)(x21)(st)+c_isSimpleExpr_case_13 x11 x20 x21 x22@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_13 x11 x20 x21 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_13(x11)(x20)(x21)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_13 x11 x20 x21 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_13")(x)++++c_isSimpleExpr_case_12 x11 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_11(x11)(x22)(x23)(Curry.Module.Prelude.op_61_61(x22)(Curry.Module.Prelude.C_Char('d'))(st))(st)+c_isSimpleExpr_case_12 x11 x21@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_12 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_12(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_12 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_12")(x)++++c_isSimpleExpr_case_11 x11 x22 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_10(x11)(x23)(st)+c_isSimpleExpr_case_11 x11 x22 x23 x24@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_11 x11 x22 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_11(x11)(x22)(x23)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_11 x11 x22 x23 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_11")(x)++++c_isSimpleExpr_case_10 x11 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_9(x11)(x24)(x25)(Curry.Module.Prelude.op_61_61(x24)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_isSimpleExpr_case_10 x11 x23@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_10(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_10")(x)++++c_isSimpleExpr_case_9 x11 x24 x25 x26@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_8(x11)(x25)(st)+c_isSimpleExpr_case_9 x11 x24 x25 x26@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_9 x11 x24 x25 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_9(x11)(x24)(x25)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_9 x11 x24 x25 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_9")(x)++++c_isSimpleExpr_case_8 x11 x25@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(st))(Curry.Module.AbstractCurryPrinter.c_isTuple(x11)(st))(st))(st))(st)+c_isSimpleExpr_case_8 x11 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.Prelude.C_False+c_isSimpleExpr_case_8 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_8(x11)(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_8 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_8")(x)++++c_isSimpleExpr_case_25 x4@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_not))(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x6)(st))(st)+c_isSimpleExpr_case_25 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isSimpleExpr_case_25(x)(st))(i)(xs)(st)+c_isSimpleExpr_case_25 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isSimpleExpr_case_25")(x)++++c_isClosedList_case_26 x34@(Curry.Module.Prelude.T2 x35 x36) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x35)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x36)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_isClosedList_case_26 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedList_case_26(x)(st))(i)(xs)(st)+c_isClosedList_case_26 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedList_case_26")(x)++++c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.AbstractCurryPrinter.c_isClosedList_case_28(x3)(x4)(st)+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CVar x22) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CLit x23) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CSymbol x24) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CLambda x25 x26) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CLetDecl x27 x28) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CDoExpr x29) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CListComp x30 x31) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 x2@(Curry.Module.AbstractCurry.C_CCase x32 x33) st = Curry.Module.Prelude.C_False+c_isClosedList_case_29 x3 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedList_case_29(x3)(x)(st))(i)(xs)(st)+c_isClosedList_case_29 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedList_case_29")(x)++++c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CSymbol x6) st = Curry.Module.AbstractCurryPrinter.c_isClosedList_case_27(x3)(x6)(st)+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CVar x9) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CLit x10) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CApply x11 x12) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CLambda x13 x14) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CLetDecl x15 x16) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CDoExpr x17) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CListComp x18 x19) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 x4@(Curry.Module.AbstractCurry.C_CCase x20 x21) st = Curry.Module.Prelude.C_False+c_isClosedList_case_28 x3 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedList_case_28(x3)(x)(st))(i)(xs)(st)+c_isClosedList_case_28 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedList_case_28")(x)++++c_isClosedList_case_27 x3 x6@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedList(x3)(st))(st))(st)+c_isClosedList_case_27 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedList_case_27(x3)(x)(st))(i)(xs)(st)+c_isClosedList_case_27 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedList_case_27")(x)++++c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = Curry.Module.AbstractCurryPrinter.c_isStringList_case_31(x7)(x9)(st)+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CVar x27) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CLit x28) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CSymbol x29) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CLambda x30 x31) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CLetDecl x32 x33) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CDoExpr x34) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CListComp x35 x36) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 x6@(Curry.Module.AbstractCurry.C_CCase x37 x38) st = Curry.Module.Prelude.C_False+c_isStringList_case_32 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isStringList_case_32(x7)(x)(st))(i)(xs)(st)+c_isStringList_case_32 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isStringList_case_32")(x)++++c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CLit x10) st = Curry.Module.AbstractCurryPrinter.c_isStringList_case_30(x7)(x10)(st)+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CVar x14) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CSymbol x15) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CApply x16 x17) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CLambda x18 x19) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CLetDecl x20 x21) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CDoExpr x22) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CListComp x23 x24) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 x9@(Curry.Module.AbstractCurry.C_CCase x25 x26) st = Curry.Module.Prelude.C_False+c_isStringList_case_31 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isStringList_case_31(x7)(x)(st))(i)(xs)(st)+c_isStringList_case_31 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isStringList_case_31")(x)++++c_isStringList_case_30 x7 x10@(Curry.Module.AbstractCurry.C_CCharc x11) st = Curry.Module.AbstractCurryPrinter.c_isStringList(x7)(st)+c_isStringList_case_30 x7 x10@(Curry.Module.AbstractCurry.C_CIntc x12) st = Curry.Module.Prelude.C_False+c_isStringList_case_30 x7 x10@(Curry.Module.AbstractCurry.C_CFloatc x13) st = Curry.Module.Prelude.C_False+c_isStringList_case_30 x7 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isStringList_case_30(x7)(x)(st))(i)(xs)(st)+c_isStringList_case_30 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isStringList_case_30")(x)++++c_isStringList_case_33 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_isStringList_case_33 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isStringList_case_33(x)(st))(i)(xs)(st)+c_isStringList_case_33 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isStringList_case_33")(x)++++c_dropTags_case_35 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_dropTags))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_tail))(Curry.Module.Prelude.c_dropWhile(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char('\"'))))(x3)(st))(st))(st)+c_dropTags_case_35 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_dropTags_case_34(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('>'))(st))(st)+c_dropTags_case_35 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_dropTags_case_35(x2)(x3)(x)(st))(i)(xs)(st)+c_dropTags_case_35 x2 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.dropTags_case_35")(x)++++c_dropTags_case_34 x2 x3 x4@Curry.Module.Prelude.C_True st = x3+c_dropTags_case_34 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_dropTags(x3)(st)+c_dropTags_case_34 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_dropTags_case_34(x2)(x3)(x)(st))(i)(xs)(st)+c_dropTags_case_34 x2 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.dropTags_case_34")(x)++++c_showBoxedExpr_case_37 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x2)(st)+c_showBoxedExpr_case_37 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr_case_36(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showBoxedExpr_case_37 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showBoxedExpr_case_37(x1)(x2)(x)(st))(i)(xs)(st)+c_showBoxedExpr_case_37 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showBoxedExpr_case_37")(x)++++c_showBoxedExpr_case_36 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showBoxedExpr_case_36 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showBoxedExpr_case_36(x1)(x2)(x)(st))(i)(xs)(st)+c_showBoxedExpr_case_36 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showBoxedExpr_case_36")(x)++++c_showTupleApplication'46p_showTuple'46386_case_38 x1 x4 x3@(Curry.Module.AbstractCurry.C_CSymbol x5) st = Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x4)(st)+c_showTupleApplication'46p_showTuple'46386_case_38 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386(x1)(Curry.Module.AbstractCurry.C_CApply(x6)(x7))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x4)(st))(st))(st)+c_showTupleApplication'46p_showTuple'46386_case_38 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386_case_38(x1)(x4)(x)(st))(i)(xs)(st)+c_showTupleApplication'46p_showTuple'46386_case_38 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTupleApplication.p_showTuple.386_case_38")(x)++++c_showITEApplication_case_41 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_40(x1)(x3)(x4)(x6)(x5)(st)+c_showITEApplication_case_41 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_41(x1)(x4)(x)(st))(i)(xs)(st)+c_showITEApplication_case_41 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showITEApplication_case_41")(x)++++c_showITEApplication_case_40 x1 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_39(x1)(x3)(x4)(x6)(x8)(x7)(st)+c_showITEApplication_case_40 x1 x3 x4 x6 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_40(x1)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_showITEApplication_case_40 x1 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showITEApplication_case_40")(x)++++c_showITEApplication_case_39 x1 x3 x4 x6 x8 x7@(Curry.Module.AbstractCurry.C_CSymbol x9) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x4)(st))(st))(st))(st))(st))(st)+c_showITEApplication_case_39 x1 x3 x4 x6 x8 x7@(Curry.Module.AbstractCurry.C_CApply x10 x11) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showITEApplication(x1)(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st))(st)+c_showITEApplication_case_39 x1 x3 x4 x6 x8 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showITEApplication_case_39(x1)(x3)(x4)(x6)(x8)(x)(st))(i)(xs)(st)+c_showITEApplication_case_39 x1 x3 x4 x6 x8 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showITEApplication_case_39")(x)++++c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x7)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CVar x8) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CLit x9) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CSymbol x10) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CLambda x11 x12) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CLetDecl x13 x14) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CDoExpr x15) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CListComp x16 x17) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CCase x18 x19) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x5)(st))(st))(st))(st)+c_showInfixApplication_case_42 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showInfixApplication_case_42(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_showInfixApplication_case_42 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showInfixApplication_case_42")(x)++++c_showSimpleListApplication_case_45 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_44(x1)(x6)(x4)(st)+c_showSimpleListApplication_case_45 x1 x4 x3@(Curry.Module.AbstractCurry.C_CSymbol x21) st = Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_43(x1)(x4)(x21)(st)+c_showSimpleListApplication_case_45 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_45(x1)(x4)(x)(st))(i)(xs)(st)+c_showSimpleListApplication_case_45 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSimpleListApplication_case_45")(x)++++c_showSimpleListApplication_case_43 x1 x4 x21@(Curry.Module.Prelude.T2 x22 x23) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(x23)(st)+c_showSimpleListApplication_case_43 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_43(x1)(x4)(x)(st))(i)(xs)(st)+c_showSimpleListApplication_case_43 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSimpleListApplication_case_43")(x)++++c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CVar x8) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLit x9) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CApply x10 x11) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLambda x12 x13) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLetDecl x14 x15) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CDoExpr x16) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CListComp x17 x18) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 x4@(Curry.Module.AbstractCurry.C_CCase x19 x20) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x4)(st))(st))(st)+c_showSimpleListApplication_case_44 x1 x6 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication_case_44(x1)(x6)(x)(st))(i)(xs)(st)+c_showSimpleListApplication_case_44 x1 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSimpleListApplication_case_44")(x)++++c_showConsListApplication_case_47 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showConsListApplication_case_46(x1)(x6)(x4)(st)+c_showConsListApplication_case_47 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showConsListApplication_case_47(x1)(x4)(x)(st))(i)(xs)(st)+c_showConsListApplication_case_47 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showConsListApplication_case_47")(x)++++c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CVar x8) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLit x9) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CApply x10 x11) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLambda x12 x13) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CLetDecl x14 x15) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CDoExpr x16) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CListComp x17 x18) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 x4@(Curry.Module.AbstractCurry.C_CCase x19 x20) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x6)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x4)(st))(st))(st)+c_showConsListApplication_case_46 x1 x6 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showConsListApplication_case_46(x1)(x6)(x)(st))(i)(xs)(st)+c_showConsListApplication_case_46 x1 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showConsListApplication_case_46")(x)++++c_showCharListApplication_case_50 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_49(x1)(x4)(x6)(st)+c_showCharListApplication_case_50 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_50(x1)(x4)(x)(st))(i)(xs)(st)+c_showCharListApplication_case_50 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCharListApplication_case_50")(x)++++c_showCharListApplication_case_49 x1 x4 x6@(Curry.Module.AbstractCurry.C_CLit x7) st = Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_48(x1)(x7)(x4)(st)+c_showCharListApplication_case_49 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_49(x1)(x4)(x)(st))(i)(xs)(st)+c_showCharListApplication_case_49 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCharListApplication_case_49")(x)++++c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CSymbol x8) st = Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CVar x9) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CLit x10) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CApply x11 x12) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CLambda x13 x14) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CLetDecl x15 x16) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CDoExpr x17) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CListComp x18 x19) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 x4@(Curry.Module.AbstractCurry.C_CCase x20 x21) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCCharc(x7)(st))(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x4)(st))(st)+c_showCharListApplication_case_48 x1 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCharListApplication_case_48(x1)(x7)(x)(st))(i)(xs)(st)+c_showCharListApplication_case_48 x1 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCharListApplication_case_48")(x)++++c_showListApplication_case_53 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCharListApplication(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(st))(st)+c_showListApplication_case_53 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showListApplication_case_52(x1)(x2)(Curry.Module.AbstractCurryPrinter.c_isClosedList(x2)(st))(st)+c_showListApplication_case_53 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showListApplication_case_53(x1)(x2)(x)(st))(i)(xs)(st)+c_showListApplication_case_53 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showListApplication_case_53")(x)++++c_showListApplication_case_52 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showConsListApplication(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showListApplication_case_52 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showListApplication_case_51(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showListApplication_case_52 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showListApplication_case_52(x1)(x2)(x)(st))(i)(xs)(st)+c_showListApplication_case_52 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showListApplication_case_52")(x)++++c_showListApplication_case_51 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSimpleListApplication(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showListApplication_case_51 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showListApplication_case_51(x1)(x2)(x)(st))(i)(xs)(st)+c_showListApplication_case_51 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showListApplication_case_51")(x)++++c_showSymbolApplication_case_57 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showListApplication(x1)(x3)(st)+c_showSymbolApplication_case_57 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_56(x1)(x3)(x4)(x5)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))(st))(st))(st)+c_showSymbolApplication_case_57 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_57(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_showSymbolApplication_case_57 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbolApplication_case_57")(x)++++c_showSymbolApplication_case_56 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showITEApplication(x1)(x3)(st)+c_showSymbolApplication_case_56 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_55(x1)(x3)(x5)(Curry.Module.AbstractCurryPrinter.c_isTuple(x5)(st))(st)+c_showSymbolApplication_case_56 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_56(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_showSymbolApplication_case_56 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbolApplication_case_56")(x)++++c_showSymbolApplication_case_55 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showTupleApplication(x1)(x3)(st)+c_showSymbolApplication_case_55 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_54(x1)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showSymbolApplication_case_55 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_55(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showSymbolApplication_case_55 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbolApplication_case_55")(x)++++c_showSymbolApplication_case_54 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x3)(st)+c_showSymbolApplication_case_54 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbolApplication_case_54(x1)(x3)(x)(st))(i)(xs)(st)+c_showSymbolApplication_case_54 x1 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbolApplication_case_54")(x)++++c_showApplication_case_58 x1 x2 (Curry.Module.AbstractCurry.C_CSymbol x3) st = Curry.Module.AbstractCurryPrinter.c_showSymbolApplication(x1)(x3)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CVar x4) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLit x5) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLambda x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLetDecl x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CDoExpr x12) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CListComp x13 x14) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 x3@(Curry.Module.AbstractCurry.C_CCase x15 x16) st = Curry.Module.AbstractCurryPrinter.c_showSimpleApplication(x1)(x2)(st)+c_showApplication_case_58 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showApplication_case_58(x1)(x2)(x)(st))(i)(xs)(st)+c_showApplication_case_58 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showApplication_case_58")(x)++++c_showPreludeTypeCons_case_62 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))+c_showPreludeTypeCons_case_62 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_61(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_showPreludeTypeCons_case_62 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_62(x1)(x2)(x)(st))(i)(xs)(st)+c_showPreludeTypeCons_case_62 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeTypeCons_case_62")(x)++++c_showPreludeTypeCons_case_61 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.c_head(x2)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showPreludeTypeCons_case_61 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_60(x1)(x2)(Curry.Module.AbstractCurryPrinter.c_isTuple(x1)(st))(st)+c_showPreludeTypeCons_case_61 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_61(x1)(x2)(x)(st))(i)(xs)(st)+c_showPreludeTypeCons_case_61 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeTypeCons_case_61")(x)++++c_showPreludeTypeCons_case_60 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showPreludeTypeCons_case_60 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_59(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showPreludeTypeCons_case_60 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_60(x1)(x2)(x)(st))(i)(xs)(st)+c_showPreludeTypeCons_case_60 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeTypeCons_case_60")(x)++++c_showPreludeTypeCons_case_59 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(st)+c_showPreludeTypeCons_case_59 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons_case_59(x1)(x2)(x)(st))(i)(xs)(st)+c_showPreludeTypeCons_case_59 x1 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeTypeCons_case_59")(x)++++c_showTypeCons_case_64 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showPreludeTypeCons(x2)((Curry.Module.Prelude.:<)(x4)(x5))(st)+c_showTypeCons_case_64 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showTypeCons_case_63(x2)(x4)(x5)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showTypeCons_case_64 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeCons_case_64(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_showTypeCons_case_64 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeCons_case_64")(x)++++c_showTypeCons_case_63 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(x2)(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))((Curry.Module.Prelude.:<)(x4)(x5))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(st)+c_showTypeCons_case_63 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeCons_case_63(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_showTypeCons_case_63 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeCons_case_63")(x)++++c_showCCharc_case_69 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))+c_showCCharc_case_69 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showCCharc_case_68(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\r'))(st))(st)+c_showCCharc_case_69 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc_case_69(x2)(x)(st))(i)(xs)(st)+c_showCCharc_case_69 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc_case_69")(x)++++c_showCCharc_case_68 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))+c_showCCharc_case_68 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showCCharc_case_67(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\\'))(st))(st)+c_showCCharc_case_68 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc_case_68(x2)(x)(st))(i)(xs)(st)+c_showCCharc_case_68 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc_case_68")(x)++++c_showCCharc_case_67 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List))+c_showCCharc_case_67 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showCCharc_case_66(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\"'))(st))(st)+c_showCCharc_case_67 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc_case_67(x2)(x)(st))(i)(xs)(st)+c_showCCharc_case_67 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc_case_67")(x)++++c_showCCharc_case_66 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))+c_showCCharc_case_66 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showCCharc_case_65(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCCharc_case_66 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc_case_66(x2)(x)(st))(i)(xs)(st)+c_showCCharc_case_66 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc_case_66")(x)++++c_showCCharc_case_65 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)+c_showCCharc_case_65 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCCharc_case_65(x2)(x)(st))(i)(xs)(st)+c_showCCharc_case_65 x2 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCCharc_case_65")(x)++++c_showAsPatternList_case_70 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.op_43_43(x5)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showPatListElems(x3)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showAsPatternList_case_70 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showAsPatternList_case_70(x3)(x)(st))(i)(xs)(st)+c_showAsPatternList_case_70 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showAsPatternList_case_70")(x)++++c_isCharPattern_case_71 x2@(Curry.Module.AbstractCurry.C_CCharc x3) st = Curry.Module.Prelude.C_True+c_isCharPattern_case_71 x2@(Curry.Module.AbstractCurry.C_CIntc x4) st = Curry.Module.Prelude.C_False+c_isCharPattern_case_71 x2@(Curry.Module.AbstractCurry.C_CFloatc x5) st = Curry.Module.Prelude.C_False+c_isCharPattern_case_71 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isCharPattern_case_71(x)(st))(i)(xs)(st)+c_isCharPattern_case_71 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isCharPattern_case_71")(x)++++c_isClosedStringPattern_case_97 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_96(x3)(x5)(x4)(st)+c_isClosedStringPattern_case_97 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_97(x3)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_97 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_97")(x)++++c_isClosedStringPattern_case_96 x3 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_95(x3)(x5)(x7)(x6)(st)+c_isClosedStringPattern_case_96 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_96(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_96 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_96")(x)++++c_isClosedStringPattern_case_95 x3 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_94(x3)(x5)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_94 x3 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_93(x3)(x5)(x9)(x8)(st)+c_isClosedStringPattern_case_94 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_94(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_94 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_94")(x)++++c_isClosedStringPattern_case_93 x3 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_92(x3)(x5)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_92 x3 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_91(x3)(x5)(x11)(x10)(st)+c_isClosedStringPattern_case_92 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_92(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_92 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_92")(x)++++c_isClosedStringPattern_case_91 x3 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_90(x3)(x5)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_90 x3 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_89(x3)(x5)(x13)(x12)(st)+c_isClosedStringPattern_case_90 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_90(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_90 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_90")(x)++++c_isClosedStringPattern_case_89 x3 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_88(x3)(x5)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_88 x3 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_87(x3)(x5)(x15)(x14)(st)+c_isClosedStringPattern_case_88 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_88(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_88 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_88")(x)++++c_isClosedStringPattern_case_87 x3 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_86(x3)(x5)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_86 x3 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_85(x3)(x5)(x17)(x16)(st)+c_isClosedStringPattern_case_86 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_86(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_86 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_86")(x)++++c_isClosedStringPattern_case_85 x3 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_84(x3)(x5)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_84 x3 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_83(x3)(x5)(x19)(x18)(st)+c_isClosedStringPattern_case_84 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_84(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_84 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_84")(x)++++c_isClosedStringPattern_case_83 x3 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_82(x3)(x5)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_82 x3 x5 x19@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_81(x3)(x5)(st)+c_isClosedStringPattern_case_82 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_82(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_82 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_82")(x)++++c_isClosedStringPattern_case_81 x3 x5@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_80(x3)(x21)(x20)(st)+c_isClosedStringPattern_case_81 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_81(x3)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_81 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_81")(x)++++c_isClosedStringPattern_case_80 x3 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_79(x3)(x21)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_75(x3)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_isClosedStringPattern_case_75 x3 x21@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_74(x3)(x27)(x26)(st)+c_isClosedStringPattern_case_75 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_75(x3)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_75 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_75")(x)++++c_isClosedStringPattern_case_74 x3 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_73(x3)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedStringPattern_case_73 x3 x27@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_72(x3)(st)+c_isClosedStringPattern_case_73 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_73(x3)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_73 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_73")(x)++++c_isClosedStringPattern_case_72 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_True+c_isClosedStringPattern_case_72 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_72(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_72 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_72")(x)++++c_isClosedStringPattern_case_79 x3 x21@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_78(x3)(st)+c_isClosedStringPattern_case_79 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_79(x3)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_79 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_79")(x)++++c_isClosedStringPattern_case_78 x3@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_77(x22)(x23)(st)+c_isClosedStringPattern_case_78 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_78(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_78 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_78")(x)++++c_isClosedStringPattern_case_77 x22 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_76(x22)(x24)(x25)(st)+c_isClosedStringPattern_case_77 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_77(x22)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_77 x22 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_77")(x)++++c_isClosedStringPattern_case_76 x22 x24 x25@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isCharPattern(x22)(st))(Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern(x24)(st))(st)+c_isClosedStringPattern_case_76 x22 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedStringPattern_case_76(x22)(x24)(x)(st))(i)(xs)(st)+c_isClosedStringPattern_case_76 x22 x24 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedStringPattern_case_76")(x)++++c_isClosedPatternList_case_123 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_122(x3)(x5)(x4)(st)+c_isClosedPatternList_case_123 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_123(x3)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_123 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_123")(x)++++c_isClosedPatternList_case_122 x3 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_121(x3)(x5)(x7)(x6)(st)+c_isClosedPatternList_case_122 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_122(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_122 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_122")(x)++++c_isClosedPatternList_case_121 x3 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_120(x3)(x5)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_120 x3 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_119(x3)(x5)(x9)(x8)(st)+c_isClosedPatternList_case_120 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_120(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_120 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_120")(x)++++c_isClosedPatternList_case_119 x3 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_118(x3)(x5)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_118 x3 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_117(x3)(x5)(x11)(x10)(st)+c_isClosedPatternList_case_118 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_118(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_118 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_118")(x)++++c_isClosedPatternList_case_117 x3 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_116(x3)(x5)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_116 x3 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_115(x3)(x5)(x13)(x12)(st)+c_isClosedPatternList_case_116 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_116(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_116 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_116")(x)++++c_isClosedPatternList_case_115 x3 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_114(x3)(x5)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_114 x3 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_113(x3)(x5)(x15)(x14)(st)+c_isClosedPatternList_case_114 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_114(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_114 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_114")(x)++++c_isClosedPatternList_case_113 x3 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_112(x3)(x5)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_112 x3 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_111(x3)(x5)(x17)(x16)(st)+c_isClosedPatternList_case_112 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_112(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_112 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_112")(x)++++c_isClosedPatternList_case_111 x3 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_110(x3)(x5)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_110 x3 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_109(x3)(x5)(x19)(x18)(st)+c_isClosedPatternList_case_110 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_110(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_110 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_110")(x)++++c_isClosedPatternList_case_109 x3 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_108(x3)(x5)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_108 x3 x5 x19@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_107(x3)(x5)(st)+c_isClosedPatternList_case_108 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_108(x3)(x5)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_108 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_108")(x)++++c_isClosedPatternList_case_107 x3 x5@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_106(x3)(x21)(x20)(st)+c_isClosedPatternList_case_107 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_107(x3)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_107 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_107")(x)++++c_isClosedPatternList_case_106 x3 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_105(x3)(x21)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_101(x3)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_isClosedPatternList_case_101 x3 x21@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_100(x3)(x27)(x26)(st)+c_isClosedPatternList_case_101 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_101(x3)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_101 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_101")(x)++++c_isClosedPatternList_case_100 x3 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_99(x3)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_isClosedPatternList_case_99 x3 x27@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_98(x3)(st)+c_isClosedPatternList_case_99 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_99(x3)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_99 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_99")(x)++++c_isClosedPatternList_case_98 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_True+c_isClosedPatternList_case_98 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_98(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_98 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_98")(x)++++c_isClosedPatternList_case_105 x3 x21@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_104(x3)(st)+c_isClosedPatternList_case_105 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_105(x3)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_105 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_105")(x)++++c_isClosedPatternList_case_104 x3@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_103(x23)(st)+c_isClosedPatternList_case_104 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_104(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_104 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_104")(x)++++c_isClosedPatternList_case_103 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_102(x24)(x25)(st)+c_isClosedPatternList_case_103 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_103(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_103 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_103")(x)++++c_isClosedPatternList_case_102 x24 x25@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_isClosedPatternList(x24)(st)+c_isClosedPatternList_case_102 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_isClosedPatternList_case_102(x24)(x)(st))(i)(xs)(st)+c_isClosedPatternList_case_102 x24 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.isClosedPatternList_case_102")(x)++++c_showPatListElems_case_149 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_148(x3)(x5)(x4)(st)+c_showPatListElems_case_149 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_149(x3)(x)(st))(i)(xs)(st)+c_showPatListElems_case_149 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_149")(x)++++c_showPatListElems_case_148 x3 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_147(x3)(x5)(x7)(x6)(st)+c_showPatListElems_case_148 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_148(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_148 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_148")(x)++++c_showPatListElems_case_147 x3 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_146(x3)(x5)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_146 x3 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_145(x3)(x5)(x9)(x8)(st)+c_showPatListElems_case_146 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_146(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_146 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_146")(x)++++c_showPatListElems_case_145 x3 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_144(x3)(x5)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_144 x3 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_143(x3)(x5)(x11)(x10)(st)+c_showPatListElems_case_144 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_144(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_144 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_144")(x)++++c_showPatListElems_case_143 x3 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_142(x3)(x5)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_142 x3 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_141(x3)(x5)(x13)(x12)(st)+c_showPatListElems_case_142 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_142(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_142 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_142")(x)++++c_showPatListElems_case_141 x3 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_140(x3)(x5)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_140 x3 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_139(x3)(x5)(x15)(x14)(st)+c_showPatListElems_case_140 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_140(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_140 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_140")(x)++++c_showPatListElems_case_139 x3 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_138(x3)(x5)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_138 x3 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_137(x3)(x5)(x17)(x16)(st)+c_showPatListElems_case_138 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_138(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_138 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_138")(x)++++c_showPatListElems_case_137 x3 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_136(x3)(x5)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_136 x3 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_135(x3)(x5)(x19)(x18)(st)+c_showPatListElems_case_136 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_136(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_136 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_136")(x)++++c_showPatListElems_case_135 x3 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_134(x3)(x5)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_134 x3 x5 x19@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_133(x3)(x5)(st)+c_showPatListElems_case_134 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_134(x3)(x5)(x)(st))(i)(xs)(st)+c_showPatListElems_case_134 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_134")(x)++++c_showPatListElems_case_133 x3 x5@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_132(x3)(x21)(x20)(st)+c_showPatListElems_case_133 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_133(x3)(x)(st))(i)(xs)(st)+c_showPatListElems_case_133 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_133")(x)++++c_showPatListElems_case_132 x3 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_131(x3)(x21)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_127(x3)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_showPatListElems_case_127 x3 x21@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_126(x3)(x27)(x26)(st)+c_showPatListElems_case_127 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_127(x3)(x)(st))(i)(xs)(st)+c_showPatListElems_case_127 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_127")(x)++++c_showPatListElems_case_126 x3 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_125(x3)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showPatListElems_case_125 x3 x27@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_124(x3)(st)+c_showPatListElems_case_125 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_125(x3)(x)(st))(i)(xs)(st)+c_showPatListElems_case_125 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_125")(x)++++c_showPatListElems_case_124 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showPatListElems_case_124 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_124(x)(st))(i)(xs)(st)+c_showPatListElems_case_124 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_124")(x)++++c_showPatListElems_case_131 x3 x21@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_130(x3)(st)+c_showPatListElems_case_131 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_131(x3)(x)(st))(i)(xs)(st)+c_showPatListElems_case_131 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_131")(x)++++c_showPatListElems_case_130 x3@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_129(x22)(x23)(st)+c_showPatListElems_case_130 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_130(x)(st))(i)(xs)(st)+c_showPatListElems_case_130 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_130")(x)++++c_showPatListElems_case_129 x22 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_128(x22)(x24)(x25)(st)+c_showPatListElems_case_129 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_129(x22)(x)(st))(i)(xs)(st)+c_showPatListElems_case_129 x22 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_129")(x)++++c_showPatListElems_case_128 x22 x24 x25@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.AbstractCurryPrinter.c_showPattern(x22)(st))(Curry.Module.AbstractCurryPrinter.c_showPatListElems(x24)(st))+c_showPatListElems_case_128 x22 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatListElems_case_128(x22)(x24)(x)(st))(i)(xs)(st)+c_showPatListElems_case_128 x22 x24 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatListElems_case_128")(x)++++c_showPatternList_case_153 x1 x2@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char('\''))))(Curry.Module.Prelude.c_concat(Curry.Module.AbstractCurryPrinter.c_showPatListElems(x1)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(st))+c_showPatternList_case_153 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPatternList_case_152(x1)(Curry.Module.AbstractCurryPrinter.c_isClosedPatternList(x1)(st))(st)+c_showPatternList_case_153 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatternList_case_153(x1)(x)(st))(i)(xs)(st)+c_showPatternList_case_153 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatternList_case_153")(x)++++c_showPatternList_case_152 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showPatListElems(x1)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showPatternList_case_152 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPatternList_case_151(x1)(Curry.Module.AbstractCurryPrinter.c_isAsPattern(x1)(st))(st)+c_showPatternList_case_152 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatternList_case_152(x1)(x)(st))(i)(xs)(st)+c_showPatternList_case_152 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatternList_case_152")(x)++++c_showPatternList_case_151 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showAsPatternList(x1)(st)+c_showPatternList_case_151 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPatternList_case_150(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showPatternList_case_151 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatternList_case_151(x1)(x)(st))(i)(xs)(st)+c_showPatternList_case_151 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatternList_case_151")(x)++++c_showPatternList_case_150 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showPatListElems(x1)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showPatternList_case_150 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPatternList_case_150(x1)(x)(st))(i)(xs)(st)+c_showPatternList_case_150 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPatternList_case_150")(x)++++c_showPreludeCons'46_'35selFP7'35pattlist_case_154 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = x3+c_showPreludeCons'46_'35selFP7'35pattlist_case_154 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP7'35pattlist_case_154(x3)(x)(st))(i)(xs)(st)+c_showPreludeCons'46_'35selFP7'35pattlist_case_154 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons._#selFP7#pattlist_case_154")(x)++++c_showPreludeCons'46_'35selFP6'35name_case_155 x2@(Curry.Module.Prelude.T2 x4 x5) st = x5+c_showPreludeCons'46_'35selFP6'35name_case_155 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons'46_'35selFP6'35name_case_155(x)(st))(i)(xs)(st)+c_showPreludeCons'46_'35selFP6'35name_case_155 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons._#selFP6#name_case_155")(x)++++c_showPreludeCons_case_158 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showPatternList(x1)(st)+c_showPreludeCons_case_158 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_157(x3)(x4)(Curry.Module.AbstractCurryPrinter.c_isTuple(x3)(st))(st)+c_showPreludeCons_case_158 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_158(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_showPreludeCons_case_158 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons_case_158")(x)++++c_showPreludeCons_case_157 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showPattern))(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showPreludeCons_case_157 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_156(x3)(x4)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showPreludeCons_case_157 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_157(x3)(x4)(x)(st))(i)(xs)(st)+c_showPreludeCons_case_157 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons_case_157")(x)++++c_showPreludeCons_case_156 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showPattern))(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showPreludeCons_case_156 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPreludeCons_case_156(x3)(x4)(x)(st))(i)(xs)(st)+c_showPreludeCons_case_156 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPreludeCons_case_156")(x)++++c_showPattern_case_159 x13 x12@(Curry.Module.Prelude.T2 x14 x15) st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showIdentifier(st))(x15)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showPattern(x13)(st))(st))(st)+c_showPattern_case_159 x13 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_159(x13)(x)(st))(i)(xs)(st)+c_showPattern_case_159 x13 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_159")(x)++++c_showPattern_case_163 x7 x6@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_162(x8)(x9)(x7)(st)+c_showPattern_case_163 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_163(x7)(x)(st))(i)(xs)(st)+c_showPattern_case_163 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_163")(x)++++c_showPattern_case_162 x8 x9 x7@Curry.Module.Prelude.List st = x9+c_showPattern_case_162 x8 x9 x7@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_161(x8)(x9)(x10)(x11)(Curry.Module.Prelude.op_61_61(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(st)+c_showPattern_case_162 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_162(x8)(x9)(x)(st))(i)(xs)(st)+c_showPattern_case_162 x8 x9 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_162")(x)++++c_showPattern_case_161 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showPreludeCons(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.Prelude.T2(x8)(x9))((Curry.Module.Prelude.:<)(x10)(x11)))(st)+c_showPattern_case_161 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showPattern_case_160(x9)(x10)(x11)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showPattern_case_161 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_161(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c_showPattern_case_161 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_161")(x)++++c_showPattern_case_160 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x9)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showPattern))((Curry.Module.Prelude.:<)(x10)(x11))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showPattern_case_160 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_160(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c_showPattern_case_160 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_160")(x)++++c_showPattern_case_164 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showIdentifier(st))(x4)(st)+c_showPattern_case_164 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showPattern_case_164(x)(st))(i)(xs)(st)+c_showPattern_case_164 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showPattern_case_164")(x)++++c_showStatement_case_166 x1 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.AbstractCurryPrinter.c_showStatement_case_165(x1)(x6)(x7)(x8)(st)+c_showStatement_case_166 x1 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showStatement_case_166 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showStatement_case_166(x1)(x)(st))(i)(xs)(st)+c_showStatement_case_166 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showStatement_case_166")(x)++++c_showStatement_case_165 x1 x6 x7 x8@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)(x7)(st))(st)+c_showStatement_case_165 x1 x6 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showStatement_case_165 x1 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showStatement_case_165(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c_showStatement_case_165 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showStatement_case_165")(x)++++c_showLambdaOrSection_case_192 x1 x2 x3 x5 x4@(Curry.Module.AbstractCurry.C_CPVar x6) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_191(x1)(x2)(x3)(x6)(x5)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 x4@(Curry.Module.AbstractCurry.C_CPLit x179) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 x4@(Curry.Module.AbstractCurry.C_CPComb x180 x181) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 x4@(Curry.Module.AbstractCurry.C_CPAs x182 x183) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 x4@(Curry.Module.AbstractCurry.C_CPFuncComb x184 x185) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_192(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_192 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_192")(x)++++c_showLambdaOrSection_case_191 x1 x2 x3 x6 x5@Curry.Module.Prelude.List st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_190(x1)(x2)(x6)(x3)(st)+c_showLambdaOrSection_case_191 x1 x2 x3 x6 x5@((Curry.Module.Prelude.:<) x177 x178) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_191 x1 x2 x3 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_191(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_191 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_191")(x)++++c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_189(x1)(x2)(x3)(x6)(x8)(x7)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CVar x165) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CLit x166) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CSymbol x167) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CLambda x168 x169) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CLetDecl x170 x171) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CDoExpr x172) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CListComp x173 x174) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x3@(Curry.Module.AbstractCurry.C_CCase x175 x176) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_190(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_190 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_190")(x)++++c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CApply x9 x10) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_188(x1)(x2)(x3)(x6)(x8)(x10)(x9)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CVar x153) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CLit x154) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CSymbol x155) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CLambda x156 x157) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CLetDecl x158 x159) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CDoExpr x160) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CListComp x161 x162) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x7@(Curry.Module.AbstractCurry.C_CCase x163 x164) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_189(x1)(x2)(x3)(x6)(x8)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_189 x1 x2 x3 x6 x8 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_189")(x)++++c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CSymbol x11) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_187(x1)(x2)(x3)(x6)(x8)(x10)(x11)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CVar x140) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CLit x141) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CApply x142 x143) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CLambda x144 x145) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CLetDecl x146 x147) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CDoExpr x148) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CListComp x149 x150) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x9@(Curry.Module.AbstractCurry.C_CCase x151 x152) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_188(x1)(x2)(x3)(x6)(x8)(x10)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_188 x1 x2 x3 x6 x8 x10 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_188")(x)++++c_showLambdaOrSection_case_187 x1 x2 x3 x6 x8 x10 x11@(Curry.Module.Prelude.T2 x12 x13) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_186(x1)(x2)(x3)(x6)(x10)(x13)(x8)(st)+c_showLambdaOrSection_case_187 x1 x2 x3 x6 x8 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_187(x1)(x2)(x3)(x6)(x8)(x10)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_187 x1 x2 x3 x6 x8 x10 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_187")(x)++++c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CVar x14) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_185(x1)(x2)(x3)(x6)(x10)(x13)(x14)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(x10)(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x14))(x10)(st))(st))(st))(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CLit x15) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_182(x1)(x2)(x3)(x6)(x13)(x15)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CSymbol x30) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_180(x1)(x2)(x3)(x6)(x13)(x30)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CApply x45 x46) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_178(x1)(x2)(x3)(x6)(x13)(x45)(x46)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CLambda x61 x62) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_176(x1)(x2)(x3)(x6)(x13)(x61)(x62)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CLetDecl x77 x78) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_174(x1)(x2)(x3)(x6)(x13)(x77)(x78)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CDoExpr x93) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_172(x1)(x2)(x3)(x6)(x13)(x93)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CListComp x108 x109) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_170(x1)(x2)(x3)(x6)(x13)(x108)(x109)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x8@(Curry.Module.AbstractCurry.C_CCase x124 x125) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_168(x1)(x2)(x3)(x6)(x13)(x124)(x125)(x10)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_186(x1)(x2)(x3)(x6)(x10)(x13)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_186 x1 x2 x3 x6 x10 x13 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_186")(x)++++c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CVar x126) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_167(x1)(x2)(x3)(x6)(x13)(x124)(x125)(x126)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x126)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CCase(x124)(x125))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x126))(Curry.Module.AbstractCurry.C_CCase(x124)(x125))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CLit x127) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CSymbol x128) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CApply x129 x130) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CLambda x131 x132) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CLetDecl x133 x134) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CDoExpr x135) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CListComp x136 x137) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x10@(Curry.Module.AbstractCurry.C_CCase x138 x139) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_168(x1)(x2)(x3)(x6)(x13)(x124)(x125)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_168 x1 x2 x3 x6 x13 x124 x125 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_168")(x)++++c_showLambdaOrSection_case_167 x1 x2 x3 x6 x13 x124 x125 x126 x127@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CCase(x124)(x125))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_167 x1 x2 x3 x6 x13 x124 x125 x126 x127@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_167 x1 x2 x3 x6 x13 x124 x125 x126 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_167(x1)(x2)(x3)(x6)(x13)(x124)(x125)(x126)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_167 x1 x2 x3 x6 x13 x124 x125 x126 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_167")(x)++++c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CVar x110) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_169(x1)(x2)(x3)(x6)(x13)(x108)(x109)(x110)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x110)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CListComp(x108)(x109))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x110))(Curry.Module.AbstractCurry.C_CListComp(x108)(x109))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CLit x111) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CSymbol x112) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CApply x113 x114) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CLambda x115 x116) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CLetDecl x117 x118) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CDoExpr x119) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CListComp x120 x121) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x10@(Curry.Module.AbstractCurry.C_CCase x122 x123) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_170(x1)(x2)(x3)(x6)(x13)(x108)(x109)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_170 x1 x2 x3 x6 x13 x108 x109 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_170")(x)++++c_showLambdaOrSection_case_169 x1 x2 x3 x6 x13 x108 x109 x110 x111@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CListComp(x108)(x109))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_169 x1 x2 x3 x6 x13 x108 x109 x110 x111@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_169 x1 x2 x3 x6 x13 x108 x109 x110 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_169(x1)(x2)(x3)(x6)(x13)(x108)(x109)(x110)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_169 x1 x2 x3 x6 x13 x108 x109 x110 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_169")(x)++++c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CVar x94) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_171(x1)(x2)(x3)(x6)(x13)(x93)(x94)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x94)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CDoExpr(x93))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x94))(Curry.Module.AbstractCurry.C_CDoExpr(x93))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CLit x95) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CSymbol x96) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CApply x97 x98) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CLambda x99 x100) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CLetDecl x101 x102) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CDoExpr x103) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CListComp x104 x105) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x10@(Curry.Module.AbstractCurry.C_CCase x106 x107) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_172(x1)(x2)(x3)(x6)(x13)(x93)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_172 x1 x2 x3 x6 x13 x93 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_172")(x)++++c_showLambdaOrSection_case_171 x1 x2 x3 x6 x13 x93 x94 x95@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CDoExpr(x93))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_171 x1 x2 x3 x6 x13 x93 x94 x95@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_171 x1 x2 x3 x6 x13 x93 x94 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_171(x1)(x2)(x3)(x6)(x13)(x93)(x94)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_171 x1 x2 x3 x6 x13 x93 x94 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_171")(x)++++c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CVar x79) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_173(x1)(x2)(x3)(x6)(x13)(x77)(x78)(x79)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x79)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLetDecl(x77)(x78))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x79))(Curry.Module.AbstractCurry.C_CLetDecl(x77)(x78))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CLit x80) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CSymbol x81) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CApply x82 x83) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CLambda x84 x85) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CLetDecl x86 x87) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CDoExpr x88) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CListComp x89 x90) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x10@(Curry.Module.AbstractCurry.C_CCase x91 x92) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_174(x1)(x2)(x3)(x6)(x13)(x77)(x78)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_174 x1 x2 x3 x6 x13 x77 x78 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_174")(x)++++c_showLambdaOrSection_case_173 x1 x2 x3 x6 x13 x77 x78 x79 x80@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CLetDecl(x77)(x78))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_173 x1 x2 x3 x6 x13 x77 x78 x79 x80@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_173 x1 x2 x3 x6 x13 x77 x78 x79 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_173(x1)(x2)(x3)(x6)(x13)(x77)(x78)(x79)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_173 x1 x2 x3 x6 x13 x77 x78 x79 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_173")(x)++++c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CVar x63) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_175(x1)(x2)(x3)(x6)(x13)(x61)(x62)(x63)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x63)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLambda(x61)(x62))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x63))(Curry.Module.AbstractCurry.C_CLambda(x61)(x62))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CLit x64) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CSymbol x65) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CApply x66 x67) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CLambda x68 x69) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CLetDecl x70 x71) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CDoExpr x72) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CListComp x73 x74) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x10@(Curry.Module.AbstractCurry.C_CCase x75 x76) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_176(x1)(x2)(x3)(x6)(x13)(x61)(x62)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_176 x1 x2 x3 x6 x13 x61 x62 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_176")(x)++++c_showLambdaOrSection_case_175 x1 x2 x3 x6 x13 x61 x62 x63 x64@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CLambda(x61)(x62))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_175 x1 x2 x3 x6 x13 x61 x62 x63 x64@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_175 x1 x2 x3 x6 x13 x61 x62 x63 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_175(x1)(x2)(x3)(x6)(x13)(x61)(x62)(x63)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_175 x1 x2 x3 x6 x13 x61 x62 x63 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_175")(x)++++c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CVar x47) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_177(x1)(x2)(x3)(x6)(x13)(x45)(x46)(x47)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x47)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CApply(x45)(x46))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x47))(Curry.Module.AbstractCurry.C_CApply(x45)(x46))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CLit x48) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CSymbol x49) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CApply x50 x51) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CLambda x52 x53) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CLetDecl x54 x55) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CDoExpr x56) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CListComp x57 x58) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x10@(Curry.Module.AbstractCurry.C_CCase x59 x60) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_178(x1)(x2)(x3)(x6)(x13)(x45)(x46)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_178 x1 x2 x3 x6 x13 x45 x46 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_178")(x)++++c_showLambdaOrSection_case_177 x1 x2 x3 x6 x13 x45 x46 x47 x48@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CApply(x45)(x46))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_177 x1 x2 x3 x6 x13 x45 x46 x47 x48@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_177 x1 x2 x3 x6 x13 x45 x46 x47 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_177(x1)(x2)(x3)(x6)(x13)(x45)(x46)(x47)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_177 x1 x2 x3 x6 x13 x45 x46 x47 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_177")(x)++++c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CVar x31) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_179(x1)(x2)(x3)(x6)(x13)(x30)(x31)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x31)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CSymbol(x30))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x31))(Curry.Module.AbstractCurry.C_CSymbol(x30))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CLit x32) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CSymbol x33) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CApply x34 x35) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CLambda x36 x37) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CLetDecl x38 x39) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CDoExpr x40) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CListComp x41 x42) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x10@(Curry.Module.AbstractCurry.C_CCase x43 x44) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_180(x1)(x2)(x3)(x6)(x13)(x30)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_180 x1 x2 x3 x6 x13 x30 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_180")(x)++++c_showLambdaOrSection_case_179 x1 x2 x3 x6 x13 x30 x31 x32@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CSymbol(x30))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_179 x1 x2 x3 x6 x13 x30 x31 x32@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_179 x1 x2 x3 x6 x13 x30 x31 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_179(x1)(x2)(x3)(x6)(x13)(x30)(x31)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_179 x1 x2 x3 x6 x13 x30 x31 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_179")(x)++++c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CVar x16) st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_181(x1)(x2)(x3)(x6)(x13)(x15)(x16)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x13)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x6)(x16)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.AbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLit(x15))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x16))(Curry.Module.AbstractCurry.C_CLit(x15))(st))(st))(st))(st))(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CLit x17) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CSymbol x18) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CApply x19 x20) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CLambda x21 x22) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CLetDecl x23 x24) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CDoExpr x25) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CListComp x26 x27) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x10@(Curry.Module.AbstractCurry.C_CCase x28 x29) st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_182(x1)(x2)(x3)(x6)(x13)(x15)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_182 x1 x2 x3 x6 x13 x15 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_182")(x)++++c_showLambdaOrSection_case_181 x1 x2 x3 x6 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(Curry.Module.AbstractCurry.C_CLit(x15))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_181 x1 x2 x3 x6 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_181 x1 x2 x3 x6 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_181(x1)(x2)(x3)(x6)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_181 x1 x2 x3 x6 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_181")(x)++++c_showLambdaOrSection_case_185 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_184(x1)(x2)(x3)(x6)(x10)(x13)(x14)(Curry.Module.Prelude.op_61_61(x6)(x14)(st))(st)+c_showLambdaOrSection_case_185 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_185 x1 x2 x3 x6 x10 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_185(x1)(x2)(x3)(x6)(x10)(x13)(x14)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_185 x1 x2 x3 x6 x10 x13 x14 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_185")(x)++++c_showLambdaOrSection_case_184 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showBoxedExpr(x1)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_184 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_183(x1)(x2)(x3)(x6)(x10)(x13)(x14)(Curry.Module.Prelude.op_61_61(x10)(Curry.Module.AbstractCurry.C_CVar(x6))(st))(st)+c_showLambdaOrSection_case_184 x1 x2 x3 x6 x10 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_184(x1)(x2)(x3)(x6)(x10)(x13)(x14)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_184 x1 x2 x3 x6 x10 x13 x14 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_184")(x)++++c_showLambdaOrSection_case_183 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(Curry.Module.AbstractCurry.C_CVar(x14))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showLambdaOrSection_case_183 x1 x2 x3 x6 x10 x13 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showLambda(x1)(x2)(x3)(st)+c_showLambdaOrSection_case_183 x1 x2 x3 x6 x10 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLambdaOrSection_case_183(x1)(x2)(x3)(x6)(x10)(x13)(x14)(x)(st))(i)(xs)(st)+c_showLambdaOrSection_case_183 x1 x2 x3 x6 x10 x13 x14 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLambdaOrSection_case_183")(x)++++c_showSymbol_case_196 x3 x4 x2@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showSymbol_case_195(x3)(x4)(x5)(x6)(Curry.Module.Prelude.op_61_61(x4)(x5)(st))(st)+c_showSymbol_case_196 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbol_case_196(x3)(x4)(x)(st))(i)(xs)(st)+c_showSymbol_case_196 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbol_case_196")(x)++++c_showSymbol_case_195 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = x6+c_showSymbol_case_195 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbol_case_194(x3)(x5)(x6)(Curry.Module.Maybe.c_isJust(Curry.Module.FiniteMap.c_lookupFM(x3)(x6)(st))(st))(st)+c_showSymbol_case_195 x3 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbol_case_195(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_showSymbol_case_195 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbol_case_195")(x)++++c_showSymbol_case_194 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(x5)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(x6)(st))(st)+c_showSymbol_case_194 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbol_case_193(x6)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showSymbol_case_194 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbol_case_194(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c_showSymbol_case_194 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbol_case_194")(x)++++c_showSymbol_case_193 x6 x7@Curry.Module.Prelude.C_True st = x6+c_showSymbol_case_193 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showSymbol_case_193(x6)(x)(st))(i)(xs)(st)+c_showSymbol_case_193 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showSymbol_case_193")(x)++++c_showExprOpt_case_197 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showExprOpt_case_197 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showSymbol(x1)(x7)(st)+c_showExprOpt_case_197 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExprOpt_case_197(x1)(x7)(x)(st))(i)(xs)(st)+c_showExprOpt_case_197 x1 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExprOpt_case_197")(x)++++c_showExprOpt_case_198 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showIdentifier(st))(x5)(st)+c_showExprOpt_case_198 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExprOpt_case_198(x)(st))(i)(xs)(st)+c_showExprOpt_case_198 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExprOpt_case_198")(x)++++c_showLocalDecl_case_199 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showLocalDecl_case_199 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showLocalDecl_case_199 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showLocalDecl_case_199(x1)(x6)(x)(st))(i)(xs)(st)+c_showLocalDecl_case_199 x1 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showLocalDecl_case_199")(x)++++c_showCrhsList_case_202 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_201(x1)(x4)(x5)(x6)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.List)(st))(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(st))(st))(st)+c_showCrhsList_case_202 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_202(x1)(x4)(x)(st))(i)(xs)(st)+c_showCrhsList_case_202 x1 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCrhsList_case_202")(x)++++c_showCrhsList_case_201 x1 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.AbstractCurryPrinter.c_showExprOpt(x1)(x6)(st))(st)+c_showCrhsList_case_201 x1 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_200(x1)(x4)(x5)(x6)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCrhsList_case_201 x1 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_201(x1)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_showCrhsList_case_201 x1 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCrhsList_case_201")(x)++++c_showCrhsList_case_200 x1 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showCrhs(x1)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x5)(x6))(x4))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showCrhsList_case_200 x1 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCrhsList_case_200(x1)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_showCrhsList_case_200 x1 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCrhsList_case_200")(x)++++c_showRule_case_203 x1 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showRule_case_203 x1 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showLocalDecl(x1)))(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showRule_case_203 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showRule_case_203(x1)(x5)(x)(st))(i)(xs)(st)+c_showRule_case_203 x1 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showRule_case_203")(x)++++c_showCmtFunc_case_210 x1 x2 x7 x8 x4@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_209(x1)(x2)(x7)(x10)(x8)(st)+c_showCmtFunc_case_210 x1 x2 x7 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_210(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_210 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_210")(x)++++c_showCmtFunc_case_209 x1 x2 x7 x10 x8@(Curry.Module.AbstractCurry.C_CRules x11 x12) st = let {x13 = Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x10)(st)} in let {x14 = Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_205(x10)(x13)(st)} in Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_funcComment(st))(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_208(x11)(x14)(Curry.Module.Prelude.op_61_61(x11)(Curry.Module.AbstractCurry.C_CFlex)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_207(x7)(x14)(Curry.Module.AbstractCurryPrinter.c_isUntyped(x7)(st))(st))(Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_206(x1)(x10)(x12)(x13)(st))(st))(st))(st)+c_showCmtFunc_case_209 x1 x2 x7 x10 x8@(Curry.Module.AbstractCurry.C_CExternal x16) st = let {x17 = Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_204(x10)(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x10)(st))(st)} in Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_funcComment(st))(x2)(st))(Curry.Module.Prelude.op_43_43(x17)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x7)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x17)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))))(st))(st))(st))(st))(st))(st)+c_showCmtFunc_case_209 x1 x2 x7 x10 (Curry.Module.AbstractCurry.C_CRulesOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_209(x1)(x2)(x7)(x10)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_209 x1 x2 x7 x10 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_209")(x)++++c_showCmtFunc_case_204 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x10)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCmtFunc_case_204 x10 x11@Curry.Module.Prelude.C_False st = x10+c_showCmtFunc_case_204 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_204(x10)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_204 x10 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_204")(x)++++c_showCmtFunc_case_205 x10 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x10)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCmtFunc_case_205 x10 x13@Curry.Module.Prelude.C_False st = x10+c_showCmtFunc_case_205 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_205(x10)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_205 x10 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_205")(x)++++c_showCmtFunc_case_206 x1 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_concat))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showCmtFunc'46insertName'46139(x10)))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_span(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char(' '))))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_tail))(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showRule(x1)))(st))(st))(st))(x12)(st))(st))(st)+c_showCmtFunc_case_206 x1 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x10)(Curry.Module.AbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showRule(x1)))(x12)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x10)(st))(st))(st)+c_showCmtFunc_case_206 x1 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_206(x1)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_206 x1 x10 x12 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_206")(x)++++c_showCmtFunc_case_207 x7 x14 x15@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)+c_showCmtFunc_case_207 x7 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x14)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showCmtFunc_case_207 x7 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_207(x7)(x14)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_207 x7 x14 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_207")(x)++++c_showCmtFunc_case_208 x11 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showCmtFunc_case_208 x11 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x14)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showEvalAnnot(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showCmtFunc_case_208 x11 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showCmtFunc_case_208(x11)(x14)(x)(st))(i)(xs)(st)+c_showCmtFunc_case_208 x11 x14 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showCmtFunc_case_208")(x)++++c_showTypeVar_case_211 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(x3))+c_showTypeVar_case_211 x2 x3 x4@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(x2)(x3)+c_showTypeVar_case_211 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeVar_case_211(x2)(x3)(x)(st))(i)(xs)(st)+c_showTypeVar_case_211 x2 x3 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeVar_case_211")(x)++++c_showTypeExpr_case_214 x1 x9 x8@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_213(x1)(x9)(x10)(x11)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x10)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(Curry.Module.Prelude.op_61_61(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))(st))(st))(st)+c_showTypeExpr_case_214 x1 x9 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_214(x1)(x9)(x)(st))(i)(xs)(st)+c_showTypeExpr_case_214 x1 x9 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeExpr_case_214")(x)++++c_showTypeExpr_case_213 x1 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List)+c_showTypeExpr_case_213 x1 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_212(x1)(x9)(x10)(x11)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showTypeExpr_case_213 x1 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_213(x1)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c_showTypeExpr_case_213 x1 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeExpr_case_213")(x)++++c_showTypeExpr_case_212 x1 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurryPrinter.c_maybeShowBrackets(Curry.Module.Prelude.op_38_38(x1)(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_null(x9)(st))(st))(st))(Curry.Module.AbstractCurryPrinter.c_showTypeCons(x10)(x11)(x9)(st))(st)+c_showTypeExpr_case_212 x1 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_212(x1)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c_showTypeExpr_case_212 x1 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeExpr_case_212")(x)++++c_showTypeExpr_case_215 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.AbstractCurryPrinter.c_showTypeVar(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showIdentifier(st))(x5)(st))(st)+c_showTypeExpr_case_215 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeExpr_case_215(x)(st))(i)(xs)(st)+c_showTypeExpr_case_215 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeExpr_case_215")(x)++++c_showConsDecl_case_216 x5 x2@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.Prelude.op_43_43(x7)(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(st)+c_showConsDecl_case_216 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showConsDecl_case_216(x5)(x)(st))(i)(xs)(st)+c_showConsDecl_case_216 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showConsDecl_case_216")(x)++++c_showTypeDecl_case_217 x10 x11 x8@(Curry.Module.Prelude.T2 x12 x13) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showBlock(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.AbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showConsDecl))(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(st))(st))(st))(st))(st))(st))(st)+c_showTypeDecl_case_217 x10 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeDecl_case_217(x10)(x11)(x)(st))(i)(xs)(st)+c_showTypeDecl_case_217 x10 x11 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeDecl_case_217")(x)++++c_showTypeDecl_case_218 x4 x5 x2@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(x7)(Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.pf(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.AbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x5)(st))(st))(st))(st))(st)+c_showTypeDecl_case_218 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeDecl_case_218(x4)(x5)(x)(st))(i)(xs)(st)+c_showTypeDecl_case_218 x4 x5 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeDecl_case_218")(x)++++c_showTypeDecls_case_219 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showTypeDecls_case_219 x1 x2@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))+c_showTypeDecls_case_219 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showTypeDecls_case_219(x1)(x)(st))(i)(xs)(st)+c_showTypeDecls_case_219 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showTypeDecls_case_219")(x)++++c_showOpDecl_case_221 x3 x4 x2@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.op_43_43(Curry.Module.AbstractCurryPrinter.c_showFixity(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurryPrinter.c_showOpDecl_case_220(x6)(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_isInfixOpName(st))(x6)(st))(st))(st))(st))(st))(st)+c_showOpDecl_case_221 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showOpDecl_case_221(x3)(x4)(x)(st))(i)(xs)(st)+c_showOpDecl_case_221 x3 x4 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showOpDecl_case_221")(x)++++c_showOpDecl_case_220 x6 x7@Curry.Module.Prelude.C_True st = x6+c_showOpDecl_case_220 x6 x7@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.List))(st))+c_showOpDecl_case_220 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showOpDecl_case_220(x6)(x)(st))(i)(xs)(st)+c_showOpDecl_case_220 x6 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showOpDecl_case_220")(x)++++c_showOpDecls_case_222 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showOpDecls_case_222 x1 x2@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))+c_showOpDecls_case_222 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showOpDecls_case_222(x1)(x)(st))(i)(xs)(st)+c_showOpDecls_case_222 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showOpDecls_case_222")(x)++++c_showImport_case_223 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(x1)(st)+c_showImport_case_223 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_showImport_case_223 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showImport_case_223(x1)(x)(st))(i)(xs)(st)+c_showImport_case_223 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showImport_case_223")(x)++++c_showImports_case_224 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showImports_case_224 x1 x2@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))+c_showImports_case_224 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showImports_case_224(x1)(x)(st))(i)(xs)(st)+c_showImports_case_224 x1 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showImports_case_224")(x)++++c_showExports'46getFuncName'469_case_225 x10@(Curry.Module.Prelude.T2 x15 x16) st = x16+c_showExports'46getFuncName'469_case_225 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469_case_225(x)(st))(i)(xs)(st)+c_showExports'46getFuncName'469_case_225 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getFuncName.9_case_225")(x)++++c_showExports'46getFuncName'469_case_226 x2@(Curry.Module.Prelude.T2 x7 x8) st = x8+c_showExports'46getFuncName'469_case_226 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getFuncName'469_case_226(x)(st))(i)(xs)(st)+c_showExports'46getFuncName'469_case_226 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getFuncName.9_case_226")(x)++++c_showExports'46getTypeName'469_case_227 x8@(Curry.Module.Prelude.T2 x12 x13) st = x13+c_showExports'46getTypeName'469_case_227 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469_case_227(x)(st))(i)(xs)(st)+c_showExports'46getTypeName'469_case_227 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getTypeName.9_case_227")(x)++++c_showExports'46getTypeName'469_case_228 x2@(Curry.Module.Prelude.T2 x6 x7) st = x7+c_showExports'46getTypeName'469_case_228 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showExports'46getTypeName'469_case_228(x)(st))(i)(xs)(st)+c_showExports'46getTypeName'469_case_228 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showExports.getTypeName.9_case_228")(x)++++c_showProg_case_229 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_showProg_case_229 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showProg_case_229 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.AbstractCurryPrinter.c_showProg_case_229(x7)(x)(st))(i)(xs)(st)+c_showProg_case_229 x7 x st = Curry.RunTimeSystem.patternFail("AbstractCurryPrinter.showProg_case_229")(x)++
+ dist/build/Curry/Module/CompactFlatCurry.hs view
@@ -0,0 +1,1616 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.CompactFlatCurry (module Curry.Module.CompactFlatCurry) where++import Curry.RunTimeSystem+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.RedBlackTree+import Curry.Module.SetRBT+import Curry.Module.Sort+import Curry.Module.TableRBT+import Curry.Module.Time+import Curry.Module.XML++++-- begin included++++-- end included++data C_Option = C_Verbose+  | C_Main (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_Exports+  | C_InitFuncs (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+  | C_Required (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec)+  | C_Import (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_OptionFail Curry.RunTimeSystem.C_Exceptions+  | C_OptionOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CompactFlatCurry.C_Option)++data C_RequiredSpec = C_AlwaysReq (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_Requires (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_RequiredSpecFail Curry.RunTimeSystem.C_Exceptions+  | C_RequiredSpecOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CompactFlatCurry.C_RequiredSpec)++instance BaseCurry Curry.Module.CompactFlatCurry.C_Option where+  nf f (Curry.Module.CompactFlatCurry.C_Main x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Main(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CompactFlatCurry.C_InitFuncs x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_InitFuncs(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CompactFlatCurry.C_Required x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Required(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CompactFlatCurry.C_Import x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Import(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CompactFlatCurry.C_Main x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Main(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CompactFlatCurry.C_InitFuncs x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_InitFuncs(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CompactFlatCurry.C_Required x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Required(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CompactFlatCurry.C_Import x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_Import(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CompactFlatCurry.C_OptionOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.CompactFlatCurry.C_Verbose,Curry.Module.CompactFlatCurry.C_Main(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CompactFlatCurry.C_Exports,Curry.Module.CompactFlatCurry.C_InitFuncs(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CompactFlatCurry.C_Required(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CompactFlatCurry.C_Import(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.CompactFlatCurry.C_OptionFail++  branching  = Curry.Module.CompactFlatCurry.C_OptionOr++  consKind (Curry.Module.CompactFlatCurry.C_OptionOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CompactFlatCurry.C_OptionFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CompactFlatCurry.C_OptionFail x) = x++  orRef (Curry.Module.CompactFlatCurry.C_OptionOr x _) = x++  branches (Curry.Module.CompactFlatCurry.C_OptionOr _ x) = x++++++instance BaseCurry Curry.Module.CompactFlatCurry.C_RequiredSpec where+  nf f (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_AlwaysReq(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CompactFlatCurry.C_Requires x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CompactFlatCurry.C_Requires(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CompactFlatCurry.C_AlwaysReq(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CompactFlatCurry.C_Requires x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CompactFlatCurry.C_Requires(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CompactFlatCurry.C_RequiredSpecOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CompactFlatCurry.C_AlwaysReq(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CompactFlatCurry.C_Requires(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CompactFlatCurry.C_RequiredSpecFail++  branching  = Curry.Module.CompactFlatCurry.C_RequiredSpecOr++  consKind (Curry.Module.CompactFlatCurry.C_RequiredSpecOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CompactFlatCurry.C_RequiredSpecFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CompactFlatCurry.C_RequiredSpecFail x) = x++  orRef (Curry.Module.CompactFlatCurry.C_RequiredSpecOr x _) = x++  branches (Curry.Module.CompactFlatCurry.C_RequiredSpecOr _ x) = x++++++instance Curry Curry.Module.CompactFlatCurry.C_Option where+  strEq Curry.Module.CompactFlatCurry.C_Verbose Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.Prelude.strEqSuccess+  strEq (Curry.Module.CompactFlatCurry.C_Main x1) (Curry.Module.CompactFlatCurry.C_Main y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq Curry.Module.CompactFlatCurry.C_Exports Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.Prelude.strEqSuccess+  strEq (Curry.Module.CompactFlatCurry.C_InitFuncs x1) (Curry.Module.CompactFlatCurry.C_InitFuncs y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CompactFlatCurry.C_Required x1) (Curry.Module.CompactFlatCurry.C_Required y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CompactFlatCurry.C_Import x1) (Curry.Module.CompactFlatCurry.C_Import y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.CompactFlatCurry.C_Verbose Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.Prelude.C_True+  eq (Curry.Module.CompactFlatCurry.C_Main x1) (Curry.Module.CompactFlatCurry.C_Main y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq Curry.Module.CompactFlatCurry.C_Exports Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.Prelude.C_True+  eq (Curry.Module.CompactFlatCurry.C_InitFuncs x1) (Curry.Module.CompactFlatCurry.C_InitFuncs y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CompactFlatCurry.C_Required x1) (Curry.Module.CompactFlatCurry.C_Required y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CompactFlatCurry.C_Import x1) (Curry.Module.CompactFlatCurry.C_Import y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CompactFlatCurry.C_Verbose+  propagate f (Curry.Module.CompactFlatCurry.C_Main x1) st = Curry.Module.CompactFlatCurry.C_Main(f((0::Int))(x1)(st))+  propagate f Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CompactFlatCurry.C_Exports+  propagate f (Curry.Module.CompactFlatCurry.C_InitFuncs x1) st = Curry.Module.CompactFlatCurry.C_InitFuncs(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CompactFlatCurry.C_Required x1) st = Curry.Module.CompactFlatCurry.C_Required(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CompactFlatCurry.C_Import x1) st = Curry.Module.CompactFlatCurry.C_Import(f((0::Int))(x1)(st))++  foldCurry f c Curry.Module.CompactFlatCurry.C_Verbose st = c+  foldCurry f c (Curry.Module.CompactFlatCurry.C_Main x1) st = f(x1)(c)(st)+  foldCurry f c Curry.Module.CompactFlatCurry.C_Exports st = c+  foldCurry f c (Curry.Module.CompactFlatCurry.C_InitFuncs x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CompactFlatCurry.C_Required x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CompactFlatCurry.C_Import x1) st = f(x1)(c)(st)++  typeName _ = "Option"++  showQ _ Curry.Module.CompactFlatCurry.C_Verbose = Prelude.showString("CompactFlatCurry.Verbose")+  showQ d (Curry.Module.CompactFlatCurry.C_Main x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.Main "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ Curry.Module.CompactFlatCurry.C_Exports = Prelude.showString("CompactFlatCurry.Exports")+  showQ d (Curry.Module.CompactFlatCurry.C_InitFuncs x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.InitFuncs "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CompactFlatCurry.C_Required x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.Required "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CompactFlatCurry.C_Import x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.Import "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CompactFlatCurry.C_OptionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CompactFlatCurry.C_RequiredSpec where+  strEq (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) (Curry.Module.CompactFlatCurry.C_AlwaysReq y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CompactFlatCurry.C_Requires x1 x2) (Curry.Module.CompactFlatCurry.C_Requires y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) (Curry.Module.CompactFlatCurry.C_AlwaysReq y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CompactFlatCurry.C_Requires x1 x2) (Curry.Module.CompactFlatCurry.C_Requires y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) st = Curry.Module.CompactFlatCurry.C_AlwaysReq(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CompactFlatCurry.C_Requires x1 x2) st = Curry.Module.CompactFlatCurry.C_Requires(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CompactFlatCurry.C_Requires x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "RequiredSpec"++  showQ d (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.AlwaysReq "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CompactFlatCurry.C_Requires x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CompactFlatCurry.Requires "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CompactFlatCurry.C_RequiredSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CompactFlatCurry.C_Option where+  showsPrec _ Curry.Module.CompactFlatCurry.C_Verbose = Prelude.showString("Verbose")+  showsPrec d (Curry.Module.CompactFlatCurry.C_Main x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Main "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ Curry.Module.CompactFlatCurry.C_Exports = Prelude.showString("Exports")+  showsPrec d (Curry.Module.CompactFlatCurry.C_InitFuncs x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InitFuncs "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CompactFlatCurry.C_Required x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Required "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CompactFlatCurry.C_Import x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Import "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CompactFlatCurry.C_OptionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CompactFlatCurry.C_RequiredSpec where+  showsPrec d (Curry.Module.CompactFlatCurry.C_AlwaysReq x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AlwaysReq "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CompactFlatCurry.C_Requires x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Requires "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CompactFlatCurry.C_RequiredSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.CompactFlatCurry.C_Option where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Verbose)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Verbose")(r)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Main(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Main")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Exports)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Exports")(r)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_InitFuncs(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("InitFuncs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Required(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Required")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Import(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Import")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))))))++++++instance Read Curry.Module.CompactFlatCurry.C_RequiredSpec where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_AlwaysReq(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("AlwaysReq")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CompactFlatCurry.C_Requires(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CompactFlatCurry")("Requires")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))++++++c_isMainOption :: Curry.Module.CompactFlatCurry.C_Option -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isMainOption x1@(Curry.Module.CompactFlatCurry.C_Main x2) st = Curry.Module.Prelude.C_True+c_isMainOption x1@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.Prelude.C_False+c_isMainOption x1@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.Prelude.C_False+c_isMainOption x1@(Curry.Module.CompactFlatCurry.C_InitFuncs x3) st = Curry.Module.Prelude.C_False+c_isMainOption x1@(Curry.Module.CompactFlatCurry.C_Required x4) st = Curry.Module.Prelude.C_False+c_isMainOption x1@(Curry.Module.CompactFlatCurry.C_Import x5) st = Curry.Module.Prelude.C_False+c_isMainOption (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_isMainOption(x)(st))(i)(xs)(st)+c_isMainOption x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.isMainOption")(x)++++c_getMainFuncFromOptions :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_getMainFuncFromOptions x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions_case_139(x3)(x2)(st)+c_getMainFuncFromOptions (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x)(st))(i)(xs)(st)+c_getMainFuncFromOptions x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getMainFuncFromOptions")(x)++++c_getRequiredFromOptions :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec+c_getRequiredFromOptions x1 st = Curry.Module.Prelude.c_concat(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_getRequiredFromOptions'46_'35lambda6))(Curry.Module.Prelude.List)(x1)(st))(st)++++c_getRequiredFromOptions'46_'35lambda6 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec)+c_getRequiredFromOptions'46_'35lambda6 x1@(Curry.Module.CompactFlatCurry.C_Required x3) x2 st = (Curry.Module.Prelude.:<)(x3)(x2)+c_getRequiredFromOptions'46_'35lambda6 x1@Curry.Module.CompactFlatCurry.C_Verbose x2 st = x2+c_getRequiredFromOptions'46_'35lambda6 x1@(Curry.Module.CompactFlatCurry.C_Main x4) x2 st = x2+c_getRequiredFromOptions'46_'35lambda6 x1@Curry.Module.CompactFlatCurry.C_Exports x2 st = x2+c_getRequiredFromOptions'46_'35lambda6 x1@(Curry.Module.CompactFlatCurry.C_InitFuncs x5) x2 st = x2+c_getRequiredFromOptions'46_'35lambda6 x1@(Curry.Module.CompactFlatCurry.C_Import x6) x2 st = x2+c_getRequiredFromOptions'46_'35lambda6 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getRequiredFromOptions'46_'35lambda6(x)(x2)(st))(i)(xs)(st)+c_getRequiredFromOptions'46_'35lambda6 x x2 st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getRequiredFromOptions._#lambda6")(x)++++c_addImport2Options :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option+c_addImport2Options x1 st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.CompactFlatCurry.C_Import))(Curry.Module.List.c_nub(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_addImport2Options'46alwaysReqMod'4621))(st))(Curry.Module.CompactFlatCurry.c_getRequiredFromOptions(x1)(st))(st))(st))(st))(st)++++c_addImport2Options'46alwaysReqMod'4621 :: Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_addImport2Options'46alwaysReqMod'4621 x1@(Curry.Module.CompactFlatCurry.C_AlwaysReq x2) st = Curry.Module.CompactFlatCurry.c_addImport2Options'46alwaysReqMod'4621_case_138(x2)(st)+c_addImport2Options'46alwaysReqMod'4621 x1@(Curry.Module.CompactFlatCurry.C_Requires x5 x6) st = Curry.Module.Prelude.List+c_addImport2Options'46alwaysReqMod'4621 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_addImport2Options'46alwaysReqMod'4621(x)(st))(i)(xs)(st)+c_addImport2Options'46alwaysReqMod'4621 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.addImport2Options.alwaysReqMod.21")(x)++++c_requires :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.CompactFlatCurry.C_RequiredSpec+c_requires x1 x2 st = Curry.Module.CompactFlatCurry.C_Requires(x1)(x2)++++c_alwaysRequired :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.CompactFlatCurry.C_RequiredSpec+c_alwaysRequired x1 st = Curry.Module.CompactFlatCurry.C_AlwaysReq(x1)++++c_defaultRequired :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec+c_defaultRequired st = (Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List)))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List)))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))(Curry.Module.Prelude.List))))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))(Curry.Module.Prelude.List)))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.CompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))(st))(Curry.Module.Prelude.List))))))))))))))))++++c_prelude :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prelude st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))++++c_getRequiredInModule :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getRequiredInModule x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638(x2)))(st))(x1)(st)++++c_getRequiredInModule'46getImpReq'4638 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getRequiredInModule'46getImpReq'4638 x1 x2@(Curry.Module.CompactFlatCurry.C_AlwaysReq x3) st = Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638_case_137(x1)(x3)(st)+c_getRequiredInModule'46getImpReq'4638 x1 x2@(Curry.Module.CompactFlatCurry.C_Requires x6 x7) st = Curry.Module.Prelude.List+c_getRequiredInModule'46getImpReq'4638 x1 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638(x1)(x)(st))(i)(xs)(st)+c_getRequiredInModule'46getImpReq'4638 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getRequiredInModule.getImpReq.38")(x)++++c_getImplicitlyRequired :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getImplicitlyRequired x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getImplicitlyRequired'46getImpReq'4646(x2)))(st))(x1)(st)++++c_getImplicitlyRequired'46getImpReq'4646 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getImplicitlyRequired'46getImpReq'4646 x1 x2@(Curry.Module.CompactFlatCurry.C_AlwaysReq x3) st = Curry.Module.Prelude.List+c_getImplicitlyRequired'46getImpReq'4646 x1 x2@(Curry.Module.CompactFlatCurry.C_Requires x4 x5) st = Curry.Module.CompactFlatCurry.c_getImplicitlyRequired'46getImpReq'4646_case_135(x1)(x4)(x5)(Curry.Module.Prelude.op_61_61(x4)(x1)(st))(st)+c_getImplicitlyRequired'46getImpReq'4646 x1 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getImplicitlyRequired'46getImpReq'4646(x1)(x)(st))(i)(xs)(st)+c_getImplicitlyRequired'46getImpReq'4646 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getImplicitlyRequired.getImpReq.46")(x)++++c_defaultRequiredTypes :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_defaultRequiredTypes st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.CompactFlatCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))))))++++c_generateCompactFlatCurryFile :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_generateCompactFlatCurryFile x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_computeCompactFlatCurry(x1)(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_generateCompactFlatCurryFile'46_'35lambda8(x3)))(st)++++c_generateCompactFlatCurryFile'46_'35lambda8 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_generateCompactFlatCurryFile'46_'35lambda8 x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.FlatCurry.c_writeFCY(x1)(x2)(st))(Curry.Module.Prelude.c_done(st))(st)++++c_computeCompactFlatCurry :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_computeCompactFlatCurry x1 x2 st = let {x3 = Curry.Module.CompactFlatCurry.c_addImport2Options(x1)(st)} in Curry.Module.CompactFlatCurry.c_computeCompactFlatCurry_case_134(x2)(x3)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(Curry.Module.CompactFlatCurry.C_Exports)(st))(x3)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_isMainOption))(st))(x3)(st))(st))(st)++++c_computeCompactFlatCurry'46_'35lambda9 :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_computeCompactFlatCurry'46_'35lambda9 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry(x2)(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10))(st)++++c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10 :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10 x1 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStrLn(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_length(Curry.Module.CompactFlatCurry.c_moduleFuns(x1)(st))(st))(st))(st))(st))(Curry.Module.Prelude.c_return(x1)(st))(st)++++c_makeCompactFlatCurry :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_makeCompactFlatCurry x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_requiredInCompactProg(x1)(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11(x1)(x2)))(st)++++c_makeCompactFlatCurry'46_'35lambda11 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_makeCompactFlatCurry'46_'35lambda11 x1 x2 x3@(Curry.Module.Prelude.T3 x4 x5 x6) st = let {x8 = Curry.Module.CompactFlatCurry.c_getRequiredFromOptions(x2)(st)} in let {x10 = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getRequiredInModule(x8)))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleName))(x6)(st))(st))(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_getCalledFuncs(x8)(x5)(x6)(Curry.Module.CompactFlatCurry.c_extendFuncTable(Curry.Module.TableRBT.c_emptyTableRBT(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_leqQName))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleFuns))(st))(x6)(st))(st))(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_emptySetRBT(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_leqQName))(st))(x10)(st))(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_emptySetRBT(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_leqQName))(st))(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_emptySetRBT(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_leqQName))(st))(x10)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12(x1)))(st)+c_makeCompactFlatCurry'46_'35lambda11 x1 x2 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11(x1)(x2)(x)(st))(i)(xs)(st)+c_makeCompactFlatCurry'46_'35lambda11 x1 x2 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.makeCompactFlatCurry._#lambda11")(x)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStrLn(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_43))(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_length))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleFuns))(st))(x3)(st))(st))(st))(st))(st))(Curry.Module.Prelude.c_return(Curry.Module.FlatCurry.C_Prog(Curry.Module.CompactFlatCurry.c_moduleName(x1)(st))(Curry.Module.Prelude.List)(let {x8 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleTypes))(st))(x3)(st)} in Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13(Curry.Module.CompactFlatCurry.c_requiredDatatypes(Curry.Module.CompactFlatCurry.c_extendTConsWithConsType(x5)(x6)(x8)(st))(x8)(st))))(x8)(st))(x4)(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_functionName))(x4)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleOps))(st))(x3)(st))(st)))(st))(st)+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12(x1)(x)(st))(i)(xs)(st)+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.makeCompactFlatCurry._#lambda11._#lambda12")(x)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13 x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(Curry.Module.CompactFlatCurry.c_tconsName(x2)(st))(st))(x1)(st)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x3)(st))(x1)(st)+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14(x1)(x)(st))(i)(xs)(st)+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.makeCompactFlatCurry._#lambda11._#lambda12._#lambda14")(x)++++c_requiredDatatypes :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_requiredDatatypes x1 x2 st = let {x3 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl(x1)))(st))(x2)(st)} in Curry.Module.CompactFlatCurry.c_requiredDatatypes_case_133(x1)(x2)(x3)(Curry.Module.Prelude.c_null(x3)(st))(st)++++c_newTypeConsOfTDecl :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_newTypeConsOfTDecl x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x3 x4 x5 x6) st = Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl_case_132(x1)(x3)(x6)(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x3)(st))(x1)(st))(st)+c_newTypeConsOfTDecl x1 x2@(Curry.Module.FlatCurry.C_Type x7 x8 x9 x10) st = Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl_case_131(x1)(x7)(x10)(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x7)(st))(x1)(st))(st)+c_newTypeConsOfTDecl x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl(x1)(x)(st))(i)(xs)(st)+c_newTypeConsOfTDecl x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.newTypeConsOfTDecl")(x)++++c_newTypeConsOfTDecl'46_'35lambda15 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_newTypeConsOfTDecl'46_'35lambda15 x1 x2 st = Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x2)(st))(x1)(st))(st)++++c_newTypeConsOfTDecl'46_'35lambda16 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_newTypeConsOfTDecl'46_'35lambda16 x1 x2 st = Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x2)(st))(x1)(st))(st)++++c_newTypeConsOfTDecl'46_'35lambda17 :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_newTypeConsOfTDecl'46_'35lambda17 x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allTypesOfTExpr))(st))(x5)(st)+c_newTypeConsOfTDecl'46_'35lambda17 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda17(x)(st))(i)(xs)(st)+c_newTypeConsOfTDecl'46_'35lambda17 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.newTypeConsOfTDecl._#lambda17")(x)++++c_extendTConsWithConsType :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_extendTConsWithConsType x1 x2 x3@Curry.Module.Prelude.List st = x2+c_extendTConsWithConsType x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CompactFlatCurry.c_extendTConsWithConsType_case_130(x1)(x2)(x5)(x4)(st)+c_extendTConsWithConsType x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_extendTConsWithConsType(x1)(x2)(x)(st))(i)(xs)(st)+c_extendTConsWithConsType x1 x2 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.extendTConsWithConsType")(x)++++c_extendTConsWithConsType'46_'35lambda18 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_extendTConsWithConsType'46_'35lambda18 x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(Curry.Module.CompactFlatCurry.c_consName(x2)(st))(st))(x1)(st)++++c_extendFuncTable :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)+c_extendFuncTable x1 x2 st = Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_extendFuncTable'46_'35lambda19))(x1)(x2)(st)++++c_extendFuncTable'46_'35lambda19 :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)+c_extendFuncTable'46_'35lambda19 x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.TableRBT.c_updateRBT(Curry.Module.CompactFlatCurry.c_functionName(x1)(st))(x1)(st))(x2)(st)++++c_requiredInCompactProg :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_requiredInCompactProg x1 x2 st = let {x3 = Curry.Module.List.c_nub(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda22))(Curry.Module.Prelude.List)(x2)(st))(st)} in let {x4 = Curry.Module.CompactFlatCurry.c_moduleName(x1)(st)} in let {x5 = Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda26))(Curry.Module.Prelude.List)(x2)(st)} in let {x6 = Curry.Module.CompactFlatCurry.c_exportedFuncNames(Curry.Module.CompactFlatCurry.c_moduleFuns(x1)(st))(st)} in let {x7 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_insertRBT(st))(x4)(st))(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_emptySetRBT(st))(Curry.Module.Sort.c_leqString(st))(st))(st)} in Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_128(x1)(x2)(x3)(x4)(x5)(x6)(x7)(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_null(x5)(st))(st))(st)++++c_requiredInCompactProg'46_'35lambda22 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_requiredInCompactProg'46_'35lambda22 x1@(Curry.Module.CompactFlatCurry.C_Import x3) x2 st = (Curry.Module.Prelude.:<)(x3)(x2)+c_requiredInCompactProg'46_'35lambda22 x1@Curry.Module.CompactFlatCurry.C_Verbose x2 st = x2+c_requiredInCompactProg'46_'35lambda22 x1@(Curry.Module.CompactFlatCurry.C_Main x4) x2 st = x2+c_requiredInCompactProg'46_'35lambda22 x1@Curry.Module.CompactFlatCurry.C_Exports x2 st = x2+c_requiredInCompactProg'46_'35lambda22 x1@(Curry.Module.CompactFlatCurry.C_InitFuncs x5) x2 st = x2+c_requiredInCompactProg'46_'35lambda22 x1@(Curry.Module.CompactFlatCurry.C_Required x6) x2 st = x2+c_requiredInCompactProg'46_'35lambda22 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda22(x)(x2)(st))(i)(xs)(st)+c_requiredInCompactProg'46_'35lambda22 x x2 st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg._#lambda22")(x)++++c_requiredInCompactProg'46_'35lambda26 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_requiredInCompactProg'46_'35lambda26 x1@(Curry.Module.CompactFlatCurry.C_InitFuncs x3) x2 st = (Curry.Module.Prelude.:<)(x3)(x2)+c_requiredInCompactProg'46_'35lambda26 x1@Curry.Module.CompactFlatCurry.C_Verbose x2 st = x2+c_requiredInCompactProg'46_'35lambda26 x1@(Curry.Module.CompactFlatCurry.C_Main x4) x2 st = x2+c_requiredInCompactProg'46_'35lambda26 x1@Curry.Module.CompactFlatCurry.C_Exports x2 st = x2+c_requiredInCompactProg'46_'35lambda26 x1@(Curry.Module.CompactFlatCurry.C_Required x5) x2 st = x2+c_requiredInCompactProg'46_'35lambda26 x1@(Curry.Module.CompactFlatCurry.C_Import x6) x2 st = x2+c_requiredInCompactProg'46_'35lambda26 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda26(x)(x2)(st))(i)(xs)(st)+c_requiredInCompactProg'46_'35lambda26 x x2 st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg._#lambda26")(x)++++c_requiredInCompactProg'46add2mainmodset'46118 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_requiredInCompactProg'46add2mainmodset'46118 x1 x2 st = Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x1)(x2)(st)++++c_requiredInCompactProg'46_'35lambda28 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_requiredInCompactProg'46_'35lambda28 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T3(Curry.Module.Prelude.c_concat(x2)(st))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x4)(x1)(st))((Curry.Module.Prelude.:<)(x3)(x5)))(st)++++c_requiredInCompactProg'46_'35lambda29 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_requiredInCompactProg'46_'35lambda29 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T3(Curry.Module.List.c_nub(x2)(st))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x4)(x1)(st))((Curry.Module.Prelude.:<)(x3)(x5)))(st)++++c_requiredInCompactProg'46_'35lambda30 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_requiredInCompactProg'46_'35lambda30 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T3((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x4)(x1))(Curry.Module.Prelude.List))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x5)(x2)(st))((Curry.Module.Prelude.:<)(x3)(x6)))(st)++++c_requiredInCompactProg'46_'35lambda31 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_requiredInCompactProg'46_'35lambda31 x1 x2 x3 x4 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T3(Curry.Module.List.c_nub(Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_exportedFuncNames))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleFuns))(st))(st))(x4)(st))(st))(st))(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x3)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_moduleName))(x4)(st))(st))((Curry.Module.Prelude.:<)(x2)(x4)))(st)++++c_exportedFuncNames :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_exportedFuncNames x1 st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_exportedFuncNames'46_'35lambda32))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_exportedFuncNames'46_'35lambda33))(x1)(st))(st)++++c_exportedFuncNames'46_'35lambda32 :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_exportedFuncNames'46_'35lambda32 x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = x2+c_exportedFuncNames'46_'35lambda32 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_exportedFuncNames'46_'35lambda32(x)(st))(i)(xs)(st)+c_exportedFuncNames'46_'35lambda32 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.exportedFuncNames._#lambda32")(x)++++c_exportedFuncNames'46_'35lambda33 :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_exportedFuncNames'46_'35lambda33 x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_61_61(x4)(Curry.Module.FlatCurry.C_Public)(st)+c_exportedFuncNames'46_'35lambda33 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_exportedFuncNames'46_'35lambda33(x)(st))(i)(xs)(st)+c_exportedFuncNames'46_'35lambda33 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.exportedFuncNames._#lambda33")(x)++++c_getCalledFuncs :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getCalledFuncs x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T4(x3)(Curry.Module.Prelude.List)(x6)(x7))(st)+c_getCalledFuncs x1 x2 x3 x4 x5 x6 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_123(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x9)(st)+c_getCalledFuncs x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c_getCalledFuncs x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs")(x)++++c_getCalledFuncs'46_'35lambda34 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getCalledFuncs'46_'35lambda34 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 st = let {x12 = Curry.Module.CompactFlatCurry.c_getRequiredInModule(x10)(x8)(st)} in Curry.Module.CompactFlatCurry.c_getCalledFuncs(x10)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_insertRBT(st))(x8)(st))(x6)(st))((Curry.Module.Prelude.:<)(x11)(x9))(Curry.Module.CompactFlatCurry.c_extendFuncTable(x3)(Curry.Module.CompactFlatCurry.c_moduleFuns(x11)(st))(st))(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x5)(x12)(st))(x4)(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x8)(x1))(Curry.Module.Prelude.op_43_43(x2)(x12)(st)))(st)++++c_getCalledFuncs'46_'35lambda35 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_getCalledFuncs'46_'35lambda35 x1 x2 st = Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x2)(st))(x1)(st))(st)++++c_getCalledFuncs'46_'35lambda36 :: (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_getCalledFuncs'46_'35lambda36 x1 x2 st = Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x2)(st))(x1)(st))(st)++++c_getCalledFuncs'46_'35lambda37 :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getCalledFuncs'46_'35lambda37 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T4(x3)((Curry.Module.Prelude.:<)(x1)(x4))(x5)(x6))(st)+c_getCalledFuncs'46_'35lambda37 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs'46_'35lambda37(x1)(x)(st))(i)(xs)(st)+c_getCalledFuncs'46_'35lambda37 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs._#lambda37")(x)++++c_allFuncCalls :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCalls x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.CompactFlatCurry.c_allFuncCalls_case_119(x6)(st)+c_allFuncCalls (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allFuncCalls(x)(st))(i)(xs)(st)+c_allFuncCalls x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allFuncCalls")(x)++++c_allFuncCallsOfExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.List+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.List+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = let {x7 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr))(st))(x6)(st)} in Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr_case_118(x5)(x7)(x4)(st)+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x11)(st)+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Let x12 x13) st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(st))(st))(x12)(st))(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x13)(st))(st)+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.Prelude.op_43_43(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x14)(st))(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x15)(st))(st)+c_allFuncCallsOfExpr x1@(Curry.Module.FlatCurry.C_Case x16 x17 x18) st = Curry.Module.Prelude.op_43_43(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x17)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allFuncCallsOfBranchExpr))(st))(x18)(st))(st)+c_allFuncCallsOfExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x)(st))(i)(xs)(st)+c_allFuncCallsOfExpr x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allFuncCallsOfExpr")(x)++++c_allFuncCallsOfBranchExpr :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCallsOfBranchExpr x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x3)(st)+c_allFuncCallsOfBranchExpr (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allFuncCallsOfBranchExpr(x)(st))(i)(xs)(st)+c_allFuncCallsOfBranchExpr x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allFuncCallsOfBranchExpr")(x)++++c_allConstructorsOfFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConstructorsOfFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.CompactFlatCurry.c_allConstructorsOfFunc_case_117(x6)(st)+c_allConstructorsOfFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConstructorsOfFunc(x)(st))(i)(xs)(st)+c_allConstructorsOfFunc x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConstructorsOfFunc")(x)++++c_allConsOfExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.List+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.List+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = let {x7 = Curry.Module.Prelude.c_apply(Curry.Module.CompactFlatCurry.c_unionMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allConsOfExpr))(st))(x6)(st)} in Curry.Module.CompactFlatCurry.c_allConsOfExpr_case_116(x5)(x7)(x4)(st)+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CompactFlatCurry.c_allConsOfExpr(x11)(st)+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Let x12 x13) st = Curry.Module.List.c_union(Curry.Module.Prelude.c_apply(Curry.Module.CompactFlatCurry.c_unionMap(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allConsOfExpr))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(st))(st))(x12)(st))(Curry.Module.CompactFlatCurry.c_allConsOfExpr(x13)(st))(st)+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.List.c_union(Curry.Module.CompactFlatCurry.c_allConsOfExpr(x14)(st))(Curry.Module.CompactFlatCurry.c_allConsOfExpr(x15)(st))(st)+c_allConsOfExpr x1@(Curry.Module.FlatCurry.C_Case x16 x17 x18) st = Curry.Module.List.c_union(Curry.Module.CompactFlatCurry.c_allConsOfExpr(x17)(st))(Curry.Module.Prelude.c_apply(Curry.Module.CompactFlatCurry.c_unionMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allConsOfExpr'46consOfBranch'46252))(st))(x18)(st))(st)+c_allConsOfExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConsOfExpr(x)(st))(i)(xs)(st)+c_allConsOfExpr x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConsOfExpr")(x)++++c_allConsOfExpr'46consOfBranch'46252 :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConsOfExpr'46consOfBranch'46252 x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = Curry.Module.CompactFlatCurry.c_allConsOfExpr'46consOfBranch'46252_case_115(x3)(x2)(st)+c_allConsOfExpr'46consOfBranch'46252 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConsOfExpr'46consOfBranch'46252(x)(st))(i)(xs)(st)+c_allConsOfExpr'46consOfBranch'46252 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConsOfExpr.consOfBranch.252")(x)++++c_allTypesOfFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allTypesOfFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.CompactFlatCurry.c_allTypesOfTExpr(x5)(st)+c_allTypesOfFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allTypesOfFunc(x)(st))(i)(xs)(st)+c_allTypesOfFunc x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allTypesOfFunc")(x)++++c_allTypesOfTExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allTypesOfTExpr x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.List+c_allTypesOfTExpr x1@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.List.c_union(Curry.Module.CompactFlatCurry.c_allTypesOfTExpr(x3)(st))(Curry.Module.CompactFlatCurry.c_allTypesOfTExpr(x4)(st))(st)+c_allTypesOfTExpr x1@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.List.c_union((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_apply(Curry.Module.CompactFlatCurry.c_unionMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_allTypesOfTExpr))(st))(x6)(st))(st)+c_allTypesOfTExpr (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allTypesOfTExpr(x)(st))(i)(xs)(st)+c_allTypesOfTExpr x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allTypesOfTExpr")(x)++++c_unionMap :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1)+c_unionMap x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.List.c_union))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(x1)))(st)++++c_functionName :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_functionName x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = x2+c_functionName (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_functionName(x)(st))(i)(xs)(st)+c_functionName x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.functionName")(x)++++c_consName :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_consName x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = x2+c_consName (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_consName(x)(st))(i)(xs)(st)+c_consName x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.consName")(x)++++c_tconsName :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_tconsName x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = x2+c_tconsName x1@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = x6+c_tconsName (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_tconsName(x)(st))(i)(xs)(st)+c_tconsName x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.tconsName")(x)++++c_moduleImports :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_moduleImports x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x3+c_moduleImports (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_moduleImports(x)(st))(i)(xs)(st)+c_moduleImports x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.moduleImports")(x)++++c_moduleTypes :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl+c_moduleTypes x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x4+c_moduleTypes (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_moduleTypes(x)(st))(i)(xs)(st)+c_moduleTypes x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.moduleTypes")(x)++++c_moduleOps :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl+c_moduleOps x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x6+c_moduleOps (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_moduleOps(x)(st))(i)(xs)(st)+c_moduleOps x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.moduleOps")(x)++++c_moduleName :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_moduleName x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x2+c_moduleName (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_moduleName(x)(st))(i)(xs)(st)+c_moduleName x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.moduleName")(x)++++c_moduleFuns :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_moduleFuns x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x5+c_moduleFuns (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_moduleFuns(x)(st))(i)(xs)(st)+c_moduleFuns x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.moduleFuns")(x)++++c_leqQName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqQName x1@(Curry.Module.Prelude.T2 x3 x4) x2 st = Curry.Module.CompactFlatCurry.c_leqQName_case_114(x3)(x4)(x2)(st)+c_leqQName (Curry.Module.Prelude.T2Or i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_leqQName(x)(x2)(st))(i)(xs)(st)+c_leqQName x x2 st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.leqQName")(x)++++c_readCurrentFlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readCurrentFlatCurry x1 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_findSourceFileInLoadPath(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40))(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readCurrentFlatCurry'46_'35lambda40 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.FlatCurry.c_flatCurryFileName(x1)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41(x1)))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41 x1 x2 st = Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113(x1)(x2)(Curry.Module.Prelude.c_not(x2)(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_getModificationTime(Curry.Module.FlatCurry.c_flatCurryFileName(x1)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43(x2)(x1)))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43 :: Curry.Module.Time.C_ClockTime -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43 x1 x2 x3 st = Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112(x1)(x2)(x3)(Curry.Module.Prelude.op_62(Curry.Module.Time.c_clockTimeToInt(x1)(st))(Curry.Module.Time.c_clockTimeToInt(x3)(st))(st))(st)++++c_getSourceModificationTime :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime+c_getSourceModificationTime x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getSourceModificationTime'46_'35lambda44(x1)))(st)++++c_getSourceModificationTime'46_'35lambda44 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime+c_getSourceModificationTime'46_'35lambda44 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Directory.c_getModificationTime(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st)+c_getSourceModificationTime'46_'35lambda44 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.Directory.c_getModificationTime(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st)+c_getSourceModificationTime'46_'35lambda44 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getSourceModificationTime'46_'35lambda44(x1)(x)(st))(i)(xs)(st)+c_getSourceModificationTime'46_'35lambda44 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getSourceModificationTime._#lambda44")(x)++++c_findSourceFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_findSourceFileInLoadPath x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPathForFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_findSourceFileInLoadPath'46_'35lambda45(x1)))(st)++++c_findSourceFileInLoadPath'46_'35lambda45 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_findSourceFileInLoadPath'46_'35lambda45 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FileGoodies.c_lookupFileInPath(Curry.Module.FileGoodies.c_baseName(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46(x1)))(st)++++c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46 x1 x2 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_error(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))(st))(st))(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.FileGoodies.c_stripSuffix(st))(st))(x2)(st)++++c_processPrimitives :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_processPrimitives x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_readPrimSpec(Curry.Module.CompactFlatCurry.c_moduleName(x2)(st))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List))))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_processPrimitives'46_'35lambda47(x2)))(st)++++c_processPrimitives'46_'35lambda47 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_processPrimitives'46_'35lambda47 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoModule(x2)(x1)(st))(st)++++c_mergePrimSpecIntoModule :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_mergePrimSpecIntoModule x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.FlatCurry.C_Prog(x3)(x4)(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc(x1)))(st))(x6)(st))(x7)+c_mergePrimSpecIntoModule x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoModule(x1)(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoModule x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoModule")(x)++++c_mergePrimSpecIntoFunc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_mergePrimSpecIntoFunc x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.Prelude.c_lookup(x3)(x1)(st)} in Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc_case_111(x3)(x4)(x5)(x6)(x7)(x8)(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.C_Nothing)(st))(st)+c_mergePrimSpecIntoFunc x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc(x1)(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc")(x)++++c_mergePrimSpecIntoFunc'46_'35selFP3'35lib :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib x1@(Curry.Module.Prelude.C_Just x2) st = Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP3'35lib_case_109(x2)(st)+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP3'35lib(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc._#selFP3#lib")(x)++++c_mergePrimSpecIntoFunc'46_'35selFP4'35entry :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry x1@(Curry.Module.Prelude.C_Just x2) st = Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP4'35entry_case_108(x2)(st)+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP4'35entry(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc._#selFP4#entry")(x)++++c_readPrimSpec :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_readPrimSpec x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readPrimSpec'46_'35lambda48(x1)(x2)))(st)++++c_readPrimSpec'46_'35lambda48 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_readPrimSpec'46_'35lambda48 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.XML.c_readXmlFile(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readPrimSpec'46_'35lambda48'46_'35lambda49(x1)))(st)+c_readPrimSpec'46_'35lambda48 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.List)(st)+c_readPrimSpec'46_'35lambda48 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_readPrimSpec'46_'35lambda48(x1)(x2)(x)(st))(i)(xs)(st)+c_readPrimSpec'46_'35lambda48 x1 x2 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.readPrimSpec._#lambda48")(x)++++c_readPrimSpec'46_'35lambda48'46_'35lambda49 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_readPrimSpec'46_'35lambda48'46_'35lambda49 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.CompactFlatCurry.c_xml2primtrans(x1)(x2)(st))(st)++++c_xml2primtrans :: (Curry t0) => t0 -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_xml2primtrans x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_107(x1)(x4)(x5)(x3)(st)+c_xml2primtrans x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans(x1)(x)(st))(i)(xs)(st)+c_xml2primtrans x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans")(x)++++c_xml2primtrans'46xml2prim'46358 :: (Curry t248) => t248 -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 t248 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_xml2primtrans'46xml2prim'46358 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_85(x1)(x4)(x5)(x3)(st)+c_xml2primtrans'46xml2prim'46358 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358(x1)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358")(x)++++c_xml2primtrans'46xml2prim'46358_case_85 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_84(x1)(x4)(x5)(x7)(x6)(st)+c_xml2primtrans'46xml2prim'46358_case_85 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_85(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_85 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_85")(x)++++c_xml2primtrans'46xml2prim'46358_case_84 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_83(x1)(x4)(x5)(x7)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_22(x1)(x4)(x5)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_22 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x70 x71) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_21(x1)(x4)(x5)(x71)(x70)(st)+c_xml2primtrans'46xml2prim'46358_case_22 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_22(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_22 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_22")(x)++++c_xml2primtrans'46xml2prim'46358_case_21 x1 x4 x5 x71 x70 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x70)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_20(x1)(x4)(x5)(x71)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_20 x1 x4 x5 x71@((Curry.Module.Prelude.:<) x72 x73) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_19(x1)(x4)(x5)(x73)(x72)(st)+c_xml2primtrans'46xml2prim'46358_case_20 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_20(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_20 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_20")(x)++++c_xml2primtrans'46xml2prim'46358_case_19 x1 x4 x5 x73 x72 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x72)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_18(x1)(x4)(x5)(x73)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_18 x1 x4 x5 x73@((Curry.Module.Prelude.:<) x74 x75) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_17(x1)(x4)(x5)(x75)(x74)(st)+c_xml2primtrans'46xml2prim'46358_case_18 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_18(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_18 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_18")(x)++++c_xml2primtrans'46xml2prim'46358_case_17 x1 x4 x5 x75 x74 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x74)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_16(x1)(x4)(x5)(x75)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_16 x1 x4 x5 x75@((Curry.Module.Prelude.:<) x76 x77) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_15(x1)(x4)(x5)(x77)(x76)(st)+c_xml2primtrans'46xml2prim'46358_case_16 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_16(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_16 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_16")(x)++++c_xml2primtrans'46xml2prim'46358_case_15 x1 x4 x5 x77 x76 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x76)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_14(x1)(x4)(x5)(x77)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_14 x1 x4 x5 x77@((Curry.Module.Prelude.:<) x78 x79) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_13(x1)(x4)(x5)(x79)(x78)(st)+c_xml2primtrans'46xml2prim'46358_case_14 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_14(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_14 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_14")(x)++++c_xml2primtrans'46xml2prim'46358_case_13 x1 x4 x5 x79 x78 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x78)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_12(x1)(x4)(x5)(x79)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_12 x1 x4 x5 x79@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_11(x1)(x5)(x4)(st)+c_xml2primtrans'46xml2prim'46358_case_12 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_12(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_12 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_12")(x)++++c_xml2primtrans'46xml2prim'46358_case_11 x1 x5 x4@((Curry.Module.Prelude.:<) x80 x81) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_10(x1)(x5)(x80)(st)+c_xml2primtrans'46xml2prim'46358_case_11 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_11(x1)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_11 x1 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_11")(x)++++c_xml2primtrans'46xml2prim'46358_case_10 x1 x5 x80@(Curry.Module.Prelude.T2 x82 x83) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_9(x1)(x5)(x83)(x82)(st)+c_xml2primtrans'46xml2prim'46358_case_10 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_10(x1)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_10 x1 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_10")(x)++++c_xml2primtrans'46xml2prim'46358_case_9 x1 x5 x83 x82@((Curry.Module.Prelude.:<) x84 x85) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_8(x1)(x5)(x83)(x85)(x84)(st)+c_xml2primtrans'46xml2prim'46358_case_9 x1 x5 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_9(x1)(x5)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_9 x1 x5 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_9")(x)++++c_xml2primtrans'46xml2prim'46358_case_8 x1 x5 x83 x85 x84 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x84)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_7(x1)(x5)(x83)(x85)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_7 x1 x5 x83 x85@((Curry.Module.Prelude.:<) x86 x87) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_6(x1)(x5)(x83)(x87)(x86)(st)+c_xml2primtrans'46xml2prim'46358_case_7 x1 x5 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_7(x1)(x5)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_7 x1 x5 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_7")(x)++++c_xml2primtrans'46xml2prim'46358_case_6 x1 x5 x83 x87 x86 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x86)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_5(x1)(x5)(x83)(x87)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_5 x1 x5 x83 x87@((Curry.Module.Prelude.:<) x88 x89) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_4(x1)(x5)(x83)(x89)(x88)(st)+c_xml2primtrans'46xml2prim'46358_case_5 x1 x5 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_5(x1)(x5)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_5 x1 x5 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_5")(x)++++c_xml2primtrans'46xml2prim'46358_case_4 x1 x5 x83 x89 x88 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x88)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_3(x1)(x5)(x83)(x89)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_3 x1 x5 x83 x89@((Curry.Module.Prelude.:<) x90 x91) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_2(x1)(x5)(x83)(x91)(x90)(st)+c_xml2primtrans'46xml2prim'46358_case_3 x1 x5 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_3(x1)(x5)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_3 x1 x5 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_3")(x)++++c_xml2primtrans'46xml2prim'46358_case_2 x1 x5 x83 x91 x90 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x90)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_1(x1)(x5)(x83)(x91)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_1 x1 x5 x83 x91@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_0(x1)(x83)(x5)(st)+c_xml2primtrans'46xml2prim'46358_case_1 x1 x5 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_1(x1)(x5)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_1 x1 x5 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_1")(x)++++c_xml2primtrans'46xml2prim'46358_case_0 x1 x83 x5@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x1)(x83))(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))+c_xml2primtrans'46xml2prim'46358_case_0 x1 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_0(x1)(x83)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_0 x1 x83 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_0")(x)++++c_xml2primtrans'46xml2prim'46358_case_83 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_82(x1)(x4)(x5)(x9)(x8)(st)+c_xml2primtrans'46xml2prim'46358_case_83 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_83(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_83 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_83")(x)++++c_xml2primtrans'46xml2prim'46358_case_82 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_81(x1)(x4)(x5)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_81 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_80(x1)(x4)(x5)(x11)(x10)(st)+c_xml2primtrans'46xml2prim'46358_case_81 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_81(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_81 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_81")(x)++++c_xml2primtrans'46xml2prim'46358_case_80 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_79(x1)(x4)(x5)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_79 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_78(x1)(x4)(x5)(x13)(x12)(st)+c_xml2primtrans'46xml2prim'46358_case_79 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_79(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_79 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_79")(x)++++c_xml2primtrans'46xml2prim'46358_case_78 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_77(x1)(x4)(x5)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_77 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_76(x1)(x4)(x5)(x15)(x14)(st)+c_xml2primtrans'46xml2prim'46358_case_77 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_77(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_77 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_77")(x)++++c_xml2primtrans'46xml2prim'46358_case_76 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_75(x1)(x4)(x5)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_75 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_74(x1)(x4)(x5)(x17)(x16)(st)+c_xml2primtrans'46xml2prim'46358_case_75 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_75(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_75 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_75")(x)++++c_xml2primtrans'46xml2prim'46358_case_74 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_73(x1)(x4)(x5)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_73 x1 x4 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_72(x1)(x4)(x5)(x19)(x18)(st)+c_xml2primtrans'46xml2prim'46358_case_73 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_73(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_73 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_73")(x)++++c_xml2primtrans'46xml2prim'46358_case_72 x1 x4 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_71(x1)(x4)(x5)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_71 x1 x4 x5 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_70(x1)(x4)(x5)(x21)(x20)(st)+c_xml2primtrans'46xml2prim'46358_case_71 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_71(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_71 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_71")(x)++++c_xml2primtrans'46xml2prim'46358_case_70 x1 x4 x5 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_69(x1)(x4)(x5)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_69 x1 x4 x5 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_68(x1)(x4)(x5)(x23)(x22)(st)+c_xml2primtrans'46xml2prim'46358_case_69 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_69(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_69 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_69")(x)++++c_xml2primtrans'46xml2prim'46358_case_68 x1 x4 x5 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_67(x1)(x4)(x5)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_67 x1 x4 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_66(x1)(x5)(x4)(st)+c_xml2primtrans'46xml2prim'46358_case_67 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_67(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_67 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_67")(x)++++c_xml2primtrans'46xml2prim'46358_case_66 x1 x5 x4@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_65(x1)(x5)(x24)(st)+c_xml2primtrans'46xml2prim'46358_case_66 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_66(x1)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_66 x1 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_66")(x)++++c_xml2primtrans'46xml2prim'46358_case_65 x1 x5 x24@(Curry.Module.Prelude.T2 x26 x27) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_64(x1)(x5)(x27)(x26)(st)+c_xml2primtrans'46xml2prim'46358_case_65 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_65(x1)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_65 x1 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_65")(x)++++c_xml2primtrans'46xml2prim'46358_case_64 x1 x5 x27 x26@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_63(x1)(x5)(x27)(x29)(x28)(st)+c_xml2primtrans'46xml2prim'46358_case_64 x1 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_64(x1)(x5)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_64 x1 x5 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_64")(x)++++c_xml2primtrans'46xml2prim'46358_case_63 x1 x5 x27 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_62(x1)(x5)(x27)(x29)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_62 x1 x5 x27 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_61(x1)(x5)(x27)(x31)(x30)(st)+c_xml2primtrans'46xml2prim'46358_case_62 x1 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_62(x1)(x5)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_62 x1 x5 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_62")(x)++++c_xml2primtrans'46xml2prim'46358_case_61 x1 x5 x27 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_60(x1)(x5)(x27)(x31)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_60 x1 x5 x27 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_59(x1)(x5)(x27)(x33)(x32)(st)+c_xml2primtrans'46xml2prim'46358_case_60 x1 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_60(x1)(x5)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_60 x1 x5 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_60")(x)++++c_xml2primtrans'46xml2prim'46358_case_59 x1 x5 x27 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_58(x1)(x5)(x27)(x33)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_58 x1 x5 x27 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_57(x1)(x5)(x27)(x35)(x34)(st)+c_xml2primtrans'46xml2prim'46358_case_58 x1 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_58(x1)(x5)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_58 x1 x5 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_58")(x)++++c_xml2primtrans'46xml2prim'46358_case_57 x1 x5 x27 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_56(x1)(x5)(x27)(x35)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_56 x1 x5 x27 x35@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_55(x1)(x27)(x5)(st)+c_xml2primtrans'46xml2prim'46358_case_56 x1 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_56(x1)(x5)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_56 x1 x5 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_56")(x)++++c_xml2primtrans'46xml2prim'46358_case_55 x1 x27 x5@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_54(x1)(x27)(x37)(x36)(st)+c_xml2primtrans'46xml2prim'46358_case_55 x1 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_55(x1)(x27)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_55 x1 x27 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_55")(x)++++c_xml2primtrans'46xml2prim'46358_case_54 x1 x27 x37 x36@(Curry.Module.XML.C_XElem x38 x39 x40) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_53(x1)(x27)(x37)(x39)(x40)(x38)(st)+c_xml2primtrans'46xml2prim'46358_case_54 x1 x27 x37 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_54(x1)(x27)(x37)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_54 x1 x27 x37 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_54")(x)++++c_xml2primtrans'46xml2prim'46358_case_53 x1 x27 x37 x39 x40 x38@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_52(x1)(x27)(x37)(x39)(x40)(x42)(x41)(st)+c_xml2primtrans'46xml2prim'46358_case_53 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_53(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_53 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_53")(x)++++c_xml2primtrans'46xml2prim'46358_case_52 x1 x27 x37 x39 x40 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_51(x1)(x27)(x37)(x39)(x40)(x42)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_51 x1 x27 x37 x39 x40 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_50(x1)(x27)(x37)(x39)(x40)(x44)(x43)(st)+c_xml2primtrans'46xml2prim'46358_case_51 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_51(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_51 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_51")(x)++++c_xml2primtrans'46xml2prim'46358_case_50 x1 x27 x37 x39 x40 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_49(x1)(x27)(x37)(x39)(x40)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_49 x1 x27 x37 x39 x40 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_48(x1)(x27)(x37)(x39)(x40)(x46)(x45)(st)+c_xml2primtrans'46xml2prim'46358_case_49 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_49(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_49 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_49")(x)++++c_xml2primtrans'46xml2prim'46358_case_48 x1 x27 x37 x39 x40 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_47(x1)(x27)(x37)(x39)(x40)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_47 x1 x27 x37 x39 x40 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_46(x1)(x27)(x37)(x39)(x40)(x48)(x47)(st)+c_xml2primtrans'46xml2prim'46358_case_47 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_47(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_47 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_47")(x)++++c_xml2primtrans'46xml2prim'46358_case_46 x1 x27 x37 x39 x40 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_45(x1)(x27)(x37)(x39)(x40)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_45 x1 x27 x37 x39 x40 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_44(x1)(x27)(x37)(x39)(x40)(x50)(x49)(st)+c_xml2primtrans'46xml2prim'46358_case_45 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_45(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_45 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_45")(x)++++c_xml2primtrans'46xml2prim'46358_case_44 x1 x27 x37 x39 x40 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_43(x1)(x27)(x37)(x39)(x40)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_43 x1 x27 x37 x39 x40 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_42(x1)(x27)(x37)(x39)(x40)(x52)(x51)(st)+c_xml2primtrans'46xml2prim'46358_case_43 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_43(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_43 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_43")(x)++++c_xml2primtrans'46xml2prim'46358_case_42 x1 x27 x37 x39 x40 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_41(x1)(x27)(x37)(x39)(x40)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_41 x1 x27 x37 x39 x40 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_40(x1)(x27)(x37)(x39)(x40)(x54)(x53)(st)+c_xml2primtrans'46xml2prim'46358_case_41 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_41(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_41 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_41")(x)++++c_xml2primtrans'46xml2prim'46358_case_40 x1 x27 x37 x39 x40 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_39(x1)(x27)(x37)(x39)(x40)(x54)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_39 x1 x27 x37 x39 x40 x54@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_38(x1)(x27)(x37)(x40)(x39)(st)+c_xml2primtrans'46xml2prim'46358_case_39 x1 x27 x37 x39 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_39(x1)(x27)(x37)(x39)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_39 x1 x27 x37 x39 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_39")(x)++++c_xml2primtrans'46xml2prim'46358_case_38 x1 x27 x37 x40 x39@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_37(x1)(x27)(x40)(x37)(st)+c_xml2primtrans'46xml2prim'46358_case_38 x1 x27 x37 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_38(x1)(x27)(x37)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_38 x1 x27 x37 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_38")(x)++++c_xml2primtrans'46xml2prim'46358_case_37 x1 x27 x40 x37@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_36(x1)(x27)(x40)(x56)(x55)(st)+c_xml2primtrans'46xml2prim'46358_case_37 x1 x27 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_37(x1)(x27)(x40)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_37 x1 x27 x40 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_37")(x)++++c_xml2primtrans'46xml2prim'46358_case_36 x1 x27 x40 x56 x55@(Curry.Module.XML.C_XElem x57 x58 x59) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_35(x1)(x27)(x40)(x56)(x58)(x59)(x57)(st)+c_xml2primtrans'46xml2prim'46358_case_36 x1 x27 x40 x56 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_36(x1)(x27)(x40)(x56)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_36 x1 x27 x40 x56 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_36")(x)++++c_xml2primtrans'46xml2prim'46358_case_35 x1 x27 x40 x56 x58 x59 x57@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_34(x1)(x27)(x40)(x56)(x58)(x59)(x61)(x60)(st)+c_xml2primtrans'46xml2prim'46358_case_35 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_35(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_35 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_35")(x)++++c_xml2primtrans'46xml2prim'46358_case_34 x1 x27 x40 x56 x58 x59 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_33(x1)(x27)(x40)(x56)(x58)(x59)(x61)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_33 x1 x27 x40 x56 x58 x59 x61@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_32(x1)(x27)(x40)(x56)(x58)(x59)(x63)(x62)(st)+c_xml2primtrans'46xml2prim'46358_case_33 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_33(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_33 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_33")(x)++++c_xml2primtrans'46xml2prim'46358_case_32 x1 x27 x40 x56 x58 x59 x63 x62 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x62)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_31(x1)(x27)(x40)(x56)(x58)(x59)(x63)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_31 x1 x27 x40 x56 x58 x59 x63@((Curry.Module.Prelude.:<) x64 x65) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_30(x1)(x27)(x40)(x56)(x58)(x59)(x65)(x64)(st)+c_xml2primtrans'46xml2prim'46358_case_31 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_31(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_31 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_31")(x)++++c_xml2primtrans'46xml2prim'46358_case_30 x1 x27 x40 x56 x58 x59 x65 x64 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x64)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_29(x1)(x27)(x40)(x56)(x58)(x59)(x65)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_29 x1 x27 x40 x56 x58 x59 x65@((Curry.Module.Prelude.:<) x66 x67) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_28(x1)(x27)(x40)(x56)(x58)(x59)(x67)(x66)(st)+c_xml2primtrans'46xml2prim'46358_case_29 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_29(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_29 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_29")(x)++++c_xml2primtrans'46xml2prim'46358_case_28 x1 x27 x40 x56 x58 x59 x67 x66 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x66)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_27(x1)(x27)(x40)(x56)(x58)(x59)(x67)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_27 x1 x27 x40 x56 x58 x59 x67@((Curry.Module.Prelude.:<) x68 x69) st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_26(x1)(x27)(x40)(x56)(x58)(x59)(x69)(x68)(st)+c_xml2primtrans'46xml2prim'46358_case_27 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_27(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_27 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_27")(x)++++c_xml2primtrans'46xml2prim'46358_case_26 x1 x27 x40 x56 x58 x59 x69 x68 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x68)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_25(x1)(x27)(x40)(x56)(x58)(x59)(x69)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans'46xml2prim'46358_case_25 x1 x27 x40 x56 x58 x59 x69@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_24(x1)(x27)(x40)(x56)(x59)(x58)(st)+c_xml2primtrans'46xml2prim'46358_case_25 x1 x27 x40 x56 x58 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_25(x1)(x27)(x40)(x56)(x58)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_25 x1 x27 x40 x56 x58 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_25")(x)++++c_xml2primtrans'46xml2prim'46358_case_24 x1 x27 x40 x56 x59 x58@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_23(x1)(x27)(x40)(x59)(x56)(st)+c_xml2primtrans'46xml2prim'46358_case_24 x1 x27 x40 x56 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_24(x1)(x27)(x40)(x56)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_24 x1 x27 x40 x56 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_24")(x)++++c_xml2primtrans'46xml2prim'46358_case_23 x1 x27 x40 x59 x56@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x1)(x27))(Curry.Module.Prelude.T2(Curry.Module.XML.c_textOfXml(x40)(st))(Curry.Module.XML.c_textOfXml(x59)(st)))+c_xml2primtrans'46xml2prim'46358_case_23 x1 x27 x40 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358_case_23(x1)(x27)(x40)(x59)(x)(st))(i)(xs)(st)+c_xml2primtrans'46xml2prim'46358_case_23 x1 x27 x40 x59 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans.xml2prim.358_case_23")(x)++++c_xml2primtrans_case_107 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_106(x1)(x4)(x5)(x7)(x6)(st)+c_xml2primtrans_case_107 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_107(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_107 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_107")(x)++++c_xml2primtrans_case_106 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_105(x1)(x4)(x5)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_105 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_104(x1)(x4)(x5)(x9)(x8)(st)+c_xml2primtrans_case_105 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_105(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_105 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_105")(x)++++c_xml2primtrans_case_104 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_103(x1)(x4)(x5)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_103 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_102(x1)(x4)(x5)(x11)(x10)(st)+c_xml2primtrans_case_103 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_103(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_103 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_103")(x)++++c_xml2primtrans_case_102 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_101(x1)(x4)(x5)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_101 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_100(x1)(x4)(x5)(x13)(x12)(st)+c_xml2primtrans_case_101 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_101(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_101 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_101")(x)++++c_xml2primtrans_case_100 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_99(x1)(x4)(x5)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_99 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_98(x1)(x4)(x5)(x15)(x14)(st)+c_xml2primtrans_case_99 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_99(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_99 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_99")(x)++++c_xml2primtrans_case_98 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_97(x1)(x4)(x5)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_97 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_96(x1)(x4)(x5)(x17)(x16)(st)+c_xml2primtrans_case_97 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_97(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_97 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_97")(x)++++c_xml2primtrans_case_96 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_95(x1)(x4)(x5)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_95 x1 x4 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_94(x1)(x4)(x5)(x19)(x18)(st)+c_xml2primtrans_case_95 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_95(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_95 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_95")(x)++++c_xml2primtrans_case_94 x1 x4 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_93(x1)(x4)(x5)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_93 x1 x4 x5 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_92(x1)(x4)(x5)(x21)(x20)(st)+c_xml2primtrans_case_93 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_93(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_93 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_93")(x)++++c_xml2primtrans_case_92 x1 x4 x5 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_91(x1)(x4)(x5)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_91 x1 x4 x5 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_90(x1)(x4)(x5)(x23)(x22)(st)+c_xml2primtrans_case_91 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_91(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_91 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_91")(x)++++c_xml2primtrans_case_90 x1 x4 x5 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_89(x1)(x4)(x5)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_89 x1 x4 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_88(x1)(x4)(x5)(x25)(x24)(st)+c_xml2primtrans_case_89 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_89(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_89 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_89")(x)++++c_xml2primtrans_case_88 x1 x4 x5 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CompactFlatCurry.c_xml2primtrans_case_87(x1)(x4)(x5)(x25)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2primtrans_case_87 x1 x4 x5 x25@Curry.Module.Prelude.List st = Curry.Module.CompactFlatCurry.c_xml2primtrans_case_86(x1)(x5)(x4)(st)+c_xml2primtrans_case_87 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_87(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_87 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_87")(x)++++c_xml2primtrans_case_86 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_xml2primtrans'46xml2prim'46358(x1)))(x5)(st)+c_xml2primtrans_case_86 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_xml2primtrans_case_86(x1)(x5)(x)(st))(i)(xs)(st)+c_xml2primtrans_case_86 x1 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.xml2primtrans_case_86")(x)++++c_mergePrimSpecIntoFunc'46_'35selFP4'35entry_case_108 x2@(Curry.Module.Prelude.T2 x3 x4) st = x4+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry_case_108 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP4'35entry_case_108(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry_case_108 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc._#selFP4#entry_case_108")(x)++++c_mergePrimSpecIntoFunc'46_'35selFP3'35lib_case_109 x2@(Curry.Module.Prelude.T2 x3 x4) st = x3+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib_case_109 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP3'35lib_case_109(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib_case_109 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc._#selFP3#lib_case_109")(x)++++c_mergePrimSpecIntoFunc_case_111 x3 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.FlatCurry.C_Func(x3)(x4)(x5)(x6)(x7))(Curry.Module.Prelude.List)+c_mergePrimSpecIntoFunc_case_111 x3 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP4'35entry(x8)(st)} in Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc_case_110(x3)(x4)(x5)(x6)(x8)(x11)(Curry.Module.Prelude.c_null(x11)(st))(st)+c_mergePrimSpecIntoFunc_case_111 x3 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc_case_111(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc_case_111 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc_case_111")(x)++++c_mergePrimSpecIntoFunc_case_110 x3 x4 x5 x6 x8 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_mergePrimSpecIntoFunc_case_110 x3 x4 x5 x6 x8 x11 x12@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.FlatCurry.C_Func(x3)(x4)(x5)(x6)(Curry.Module.FlatCurry.C_External(Curry.Module.Prelude.op_43_43(Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP3'35lib(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(x11))(st))))(Curry.Module.Prelude.List)+c_mergePrimSpecIntoFunc_case_110 x3 x4 x5 x6 x8 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_mergePrimSpecIntoFunc_case_110(x3)(x4)(x5)(x6)(x8)(x11)(x)(st))(i)(xs)(st)+c_mergePrimSpecIntoFunc_case_110 x3 x4 x5 x6 x8 x11 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.mergePrimSpecIntoFunc_case_110")(x)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurry(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_processPrimitives(x2)))(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurryFile(Curry.Module.FlatCurry.c_flatCurryFileName(x2)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_processPrimitives(x2)))(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43_case_112 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43_case_112")(x)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurry(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_processPrimitives(x1)))(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_getSourceModificationTime(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42(x1)))(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113(x1)(x2)(x)(st))(i)(xs)(st)+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41_case_113 x1 x2 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.readCurrentFlatCurry._#lambda40._#lambda41_case_113")(x)++++c_leqQName_case_114 x3 x4 x2@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_cmpString(st))(x3)(st))(x5)(st)} in Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.C_LT)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.C_EQ)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_leqString(st))(x4)(st))(x6)(st))(st))(st)+c_leqQName_case_114 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_leqQName_case_114(x3)(x4)(x)(st))(i)(xs)(st)+c_leqQName_case_114 x3 x4 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.leqQName_case_114")(x)++++c_allConsOfExpr'46consOfBranch'46252_case_115 x3 x2@(Curry.Module.FlatCurry.C_LPattern x4) st = Curry.Module.CompactFlatCurry.c_allConsOfExpr(x3)(st)+c_allConsOfExpr'46consOfBranch'46252_case_115 x3 x2@(Curry.Module.FlatCurry.C_Pattern x5 x6) st = Curry.Module.List.c_union((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.CompactFlatCurry.c_allConsOfExpr(x3)(st))(st)+c_allConsOfExpr'46consOfBranch'46252_case_115 x3 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConsOfExpr'46consOfBranch'46252_case_115(x3)(x)(st))(i)(xs)(st)+c_allConsOfExpr'46consOfBranch'46252_case_115 x3 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConsOfExpr.consOfBranch.252_case_115")(x)++++c_allConsOfExpr_case_116 x5 x7 x4@Curry.Module.FlatCurry.C_ConsCall st = (Curry.Module.Prelude.:<)(x5)(x7)+c_allConsOfExpr_case_116 x5 x7 x4@(Curry.Module.FlatCurry.C_ConsPartCall x8) st = (Curry.Module.Prelude.:<)(x5)(x7)+c_allConsOfExpr_case_116 x5 x7 x4@Curry.Module.FlatCurry.C_FuncCall st = x7+c_allConsOfExpr_case_116 x5 x7 x4@(Curry.Module.FlatCurry.C_FuncPartCall x9) st = x7+c_allConsOfExpr_case_116 x5 x7 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConsOfExpr_case_116(x5)(x7)(x)(st))(i)(xs)(st)+c_allConsOfExpr_case_116 x5 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConsOfExpr_case_116")(x)++++c_allConstructorsOfFunc_case_117 x6@(Curry.Module.FlatCurry.C_External x7) st = Curry.Module.Prelude.List+c_allConstructorsOfFunc_case_117 x6@(Curry.Module.FlatCurry.C_Rule x8 x9) st = Curry.Module.CompactFlatCurry.c_allConsOfExpr(x9)(st)+c_allConstructorsOfFunc_case_117 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allConstructorsOfFunc_case_117(x)(st))(i)(xs)(st)+c_allConstructorsOfFunc_case_117 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allConstructorsOfFunc_case_117")(x)++++c_allFuncCallsOfExpr_case_118 x5 x7 x4@Curry.Module.FlatCurry.C_FuncCall st = (Curry.Module.Prelude.:<)(x5)(x7)+c_allFuncCallsOfExpr_case_118 x5 x7 x4@(Curry.Module.FlatCurry.C_FuncPartCall x8) st = (Curry.Module.Prelude.:<)(x5)(x7)+c_allFuncCallsOfExpr_case_118 x5 x7 x4@Curry.Module.FlatCurry.C_ConsCall st = x7+c_allFuncCallsOfExpr_case_118 x5 x7 x4@(Curry.Module.FlatCurry.C_ConsPartCall x9) st = x7+c_allFuncCallsOfExpr_case_118 x5 x7 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr_case_118(x5)(x7)(x)(st))(i)(xs)(st)+c_allFuncCallsOfExpr_case_118 x5 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allFuncCallsOfExpr_case_118")(x)++++c_allFuncCalls_case_119 x6@(Curry.Module.FlatCurry.C_External x7) st = Curry.Module.Prelude.List+c_allFuncCalls_case_119 x6@(Curry.Module.FlatCurry.C_Rule x8 x9) st = Curry.Module.List.c_nub(Curry.Module.CompactFlatCurry.c_allFuncCallsOfExpr(x9)(st))(st)+c_allFuncCalls_case_119 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_allFuncCalls_case_119(x)(st))(i)(xs)(st)+c_allFuncCalls_case_119 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.allFuncCalls_case_119")(x)++++c_getCalledFuncs_case_123 x1 x2 x3 x4 x5 x6 x7 x10 x9@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_122(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_elemRBT(x11)(st))(x2)(st))(st))(st)+c_getCalledFuncs_case_123 x1 x2 x3 x4 x5 x6 x7 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_123(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x)(st))(i)(xs)(st)+c_getCalledFuncs_case_123 x1 x2 x3 x4 x5 x6 x7 x10 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs_case_123")(x)++++c_getCalledFuncs_case_122 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry(x11)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getCalledFuncs'46_'35lambda34(x12)(x10)(x4)(x6)(x5)(x2)(x7)(x11)(x3)(x1)))(st)+c_getCalledFuncs_case_122 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_121(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_apply(Curry.Module.TableRBT.c_lookupRBT(Curry.Module.Prelude.T2(x11)(x12))(st))(x4)(st))(Curry.Module.Prelude.C_Nothing)(st))(st)+c_getCalledFuncs_case_122 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_122(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c_getCalledFuncs_case_122 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs_case_122")(x)++++c_getCalledFuncs_case_121 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CompactFlatCurry.c_getCalledFuncs(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(st)+c_getCalledFuncs_case_121 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_120(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(Curry.Module.Prelude.c_otherwise(st))(st)+c_getCalledFuncs_case_121 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_121(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c_getCalledFuncs_case_121 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs_case_121")(x)++++c_getCalledFuncs_case_120 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.Maybe.c_fromJust(Curry.Module.Prelude.c_apply(Curry.Module.TableRBT.c_lookupRBT(Curry.Module.Prelude.T2(x11)(x12))(st))(x4)(st))(st)} in let {x15 = Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getCalledFuncs'46_'35lambda35(x5)))(Curry.Module.CompactFlatCurry.c_allFuncCalls(x13)(st))(st)} in let {x16 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getImplicitlyRequired(x1)))(st))(x15)(st)} in let {x17 = Curry.Module.CompactFlatCurry.c_allConstructorsOfFunc(x13)(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_getCalledFuncs(x1)(x2)(x3)(x4)(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x5)(Curry.Module.Prelude.op_43_43(x15)(x16)(st))(st))(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x6)(x17)(st))(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x7)(Curry.Module.CompactFlatCurry.c_allTypesOfFunc(x13)(st))(st))(Curry.Module.Prelude.op_43_43(x10)(Curry.Module.Prelude.op_43_43(x15)(Curry.Module.Prelude.op_43_43(x16)(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getCalledFuncs'46_'35lambda36(x6)))(x17)(st))(st))(st))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_getCalledFuncs'46_'35lambda37(x13)))(st)+c_getCalledFuncs_case_120 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getCalledFuncs_case_120(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c_getCalledFuncs_case_120 x1 x2 x3 x4 x5 x6 x7 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getCalledFuncs_case_120")(x)++++c_requiredInCompactProg_case_128 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_mapIO(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry))(st))(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda28(x3)(x5)(x1)(x7)))(st)+c_requiredInCompactProg_case_128 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_127(x1)(x2)(x3)(x4)(x6)(x7)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(Curry.Module.CompactFlatCurry.C_Exports)(st))(x2)(st))(st)+c_requiredInCompactProg_case_128 x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_128(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c_requiredInCompactProg_case_128 x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg_case_128")(x)++++c_requiredInCompactProg_case_127 x1 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_mapIO(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry))(st))(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda29(x3)(x6)(x1)(x7)))(st)+c_requiredInCompactProg_case_127 x1 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_126(x1)(x2)(x3)(x4)(x6)(x7)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_isMainOption))(st))(x2)(st))(st)+c_requiredInCompactProg_case_127 x1 x2 x3 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_127(x1)(x2)(x3)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c_requiredInCompactProg_case_127 x1 x2 x3 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg_case_127")(x)++++c_requiredInCompactProg_case_126 x1 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x2)(st)} in Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_125(x1)(x3)(x4)(x7)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(Curry.Module.Prelude.T2(x4)(x8))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_functionName))(Curry.Module.CompactFlatCurry.c_moduleFuns(x1)(st))(st))(st))(st)+c_requiredInCompactProg_case_126 x1 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_124(x1)(x3)(x6)(x7)(Curry.Module.Prelude.c_otherwise(st))(st)+c_requiredInCompactProg_case_126 x1 x2 x3 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_126(x1)(x2)(x3)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c_requiredInCompactProg_case_126 x1 x2 x3 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg_case_126")(x)++++c_requiredInCompactProg_case_124 x1 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_mapIO(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry))(st))(Curry.Module.List.c_nub(Curry.Module.Prelude.op_43_43(x3)(Curry.Module.CompactFlatCurry.c_moduleImports(x1)(st))(st))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda31(x6)(x1)(x7)))(st)+c_requiredInCompactProg_case_124 x1 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_124(x1)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c_requiredInCompactProg_case_124 x1 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg_case_124")(x)++++c_requiredInCompactProg_case_125 x1 x3 x4 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_mapIO(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry))(st))(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_requiredInCompactProg'46_'35lambda30(x8)(x3)(x1)(x4)(x7)))(st)+c_requiredInCompactProg_case_125 x1 x3 x4 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))(st))(st))(st)+c_requiredInCompactProg_case_125 x1 x3 x4 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredInCompactProg_case_125(x1)(x3)(x4)(x7)(x8)(x)(st))(i)(xs)(st)+c_requiredInCompactProg_case_125 x1 x3 x4 x7 x8 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredInCompactProg_case_125")(x)++++c_extendTConsWithConsType_case_130 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.CompactFlatCurry.c_extendTConsWithConsType(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_insertRBT(st))(x6)(st))(x2)(st))(x5)(st)+c_extendTConsWithConsType_case_130 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_Type x10 x11 x12 x13) st = Curry.Module.CompactFlatCurry.c_extendTConsWithConsType_case_129(x1)(x2)(x5)(x10)(x13)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x10)(st))(Curry.Module.CompactFlatCurry.c_defaultRequiredTypes(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_extendTConsWithConsType'46_'35lambda18(x1)))(st))(x13)(st))(st))(st)+c_extendTConsWithConsType_case_130 x1 x2 x5 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_extendTConsWithConsType_case_130(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_extendTConsWithConsType_case_130 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.extendTConsWithConsType_case_130")(x)++++c_extendTConsWithConsType_case_129 x1 x2 x5 x10 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.CompactFlatCurry.c_extendTConsWithConsType(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SetRBT.c_insertRBT(st))(x10)(st))(x2)(st))(x5)(st)+c_extendTConsWithConsType_case_129 x1 x2 x5 x10 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_extendTConsWithConsType(x1)(x2)(x5)(st)+c_extendTConsWithConsType_case_129 x1 x2 x5 x10 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_extendTConsWithConsType_case_129(x1)(x2)(x5)(x10)(x13)(x)(st))(i)(xs)(st)+c_extendTConsWithConsType_case_129 x1 x2 x5 x10 x13 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.extendTConsWithConsType_case_129")(x)++++c_newTypeConsOfTDecl_case_131 x1 x7 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda16(x1)))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda17))(st))(x10)(st))(st)+c_newTypeConsOfTDecl_case_131 x1 x7 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_newTypeConsOfTDecl_case_131 x1 x7 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl_case_131(x1)(x7)(x10)(x)(st))(i)(xs)(st)+c_newTypeConsOfTDecl_case_131 x1 x7 x10 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.newTypeConsOfTDecl_case_131")(x)++++c_newTypeConsOfTDecl_case_132 x1 x3 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_filter(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda15(x1)))(Curry.Module.CompactFlatCurry.c_allTypesOfTExpr(x6)(st))(st)+c_newTypeConsOfTDecl_case_132 x1 x3 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_newTypeConsOfTDecl_case_132 x1 x3 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_newTypeConsOfTDecl_case_132(x1)(x3)(x6)(x)(st))(i)(xs)(st)+c_newTypeConsOfTDecl_case_132 x1 x3 x6 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.newTypeConsOfTDecl_case_132")(x)++++c_requiredDatatypes_case_133 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = x1+c_requiredDatatypes_case_133 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CompactFlatCurry.c_requiredDatatypes(Curry.Module.Prelude.c_foldr(Curry.Module.SetRBT.c_insertRBT(st))(x1)(x3)(st))(x2)(st)+c_requiredDatatypes_case_133 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_requiredDatatypes_case_133(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_requiredDatatypes_case_133 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.requiredDatatypes_case_133")(x)++++c_computeCompactFlatCurry_case_134 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(st)+c_computeCompactFlatCurry_case_134 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.CompactFlatCurry.c_readCurrentFlatCurry(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.CompactFlatCurry.c_computeCompactFlatCurry'46_'35lambda9(x3)))(st))(st)+c_computeCompactFlatCurry_case_134 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_computeCompactFlatCurry_case_134(x2)(x3)(x)(st))(i)(xs)(st)+c_computeCompactFlatCurry_case_134 x2 x3 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.computeCompactFlatCurry_case_134")(x)++++c_getImplicitlyRequired'46getImpReq'4646_case_135 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)+c_getImplicitlyRequired'46getImpReq'4646_case_135 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_getImplicitlyRequired'46getImpReq'4646_case_135 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getImplicitlyRequired'46getImpReq'4646_case_135(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_getImplicitlyRequired'46getImpReq'4646_case_135 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getImplicitlyRequired.getImpReq.46_case_135")(x)++++c_getRequiredInModule'46getImpReq'4638_case_137 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638_case_136(x1)(x4)(x5)(Curry.Module.Prelude.op_61_61(x4)(x1)(st))(st)+c_getRequiredInModule'46getImpReq'4638_case_137 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638_case_137(x1)(x)(st))(i)(xs)(st)+c_getRequiredInModule'46getImpReq'4638_case_137 x1 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getRequiredInModule.getImpReq.38_case_137")(x)++++c_getRequiredInModule'46getImpReq'4638_case_136 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x4)(x5))(Curry.Module.Prelude.List)+c_getRequiredInModule'46getImpReq'4638_case_136 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_getRequiredInModule'46getImpReq'4638_case_136 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getRequiredInModule'46getImpReq'4638_case_136(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_getRequiredInModule'46getImpReq'4638_case_136 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getRequiredInModule.getImpReq.38_case_136")(x)++++c_addImport2Options'46alwaysReqMod'4621_case_138 x2@(Curry.Module.Prelude.T2 x3 x4) st = (Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)+c_addImport2Options'46alwaysReqMod'4621_case_138 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_addImport2Options'46alwaysReqMod'4621_case_138(x)(st))(i)(xs)(st)+c_addImport2Options'46alwaysReqMod'4621_case_138 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.addImport2Options.alwaysReqMod.21_case_138")(x)++++c_getMainFuncFromOptions_case_139 x3 x2@(Curry.Module.CompactFlatCurry.C_Main x4) st = x4+c_getMainFuncFromOptions_case_139 x3 x2@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x3)(st)+c_getMainFuncFromOptions_case_139 x3 x2@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x3)(st)+c_getMainFuncFromOptions_case_139 x3 x2@(Curry.Module.CompactFlatCurry.C_InitFuncs x5) st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x3)(st)+c_getMainFuncFromOptions_case_139 x3 x2@(Curry.Module.CompactFlatCurry.C_Required x6) st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x3)(st)+c_getMainFuncFromOptions_case_139 x3 x2@(Curry.Module.CompactFlatCurry.C_Import x7) st = Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions(x3)(st)+c_getMainFuncFromOptions_case_139 x3 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CompactFlatCurry.c_getMainFuncFromOptions_case_139(x3)(x)(st))(i)(xs)(st)+c_getMainFuncFromOptions_case_139 x3 x st = Curry.RunTimeSystem.patternFail("CompactFlatCurry.getMainFuncFromOptions_case_139")(x)++
+ dist/build/Curry/Module/CurryStringClassifier.hs view
@@ -0,0 +1,978 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.CurryStringClassifier (module Curry.Module.CurryStringClassifier) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.Prelude++++-- begin included++++-- end included++type C_Tokens = Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token++data C_Token = C_SmallComment (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_BigComment (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_Text (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_Letter (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_Code (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_ModuleHead (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_Meta (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_TokenFail Curry.RunTimeSystem.C_Exceptions+  | C_TokenOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurryStringClassifier.C_Token)++instance BaseCurry Curry.Module.CurryStringClassifier.C_Token where+  nf f (Curry.Module.CurryStringClassifier.C_SmallComment x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_SmallComment(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_BigComment x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_BigComment(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_Text x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Text(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_Letter x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Letter(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_Code x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Code(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_ModuleHead x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_ModuleHead(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurryStringClassifier.C_Meta x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Meta(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurryStringClassifier.C_SmallComment x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_SmallComment(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_BigComment x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_BigComment(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_Text x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Text(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_Letter x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Letter(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_Code x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Code(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_ModuleHead x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_ModuleHead(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurryStringClassifier.C_Meta x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurryStringClassifier.C_Meta(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurryStringClassifier.C_TokenOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.CurryStringClassifier.C_SmallComment(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_BigComment(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_Text(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_Letter(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_Code(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_ModuleHead(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurryStringClassifier.C_Meta(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.CurryStringClassifier.C_TokenFail++  branching  = Curry.Module.CurryStringClassifier.C_TokenOr++  consKind (Curry.Module.CurryStringClassifier.C_TokenOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurryStringClassifier.C_TokenFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurryStringClassifier.C_TokenFail x) = x++  orRef (Curry.Module.CurryStringClassifier.C_TokenOr x _) = x++  branches (Curry.Module.CurryStringClassifier.C_TokenOr _ x) = x++++++instance Curry Curry.Module.CurryStringClassifier.C_Token where+  strEq (Curry.Module.CurryStringClassifier.C_SmallComment x1) (Curry.Module.CurryStringClassifier.C_SmallComment y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_BigComment x1) (Curry.Module.CurryStringClassifier.C_BigComment y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_Text x1) (Curry.Module.CurryStringClassifier.C_Text y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_Letter x1) (Curry.Module.CurryStringClassifier.C_Letter y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_Code x1) (Curry.Module.CurryStringClassifier.C_Code y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_ModuleHead x1) (Curry.Module.CurryStringClassifier.C_ModuleHead y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurryStringClassifier.C_Meta x1) (Curry.Module.CurryStringClassifier.C_Meta y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurryStringClassifier.C_SmallComment x1) (Curry.Module.CurryStringClassifier.C_SmallComment y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_BigComment x1) (Curry.Module.CurryStringClassifier.C_BigComment y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_Text x1) (Curry.Module.CurryStringClassifier.C_Text y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_Letter x1) (Curry.Module.CurryStringClassifier.C_Letter y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_Code x1) (Curry.Module.CurryStringClassifier.C_Code y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_ModuleHead x1) (Curry.Module.CurryStringClassifier.C_ModuleHead y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurryStringClassifier.C_Meta x1) (Curry.Module.CurryStringClassifier.C_Meta y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurryStringClassifier.C_SmallComment x1) st = Curry.Module.CurryStringClassifier.C_SmallComment(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_BigComment x1) st = Curry.Module.CurryStringClassifier.C_BigComment(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_Text x1) st = Curry.Module.CurryStringClassifier.C_Text(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_Letter x1) st = Curry.Module.CurryStringClassifier.C_Letter(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_Code x1) st = Curry.Module.CurryStringClassifier.C_Code(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_ModuleHead x1) st = Curry.Module.CurryStringClassifier.C_ModuleHead(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurryStringClassifier.C_Meta x1) st = Curry.Module.CurryStringClassifier.C_Meta(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.CurryStringClassifier.C_SmallComment x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_BigComment x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_Text x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_Letter x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_Code x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_ModuleHead x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurryStringClassifier.C_Meta x1) st = f(x1)(c)(st)++  typeName _ = "Token"++  showQ d (Curry.Module.CurryStringClassifier.C_SmallComment x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.SmallComment "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_BigComment x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.BigComment "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_Text x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.Text "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_Letter x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.Letter "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_Code x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.Code "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_ModuleHead x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.ModuleHead "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurryStringClassifier.C_Meta x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurryStringClassifier.Meta "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CurryStringClassifier.C_TokenOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurryStringClassifier.C_Token where+  showsPrec d (Curry.Module.CurryStringClassifier.C_SmallComment x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SmallComment "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_BigComment x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("BigComment "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_Text x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Text "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_Letter x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Letter "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_Code x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Code "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_ModuleHead x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ModuleHead "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurryStringClassifier.C_Meta x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Meta "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CurryStringClassifier.C_TokenOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.CurryStringClassifier.C_Token where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_SmallComment(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("SmallComment")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_BigComment(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("BigComment")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_Text(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("Text")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_Letter(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("Letter")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_Code(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("Code")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_ModuleHead(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("ModuleHead")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurryStringClassifier.C_Meta(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurryStringClassifier")("Meta")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))))))++++++c_isSmallComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_SmallComment x2) st = Curry.Module.Prelude.C_True+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_BigComment x3) st = Curry.Module.Prelude.C_False+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_Text x4) st = Curry.Module.Prelude.C_False+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_Letter x5) st = Curry.Module.Prelude.C_False+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_Code x6) st = Curry.Module.Prelude.C_False+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x7) st = Curry.Module.Prelude.C_False+c_isSmallComment x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isSmallComment (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isSmallComment(x)(st))(i)(xs)(st)+c_isSmallComment x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isSmallComment")(x)++++c_isBigComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_BigComment x2) st = Curry.Module.Prelude.C_True+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_Text x4) st = Curry.Module.Prelude.C_False+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_Letter x5) st = Curry.Module.Prelude.C_False+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_Code x6) st = Curry.Module.Prelude.C_False+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x7) st = Curry.Module.Prelude.C_False+c_isBigComment x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isBigComment (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isBigComment(x)(st))(i)(xs)(st)+c_isBigComment x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isBigComment")(x)++++c_isComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isComment x1 st = Curry.Module.Prelude.op_124_124(Curry.Module.CurryStringClassifier.c_isSmallComment(x1)(st))(Curry.Module.CurryStringClassifier.c_isBigComment(x1)(st))(st)++++c_isText :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isText x1@(Curry.Module.CurryStringClassifier.C_Text x2) st = Curry.Module.Prelude.C_True+c_isText x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isText x1@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.Prelude.C_False+c_isText x1@(Curry.Module.CurryStringClassifier.C_Letter x5) st = Curry.Module.Prelude.C_False+c_isText x1@(Curry.Module.CurryStringClassifier.C_Code x6) st = Curry.Module.Prelude.C_False+c_isText x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x7) st = Curry.Module.Prelude.C_False+c_isText x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isText (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isText(x)(st))(i)(xs)(st)+c_isText x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isText")(x)++++c_isLetter :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_Letter x2) st = Curry.Module.Prelude.C_True+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.Prelude.C_False+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.Prelude.C_False+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_Code x6) st = Curry.Module.Prelude.C_False+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x7) st = Curry.Module.Prelude.C_False+c_isLetter x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isLetter (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isLetter(x)(st))(i)(xs)(st)+c_isLetter x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isLetter")(x)++++c_isCode :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCode x1@(Curry.Module.CurryStringClassifier.C_Code x2) st = Curry.Module.Prelude.C_True+c_isCode x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isCode x1@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.Prelude.C_False+c_isCode x1@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.Prelude.C_False+c_isCode x1@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.Prelude.C_False+c_isCode x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x7) st = Curry.Module.Prelude.C_False+c_isCode x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isCode (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isCode(x)(st))(i)(xs)(st)+c_isCode x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isCode")(x)++++c_isModuleHead :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x2) st = Curry.Module.Prelude.C_True+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.Prelude.C_False+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.Prelude.C_False+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.Prelude.C_False+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.Prelude.C_False+c_isModuleHead x1@(Curry.Module.CurryStringClassifier.C_Meta x8) st = Curry.Module.Prelude.C_False+c_isModuleHead (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isModuleHead(x)(st))(i)(xs)(st)+c_isModuleHead x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isModuleHead")(x)++++c_isMeta :: Curry.Module.CurryStringClassifier.C_Token -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_Meta x2) st = Curry.Module.Prelude.C_True+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.Prelude.C_False+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.Prelude.C_False+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.Prelude.C_False+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.Prelude.C_False+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.Prelude.C_False+c_isMeta x1@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.Prelude.C_False+c_isMeta (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_isMeta(x)(st))(i)(xs)(st)+c_isMeta x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.isMeta")(x)++++c_weaveIntoCode :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode x1 x2 st = let {x3 = Curry.Module.CurryStringClassifier.c_unweaveCode(x2)(st)} in Curry.Module.CurryStringClassifier.c_weave(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_apply(x1)(Curry.Module.CurryStringClassifier.c_weaveIntoCode'46_'35selFP3'35cs(x3)(st))(st))(Curry.Module.CurryStringClassifier.c_weaveIntoCode'46_'35selFP4'35ncs(x3)(st)))(st)++++c_weaveIntoCode'46_'35selFP3'35cs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode'46_'35selFP3'35cs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_weaveIntoCode'46_'35selFP3'35cs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weaveIntoCode'46_'35selFP3'35cs(x)(st))(i)(xs)(st)+c_weaveIntoCode'46_'35selFP3'35cs x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weaveIntoCode._#selFP3#cs")(x)++++c_weaveIntoCode'46_'35selFP4'35ncs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode'46_'35selFP4'35ncs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_weaveIntoCode'46_'35selFP4'35ncs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weaveIntoCode'46_'35selFP4'35ncs(x)(st))(i)(xs)(st)+c_weaveIntoCode'46_'35selFP4'35ncs x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weaveIntoCode._#selFP4#ncs")(x)++++c_unweaveCode :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)+c_unweaveCode x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_unweaveCode x1@((Curry.Module.Prelude.:<) x2 x3) st = let {x4 = Curry.Module.CurryStringClassifier.c_unweaveCode(x3)(st)} in let {x5 = Curry.Module.CurryStringClassifier.c_unweaveCode'46_'35selFP6'35cs(x4)(st)} in let {x6 = Curry.Module.CurryStringClassifier.c_unweaveCode'46_'35selFP7'35ncs(x4)(st)} in Curry.Module.CurryStringClassifier.c_unweaveCode_case_66(x2)(x5)(x6)(Curry.Module.CurryStringClassifier.c_isCode(x2)(st))(st)+c_unweaveCode (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unweaveCode(x)(st))(i)(xs)(st)+c_unweaveCode x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unweaveCode")(x)++++c_unweaveCode'46_'35selFP6'35cs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_unweaveCode'46_'35selFP6'35cs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_unweaveCode'46_'35selFP6'35cs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unweaveCode'46_'35selFP6'35cs(x)(st))(i)(xs)(st)+c_unweaveCode'46_'35selFP6'35cs x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unweaveCode._#selFP6#cs")(x)++++c_unweaveCode'46_'35selFP7'35ncs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_unweaveCode'46_'35selFP7'35ncs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_unweaveCode'46_'35selFP7'35ncs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unweaveCode'46_'35selFP7'35ncs(x)(st))(i)(xs)(st)+c_unweaveCode'46_'35selFP7'35ncs x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unweaveCode._#selFP7#ncs")(x)++++c_weave :: (Curry t0) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_weave x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.CurryStringClassifier.c_weave_case_65(x3)(x2)(st)+c_weave (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave(x)(st))(i)(xs)(st)+c_weave x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave")(x)++++c_scan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_scan x1 st = Curry.RunTimeSystem.freeF(\ x2 -> Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.CurryStringClassifier.c_stateScan(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.CurryStringClassifier.C_Code(x2))(x2)(x1)(st))(st))++++c_stateScan :: Curry.Module.Prelude.C_Int -> Curry.Module.CurryStringClassifier.C_Token -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_stateScan x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_cond(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st)+c_stateScan x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CurryStringClassifier.c_stateScan_case_59(x1)(x3)(x5)(x6)(x2)(st)+c_stateScan x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_stateScan x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan")(x)++++c_stateScan'46_'35selFP9'35comment :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_stateScan'46_'35selFP9'35comment x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_stateScan'46_'35selFP9'35comment (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan'46_'35selFP9'35comment(x)(st))(i)(xs)(st)+c_stateScan'46_'35selFP9'35comment x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan._#selFP9#comment")(x)++++c_stateScan'46_'35selFP10'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_stateScan'46_'35selFP10'35rest x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_stateScan'46_'35selFP10'35rest (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan'46_'35selFP10'35rest(x)(st))(i)(xs)(st)+c_stateScan'46_'35selFP10'35rest x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan._#selFP10#rest")(x)++++c_modHead :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_modHead x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CurryStringClassifier.c_modHead_case_21(x1)(x4)(x3)(st)+c_modHead x1 x2@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))(Curry.Module.Prelude.List)(st)+c_modHead x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead(x1)(x)(st))(i)(xs)(st)+c_modHead x1 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead")(x)++++c_modHead'46_'35lambda11 :: Curry.Module.Prelude.C_Char -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_modHead'46_'35lambda11 x1 st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Char('\n'))(st))(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Char('\r'))(st))(st)++++c_modHeadInLine :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_modHeadInLine x1 x2@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))(Curry.Module.Prelude.List)(st)+c_modHeadInLine x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CurryStringClassifier.c_modHeadInLine_case_14(x1)(x4)(x3)(st)+c_modHeadInLine x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHeadInLine(x1)(x)(st))(i)(xs)(st)+c_modHeadInLine x1 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHeadInLine")(x)++++c_modHeadInLine'46_'35lambda13 :: Curry.Module.Prelude.C_Char -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_modHeadInLine'46_'35lambda13 x1 st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Char('\n'))(st))(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Char('\r'))(st))(st)++++c_headers :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_headers st = (Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List))))))++++c_lineBeginsWith :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_lineBeginsWith x1 x2 st = Curry.Module.CurryStringClassifier.c_lineBeginsWith_case_11(x1)(x2)(Curry.Module.Prelude.op_60(Curry.Module.Prelude.c_length(x1)(st))(Curry.Module.Prelude.c_length(x2)(st))(st))(st)++++c_lineBeginsWith'46_'35selFP12'35s'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lineBeginsWith'46_'35selFP12'35s'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_lineBeginsWith'46_'35selFP12'35s'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_lineBeginsWith'46_'35selFP12'35s'39(x)(st))(i)(xs)(st)+c_lineBeginsWith'46_'35selFP12'35s'39 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.lineBeginsWith._#selFP12#s'")(x)++++c_lineBeginsWith'46_'35selFP13'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lineBeginsWith'46_'35selFP13'35rest x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_lineBeginsWith'46_'35selFP13'35rest (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_lineBeginsWith'46_'35selFP13'35rest(x)(st))(i)(xs)(st)+c_lineBeginsWith'46_'35selFP13'35rest x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.lineBeginsWith._#selFP13#rest")(x)++++c_isSep :: Curry.Module.Prelude.C_Char -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSep x1 st = Curry.Module.Prelude.op_124_124(Curry.Module.Char.c_isSpace(x1)(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x1)(st))(Curry.Module.CurryStringClassifier.c_infixIDs(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))(Curry.Module.Prelude.List))))(st))(st))(st)++++c_infixIDs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))))))))))))))))))))++++c_delimiters :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_delimiters st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))))))++++c_toBeEscaped :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_toBeEscaped st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))++++c_maybeCode :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_maybeCode x1 x2 st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x1))(x2)++++c_maybeMo :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_maybeMo x1 x2 st = Curry.Module.CurryStringClassifier.c_maybeMo_case_9(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.List)(st))(st)++++c_plainCode :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_plainCode x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.CurryStringClassifier.c_plainCode_case_6(x3)(x2)(st)+c_plainCode x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_plainCode (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_plainCode(x)(st))(i)(xs)(st)+c_plainCode x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.plainCode")(x)++++c_unscan :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unscan x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.CurryStringClassifier.c_unscan_case_3(x3)(x2)(st)+c_unscan x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_unscan (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unscan(x)(st))(i)(xs)(st)+c_unscan x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unscan")(x)++++c_readScan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)+c_readScan x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_scan))(st))(st)++++c_testScan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_testScan x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_testScan'46_'35lambda18))(st)++++c_testScan'46_'35lambda18 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_testScan'46_'35lambda18 x1 st = Curry.Module.Prelude.c_print(Curry.Module.Prelude.op_61_61(Curry.Module.CurryStringClassifier.c_unscan(Curry.Module.CurryStringClassifier.c_scan(x1)(st))(st))(x1)(st))(st)++++c_testWeave :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_testWeave x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_testWeave'46_'35lambda19))(st)++++c_testWeave'46_'35lambda19 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_testWeave'46_'35lambda19 x1 st = Curry.Module.Prelude.c_print(Curry.Module.Prelude.op_61_61(Curry.Module.CurryStringClassifier.c_unscan(Curry.Module.CurryStringClassifier.c_weave(Curry.Module.CurryStringClassifier.c_unweaveCode(Curry.Module.CurryStringClassifier.c_scan(x1)(st))(st))(st))(st))(x1)(st))(st)++++c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x4) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_unscan_case_2(x3)(st))(st)+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_Code x16) st = Curry.Module.Prelude.op_43_43(x16)(Curry.Module.CurryStringClassifier.c_unscan(x3)(st))(st)+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_Text x17) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.op_43_43(x17)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.CurryStringClassifier.c_unscan(x3)(st)))(st))+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_Letter x18) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.op_43_43(x18)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.CurryStringClassifier.c_unscan(x3)(st)))(st))+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_BigComment x19) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x19)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_unscan(x3)(st))(st))(st))(st)+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x20) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x20)(Curry.Module.CurryStringClassifier.c_unscan(x3)(st))(st))(st)+c_unscan_case_3 x3 x2@(Curry.Module.CurryStringClassifier.C_Meta x21) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x21)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_unscan(x3)(st))(st))(st))(st)+c_unscan_case_3 x3 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unscan_case_3(x3)(x)(st))(i)(xs)(st)+c_unscan_case_3 x3 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unscan_case_3")(x)++++c_unscan_case_2 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CurryStringClassifier.c_unscan_case_1(x3)(x6)(x5)(st)+c_unscan_case_2 x3@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unscan_case_2(x)(st))(i)(xs)(st)+c_unscan_case_2 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unscan_case_2")(x)++++c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CurryStringClassifier.c_unscan_case_0(x3)(x6)(x7)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_SmallComment x10) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_BigComment x11) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_Text x12) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_Letter x13) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_ModuleHead x14) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 x5@(Curry.Module.CurryStringClassifier.C_Meta x15) st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_1 x3 x6 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unscan_case_1(x3)(x6)(x)(st))(i)(xs)(st)+c_unscan_case_1 x3 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unscan_case_1")(x)++++c_unscan_case_0 x3 x6 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CurryStringClassifier.c_unscan((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x9))(x6))(st)+c_unscan_case_0 x3 x6 x7@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_unscan(x3)(st)+c_unscan_case_0 x3 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unscan_case_0(x3)(x6)(x)(st))(i)(xs)(st)+c_unscan_case_0 x3 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unscan_case_0")(x)++++c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x4) st = Curry.Module.CurryStringClassifier.c_plainCode_case_5(x4)(x3)(st)+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_Code x14) st = Curry.Module.Prelude.op_43_43(x14)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_Text x15) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.op_43_43(x15)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st)))(st))+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_Letter x16) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.op_43_43(x16)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st)))(st))+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_BigComment x17) st = Curry.Module.CurryStringClassifier.c_plainCode(x3)(st)+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x18) st = Curry.Module.CurryStringClassifier.c_plainCode(x3)(st)+c_plainCode_case_6 x3 x2@(Curry.Module.CurryStringClassifier.C_Meta x19) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x19)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st))(st))(st)+c_plainCode_case_6 x3 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_plainCode_case_6(x3)(x)(st))(i)(xs)(st)+c_plainCode_case_6 x3 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.plainCode_case_6")(x)++++c_plainCode_case_5 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CurryStringClassifier.c_plainCode_case_4(x3)(x4)(x6)(x5)(st)+c_plainCode_case_5 x4 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_5 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_plainCode_case_5(x4)(x)(st))(i)(xs)(st)+c_plainCode_case_5 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.plainCode_case_5")(x)++++c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x7)(st))(Curry.Module.CurryStringClassifier.c_plainCode(x6)(st))(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_SmallComment x8) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_BigComment x9) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_Text x10) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_Letter x11) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_ModuleHead x12) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 x5@(Curry.Module.CurryStringClassifier.C_Meta x13) st = Curry.Module.Prelude.op_43_43(x4)(Curry.Module.CurryStringClassifier.c_plainCode(x3)(st))(st)+c_plainCode_case_4 x3 x4 x6 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_plainCode_case_4(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_plainCode_case_4 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.plainCode_case_4")(x)++++c_maybeMo_case_9 x1 x2 x3@Curry.Module.Prelude.C_True st = x2+c_maybeMo_case_9 x1 x2 x3@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_ModuleHead(x1))(Curry.Module.CurryStringClassifier.c_maybeMo_case_8(x2)(st))+c_maybeMo_case_9 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_maybeMo_case_9(x1)(x2)(x)(st))(i)(xs)(st)+c_maybeMo_case_9 x1 x2 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.maybeMo_case_9")(x)++++c_maybeMo_case_8 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CurryStringClassifier.c_maybeMo_case_7(x2)(x4)(x3)(st)+c_maybeMo_case_8 x2@Curry.Module.Prelude.List st = x2+c_maybeMo_case_8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_maybeMo_case_8(x)(st))(i)(xs)(st)+c_maybeMo_case_8 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.maybeMo_case_8")(x)++++c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_Code x5) st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(x5)))(x4)+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_SmallComment x6) st = x2+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_BigComment x7) st = x2+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_Text x8) st = x2+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_Letter x9) st = x2+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_ModuleHead x10) st = x2+c_maybeMo_case_7 x2 x4 x3@(Curry.Module.CurryStringClassifier.C_Meta x11) st = x2+c_maybeMo_case_7 x2 x4 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_maybeMo_case_7(x2)(x4)(x)(st))(i)(xs)(st)+c_maybeMo_case_7 x2 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.maybeMo_case_7")(x)++++c_lineBeginsWith_case_11 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_False+c_lineBeginsWith_case_11 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_lineBeginsWith_case_10(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_lineBeginsWith_case_11 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_lineBeginsWith_case_11(x1)(x2)(x)(st))(i)(xs)(st)+c_lineBeginsWith_case_11 x1 x2 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.lineBeginsWith_case_11")(x)++++c_lineBeginsWith_case_10 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x1)(x2)(st))(let {x4 = Curry.Module.Prelude.c_splitAt(Curry.Module.Prelude.c_length(x2)(st))(x1)(st)} in let {x6 = Curry.Module.CurryStringClassifier.c_lineBeginsWith'46_'35selFP13'35rest(x4)(st)} in Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.CurryStringClassifier.c_lineBeginsWith'46_'35selFP12'35s'39(x4)(st))(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_null(x6)(st))(Curry.Module.CurryStringClassifier.c_isSep(Curry.Module.Prelude.c_head(x6)(st))(st))(st))(st))(st)+c_lineBeginsWith_case_10 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_lineBeginsWith_case_10(x1)(x2)(x)(st))(i)(xs)(st)+c_lineBeginsWith_case_10 x1 x2 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.lineBeginsWith_case_10")(x)++++c_modHeadInLine_case_14 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Code x5) st = Curry.Module.CurryStringClassifier.c_modHeadInLine_case_13(x1)(x4)(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_modHeadInLine'46_'35lambda13))(st))(x5)(st))(st)+c_modHeadInLine_case_14 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_BigComment x10) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x10))(Curry.Module.CurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x4)(st)))(st)+c_modHeadInLine_case_14 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_SmallComment x11) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(x11))(Curry.Module.CurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x4)(st)))(st)+c_modHeadInLine_case_14 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Meta x12) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x12))(x4))(st)+c_modHeadInLine_case_14 x1 x4 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHeadInLine_case_14(x1)(x4)(x)(st))(i)(xs)(st)+c_modHeadInLine_case_14 x1 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHeadInLine_case_14")(x)++++c_modHeadInLine_case_13 x1 x4 x5 (Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CurryStringClassifier.c_modHeadInLine_case_12(x1)(x4)(x5)(x6)(x7)(st)+c_modHeadInLine_case_13 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHeadInLine_case_13(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_modHeadInLine_case_13 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHeadInLine_case_13")(x)++++c_modHeadInLine_case_12 x1 x4 x5 x6 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.op_46(x1)(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(x6)))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x8)))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x9))(x4))(st)+c_modHeadInLine_case_12 x1 x4 x5 x6 x7@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_modHead(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x5))(x4))(st)+c_modHeadInLine_case_12 x1 x4 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHeadInLine_case_12(x1)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_modHeadInLine_case_12 x1 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHeadInLine_case_12")(x)++++c_modHead_case_21 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Code x5) st = Curry.Module.CurryStringClassifier.c_modHead_case_20(x1)(x4)(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_modHead'46_'35lambda11))(st))(x5)(st))(st)+c_modHead_case_21 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_BigComment x14) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x14))(Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x4)(st)))(st)+c_modHead_case_21 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_SmallComment x15) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(x15))(Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x4)(st)))(st)+c_modHead_case_21 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Meta x16) st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x16))(x4))(st)+c_modHead_case_21 x1 x4 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_21(x1)(x4)(x)(st))(i)(xs)(st)+c_modHead_case_21 x1 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_21")(x)++++c_modHead_case_20 x1 x4 x5 (Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CurryStringClassifier.c_modHead_case_19(x1)(x4)(x5)(x7)(x6)(st)+c_modHead_case_20 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_20(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_modHead_case_20 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_20")(x)++++c_modHead_case_19 x1 x4 x5 x7 x6@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_modHead_case_18(x1)(x4)(x7)(st)+c_modHead_case_19 x1 x4 x5 x7 x6@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CurryStringClassifier.c_modHead_case_17(x1)(x4)(x5)(x10)(x11)(x7)(st)+c_modHead_case_19 x1 x4 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_19(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c_modHead_case_19 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_19")(x)++++c_modHead_case_17 x1 x4 x5 x10 x11 x7@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_modHead_case_16(x1)(x4)(x5)(x10)(x11)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_lineBeginsWith((Curry.Module.Prelude.:<)(x10)(x11))))(st))(Curry.Module.CurryStringClassifier.c_headers(st))(st))(st)+c_modHead_case_17 x1 x4 x5 x10 x11 x7@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CurryStringClassifier.c_modHead_case_15(x1)(x4)(x5)(x10)(x11)(x12)(x13)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_lineBeginsWith((Curry.Module.Prelude.:<)(x10)(x11))))(st))(Curry.Module.CurryStringClassifier.c_headers(st))(st))(st)+c_modHead_case_17 x1 x4 x5 x10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_17(x1)(x4)(x5)(x10)(x11)(x)(st))(i)(xs)(st)+c_modHead_case_17 x1 x4 x5 x10 x11 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_17")(x)++++c_modHead_case_15 x1 x4 x5 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.op_46(x1)(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(x10)(x11))))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x12)))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x13))(x4))(st)+c_modHead_case_15 x1 x4 x5 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x5))(x4))(st)+c_modHead_case_15 x1 x4 x5 x10 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_15(x1)(x4)(x5)(x10)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c_modHead_case_15 x1 x4 x5 x10 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_15")(x)++++c_modHead_case_16 x1 x4 x5 x10 x11 x12@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_ModuleHead(Curry.Module.Prelude.c_apply(x1)((Curry.Module.Prelude.:<)(x10)(x11))(st)))(Curry.Module.CurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x4)(st))+c_modHead_case_16 x1 x4 x5 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_maybeMo(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x5))(x4))(st)+c_modHead_case_16 x1 x4 x5 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_16(x1)(x4)(x5)(x10)(x11)(x)(st))(i)(xs)(st)+c_modHead_case_16 x1 x4 x5 x10 x11 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_16")(x)++++c_modHead_case_18 x1 x4 x7@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_modHead(x1)(x4)(st)+c_modHead_case_18 x1 x4 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CurryStringClassifier.c_modHead(Curry.Module.Prelude.op_46(x1)(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x8)))(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x9))(x4))(st)+c_modHead_case_18 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_modHead_case_18(x1)(x4)(x)(st))(i)(xs)(st)+c_modHead_case_18 x1 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.modHead_case_18")(x)++++c_stateScan_case_59 x1 x3 x5 x6 x2@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CurryStringClassifier.c_stateScan_case_58(x1)(x3)(x5)(x7)(x6)(st)+c_stateScan_case_59 x1 x3 x5 x6 x2@(Curry.Module.CurryStringClassifier.C_Text x26) st = Curry.Module.CurryStringClassifier.c_stateScan_case_35(x1)(x3)(x5)(x26)(x6)(st)+c_stateScan_case_59 x1 x3 x5 x6 x2@(Curry.Module.CurryStringClassifier.C_BigComment x30) st = Curry.Module.CurryStringClassifier.c_stateScan_case_29(x1)(x3)(x5)(x30)(x6)(st)+c_stateScan_case_59 x1 x3 x5 x6 x2@(Curry.Module.CurryStringClassifier.C_Meta x34) st = Curry.Module.CurryStringClassifier.c_stateScan_case_25(x1)(x3)(x5)(x34)(x6)(st)+c_stateScan_case_59 x1 x3 x5 x6 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_59(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c_stateScan_case_59 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_59")(x)++++c_stateScan_case_25 x1 x3 x5 x34 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_cond(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(st))(st)+c_stateScan_case_25 x1 x3 x5 x34 x6@((Curry.Module.Prelude.:<) x35 x36) st = Curry.RunTimeSystem.freeF(\ x37 -> Curry.Module.CurryStringClassifier.c_stateScan_case_24(x1)(x3)(x5)(x34)(x35)(x36)(x37)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('+'))(st))(Curry.Module.Prelude.op_61_61(x35)(Curry.Module.Prelude.C_Char('}'))(st))(st))(st))+c_stateScan_case_25 x1 x3 x5 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_25(x1)(x3)(x5)(x34)(x)(st))(i)(xs)(st)+c_stateScan_case_25 x1 x3 x5 x34 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_25")(x)++++c_stateScan_case_24 x1 x3 x5 x34 x35 x36 x37 x38@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x34))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x37))(x37)(x36)(st)))(st)+c_stateScan_case_24 x1 x3 x5 x34 x35 x36 x37 x38@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_23(x1)(x3)(x5)(x34)(x35)(x36)(x37)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_stateScan_case_24 x1 x3 x5 x34 x35 x36 x37 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_24(x1)(x3)(x5)(x34)(x35)(x36)(x37)(x)(st))(i)(xs)(st)+c_stateScan_case_24 x1 x3 x5 x34 x35 x36 x37 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_24")(x)++++c_stateScan_case_23 x1 x3 x5 x34 x35 x36 x37 x38@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x37))(st))(Curry.Module.CurryStringClassifier.c_stateScan(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.CurryStringClassifier.C_Meta(x34))(x37)((Curry.Module.Prelude.:<)(x35)(x36))(st))(st)+c_stateScan_case_23 x1 x3 x5 x34 x35 x36 x37 x38@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_22(x1)(x3)(x5)(x34)(x35)(x36)(x37)(Curry.Module.Prelude.c_otherwise(st))(st)+c_stateScan_case_23 x1 x3 x5 x34 x35 x36 x37 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_23(x1)(x3)(x5)(x34)(x35)(x36)(x37)(x)(st))(i)(xs)(st)+c_stateScan_case_23 x1 x3 x5 x34 x35 x36 x37 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_23")(x)++++c_stateScan_case_22 x1 x3 x5 x34 x35 x36 x37 x38@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x37))(st))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Meta(x34))(x37)((Curry.Module.Prelude.:<)(x35)(x36))(st))(st)+c_stateScan_case_22 x1 x3 x5 x34 x35 x36 x37 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_22(x1)(x3)(x5)(x34)(x35)(x36)(x37)(x)(st))(i)(xs)(st)+c_stateScan_case_22 x1 x3 x5 x34 x35 x36 x37 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_22")(x)++++c_stateScan_case_29 x1 x3 x5 x30 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_cond(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(st))(st)+c_stateScan_case_29 x1 x3 x5 x30 x6@((Curry.Module.Prelude.:<) x31 x32) st = Curry.RunTimeSystem.freeF(\ x33 -> Curry.Module.CurryStringClassifier.c_stateScan_case_28(x1)(x3)(x5)(x30)(x31)(x32)(x33)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('-'))(st))(Curry.Module.Prelude.op_61_61(x31)(Curry.Module.Prelude.C_Char('}'))(st))(st))(st))+c_stateScan_case_29 x1 x3 x5 x30 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_29(x1)(x3)(x5)(x30)(x)(st))(i)(xs)(st)+c_stateScan_case_29 x1 x3 x5 x30 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_29")(x)++++c_stateScan_case_28 x1 x3 x5 x30 x31 x32 x33 x34@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x30))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x33))(x33)(x32)(st)))(st)+c_stateScan_case_28 x1 x3 x5 x30 x31 x32 x33 x34@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_27(x1)(x3)(x5)(x30)(x31)(x32)(x33)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_stateScan_case_28 x1 x3 x5 x30 x31 x32 x33 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_28(x1)(x3)(x5)(x30)(x31)(x32)(x33)(x)(st))(i)(xs)(st)+c_stateScan_case_28 x1 x3 x5 x30 x31 x32 x33 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_28")(x)++++c_stateScan_case_27 x1 x3 x5 x30 x31 x32 x33 x34@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x33))(st))(Curry.Module.CurryStringClassifier.c_stateScan(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.CurryStringClassifier.C_BigComment(x30))(x33)((Curry.Module.Prelude.:<)(x31)(x32))(st))(st)+c_stateScan_case_27 x1 x3 x5 x30 x31 x32 x33 x34@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_26(x1)(x3)(x5)(x30)(x31)(x32)(x33)(Curry.Module.Prelude.c_otherwise(st))(st)+c_stateScan_case_27 x1 x3 x5 x30 x31 x32 x33 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_27(x1)(x3)(x5)(x30)(x31)(x32)(x33)(x)(st))(i)(xs)(st)+c_stateScan_case_27 x1 x3 x5 x30 x31 x32 x33 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_27")(x)++++c_stateScan_case_26 x1 x3 x5 x30 x31 x32 x33 x34@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x33))(st))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_BigComment(x30))(x33)((Curry.Module.Prelude.:<)(x31)(x32))(st))(st)+c_stateScan_case_26 x1 x3 x5 x30 x31 x32 x33 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_26(x1)(x3)(x5)(x30)(x31)(x32)(x33)(x)(st))(i)(xs)(st)+c_stateScan_case_26 x1 x3 x5 x30 x31 x32 x33 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_26")(x)++++c_stateScan_case_35 x1 x3 x5 x26 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_cond(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.CurryStringClassifier.c_stateScan_case_34(x5)(x26)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(st))(st))(st)+c_stateScan_case_35 x1 x3 x5 x26 x6@((Curry.Module.Prelude.:<) x27 x28) st = Curry.RunTimeSystem.freeF(\ x29 -> Curry.Module.CurryStringClassifier.c_stateScan_case_33(x1)(x3)(x5)(x26)(x27)(x28)(x29)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(st))(st))+c_stateScan_case_35 x1 x3 x5 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_35(x1)(x3)(x5)(x26)(x)(st))(i)(xs)(st)+c_stateScan_case_35 x1 x3 x5 x26 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_35")(x)++++c_stateScan_case_33 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Text(x26))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x29))(x29)((Curry.Module.Prelude.:<)(x27)(x28))(st)))(st)+c_stateScan_case_33 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_32(x1)(x3)(x5)(x26)(x27)(x28)(x29)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\\'))(st))(st)+c_stateScan_case_33 x1 x3 x5 x26 x27 x28 x29 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_33(x1)(x3)(x5)(x26)(x27)(x28)(x29)(x)(st))(i)(xs)(st)+c_stateScan_case_33 x1 x3 x5 x26 x27 x28 x29 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_33")(x)++++c_stateScan_case_32 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x27)(x29)))(st))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Text(x26))(x29)(x28)(st))(st)+c_stateScan_case_32 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_31(x1)(x3)(x5)(x26)(x27)(x28)(x29)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(Curry.Module.CurryStringClassifier.c_toBeEscaped(st))(st))(st)+c_stateScan_case_32 x1 x3 x5 x26 x27 x28 x29 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_32(x1)(x3)(x5)(x26)(x27)(x28)(x29)(x)(st))(i)(xs)(st)+c_stateScan_case_32 x1 x3 x5 x26 x27 x28 x29 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_32")(x)++++c_stateScan_case_31 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st)))(st))(st)+c_stateScan_case_31 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_30(x1)(x3)(x5)(x26)(x27)(x28)(x29)(Curry.Module.Prelude.c_otherwise(st))(st)+c_stateScan_case_31 x1 x3 x5 x26 x27 x28 x29 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_31(x1)(x3)(x5)(x26)(x27)(x28)(x29)(x)(st))(i)(xs)(st)+c_stateScan_case_31 x1 x3 x5 x26 x27 x28 x29 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_31")(x)++++c_stateScan_case_30 x1 x3 x5 x26 x27 x28 x29 x30@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x29))(st))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Text(x26))(x29)((Curry.Module.Prelude.:<)(x27)(x28))(st))(st)+c_stateScan_case_30 x1 x3 x5 x26 x27 x28 x29 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_30(x1)(x3)(x5)(x26)(x27)(x28)(x29)(x)(st))(i)(xs)(st)+c_stateScan_case_30 x1 x3 x5 x26 x27 x28 x29 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_30")(x)++++c_stateScan_case_34 x5 x26 x27@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Text(x26))(Curry.Module.Prelude.List)+c_stateScan_case_34 x5 x26 x27@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))(st)+c_stateScan_case_34 x5 x26 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_34(x5)(x26)(x)(st))(i)(xs)(st)+c_stateScan_case_34 x5 x26 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_34")(x)++++c_stateScan_case_58 x1 x3 x5 x7 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_cond(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(st))(Curry.Module.CurryStringClassifier.c_maybeCode(x7)(Curry.Module.Prelude.List)(st))(st)+c_stateScan_case_58 x1 x3 x5 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = Curry.RunTimeSystem.freeF(\ x10 -> Curry.Module.CurryStringClassifier.c_stateScan_case_57(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(st))(st))+c_stateScan_case_58 x1 x3 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_58(x1)(x3)(x5)(x7)(x)(st))(i)(xs)(st)+c_stateScan_case_58 x1 x3 x5 x7 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_58")(x)++++c_stateScan_case_57 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.CurryStringClassifier.c_maybeCode(x7)(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Text(x10))(x10)((Curry.Module.Prelude.:<)(x8)(x9))(st))(st))(st)+c_stateScan_case_57 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_56(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('-'))(st))(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('-'))(st))(st))(st)+c_stateScan_case_57 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_57(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_57 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_57")(x)++++c_stateScan_case_56 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.Prelude.c_span(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char('\n'))))(x9)(st)} in Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.CurryStringClassifier.c_maybeCode(x7)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(Curry.Module.CurryStringClassifier.c_stateScan'46_'35selFP9'35comment(x11)(st)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(Curry.Module.CurryStringClassifier.c_stateScan'46_'35selFP10'35rest(x11)(st))(st)))(st))(st)+c_stateScan_case_56 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_55(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('{'))(st))(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('-'))(st))(st))(st)+c_stateScan_case_56 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_56(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_56 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_56")(x)++++c_stateScan_case_55 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.CurryStringClassifier.c_maybeCode(x7)(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_BigComment(x10))(x10)(x9)(st))(st))(st)+c_stateScan_case_55 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_54(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('{'))(st))(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('+'))(st))(st))(st)+c_stateScan_case_55 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_55(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_55 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_55")(x)++++c_stateScan_case_54 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)(Curry.Module.Prelude.List)(st))(Curry.Module.CurryStringClassifier.c_maybeCode(x7)(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Meta(x10))(x10)(x9)(st))(st))(st)+c_stateScan_case_54 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_53(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('\''))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.CurryStringClassifier.c_infixIDs(st))(Curry.Module.CurryStringClassifier.c_delimiters(st))(st))(st))(st))(st)+c_stateScan_case_54 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_54(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_54 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_54")(x)++++c_stateScan_case_53 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.CurryStringClassifier.c_maybeCode(x7)))(Curry.Module.CurryStringClassifier.c_stateScan_case_52(x1)(x10)(x9)(st))(st))(st)+c_stateScan_case_53 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_37(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_stateScan_case_53 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_53(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_53 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_53")(x)++++c_stateScan_case_37 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x10))(st))(Curry.Module.CurryStringClassifier.c_stateScan(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.CurryStringClassifier.C_Code(x7))(x10)((Curry.Module.Prelude.:<)(x8)(x9))(st))(st)+c_stateScan_case_37 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_36(x1)(x3)(x5)(x7)(x8)(x9)(x10)(Curry.Module.Prelude.c_otherwise(st))(st)+c_stateScan_case_37 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_37(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_37 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_37")(x)++++c_stateScan_case_36 x1 x3 x5 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_38_62(Curry.Module.Prelude.op_61_58_61(x3)((Curry.Module.Prelude.:<)(x5)(x10))(st))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x7))(x10)((Curry.Module.Prelude.:<)(x8)(x9))(st))(st)+c_stateScan_case_36 x1 x3 x5 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_36(x1)(x3)(x5)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_36 x1 x3 x5 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_36")(x)++++c_stateScan_case_52 x1 x10 x9@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CurryStringClassifier.c_stateScan_case_51(x1)(x10)(x14)(x15)(Curry.Module.Prelude.op_61_61(x14)(Curry.Module.Prelude.C_Char('\\'))(st))(st)+c_stateScan_case_52 x1 x10 x9@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_52 x1 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_52(x1)(x10)(x)(st))(i)(xs)(st)+c_stateScan_case_52 x1 x10 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_52")(x)++++c_stateScan_case_51 x1 x10 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.CurryStringClassifier.c_stateScan_case_50(x1)(x10)(x14)(x15)(st)+c_stateScan_case_51 x1 x10 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_39(x1)(x10)(x14)(x15)(st)+c_stateScan_case_51 x1 x10 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_51(x1)(x10)(x14)(x15)(x)(st))(i)(xs)(st)+c_stateScan_case_51 x1 x10 x14 x15 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_51")(x)++++c_stateScan_case_39 x1 x10 x14 x15@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CurryStringClassifier.c_stateScan_case_38(x1)(x10)(x14)(x24)(x25)(Curry.Module.Prelude.op_61_61(x24)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_39 x1 x10 x14 x15@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_39 x1 x10 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_39(x1)(x10)(x14)(x)(st))(i)(xs)(st)+c_stateScan_case_39 x1 x10 x14 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_39")(x)++++c_stateScan_case_38 x1 x10 x14 x24 x25 x26@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x25)(st))+c_stateScan_case_38 x1 x10 x14 x24 x25 x26@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_38 x1 x10 x14 x24 x25 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_38(x1)(x10)(x14)(x24)(x25)(x)(st))(i)(xs)(st)+c_stateScan_case_38 x1 x10 x14 x24 x25 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_38")(x)++++c_stateScan_case_50 x1 x10 x14 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CurryStringClassifier.c_stateScan_case_49(x1)(x10)(x14)(x16)(x17)(st)+c_stateScan_case_50 x1 x10 x14 x15@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_50 x1 x10 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_50(x1)(x10)(x14)(x)(st))(i)(xs)(st)+c_stateScan_case_50 x1 x10 x14 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_50")(x)++++c_stateScan_case_49 x1 x10 x14 x16 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CurryStringClassifier.c_stateScan_case_48(x1)(x10)(x14)(x16)(x17)(x18)(x19)(Curry.Module.Prelude.op_61_61(x18)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_49 x1 x10 x14 x16 x17@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_stateScan_case_40(x1)(x10)(x14)(x16)(Curry.Module.Prelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_49 x1 x10 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_49(x1)(x10)(x14)(x16)(x)(st))(i)(xs)(st)+c_stateScan_case_49 x1 x10 x14 x16 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_49")(x)++++c_stateScan_case_40 x1 x10 x14 x16 x17@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(Curry.Module.Prelude.List)(st))+c_stateScan_case_40 x1 x10 x14 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_40 x1 x10 x14 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_40(x1)(x10)(x14)(x16)(x)(st))(i)(xs)(st)+c_stateScan_case_40 x1 x10 x14 x16 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_40")(x)++++c_stateScan_case_48 x1 x10 x14 x16 x17 x18 x19 x20@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x19)(st))+c_stateScan_case_48 x1 x10 x14 x16 x17 x18 x19 x20@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_47(x1)(x10)(x14)(x16)(x17)(x18)(x19)(st)+c_stateScan_case_48 x1 x10 x14 x16 x17 x18 x19 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_48(x1)(x10)(x14)(x16)(x17)(x18)(x19)(x)(st))(i)(xs)(st)+c_stateScan_case_48 x1 x10 x14 x16 x17 x18 x19 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_48")(x)++++c_stateScan_case_47 x1 x10 x14 x16 x17 x18 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CurryStringClassifier.c_stateScan_case_46(x1)(x10)(x14)(x16)(x17)(x18)(x20)(x21)(st)+c_stateScan_case_47 x1 x10 x14 x16 x17 x18 x19@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_stateScan_case_41(x1)(x10)(x14)(x16)(x17)(Curry.Module.Prelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_47 x1 x10 x14 x16 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_47(x1)(x10)(x14)(x16)(x17)(x18)(x)(st))(i)(xs)(st)+c_stateScan_case_47 x1 x10 x14 x16 x17 x18 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_47")(x)++++c_stateScan_case_41 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x17)(st))+c_stateScan_case_41 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_41 x1 x10 x14 x16 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_41(x1)(x10)(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_stateScan_case_41 x1 x10 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_41")(x)++++c_stateScan_case_46 x1 x10 x14 x16 x17 x18 x20 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CurryStringClassifier.c_stateScan_case_45(x1)(x10)(x14)(x16)(x17)(x18)(x20)(x22)(x23)(Curry.Module.Prelude.op_61_61(x22)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_46 x1 x10 x14 x16 x17 x18 x20 x21@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_stateScan_case_42(x1)(x10)(x14)(x16)(x17)(Curry.Module.Prelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_46 x1 x10 x14 x16 x17 x18 x20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_46(x1)(x10)(x14)(x16)(x17)(x18)(x20)(x)(st))(i)(xs)(st)+c_stateScan_case_46 x1 x10 x14 x16 x17 x18 x20 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_46")(x)++++c_stateScan_case_42 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x17)(st))+c_stateScan_case_42 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_42 x1 x10 x14 x16 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_42(x1)(x10)(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_stateScan_case_42 x1 x10 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_42")(x)++++c_stateScan_case_45 x1 x10 x14 x16 x17 x18 x20 x22 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.CurryStringClassifier.c_stateScan_case_44(x1)(x10)(x16)(x18)(x20)(x23)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.Char.c_isDigit))(st))((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(st))(st)+c_stateScan_case_45 x1 x10 x14 x16 x17 x18 x20 x22 x23 x24@Curry.Module.Prelude.C_False st = Curry.Module.CurryStringClassifier.c_stateScan_case_43(x1)(x10)(x14)(x16)(x17)(Curry.Module.Prelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_stateScan_case_45 x1 x10 x14 x16 x17 x18 x20 x22 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_45(x1)(x10)(x14)(x16)(x17)(x18)(x20)(x22)(x23)(x)(st))(i)(xs)(st)+c_stateScan_case_45 x1 x10 x14 x16 x17 x18 x20 x22 x23 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_45")(x)++++c_stateScan_case_43 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x17)(st))+c_stateScan_case_43 x1 x10 x14 x16 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_43 x1 x10 x14 x16 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_43(x1)(x10)(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_stateScan_case_43 x1 x10 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_43")(x)++++c_stateScan_case_44 x1 x10 x16 x18 x20 x23 x24@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))))(Curry.Module.CurryStringClassifier.c_stateScan(x1)(Curry.Module.CurryStringClassifier.C_Code(x10))(x10)(x23)(st))+c_stateScan_case_44 x1 x10 x16 x18 x20 x23 x24@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_stateScan_case_44 x1 x10 x16 x18 x20 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_stateScan_case_44(x1)(x10)(x16)(x18)(x20)(x23)(x)(st))(i)(xs)(st)+c_stateScan_case_44 x1 x10 x16 x18 x20 x23 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.stateScan_case_44")(x)++++c_weave_case_65 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_weave_case_64(x3)(st)+c_weave_case_65 x3 x2@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CurryStringClassifier.c_weave_case_62(x3)(x8)(x9)(st)+c_weave_case_65 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_65(x3)(x)(st))(i)(xs)(st)+c_weave_case_65 x3 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_65")(x)++++c_weave_case_62 x3 x8 x9@Curry.Module.Prelude.List st = Curry.Module.CurryStringClassifier.c_weave_case_61(x8)(x9)(x3)(st)+c_weave_case_62 x3 x8 x9@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CurryStringClassifier.c_weave_case_60(x8)(x12)(x13)(x3)(st)+c_weave_case_62 x3 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_62(x3)(x8)(x)(st))(i)(xs)(st)+c_weave_case_62 x3 x8 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_62")(x)++++c_weave_case_60 x8 x12 x13 x3@((Curry.Module.Prelude.:<) x14 x15) st = (Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x14)(Curry.Module.CurryStringClassifier.c_weave(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x12)(x13))(x15))(st)))+c_weave_case_60 x8 x12 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_60(x8)(x12)(x13)(x)(st))(i)(xs)(st)+c_weave_case_60 x8 x12 x13 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_60")(x)++++c_weave_case_61 x8 x9 x3@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)+c_weave_case_61 x8 x9 x3@((Curry.Module.Prelude.:<) x10 x11) st = (Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x10)(Curry.Module.CurryStringClassifier.c_weave(Curry.Module.Prelude.T2(x9)(x11))(st)))+c_weave_case_61 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_61(x8)(x9)(x)(st))(i)(xs)(st)+c_weave_case_61 x8 x9 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_61")(x)++++c_weave_case_64 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_weave_case_64 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CurryStringClassifier.c_weave_case_63(x4)(x5)(st)+c_weave_case_64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_64(x)(st))(i)(xs)(st)+c_weave_case_64 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_64")(x)++++c_weave_case_63 x4 x5@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)+c_weave_case_63 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_weave_case_63(x4)(x)(st))(i)(xs)(st)+c_weave_case_63 x4 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.weave_case_63")(x)++++c_unweaveCode_case_66 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x2)(x5))(x6)+c_unweaveCode_case_66 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x5)((Curry.Module.Prelude.:<)(x2)(x6))+c_unweaveCode_case_66 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurryStringClassifier.c_unweaveCode_case_66(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_unweaveCode_case_66 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("CurryStringClassifier.unweaveCode_case_66")(x)++
+ dist/build/Curry/Module/CurrySyntax.hs view
@@ -0,0 +1,3211 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.CurrySyntax (module Curry.Module.CurrySyntax) where++import Curry.RunTimeSystem+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm++++-- begin included++++-- end included++type C_Pos = Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int++type C_ModuleIdent = Curry.Module.Prelude.List Curry.Module.Prelude.C_Char++data C_Position = C_Position (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+  | C_PositionFail Curry.RunTimeSystem.C_Exceptions+  | C_PositionOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Position)++data C_Ident = C_Ident (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Int+  | C_IdentFail Curry.RunTimeSystem.C_Exceptions+  | C_IdentOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Ident)++data C_QualIdent = C_UnqualIdent Curry.Module.CurrySyntax.C_Ident+  | C_QualIdent (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.CurrySyntax.C_Ident+  | C_QualIdentFail Curry.RunTimeSystem.C_Exceptions+  | C_QualIdentOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_QualIdent)++data C_Module t0 = C_Module (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_ExportSpec t0)) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0))+  | C_ModuleFail Curry.RunTimeSystem.C_Exceptions+  | C_ModuleOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Module t0))++data C_ExportSpec t0 = C_Exporting t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Export)+  | C_ExportSpecFail Curry.RunTimeSystem.C_Exceptions+  | C_ExportSpecOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_ExportSpec t0))++data C_Export = C_Export Curry.Module.CurrySyntax.C_QualIdent+  | C_ExportTypeWith Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident)+  | C_ExportTypeAll Curry.Module.CurrySyntax.C_QualIdent+  | C_ExportModule (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_ExportFail Curry.RunTimeSystem.C_Exceptions+  | C_ExportOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Export)++data C_ImportSpec t0 = C_Importing t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Import)+  | C_Hiding t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Import)+  | C_ImportSpecFail Curry.RunTimeSystem.C_Exceptions+  | C_ImportSpecOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_ImportSpec t0))++data C_Import = C_Import Curry.Module.CurrySyntax.C_Ident+  | C_ImportTypeWith Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident)+  | C_ImportTypeAll Curry.Module.CurrySyntax.C_Ident+  | C_ImportFail Curry.RunTimeSystem.C_Exceptions+  | C_ImportOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Import)++data C_Decl t0 = C_ImportDecl t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_ImportSpec t0))+  | C_InfixDecl t0 Curry.Module.CurrySyntax.C_Infix Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident)+  | C_DataDecl t0 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrDecl t0))+  | C_NewtypeDecl t0 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) (Curry.Module.CurrySyntax.C_NewConstrDecl t0)+  | C_TypeDecl t0 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_TypeExpr+  | C_TypeSig t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_TypeExpr+  | C_EvalAnnot t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_EvalAnnotation+  | C_FunctionDecl t0 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Equation t0))+  | C_ExternalDecl t0 Curry.Module.CurrySyntax.C_CallConv (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.CurrySyntax.C_Ident Curry.Module.CurrySyntax.C_TypeExpr+  | C_FlatExternalDecl t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident)+  | C_PatternDecl t0 (Curry.Module.CurrySyntax.C_ConstrTerm t0) (Curry.Module.CurrySyntax.C_Rhs t0)+  | C_ExtraVariables t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident)+  | C_DeclFail Curry.RunTimeSystem.C_Exceptions+  | C_DeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Decl t0))++data C_ConstrDecl t0 = C_ConstrDecl t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_TypeExpr)+  | C_ConOpDecl t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_TypeExpr Curry.Module.CurrySyntax.C_Ident Curry.Module.CurrySyntax.C_TypeExpr+  | C_ConstrDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_ConstrDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_ConstrDecl t0))++data C_NewConstrDecl t0 = C_NewConstrDecl t0 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_Ident Curry.Module.CurrySyntax.C_TypeExpr+  | C_NewConstrDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_NewConstrDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_NewConstrDecl t0))++data C_Infix = C_InfixL+  | C_InfixR+  | C_Infix+  | C_InfixFail Curry.RunTimeSystem.C_Exceptions+  | C_InfixOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Infix)++data C_EvalAnnotation = C_EvalRigid+  | C_EvalChoice+  | C_EvalAnnotationFail Curry.RunTimeSystem.C_Exceptions+  | C_EvalAnnotationOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_EvalAnnotation)++data C_CallConv = C_CallConvPrimitive+  | C_CallConvCCall+  | C_CallConvFail Curry.RunTimeSystem.C_Exceptions+  | C_CallConvOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_CallConv)++data C_TypeExpr = C_ConstructorType Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_TypeExpr)+  | C_VariableType Curry.Module.CurrySyntax.C_Ident+  | C_TupleType (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_TypeExpr)+  | C_ListType Curry.Module.CurrySyntax.C_TypeExpr+  | C_ArrowType Curry.Module.CurrySyntax.C_TypeExpr Curry.Module.CurrySyntax.C_TypeExpr+  | C_RecordType (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurrySyntax.C_Ident) Curry.Module.CurrySyntax.C_TypeExpr)) (Curry.Module.Prelude.C_Maybe Curry.Module.CurrySyntax.C_TypeExpr)+  | C_TypeExprFail Curry.RunTimeSystem.C_Exceptions+  | C_TypeExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_TypeExpr)++data C_Equation t0 = C_Equation t0 (Curry.Module.CurrySyntax.C_Lhs t0) (Curry.Module.CurrySyntax.C_Rhs t0)+  | C_EquationFail Curry.RunTimeSystem.C_Exceptions+  | C_EquationOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Equation t0))++data C_Lhs t0 = C_FunLhs Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_OpLhs (Curry.Module.CurrySyntax.C_ConstrTerm t0) Curry.Module.CurrySyntax.C_Ident (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_ApLhs (Curry.Module.CurrySyntax.C_Lhs t0) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_LhsFail Curry.RunTimeSystem.C_Exceptions+  | C_LhsOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Lhs t0))++data C_Rhs t0 = C_SimpleRhs t0 (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0))+  | C_GuardedRhs (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_CondExpr t0)) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0))+  | C_RhsFail Curry.RunTimeSystem.C_Exceptions+  | C_RhsOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Rhs t0))++data C_CondExpr t0 = C_CondExpr t0 (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_CondExprFail Curry.RunTimeSystem.C_Exceptions+  | C_CondExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_CondExpr t0))++data C_Literal = C_Char Curry.Module.Prelude.C_Char+  | C_Int Curry.Module.CurrySyntax.C_Ident Curry.Module.Prelude.C_Int+  | C_Float Curry.Module.Prelude.C_Float+  | C_String (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_LiteralFail Curry.RunTimeSystem.C_Exceptions+  | C_LiteralOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_Literal)++data C_ConstrTerm t0 = C_LiteralPattern Curry.Module.CurrySyntax.C_Literal+  | C_NegativePattern Curry.Module.CurrySyntax.C_Ident Curry.Module.CurrySyntax.C_Literal+  | C_VariablePattern Curry.Module.CurrySyntax.C_Ident+  | C_ConstructorPattern Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_InfixPattern (Curry.Module.CurrySyntax.C_ConstrTerm t0) Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_ParenPattern (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_TuplePattern (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_ListPattern (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_AsPattern Curry.Module.CurrySyntax.C_Ident (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_LazyPattern (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_FunctionPattern Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_InfixFuncPattern (Curry.Module.CurrySyntax.C_ConstrTerm t0) Curry.Module.CurrySyntax.C_QualIdent (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_RecordPattern (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Field t0 (Curry.Module.CurrySyntax.C_ConstrTerm t0))) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_ConstrTerm t0))+  | C_ConstrTermFail Curry.RunTimeSystem.C_Exceptions+  | C_ConstrTermOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_ConstrTerm t0))++data C_Expression t0 = C_Literal Curry.Module.CurrySyntax.C_Literal+  | C_Variable Curry.Module.CurrySyntax.C_QualIdent+  | C_Constructor Curry.Module.CurrySyntax.C_QualIdent+  | C_Paren (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Typed (Curry.Module.CurrySyntax.C_Expression t0) Curry.Module.CurrySyntax.C_TypeExpr+  | C_Tuple (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t0))+  | C_List (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t0))+  | C_ListCompr (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t0))+  | C_EnumFrom (Curry.Module.CurrySyntax.C_Expression t0)+  | C_EnumFromThen (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_EnumFromTo (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_EnumFromThenTo (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_UnaryMinus Curry.Module.CurrySyntax.C_Ident (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Apply (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_InfixApply (Curry.Module.CurrySyntax.C_Expression t0) Curry.Module.CurrySyntax.C_InfixOp (Curry.Module.CurrySyntax.C_Expression t0)+  | C_LeftSection (Curry.Module.CurrySyntax.C_Expression t0) Curry.Module.CurrySyntax.C_InfixOp+  | C_RightSection Curry.Module.CurrySyntax.C_InfixOp (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Lambda (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Let (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0)) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Do (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t0)) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_IfThenElse (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_Case (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Alt t0))+  | C_RecordConstr (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Field t0 (Curry.Module.CurrySyntax.C_Expression t0)))+  | C_RecordSelection (Curry.Module.CurrySyntax.C_Expression t0) Curry.Module.CurrySyntax.C_Ident+  | C_RecordUpdate (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Field t0 (Curry.Module.CurrySyntax.C_Expression t0))) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_ExpressionFail Curry.RunTimeSystem.C_Exceptions+  | C_ExpressionOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Expression t0))++data C_InfixOp = C_InfixOp Curry.Module.CurrySyntax.C_QualIdent+  | C_InfixConstr Curry.Module.CurrySyntax.C_QualIdent+  | C_InfixOpFail Curry.RunTimeSystem.C_Exceptions+  | C_InfixOpOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.CurrySyntax.C_InfixOp)++data C_Statement t0 = C_StmtExpr (Curry.Module.CurrySyntax.C_Expression t0)+  | C_StmtDecl (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0))+  | C_StmtBind (Curry.Module.CurrySyntax.C_ConstrTerm t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_StatementFail Curry.RunTimeSystem.C_Exceptions+  | C_StatementOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Statement t0))++data C_Alt t0 = C_Alt t0 (Curry.Module.CurrySyntax.C_ConstrTerm t0) (Curry.Module.CurrySyntax.C_Rhs t0)+  | C_AltFail Curry.RunTimeSystem.C_Exceptions+  | C_AltOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Alt t0))++data C_Field t0 t1 = C_Field t0 Curry.Module.CurrySyntax.C_Ident t1+  | C_FieldFail Curry.RunTimeSystem.C_Exceptions+  | C_FieldOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.CurrySyntax.C_Field t0 t1))++instance BaseCurry Curry.Module.CurrySyntax.C_Position where+  nf f (Curry.Module.CurrySyntax.C_Position x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Position(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Position x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Position(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_PositionOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Position(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_PositionFail++  branching  = Curry.Module.CurrySyntax.C_PositionOr++  consKind (Curry.Module.CurrySyntax.C_PositionOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_PositionFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_PositionFail x) = x++  orRef (Curry.Module.CurrySyntax.C_PositionOr x _) = x++  branches (Curry.Module.CurrySyntax.C_PositionOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_Ident where+  nf f (Curry.Module.CurrySyntax.C_Ident x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Ident(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Ident x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Ident(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_IdentOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Ident(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_IdentFail++  branching  = Curry.Module.CurrySyntax.C_IdentOr++  consKind (Curry.Module.CurrySyntax.C_IdentOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_IdentFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_IdentFail x) = x++  orRef (Curry.Module.CurrySyntax.C_IdentOr x _) = x++  branches (Curry.Module.CurrySyntax.C_IdentOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_QualIdent where+  nf f (Curry.Module.CurrySyntax.C_UnqualIdent x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_UnqualIdent(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_QualIdent x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_QualIdent(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_UnqualIdent x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_UnqualIdent(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_QualIdent x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_QualIdent(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_QualIdentOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_UnqualIdent(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_QualIdent(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_QualIdentFail++  branching  = Curry.Module.CurrySyntax.C_QualIdentOr++  consKind (Curry.Module.CurrySyntax.C_QualIdentOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_QualIdentFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_QualIdentFail x) = x++  orRef (Curry.Module.CurrySyntax.C_QualIdentOr x _) = x++  branches (Curry.Module.CurrySyntax.C_QualIdentOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Module t0) where+  nf f (Curry.Module.CurrySyntax.C_Module x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Module(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Module x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Module(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ModuleOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Module(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_ModuleFail++  branching  = Curry.Module.CurrySyntax.C_ModuleOr++  consKind (Curry.Module.CurrySyntax.C_ModuleOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ModuleFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ModuleFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ModuleOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ModuleOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_ExportSpec t0) where+  nf f (Curry.Module.CurrySyntax.C_Exporting x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Exporting(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Exporting x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Exporting(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ExportSpecOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Exporting(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_ExportSpecFail++  branching  = Curry.Module.CurrySyntax.C_ExportSpecOr++  consKind (Curry.Module.CurrySyntax.C_ExportSpecOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ExportSpecFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ExportSpecFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ExportSpecOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ExportSpecOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_Export where+  nf f (Curry.Module.CurrySyntax.C_Export x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Export(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ExportTypeWith(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ExportTypeAll x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ExportTypeAll(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ExportModule x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ExportModule(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Export x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Export(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ExportTypeWith(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ExportTypeAll x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ExportTypeAll(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ExportModule x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ExportModule(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ExportOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Export(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ExportTypeWith(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ExportTypeAll(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ExportModule(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_ExportFail++  branching  = Curry.Module.CurrySyntax.C_ExportOr++  consKind (Curry.Module.CurrySyntax.C_ExportOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ExportFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ExportFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ExportOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ExportOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_ImportSpec t0) where+  nf f (Curry.Module.CurrySyntax.C_Importing x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Importing(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Hiding x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Hiding(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Importing x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Importing(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Hiding x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Hiding(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ImportSpecOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Importing(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Hiding(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_ImportSpecFail++  branching  = Curry.Module.CurrySyntax.C_ImportSpecOr++  consKind (Curry.Module.CurrySyntax.C_ImportSpecOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ImportSpecFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ImportSpecFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ImportSpecOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ImportSpecOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_Import where+  nf f (Curry.Module.CurrySyntax.C_Import x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Import(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ImportTypeWith(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ImportTypeAll x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ImportTypeAll(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Import x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Import(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ImportTypeWith(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ImportTypeAll x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ImportTypeAll(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ImportOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Import(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ImportTypeWith(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ImportTypeAll(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_ImportFail++  branching  = Curry.Module.CurrySyntax.C_ImportOr++  consKind (Curry.Module.CurrySyntax.C_ImportOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ImportFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ImportFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ImportOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ImportOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Decl t0) where+  nf f (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ImportDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_InfixDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_DataDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_NewtypeDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_TypeDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_TypeSig(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_EvalAnnot(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_FunctionDecl(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ExternalDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FlatExternalDecl(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_PatternDecl(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ExtraVariables(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ImportDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_InfixDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_DataDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_NewtypeDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_TypeDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_TypeSig(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_EvalAnnot(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_FunctionDecl(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ExternalDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FlatExternalDecl(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_PatternDecl(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ExtraVariables(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_DeclOr(Curry.RunTimeSystem.mkRef(r)(5)(i))([Curry.Module.CurrySyntax.C_ImportDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_InfixDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_DataDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_NewtypeDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_TypeDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_TypeSig(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_EvalAnnot(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_FunctionDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ExternalDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_FlatExternalDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_PatternDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ExtraVariables(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(5)++  failed  = Curry.Module.CurrySyntax.C_DeclFail++  branching  = Curry.Module.CurrySyntax.C_DeclOr++  consKind (Curry.Module.CurrySyntax.C_DeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_DeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_DeclFail x) = x++  orRef (Curry.Module.CurrySyntax.C_DeclOr x _) = x++  branches (Curry.Module.CurrySyntax.C_DeclOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_ConstrDecl t0) where+  nf f (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_ConstrDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ConOpDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_ConstrDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.CurrySyntax.C_ConOpDecl(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ConstrDeclOr(Curry.RunTimeSystem.mkRef(r)(5)(i))([Curry.Module.CurrySyntax.C_ConstrDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ConOpDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(5)++  failed  = Curry.Module.CurrySyntax.C_ConstrDeclFail++  branching  = Curry.Module.CurrySyntax.C_ConstrDeclOr++  consKind (Curry.Module.CurrySyntax.C_ConstrDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ConstrDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ConstrDeclFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ConstrDeclOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ConstrDeclOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_NewConstrDecl t0) where+  nf f (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_NewConstrDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.CurrySyntax.C_NewConstrDecl(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_NewConstrDeclOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.CurrySyntax.C_NewConstrDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.CurrySyntax.C_NewConstrDeclFail++  branching  = Curry.Module.CurrySyntax.C_NewConstrDeclOr++  consKind (Curry.Module.CurrySyntax.C_NewConstrDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_NewConstrDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_NewConstrDeclFail x) = x++  orRef (Curry.Module.CurrySyntax.C_NewConstrDeclOr x _) = x++  branches (Curry.Module.CurrySyntax.C_NewConstrDeclOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_Infix where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_InfixOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.CurrySyntax.C_InfixL,Curry.Module.CurrySyntax.C_InfixR,Curry.Module.CurrySyntax.C_Infix]))(0)++  failed  = Curry.Module.CurrySyntax.C_InfixFail++  branching  = Curry.Module.CurrySyntax.C_InfixOr++  consKind (Curry.Module.CurrySyntax.C_InfixOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_InfixFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_InfixFail x) = x++  orRef (Curry.Module.CurrySyntax.C_InfixOr x _) = x++  branches (Curry.Module.CurrySyntax.C_InfixOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_EvalAnnotation where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_EvalAnnotationOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.CurrySyntax.C_EvalRigid,Curry.Module.CurrySyntax.C_EvalChoice]))(0)++  failed  = Curry.Module.CurrySyntax.C_EvalAnnotationFail++  branching  = Curry.Module.CurrySyntax.C_EvalAnnotationOr++  consKind (Curry.Module.CurrySyntax.C_EvalAnnotationOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_EvalAnnotationFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_EvalAnnotationFail x) = x++  orRef (Curry.Module.CurrySyntax.C_EvalAnnotationOr x _) = x++  branches (Curry.Module.CurrySyntax.C_EvalAnnotationOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_CallConv where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_CallConvOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.CurrySyntax.C_CallConvPrimitive,Curry.Module.CurrySyntax.C_CallConvCCall]))(0)++  failed  = Curry.Module.CurrySyntax.C_CallConvFail++  branching  = Curry.Module.CurrySyntax.C_CallConvOr++  consKind (Curry.Module.CurrySyntax.C_CallConvOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_CallConvFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_CallConvFail x) = x++  orRef (Curry.Module.CurrySyntax.C_CallConvOr x _) = x++  branches (Curry.Module.CurrySyntax.C_CallConvOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_TypeExpr where+  nf f (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ConstructorType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_VariableType x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_VariableType(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_TupleType x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_TupleType(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ListType x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ListType(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ArrowType x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ArrowType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RecordType x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ConstructorType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_VariableType x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_VariableType(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_TupleType x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_TupleType(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ListType x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ListType(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ArrowType x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ArrowType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RecordType x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_TypeExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_ConstructorType(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_VariableType(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_TupleType(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ListType(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ArrowType(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RecordType(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_TypeExprFail++  branching  = Curry.Module.CurrySyntax.C_TypeExprOr++  consKind (Curry.Module.CurrySyntax.C_TypeExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_TypeExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_TypeExprFail x) = x++  orRef (Curry.Module.CurrySyntax.C_TypeExprOr x _) = x++  branches (Curry.Module.CurrySyntax.C_TypeExprOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Equation t0) where+  nf f (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Equation(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Equation(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_EquationOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Equation(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_EquationFail++  branching  = Curry.Module.CurrySyntax.C_EquationOr++  consKind (Curry.Module.CurrySyntax.C_EquationOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_EquationFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_EquationFail x) = x++  orRef (Curry.Module.CurrySyntax.C_EquationOr x _) = x++  branches (Curry.Module.CurrySyntax.C_EquationOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Lhs t0) where+  nf f (Curry.Module.CurrySyntax.C_FunLhs x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FunLhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_OpLhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ApLhs x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ApLhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_FunLhs x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FunLhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_OpLhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ApLhs x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ApLhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_LhsOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_FunLhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_OpLhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ApLhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_LhsFail++  branching  = Curry.Module.CurrySyntax.C_LhsOr++  consKind (Curry.Module.CurrySyntax.C_LhsOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_LhsFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_LhsFail x) = x++  orRef (Curry.Module.CurrySyntax.C_LhsOr x _) = x++  branches (Curry.Module.CurrySyntax.C_LhsOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Rhs t0) where+  nf f (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_SimpleRhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_GuardedRhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_SimpleRhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_GuardedRhs(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_RhsOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_SimpleRhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_GuardedRhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_RhsFail++  branching  = Curry.Module.CurrySyntax.C_RhsOr++  consKind (Curry.Module.CurrySyntax.C_RhsOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_RhsFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_RhsFail x) = x++  orRef (Curry.Module.CurrySyntax.C_RhsOr x _) = x++  branches (Curry.Module.CurrySyntax.C_RhsOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_CondExpr t0) where+  nf f (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_CondExpr(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_CondExpr(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_CondExprOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_CondExpr(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_CondExprFail++  branching  = Curry.Module.CurrySyntax.C_CondExprOr++  consKind (Curry.Module.CurrySyntax.C_CondExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_CondExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_CondExprFail x) = x++  orRef (Curry.Module.CurrySyntax.C_CondExprOr x _) = x++  branches (Curry.Module.CurrySyntax.C_CondExprOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_Literal where+  nf f (Curry.Module.CurrySyntax.C_Char x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Char(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Int x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Int(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Float x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Float(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_String x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_String(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Char x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Char(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Int x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Int(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Float x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Float(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_String x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_String(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_LiteralOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_Char(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Int(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Float(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_String(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_LiteralFail++  branching  = Curry.Module.CurrySyntax.C_LiteralOr++  consKind (Curry.Module.CurrySyntax.C_LiteralOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_LiteralFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_LiteralFail x) = x++  orRef (Curry.Module.CurrySyntax.C_LiteralOr x _) = x++  branches (Curry.Module.CurrySyntax.C_LiteralOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_ConstrTerm t0) where+  nf f (Curry.Module.CurrySyntax.C_LiteralPattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_LiteralPattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_NegativePattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_VariablePattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_VariablePattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ConstructorPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixPattern(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ParenPattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ParenPattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_TuplePattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_TuplePattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ListPattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ListPattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_AsPattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_AsPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_LazyPattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_LazyPattern(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FunctionPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixFuncPattern(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_LiteralPattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_LiteralPattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_NegativePattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_VariablePattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_VariablePattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ConstructorPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixPattern(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ParenPattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ParenPattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_TuplePattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_TuplePattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ListPattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_ListPattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_AsPattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_AsPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_LazyPattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_LazyPattern(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_FunctionPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixFuncPattern(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordPattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ConstrTermOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_LiteralPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_NegativePattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_VariablePattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ConstructorPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_InfixPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ParenPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_TuplePattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ListPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_AsPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_LazyPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_FunctionPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_InfixFuncPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RecordPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_ConstrTermFail++  branching  = Curry.Module.CurrySyntax.C_ConstrTermOr++  consKind (Curry.Module.CurrySyntax.C_ConstrTermOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ConstrTermFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ConstrTermFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ConstrTermOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ConstrTermOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Expression t0) where+  nf f (Curry.Module.CurrySyntax.C_Literal x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Literal(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Variable x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Variable(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Constructor x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Constructor(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Paren x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Paren(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Typed x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Typed(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Tuple x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Tuple(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_List x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_List(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_ListCompr x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ListCompr(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_EnumFrom x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_EnumFrom(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_EnumFromThen(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_EnumFromTo(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_EnumFromThenTo(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_UnaryMinus(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Apply x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Apply(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixApply(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_LeftSection x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_LeftSection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RightSection x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RightSection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Lambda x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Lambda(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Let x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Let(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Do x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Do(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_IfThenElse(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_Case x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Case(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RecordConstr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_RecordConstr(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordSelection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordUpdate(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Literal x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Literal(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Variable x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Variable(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Constructor x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Constructor(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Paren x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Paren(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Typed x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Typed(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Tuple x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_Tuple(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_List x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_List(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_ListCompr x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_ListCompr(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_EnumFrom x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_EnumFrom(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_EnumFromThen(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_EnumFromTo(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_EnumFromThenTo(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_UnaryMinus(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Apply x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Apply(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_InfixApply(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_LeftSection x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_LeftSection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RightSection x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RightSection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Lambda x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Lambda(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Let x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Let(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Do x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Do(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_IfThenElse(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_Case x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_Case(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RecordConstr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_RecordConstr(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordSelection(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_RecordUpdate(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_ExpressionOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Literal(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Variable(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Constructor(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Paren(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Typed(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Tuple(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_List(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_ListCompr(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_EnumFrom(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_EnumFromThen(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_EnumFromTo(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_EnumFromThenTo(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_UnaryMinus(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Apply(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_InfixApply(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_LeftSection(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RightSection(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Lambda(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Let(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Do(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_IfThenElse(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_Case(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RecordConstr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RecordSelection(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_RecordUpdate(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_ExpressionFail++  branching  = Curry.Module.CurrySyntax.C_ExpressionOr++  consKind (Curry.Module.CurrySyntax.C_ExpressionOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_ExpressionFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_ExpressionFail x) = x++  orRef (Curry.Module.CurrySyntax.C_ExpressionOr x _) = x++  branches (Curry.Module.CurrySyntax.C_ExpressionOr _ x) = x++++++instance BaseCurry Curry.Module.CurrySyntax.C_InfixOp where+  nf f (Curry.Module.CurrySyntax.C_InfixOp x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_InfixOp(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_InfixConstr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_InfixConstr(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_InfixOp x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_InfixOp(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_InfixConstr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_InfixConstr(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_InfixOpOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.CurrySyntax.C_InfixOp(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_InfixConstr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.CurrySyntax.C_InfixOpFail++  branching  = Curry.Module.CurrySyntax.C_InfixOpOr++  consKind (Curry.Module.CurrySyntax.C_InfixOpOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_InfixOpFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_InfixOpFail x) = x++  orRef (Curry.Module.CurrySyntax.C_InfixOpOr x _) = x++  branches (Curry.Module.CurrySyntax.C_InfixOpOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Statement t0) where+  nf f (Curry.Module.CurrySyntax.C_StmtExpr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_StmtExpr(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_StmtDecl x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_StmtDecl(v1))(state1))(x1)(state0)+  nf f (Curry.Module.CurrySyntax.C_StmtBind x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_StmtBind(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_StmtExpr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_StmtExpr(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_StmtDecl x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.CurrySyntax.C_StmtDecl(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.CurrySyntax.C_StmtBind x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.CurrySyntax.C_StmtBind(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_StatementOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.CurrySyntax.C_StmtExpr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_StmtDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.CurrySyntax.C_StmtBind(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.CurrySyntax.C_StatementFail++  branching  = Curry.Module.CurrySyntax.C_StatementOr++  consKind (Curry.Module.CurrySyntax.C_StatementOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_StatementFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_StatementFail x) = x++  orRef (Curry.Module.CurrySyntax.C_StatementOr x _) = x++  branches (Curry.Module.CurrySyntax.C_StatementOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.CurrySyntax.C_Alt t0) where+  nf f (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Alt(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Alt(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_AltOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Alt(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_AltFail++  branching  = Curry.Module.CurrySyntax.C_AltOr++  consKind (Curry.Module.CurrySyntax.C_AltOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_AltFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_AltFail x) = x++  orRef (Curry.Module.CurrySyntax.C_AltOr x _) = x++  branches (Curry.Module.CurrySyntax.C_AltOr _ x) = x++++++instance (BaseCurry t0,BaseCurry t1) => BaseCurry (Curry.Module.CurrySyntax.C_Field t0 t1) where+  nf f (Curry.Module.CurrySyntax.C_Field x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Field(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.CurrySyntax.C_Field x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.CurrySyntax.C_Field(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.CurrySyntax.C_FieldOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.CurrySyntax.C_Field(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.CurrySyntax.C_FieldFail++  branching  = Curry.Module.CurrySyntax.C_FieldOr++  consKind (Curry.Module.CurrySyntax.C_FieldOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.CurrySyntax.C_FieldFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.CurrySyntax.C_FieldFail x) = x++  orRef (Curry.Module.CurrySyntax.C_FieldOr x _) = x++  branches (Curry.Module.CurrySyntax.C_FieldOr _ x) = x++++++instance Curry Curry.Module.CurrySyntax.C_Position where+  strEq (Curry.Module.CurrySyntax.C_Position x1 x2 x3) (Curry.Module.CurrySyntax.C_Position y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Position x1 x2 x3) (Curry.Module.CurrySyntax.C_Position y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Position x1 x2 x3) st = Curry.Module.CurrySyntax.C_Position(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Position x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Position"++  showQ d (Curry.Module.CurrySyntax.C_Position x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Position "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_PositionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_Ident where+  strEq (Curry.Module.CurrySyntax.C_Ident x1 x2) (Curry.Module.CurrySyntax.C_Ident y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Ident x1 x2) (Curry.Module.CurrySyntax.C_Ident y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Ident x1 x2) st = Curry.Module.CurrySyntax.C_Ident(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Ident x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Ident"++  showQ d (Curry.Module.CurrySyntax.C_Ident x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Ident "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_IdentOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_QualIdent where+  strEq (Curry.Module.CurrySyntax.C_UnqualIdent x1) (Curry.Module.CurrySyntax.C_UnqualIdent y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_QualIdent x1 x2) (Curry.Module.CurrySyntax.C_QualIdent y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_UnqualIdent x1) (Curry.Module.CurrySyntax.C_UnqualIdent y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_QualIdent x1 x2) (Curry.Module.CurrySyntax.C_QualIdent y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_UnqualIdent x1) st = Curry.Module.CurrySyntax.C_UnqualIdent(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_QualIdent x1 x2) st = Curry.Module.CurrySyntax.C_QualIdent(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_UnqualIdent x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_QualIdent x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "QualIdent"++  showQ d (Curry.Module.CurrySyntax.C_UnqualIdent x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.UnqualIdent "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_QualIdent x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.QualIdent "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_QualIdentOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Module t0) where+  strEq (Curry.Module.CurrySyntax.C_Module x1 x2 x3) (Curry.Module.CurrySyntax.C_Module y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Module x1 x2 x3) (Curry.Module.CurrySyntax.C_Module y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Module x1 x2 x3) st = Curry.Module.CurrySyntax.C_Module(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Module x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Module"++  showQ d (Curry.Module.CurrySyntax.C_Module x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Module "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_ModuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_ExportSpec t0) where+  strEq (Curry.Module.CurrySyntax.C_Exporting x1 x2) (Curry.Module.CurrySyntax.C_Exporting y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Exporting x1 x2) (Curry.Module.CurrySyntax.C_Exporting y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Exporting x1 x2) st = Curry.Module.CurrySyntax.C_Exporting(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Exporting x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "ExportSpec"++  showQ d (Curry.Module.CurrySyntax.C_Exporting x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Exporting "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_ExportSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_Export where+  strEq (Curry.Module.CurrySyntax.C_Export x1) (Curry.Module.CurrySyntax.C_Export y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) (Curry.Module.CurrySyntax.C_ExportTypeWith y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ExportTypeAll x1) (Curry.Module.CurrySyntax.C_ExportTypeAll y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ExportModule x1) (Curry.Module.CurrySyntax.C_ExportModule y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Export x1) (Curry.Module.CurrySyntax.C_Export y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) (Curry.Module.CurrySyntax.C_ExportTypeWith y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_ExportTypeAll x1) (Curry.Module.CurrySyntax.C_ExportTypeAll y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ExportModule x1) (Curry.Module.CurrySyntax.C_ExportModule y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Export x1) st = Curry.Module.CurrySyntax.C_Export(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) st = Curry.Module.CurrySyntax.C_ExportTypeWith(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_ExportTypeAll x1) st = Curry.Module.CurrySyntax.C_ExportTypeAll(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ExportModule x1) st = Curry.Module.CurrySyntax.C_ExportModule(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Export x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ExportTypeAll x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ExportModule x1) st = f(x1)(c)(st)++  typeName _ = "Export"++  showQ d (Curry.Module.CurrySyntax.C_Export x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Export "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ExportTypeWith "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_ExportTypeAll x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ExportTypeAll "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ExportModule x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ExportModule "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CurrySyntax.C_ExportOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_ImportSpec t0) where+  strEq (Curry.Module.CurrySyntax.C_Importing x1 x2) (Curry.Module.CurrySyntax.C_Importing y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Hiding x1 x2) (Curry.Module.CurrySyntax.C_Hiding y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Importing x1 x2) (Curry.Module.CurrySyntax.C_Importing y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Hiding x1 x2) (Curry.Module.CurrySyntax.C_Hiding y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Importing x1 x2) st = Curry.Module.CurrySyntax.C_Importing(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Hiding x1 x2) st = Curry.Module.CurrySyntax.C_Hiding(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Importing x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Hiding x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "ImportSpec"++  showQ d (Curry.Module.CurrySyntax.C_Importing x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Importing "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Hiding x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Hiding "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_ImportSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_Import where+  strEq (Curry.Module.CurrySyntax.C_Import x1) (Curry.Module.CurrySyntax.C_Import y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) (Curry.Module.CurrySyntax.C_ImportTypeWith y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ImportTypeAll x1) (Curry.Module.CurrySyntax.C_ImportTypeAll y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Import x1) (Curry.Module.CurrySyntax.C_Import y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) (Curry.Module.CurrySyntax.C_ImportTypeWith y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_ImportTypeAll x1) (Curry.Module.CurrySyntax.C_ImportTypeAll y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Import x1) st = Curry.Module.CurrySyntax.C_Import(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) st = Curry.Module.CurrySyntax.C_ImportTypeWith(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_ImportTypeAll x1) st = Curry.Module.CurrySyntax.C_ImportTypeAll(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Import x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ImportTypeAll x1) st = f(x1)(c)(st)++  typeName _ = "Import"++  showQ d (Curry.Module.CurrySyntax.C_Import x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Import "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ImportTypeWith "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_ImportTypeAll x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ImportTypeAll "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CurrySyntax.C_ImportOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Decl t0) where+  strEq (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ImportDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_InfixDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_DataDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_NewtypeDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_TypeDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) (Curry.Module.CurrySyntax.C_TypeSig y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) (Curry.Module.CurrySyntax.C_EvalAnnot y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) (Curry.Module.CurrySyntax.C_FunctionDecl y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ExternalDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) (Curry.Module.CurrySyntax.C_FlatExternalDecl y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) (Curry.Module.CurrySyntax.C_PatternDecl y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) (Curry.Module.CurrySyntax.C_ExtraVariables y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ImportDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_InfixDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_DataDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_NewtypeDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_TypeDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) (Curry.Module.CurrySyntax.C_TypeSig y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) (Curry.Module.CurrySyntax.C_EvalAnnot y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) (Curry.Module.CurrySyntax.C_FunctionDecl y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ExternalDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) (Curry.Module.CurrySyntax.C_FlatExternalDecl y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) (Curry.Module.CurrySyntax.C_PatternDecl y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) (Curry.Module.CurrySyntax.C_ExtraVariables y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) st = Curry.Module.CurrySyntax.C_ImportDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))+  propagate f (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_InfixDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_DataDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_NewtypeDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_TypeDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) st = Curry.Module.CurrySyntax.C_TypeSig(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) st = Curry.Module.CurrySyntax.C_EvalAnnot(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) st = Curry.Module.CurrySyntax.C_FunctionDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) st = Curry.Module.CurrySyntax.C_ExternalDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))+  propagate f (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) st = Curry.Module.CurrySyntax.C_FlatExternalDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) st = Curry.Module.CurrySyntax.C_PatternDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) st = Curry.Module.CurrySyntax.C_ExtraVariables(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Decl"++  showQ d (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ImportDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ d (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.DataDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.NewtypeDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.TypeDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.TypeSig "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.EvalAnnot "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.FunctionDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ExternalDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ d (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.FlatExternalDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.PatternDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ExtraVariables "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_DeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_ConstrDecl t0) where+  strEq (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_ConstrDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ConOpDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_ConstrDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) (Curry.Module.CurrySyntax.C_ConOpDecl y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_ConstrDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) st = Curry.Module.CurrySyntax.C_ConOpDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)++  typeName _ = "ConstrDecl"++  showQ d (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ConstrDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ConOpDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ _ (Curry.Module.CurrySyntax.C_ConstrDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_NewConstrDecl t0) where+  strEq (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_NewConstrDecl y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) (Curry.Module.CurrySyntax.C_NewConstrDecl y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) st = Curry.Module.CurrySyntax.C_NewConstrDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "NewConstrDecl"++  showQ d (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.NewConstrDecl "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.CurrySyntax.C_NewConstrDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_Infix where+  strEq Curry.Module.CurrySyntax.C_InfixL Curry.Module.CurrySyntax.C_InfixL st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.CurrySyntax.C_InfixR Curry.Module.CurrySyntax.C_InfixR st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.CurrySyntax.C_Infix Curry.Module.CurrySyntax.C_Infix st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.CurrySyntax.C_InfixL Curry.Module.CurrySyntax.C_InfixL st = Curry.Module.Prelude.C_True+  eq Curry.Module.CurrySyntax.C_InfixR Curry.Module.CurrySyntax.C_InfixR st = Curry.Module.Prelude.C_True+  eq Curry.Module.CurrySyntax.C_Infix Curry.Module.CurrySyntax.C_Infix st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.CurrySyntax.C_InfixL st = Curry.Module.CurrySyntax.C_InfixL+  propagate f Curry.Module.CurrySyntax.C_InfixR st = Curry.Module.CurrySyntax.C_InfixR+  propagate f Curry.Module.CurrySyntax.C_Infix st = Curry.Module.CurrySyntax.C_Infix++  foldCurry f c Curry.Module.CurrySyntax.C_InfixL st = c+  foldCurry f c Curry.Module.CurrySyntax.C_InfixR st = c+  foldCurry f c Curry.Module.CurrySyntax.C_Infix st = c++  typeName _ = "Infix"++  showQ _ Curry.Module.CurrySyntax.C_InfixL = Prelude.showString("CurrySyntax.InfixL")+  showQ _ Curry.Module.CurrySyntax.C_InfixR = Prelude.showString("CurrySyntax.InfixR")+  showQ _ Curry.Module.CurrySyntax.C_Infix = Prelude.showString("CurrySyntax.Infix")+  showQ _ (Curry.Module.CurrySyntax.C_InfixOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_EvalAnnotation where+  strEq Curry.Module.CurrySyntax.C_EvalRigid Curry.Module.CurrySyntax.C_EvalRigid st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.CurrySyntax.C_EvalChoice Curry.Module.CurrySyntax.C_EvalChoice st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.CurrySyntax.C_EvalRigid Curry.Module.CurrySyntax.C_EvalRigid st = Curry.Module.Prelude.C_True+  eq Curry.Module.CurrySyntax.C_EvalChoice Curry.Module.CurrySyntax.C_EvalChoice st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.CurrySyntax.C_EvalRigid st = Curry.Module.CurrySyntax.C_EvalRigid+  propagate f Curry.Module.CurrySyntax.C_EvalChoice st = Curry.Module.CurrySyntax.C_EvalChoice++  foldCurry f c Curry.Module.CurrySyntax.C_EvalRigid st = c+  foldCurry f c Curry.Module.CurrySyntax.C_EvalChoice st = c++  typeName _ = "EvalAnnotation"++  showQ _ Curry.Module.CurrySyntax.C_EvalRigid = Prelude.showString("CurrySyntax.EvalRigid")+  showQ _ Curry.Module.CurrySyntax.C_EvalChoice = Prelude.showString("CurrySyntax.EvalChoice")+  showQ _ (Curry.Module.CurrySyntax.C_EvalAnnotationOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_CallConv where+  strEq Curry.Module.CurrySyntax.C_CallConvPrimitive Curry.Module.CurrySyntax.C_CallConvPrimitive st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.CurrySyntax.C_CallConvCCall Curry.Module.CurrySyntax.C_CallConvCCall st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.CurrySyntax.C_CallConvPrimitive Curry.Module.CurrySyntax.C_CallConvPrimitive st = Curry.Module.Prelude.C_True+  eq Curry.Module.CurrySyntax.C_CallConvCCall Curry.Module.CurrySyntax.C_CallConvCCall st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.CurrySyntax.C_CallConvPrimitive st = Curry.Module.CurrySyntax.C_CallConvPrimitive+  propagate f Curry.Module.CurrySyntax.C_CallConvCCall st = Curry.Module.CurrySyntax.C_CallConvCCall++  foldCurry f c Curry.Module.CurrySyntax.C_CallConvPrimitive st = c+  foldCurry f c Curry.Module.CurrySyntax.C_CallConvCCall st = c++  typeName _ = "CallConv"++  showQ _ Curry.Module.CurrySyntax.C_CallConvPrimitive = Prelude.showString("CurrySyntax.CallConvPrimitive")+  showQ _ Curry.Module.CurrySyntax.C_CallConvCCall = Prelude.showString("CurrySyntax.CallConvCCall")+  showQ _ (Curry.Module.CurrySyntax.C_CallConvOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_TypeExpr where+  strEq (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) (Curry.Module.CurrySyntax.C_ConstructorType y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_VariableType x1) (Curry.Module.CurrySyntax.C_VariableType y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_TupleType x1) (Curry.Module.CurrySyntax.C_TupleType y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ListType x1) (Curry.Module.CurrySyntax.C_ListType y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ArrowType x1 x2) (Curry.Module.CurrySyntax.C_ArrowType y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_RecordType x1 x2) (Curry.Module.CurrySyntax.C_RecordType y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) (Curry.Module.CurrySyntax.C_ConstructorType y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_VariableType x1) (Curry.Module.CurrySyntax.C_VariableType y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_TupleType x1) (Curry.Module.CurrySyntax.C_TupleType y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ListType x1) (Curry.Module.CurrySyntax.C_ListType y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ArrowType x1 x2) (Curry.Module.CurrySyntax.C_ArrowType y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_RecordType x1 x2) (Curry.Module.CurrySyntax.C_RecordType y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) st = Curry.Module.CurrySyntax.C_ConstructorType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_VariableType x1) st = Curry.Module.CurrySyntax.C_VariableType(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_TupleType x1) st = Curry.Module.CurrySyntax.C_TupleType(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ListType x1) st = Curry.Module.CurrySyntax.C_ListType(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ArrowType x1 x2) st = Curry.Module.CurrySyntax.C_ArrowType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_RecordType x1 x2) st = Curry.Module.CurrySyntax.C_RecordType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_VariableType x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_TupleType x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ListType x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ArrowType x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RecordType x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "TypeExpr"++  showQ d (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ConstructorType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_VariableType x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.VariableType "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_TupleType x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.TupleType "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ListType x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ListType "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ArrowType x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ArrowType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_RecordType x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RecordType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_TypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Equation t0) where+  strEq (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) (Curry.Module.CurrySyntax.C_Equation y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) (Curry.Module.CurrySyntax.C_Equation y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) st = Curry.Module.CurrySyntax.C_Equation(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Equation"++  showQ d (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Equation "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_EquationOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Lhs t0) where+  strEq (Curry.Module.CurrySyntax.C_FunLhs x1 x2) (Curry.Module.CurrySyntax.C_FunLhs y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) (Curry.Module.CurrySyntax.C_OpLhs y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ApLhs x1 x2) (Curry.Module.CurrySyntax.C_ApLhs y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_FunLhs x1 x2) (Curry.Module.CurrySyntax.C_FunLhs y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) (Curry.Module.CurrySyntax.C_OpLhs y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_ApLhs x1 x2) (Curry.Module.CurrySyntax.C_ApLhs y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_FunLhs x1 x2) st = Curry.Module.CurrySyntax.C_FunLhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) st = Curry.Module.CurrySyntax.C_OpLhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_ApLhs x1 x2) st = Curry.Module.CurrySyntax.C_ApLhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_FunLhs x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ApLhs x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Lhs"++  showQ d (Curry.Module.CurrySyntax.C_FunLhs x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.FunLhs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.OpLhs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_ApLhs x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ApLhs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_LhsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Rhs t0) where+  strEq (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) (Curry.Module.CurrySyntax.C_SimpleRhs y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) (Curry.Module.CurrySyntax.C_GuardedRhs y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) (Curry.Module.CurrySyntax.C_SimpleRhs y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) (Curry.Module.CurrySyntax.C_GuardedRhs y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) st = Curry.Module.CurrySyntax.C_SimpleRhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) st = Curry.Module.CurrySyntax.C_GuardedRhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Rhs"++  showQ d (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.SimpleRhs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.GuardedRhs "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_RhsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_CondExpr t0) where+  strEq (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) (Curry.Module.CurrySyntax.C_CondExpr y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) (Curry.Module.CurrySyntax.C_CondExpr y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) st = Curry.Module.CurrySyntax.C_CondExpr(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "CondExpr"++  showQ d (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.CondExpr "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_CondExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_Literal where+  strEq (Curry.Module.CurrySyntax.C_Char x1) (Curry.Module.CurrySyntax.C_Char y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_Int x1 x2) (Curry.Module.CurrySyntax.C_Int y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Float x1) (Curry.Module.CurrySyntax.C_Float y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_String x1) (Curry.Module.CurrySyntax.C_String y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Char x1) (Curry.Module.CurrySyntax.C_Char y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_Int x1 x2) (Curry.Module.CurrySyntax.C_Int y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Float x1) (Curry.Module.CurrySyntax.C_Float y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_String x1) (Curry.Module.CurrySyntax.C_String y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Char x1) st = Curry.Module.CurrySyntax.C_Char(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_Int x1 x2) st = Curry.Module.CurrySyntax.C_Int(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Float x1) st = Curry.Module.CurrySyntax.C_Float(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_String x1) st = Curry.Module.CurrySyntax.C_String(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Char x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Int x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Float x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_String x1) st = f(x1)(c)(st)++  typeName _ = "Literal"++  showQ d (Curry.Module.CurrySyntax.C_Char x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Char "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_Int x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Int "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Float x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Float "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_String x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.String "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CurrySyntax.C_LiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_ConstrTerm t0) where+  strEq (Curry.Module.CurrySyntax.C_LiteralPattern x1) (Curry.Module.CurrySyntax.C_LiteralPattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) (Curry.Module.CurrySyntax.C_NegativePattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_VariablePattern x1) (Curry.Module.CurrySyntax.C_VariablePattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) (Curry.Module.CurrySyntax.C_ConstructorPattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixPattern y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_ParenPattern x1) (Curry.Module.CurrySyntax.C_ParenPattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_TuplePattern x1) (Curry.Module.CurrySyntax.C_TuplePattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ListPattern x1) (Curry.Module.CurrySyntax.C_ListPattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_AsPattern x1 x2) (Curry.Module.CurrySyntax.C_AsPattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_LazyPattern x1) (Curry.Module.CurrySyntax.C_LazyPattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) (Curry.Module.CurrySyntax.C_FunctionPattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixFuncPattern y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) (Curry.Module.CurrySyntax.C_RecordPattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_LiteralPattern x1) (Curry.Module.CurrySyntax.C_LiteralPattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) (Curry.Module.CurrySyntax.C_NegativePattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_VariablePattern x1) (Curry.Module.CurrySyntax.C_VariablePattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) (Curry.Module.CurrySyntax.C_ConstructorPattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixPattern y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_ParenPattern x1) (Curry.Module.CurrySyntax.C_ParenPattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_TuplePattern x1) (Curry.Module.CurrySyntax.C_TuplePattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ListPattern x1) (Curry.Module.CurrySyntax.C_ListPattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_AsPattern x1 x2) (Curry.Module.CurrySyntax.C_AsPattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_LazyPattern x1) (Curry.Module.CurrySyntax.C_LazyPattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) (Curry.Module.CurrySyntax.C_FunctionPattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixFuncPattern y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) (Curry.Module.CurrySyntax.C_RecordPattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_LiteralPattern x1) st = Curry.Module.CurrySyntax.C_LiteralPattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) st = Curry.Module.CurrySyntax.C_NegativePattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_VariablePattern x1) st = Curry.Module.CurrySyntax.C_VariablePattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) st = Curry.Module.CurrySyntax.C_ConstructorPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) st = Curry.Module.CurrySyntax.C_InfixPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_ParenPattern x1) st = Curry.Module.CurrySyntax.C_ParenPattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_TuplePattern x1) st = Curry.Module.CurrySyntax.C_TuplePattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ListPattern x1) st = Curry.Module.CurrySyntax.C_ListPattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_AsPattern x1 x2) st = Curry.Module.CurrySyntax.C_AsPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_LazyPattern x1) st = Curry.Module.CurrySyntax.C_LazyPattern(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) st = Curry.Module.CurrySyntax.C_FunctionPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) st = Curry.Module.CurrySyntax.C_InfixFuncPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) st = Curry.Module.CurrySyntax.C_RecordPattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_LiteralPattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_VariablePattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ParenPattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_TuplePattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ListPattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_AsPattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_LazyPattern x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "ConstrTerm"++  showQ d (Curry.Module.CurrySyntax.C_LiteralPattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.LiteralPattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.NegativePattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_VariablePattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.VariablePattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ConstructorPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_ParenPattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ParenPattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_TuplePattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.TuplePattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ListPattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ListPattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_AsPattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.AsPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_LazyPattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.LazyPattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.FunctionPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixFuncPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RecordPattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_ConstrTermOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Expression t0) where+  strEq (Curry.Module.CurrySyntax.C_Literal x1) (Curry.Module.CurrySyntax.C_Literal y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_Variable x1) (Curry.Module.CurrySyntax.C_Variable y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_Constructor x1) (Curry.Module.CurrySyntax.C_Constructor y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_Paren x1) (Curry.Module.CurrySyntax.C_Paren y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_Typed x1 x2) (Curry.Module.CurrySyntax.C_Typed y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Tuple x1) (Curry.Module.CurrySyntax.C_Tuple y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_List x1) (Curry.Module.CurrySyntax.C_List y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_ListCompr x1 x2) (Curry.Module.CurrySyntax.C_ListCompr y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_EnumFrom x1) (Curry.Module.CurrySyntax.C_EnumFrom y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) (Curry.Module.CurrySyntax.C_EnumFromThen y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) (Curry.Module.CurrySyntax.C_EnumFromTo y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) (Curry.Module.CurrySyntax.C_EnumFromThenTo y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) (Curry.Module.CurrySyntax.C_UnaryMinus y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Apply x1 x2) (Curry.Module.CurrySyntax.C_Apply y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixApply y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_LeftSection x1 x2) (Curry.Module.CurrySyntax.C_LeftSection y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_RightSection x1 x2) (Curry.Module.CurrySyntax.C_RightSection y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Lambda x1 x2) (Curry.Module.CurrySyntax.C_Lambda y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Let x1 x2) (Curry.Module.CurrySyntax.C_Let y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Do x1 x2) (Curry.Module.CurrySyntax.C_Do y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) (Curry.Module.CurrySyntax.C_IfThenElse y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.CurrySyntax.C_Case x1 x2) (Curry.Module.CurrySyntax.C_Case y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_RecordConstr x1) (Curry.Module.CurrySyntax.C_RecordConstr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) (Curry.Module.CurrySyntax.C_RecordSelection y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) (Curry.Module.CurrySyntax.C_RecordUpdate y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Literal x1) (Curry.Module.CurrySyntax.C_Literal y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_Variable x1) (Curry.Module.CurrySyntax.C_Variable y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_Constructor x1) (Curry.Module.CurrySyntax.C_Constructor y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_Paren x1) (Curry.Module.CurrySyntax.C_Paren y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_Typed x1 x2) (Curry.Module.CurrySyntax.C_Typed y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Tuple x1) (Curry.Module.CurrySyntax.C_Tuple y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_List x1) (Curry.Module.CurrySyntax.C_List y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_ListCompr x1 x2) (Curry.Module.CurrySyntax.C_ListCompr y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_EnumFrom x1) (Curry.Module.CurrySyntax.C_EnumFrom y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) (Curry.Module.CurrySyntax.C_EnumFromThen y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) (Curry.Module.CurrySyntax.C_EnumFromTo y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) (Curry.Module.CurrySyntax.C_EnumFromThenTo y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) (Curry.Module.CurrySyntax.C_UnaryMinus y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Apply x1 x2) (Curry.Module.CurrySyntax.C_Apply y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) (Curry.Module.CurrySyntax.C_InfixApply y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_LeftSection x1 x2) (Curry.Module.CurrySyntax.C_LeftSection y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_RightSection x1 x2) (Curry.Module.CurrySyntax.C_RightSection y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Lambda x1 x2) (Curry.Module.CurrySyntax.C_Lambda y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Let x1 x2) (Curry.Module.CurrySyntax.C_Let y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_Do x1 x2) (Curry.Module.CurrySyntax.C_Do y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) (Curry.Module.CurrySyntax.C_IfThenElse y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.CurrySyntax.C_Case x1 x2) (Curry.Module.CurrySyntax.C_Case y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_RecordConstr x1) (Curry.Module.CurrySyntax.C_RecordConstr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) (Curry.Module.CurrySyntax.C_RecordSelection y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) (Curry.Module.CurrySyntax.C_RecordUpdate y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Literal x1) st = Curry.Module.CurrySyntax.C_Literal(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_Variable x1) st = Curry.Module.CurrySyntax.C_Variable(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_Constructor x1) st = Curry.Module.CurrySyntax.C_Constructor(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_Paren x1) st = Curry.Module.CurrySyntax.C_Paren(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_Typed x1 x2) st = Curry.Module.CurrySyntax.C_Typed(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Tuple x1) st = Curry.Module.CurrySyntax.C_Tuple(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_List x1) st = Curry.Module.CurrySyntax.C_List(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_ListCompr x1 x2) st = Curry.Module.CurrySyntax.C_ListCompr(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_EnumFrom x1) st = Curry.Module.CurrySyntax.C_EnumFrom(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) st = Curry.Module.CurrySyntax.C_EnumFromThen(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) st = Curry.Module.CurrySyntax.C_EnumFromTo(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) st = Curry.Module.CurrySyntax.C_EnumFromThenTo(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) st = Curry.Module.CurrySyntax.C_UnaryMinus(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Apply x1 x2) st = Curry.Module.CurrySyntax.C_Apply(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) st = Curry.Module.CurrySyntax.C_InfixApply(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_LeftSection x1 x2) st = Curry.Module.CurrySyntax.C_LeftSection(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_RightSection x1 x2) st = Curry.Module.CurrySyntax.C_RightSection(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Lambda x1 x2) st = Curry.Module.CurrySyntax.C_Lambda(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Let x1 x2) st = Curry.Module.CurrySyntax.C_Let(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_Do x1 x2) st = Curry.Module.CurrySyntax.C_Do(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) st = Curry.Module.CurrySyntax.C_IfThenElse(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.CurrySyntax.C_Case x1 x2) st = Curry.Module.CurrySyntax.C_Case(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_RecordConstr x1) st = Curry.Module.CurrySyntax.C_RecordConstr(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) st = Curry.Module.CurrySyntax.C_RecordSelection(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) st = Curry.Module.CurrySyntax.C_RecordUpdate(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Literal x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Variable x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Constructor x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Paren x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Typed x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Tuple x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_List x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_ListCompr x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_EnumFrom x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Apply x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_LeftSection x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RightSection x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Lambda x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Let x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Do x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_Case x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RecordConstr x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Expression"++  showQ d (Curry.Module.CurrySyntax.C_Literal x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Literal "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_Variable x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Variable "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_Constructor x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Constructor "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_Paren x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Paren "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_Typed x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Typed "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Tuple x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Tuple "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_List x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.List "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_ListCompr x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.ListCompr "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_EnumFrom x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.EnumFrom "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.EnumFromThen "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.EnumFromTo "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.EnumFromThenTo "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.UnaryMinus "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Apply x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Apply "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixApply "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_LeftSection x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.LeftSection "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_RightSection x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RightSection "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Lambda x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Lambda "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Let x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Let "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_Do x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Do "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.IfThenElse "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.CurrySyntax.C_Case x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Case "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_RecordConstr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RecordConstr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RecordSelection "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.RecordUpdate "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_ExpressionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.CurrySyntax.C_InfixOp where+  strEq (Curry.Module.CurrySyntax.C_InfixOp x1) (Curry.Module.CurrySyntax.C_InfixOp y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_InfixConstr x1) (Curry.Module.CurrySyntax.C_InfixConstr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_InfixOp x1) (Curry.Module.CurrySyntax.C_InfixOp y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_InfixConstr x1) (Curry.Module.CurrySyntax.C_InfixConstr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_InfixOp x1) st = Curry.Module.CurrySyntax.C_InfixOp(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_InfixConstr x1) st = Curry.Module.CurrySyntax.C_InfixConstr(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_InfixOp x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_InfixConstr x1) st = f(x1)(c)(st)++  typeName _ = "InfixOp"++  showQ d (Curry.Module.CurrySyntax.C_InfixOp x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixOp "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_InfixConstr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.InfixConstr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.CurrySyntax.C_InfixOpOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Statement t0) where+  strEq (Curry.Module.CurrySyntax.C_StmtExpr x1) (Curry.Module.CurrySyntax.C_StmtExpr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_StmtDecl x1) (Curry.Module.CurrySyntax.C_StmtDecl y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.CurrySyntax.C_StmtBind x1 x2) (Curry.Module.CurrySyntax.C_StmtBind y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_StmtExpr x1) (Curry.Module.CurrySyntax.C_StmtExpr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_StmtDecl x1) (Curry.Module.CurrySyntax.C_StmtDecl y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.CurrySyntax.C_StmtBind x1 x2) (Curry.Module.CurrySyntax.C_StmtBind y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_StmtExpr x1) st = Curry.Module.CurrySyntax.C_StmtExpr(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_StmtDecl x1) st = Curry.Module.CurrySyntax.C_StmtDecl(f((0::Int))(x1)(st))+  propagate f (Curry.Module.CurrySyntax.C_StmtBind x1 x2) st = Curry.Module.CurrySyntax.C_StmtBind(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_StmtExpr x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_StmtDecl x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.CurrySyntax.C_StmtBind x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Statement"++  showQ d (Curry.Module.CurrySyntax.C_StmtExpr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.StmtExpr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_StmtDecl x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.StmtDecl "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.CurrySyntax.C_StmtBind x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.StmtBind "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.CurrySyntax.C_StatementOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.CurrySyntax.C_Alt t0) where+  strEq (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) (Curry.Module.CurrySyntax.C_Alt y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) (Curry.Module.CurrySyntax.C_Alt y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) st = Curry.Module.CurrySyntax.C_Alt(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Alt"++  showQ d (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Alt "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_AltOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0,Curry t1) => Curry (Curry.Module.CurrySyntax.C_Field t0 t1) where+  strEq (Curry.Module.CurrySyntax.C_Field x1 x2 x3) (Curry.Module.CurrySyntax.C_Field y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.CurrySyntax.C_Field x1 x2 x3) (Curry.Module.CurrySyntax.C_Field y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.CurrySyntax.C_Field x1 x2 x3) st = Curry.Module.CurrySyntax.C_Field(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.CurrySyntax.C_Field x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Field"++  showQ d (Curry.Module.CurrySyntax.C_Field x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CurrySyntax.Field "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.CurrySyntax.C_FieldOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Position where+  showsPrec d (Curry.Module.CurrySyntax.C_Position x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Position "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_PositionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Ident where+  showsPrec d (Curry.Module.CurrySyntax.C_Ident x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Ident "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_IdentOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_QualIdent where+  showsPrec d (Curry.Module.CurrySyntax.C_UnqualIdent x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("UnqualIdent "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_QualIdent x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("QualIdent "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_QualIdentOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Module t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Module x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Module "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ModuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_ExportSpec t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Exporting x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Exporting "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ExportSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Export where+  showsPrec d (Curry.Module.CurrySyntax.C_Export x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Export "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ExportTypeWith x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ExportTypeWith "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ExportTypeAll x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ExportTypeAll "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ExportModule x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ExportModule "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ExportOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_ImportSpec t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Importing x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Importing "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Hiding x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Hiding "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ImportSpecOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Import where+  showsPrec d (Curry.Module.CurrySyntax.C_Import x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Import "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ImportTypeWith x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ImportTypeWith "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ImportTypeAll x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ImportTypeAll "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ImportOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Decl t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_ImportDecl x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ImportDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_InfixDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_DataDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("DataDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_NewtypeDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("NewtypeDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_TypeDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TypeDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_TypeSig x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TypeSig "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_EvalAnnot x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("EvalAnnot "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_FunctionDecl x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FunctionDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ExternalDecl x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ExternalDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_FlatExternalDecl x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatExternalDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_PatternDecl x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("PatternDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ExtraVariables x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ExtraVariables "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_DeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_ConstrDecl t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_ConstrDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ConstrDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ConOpDecl x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ConOpDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ConstrDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_NewConstrDecl t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_NewConstrDecl x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("NewConstrDecl "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_NewConstrDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Infix where+  showsPrec _ Curry.Module.CurrySyntax.C_InfixL = Prelude.showString("InfixL")+  showsPrec _ Curry.Module.CurrySyntax.C_InfixR = Prelude.showString("InfixR")+  showsPrec _ Curry.Module.CurrySyntax.C_Infix = Prelude.showString("Infix")+  showsPrec _ (Curry.Module.CurrySyntax.C_InfixOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_EvalAnnotation where+  showsPrec _ Curry.Module.CurrySyntax.C_EvalRigid = Prelude.showString("EvalRigid")+  showsPrec _ Curry.Module.CurrySyntax.C_EvalChoice = Prelude.showString("EvalChoice")+  showsPrec _ (Curry.Module.CurrySyntax.C_EvalAnnotationOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_CallConv where+  showsPrec _ Curry.Module.CurrySyntax.C_CallConvPrimitive = Prelude.showString("CallConvPrimitive")+  showsPrec _ Curry.Module.CurrySyntax.C_CallConvCCall = Prelude.showString("CallConvCCall")+  showsPrec _ (Curry.Module.CurrySyntax.C_CallConvOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_TypeExpr where+  showsPrec d (Curry.Module.CurrySyntax.C_ConstructorType x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ConstructorType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_VariableType x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("VariableType "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_TupleType x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TupleType "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ListType x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ListType "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ArrowType x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ArrowType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_RecordType x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RecordType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_TypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Equation t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Equation x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Equation "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_EquationOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Lhs t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_FunLhs x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FunLhs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_OpLhs x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OpLhs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ApLhs x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ApLhs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_LhsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Rhs t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_SimpleRhs x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SimpleRhs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_GuardedRhs x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("GuardedRhs "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_RhsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_CondExpr t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_CondExpr x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CondExpr "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_CondExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_Literal where+  showsPrec d (Curry.Module.CurrySyntax.C_Char x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Char "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_Int x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Int "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Float x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Float "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_String x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("String "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CurrySyntax.C_LiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_ConstrTerm t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_LiteralPattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LiteralPattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_NegativePattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("NegativePattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_VariablePattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("VariablePattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ConstructorPattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ConstructorPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_InfixPattern x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_ParenPattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ParenPattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_TuplePattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TuplePattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ListPattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ListPattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_AsPattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AsPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_LazyPattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LazyPattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_FunctionPattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FunctionPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_InfixFuncPattern x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixFuncPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_RecordPattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RecordPattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ConstrTermOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Expression t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Literal x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Literal "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_Variable x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Variable "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_Constructor x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Constructor "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_Paren x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Paren "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_Typed x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Typed "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Tuple x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Tuple "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_List x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("List "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_ListCompr x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ListCompr "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_EnumFrom x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("EnumFrom "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_EnumFromThen x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("EnumFromThen "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_EnumFromTo x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("EnumFromTo "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_EnumFromThenTo x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("EnumFromThenTo "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_UnaryMinus x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("UnaryMinus "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Apply x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Apply "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_InfixApply x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixApply "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_LeftSection x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LeftSection "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_RightSection x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RightSection "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Lambda x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Lambda "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Let x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Let "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Do x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Do "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_IfThenElse x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("IfThenElse "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.CurrySyntax.C_Case x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Case "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_RecordConstr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RecordConstr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_RecordSelection x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RecordSelection "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.CurrySyntax.C_RecordUpdate x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RecordUpdate "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_ExpressionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.CurrySyntax.C_InfixOp where+  showsPrec d (Curry.Module.CurrySyntax.C_InfixOp x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixOp "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_InfixConstr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("InfixConstr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.CurrySyntax.C_InfixOpOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Statement t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_StmtExpr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("StmtExpr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_StmtDecl x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("StmtDecl "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.CurrySyntax.C_StmtBind x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("StmtBind "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_StatementOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.CurrySyntax.C_Alt t0) where+  showsPrec d (Curry.Module.CurrySyntax.C_Alt x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Alt "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_AltOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0,Show t1) => Show (Curry.Module.CurrySyntax.C_Field t0 t1) where+  showsPrec d (Curry.Module.CurrySyntax.C_Field x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Field "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.CurrySyntax.C_FieldOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.CurrySyntax.C_Position where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Position(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Position")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance Read Curry.Module.CurrySyntax.C_Ident where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Ident(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Ident")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.CurrySyntax.C_QualIdent where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_UnqualIdent(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("UnqualIdent")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_QualIdent(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("QualIdent")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Module t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Module(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Module")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_ExportSpec t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Exporting(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Exporting")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.CurrySyntax.C_Export where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Export(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Export")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ExportTypeWith(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ExportTypeWith")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ExportTypeAll(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ExportTypeAll")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ExportModule(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ExportModule")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_ImportSpec t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Importing(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Importing")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Hiding(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Hiding")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))++++++instance Read Curry.Module.CurrySyntax.C_Import where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Import(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Import")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ImportTypeWith(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ImportTypeWith")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ImportTypeAll(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ImportTypeAll")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Decl t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ImportDecl(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ImportDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_DataDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("DataDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_NewtypeDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("NewtypeDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_TypeDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("TypeDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_TypeSig(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("TypeSig")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_EvalAnnot(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EvalAnnot")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_FunctionDecl(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("FunctionDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ExternalDecl(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ExternalDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_FlatExternalDecl(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("FlatExternalDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_PatternDecl(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("PatternDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ExtraVariables(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ExtraVariables")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))))))))))))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_ConstrDecl t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ConstrDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ConstrDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ConOpDecl(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ConOpDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_NewConstrDecl t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_NewConstrDecl(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("NewConstrDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r)++++++instance Read Curry.Module.CurrySyntax.C_Infix where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixL)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixL")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixR)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixR")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_Infix)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Infix")(r)])(r)))++++++instance Read Curry.Module.CurrySyntax.C_EvalAnnotation where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_EvalRigid)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EvalRigid")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_EvalChoice)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EvalChoice")(r)])(r))++++++instance Read Curry.Module.CurrySyntax.C_CallConv where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_CallConvPrimitive)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("CallConvPrimitive")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.CurrySyntax.C_CallConvCCall)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("CallConvCCall")(r)])(r))++++++instance Read Curry.Module.CurrySyntax.C_TypeExpr where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ConstructorType(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ConstructorType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_VariableType(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("VariableType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_TupleType(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("TupleType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ListType(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ListType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ArrowType(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ArrowType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RecordType(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RecordType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))))))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Equation t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Equation(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Equation")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Lhs t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_FunLhs(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("FunLhs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_OpLhs(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("OpLhs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ApLhs(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ApLhs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Rhs t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_SimpleRhs(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("SimpleRhs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_GuardedRhs(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("GuardedRhs")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_CondExpr t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_CondExpr(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("CondExpr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance Read Curry.Module.CurrySyntax.C_Literal where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Char(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Char")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Int(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Int")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Float(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Float")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_String(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("String")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_ConstrTerm t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_LiteralPattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("LiteralPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_NegativePattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("NegativePattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_VariablePattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("VariablePattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ConstructorPattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ConstructorPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixPattern(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ParenPattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ParenPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_TuplePattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("TuplePattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ListPattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ListPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_AsPattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("AsPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_LazyPattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("LazyPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_FunctionPattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("FunctionPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixFuncPattern(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixFuncPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RecordPattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RecordPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))))))))))))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Expression t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Literal(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Literal")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Variable(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Variable")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Constructor(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Constructor")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Paren(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Paren")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Typed(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Typed")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Tuple(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Tuple")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_List(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("List")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_ListCompr(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("ListCompr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_EnumFrom(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EnumFrom")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_EnumFromThen(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EnumFromThen")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_EnumFromTo(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EnumFromTo")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_EnumFromThenTo(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("EnumFromThenTo")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_UnaryMinus(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("UnaryMinus")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Apply(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Apply")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixApply(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixApply")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_LeftSection(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("LeftSection")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RightSection(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RightSection")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Lambda(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Lambda")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Let(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Let")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Do(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Do")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_IfThenElse(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("IfThenElse")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Case(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Case")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RecordConstr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RecordConstr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RecordSelection(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RecordSelection")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_RecordUpdate(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("RecordUpdate")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))))))))))))))))))))))))++++++instance Read Curry.Module.CurrySyntax.C_InfixOp where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixOp(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixOp")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_InfixConstr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("InfixConstr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Statement t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_StmtExpr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("StmtExpr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_StmtDecl(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("StmtDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_StmtBind(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("StmtBind")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))++++++instance (Read t0) => Read (Curry.Module.CurrySyntax.C_Alt t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Alt(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Alt")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance (Read t0,Read t1) => Read (Curry.Module.CurrySyntax.C_Field t0 t1) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.CurrySyntax.C_Field(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("CurrySyntax")("Field")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++c_readCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_readCurry x1 st = Curry.Module.CurrySyntax.c_readCurryWithParseOptions(x1)(Curry.Module.Distribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.Distribution.c_defaultParams(st))(st))(st)++++c_readCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_readCurryWithParseOptions x1 x2 st = let {x3 = Curry.Module.Prelude.c_apply(Curry.Module.CurrySyntax.c_stripSuffix(st))(x1)(st)} in Curry.Module.Prelude.op_62_62(Curry.Module.CurrySyntax.c_orElseDo(Curry.Module.CurrySyntax.c_readCurryWithParseOptions'46parseCurry'465(x2)(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(Curry.Module.CurrySyntax.c_readCurryWithParseOptions'46parseCurry'465(x2)(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.CurrySyntax.c_readCurryFile(x3)(st))(st)++++c_readCurryWithParseOptions'46parse'465 :: (Curry t0) => Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0)+c_readCurryWithParseOptions'46parse'465 x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.Distribution.c_callFrontendWithParams(Curry.Module.Distribution.C_CY)(x1)(x2)(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T0))(st))(st)++++c_readCurryWithParseOptions'46parseCurry'465 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0)+c_readCurryWithParseOptions'46parseCurry'465 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CurrySyntax.c_absoluteFileName(Curry.Module.Prelude.op_43_43(x2)(x3)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st))(Curry.Module.Prelude.pf(Curry.Module.CurrySyntax.c_readCurryWithParseOptions'46parse'465(x1)(x2)))))(st)++++c_readCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_readCurryFile x1 st = let {x2 = Curry.Module.Prelude.c_apply(Curry.Module.CurrySyntax.c_stripSuffix(st))(x1)(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.CurrySyntax.c_absoluteFileName(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CurrySyntax.c_readCurryFile'46_'35lambda3(x2)))(st)++++c_readCurryFile'46read'4613 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0+c_readCurryFile'46read'4613 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CurrySyntax.c_readCurryFile'46read'4613'46_'35lambda2))(st)++++c_readCurryFile'46read'4613'46_'35lambda2 :: (Curry t48) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t48+c_readCurryFile'46read'4613'46_'35lambda2 x1 st = Curry.Module.Prelude.c_return(Curry.Module.ReadShowTerm.c_readUnqualifiedTerm((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List)))(x1)(st))(st)++++c_readCurryFile'46_'35lambda3 :: (Curry t49) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t49+c_readCurryFile'46_'35lambda3 x1 x2 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.CurrySyntax.c_readCurryFile'46read'4613))(x2)(st)++++c_writeCurryModule :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeCurryModule x1@(Curry.Module.CurrySyntax.C_Module x2 x3 x4) st = Curry.Module.CurrySyntax.c_writeCurryFile(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))(st))(x1)(st)+c_writeCurryModule (Curry.Module.CurrySyntax.C_ModuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurrySyntax.c_writeCurryModule(x)(st))(i)(xs)(st)+c_writeCurryModule x st = Curry.RunTimeSystem.patternFail("CurrySyntax.writeCurryModule")(x)++++c_writeCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeCurryFile x1 x2 st = Curry.Module.Prelude.c_writeFile(x1)(Curry.Module.ReadShowTerm.c_showTerm(x2)(st))(st)++++c_absoluteFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_absoluteFileName x1 st = Curry.Module.CurrySyntax.c_absoluteFileName_case_2(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.FileGoodies.c_baseName(x1)(st))(st))(st)++++c_absoluteFileName'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_absoluteFileName'46_'35lambda4 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.CurrySyntax.c_absoluteFileName'46_'35lambda4_case_0(x1)(x2)(st))(st)++++c_orElseDo :: (Curry t0) => (Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)) -> (Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)+c_orElseDo x1 x2 st = Curry.Module.Prelude.op_62_62_61(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe(x2)(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(st))))(st)++++c_stripSuffix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_stripSuffix st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_takeWhile(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char('.')))))++++c_absoluteFileName'46_'35lambda4_case_0 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_Just(x1)+c_absoluteFileName'46_'35lambda4_case_0 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_absoluteFileName'46_'35lambda4_case_0 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurrySyntax.c_absoluteFileName'46_'35lambda4_case_0(x1)(x)(st))(i)(xs)(st)+c_absoluteFileName'46_'35lambda4_case_0 x1 x st = Curry.RunTimeSystem.patternFail("CurrySyntax.absoluteFileName._#lambda4_case_0")(x)++++c_absoluteFileName_case_2 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Distribution.c_lookupFileInLoadPath(x1)(st)+c_absoluteFileName_case_2 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CurrySyntax.c_absoluteFileName_case_1(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_absoluteFileName_case_2 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurrySyntax.c_absoluteFileName_case_2(x1)(x)(st))(i)(xs)(st)+c_absoluteFileName_case_2 x1 x st = Curry.RunTimeSystem.patternFail("CurrySyntax.absoluteFileName_case_2")(x)++++c_absoluteFileName_case_1 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.CurrySyntax.c_absoluteFileName'46_'35lambda4(x1)))(st)+c_absoluteFileName_case_1 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.CurrySyntax.c_absoluteFileName_case_1(x1)(x)(st))(i)(xs)(st)+c_absoluteFileName_case_1 x1 x st = Curry.RunTimeSystem.patternFail("CurrySyntax.absoluteFileName_case_1")(x)++
+ dist/build/Curry/Module/Distribution.hs view
@@ -0,0 +1,575 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.Distribution (module Curry.Module.Distribution) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.FileGoodies+import Curry.Module.IO+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.PropertyFile+import Curry.Module.System+import Curry.Module.Directory++++-- begin included++++import Curry.Files.KiCSPath   +import Curry.Files.CymakePath ++curryCompiler :: Result C_String+curryCompiler _ = toCurry "kics"++curryCompilerMajorVersion :: Result C_Int+curryCompilerMajorVersion _ = 0++curryCompilerMinorVersion :: Result C_Int+curryCompilerMinorVersion _ = 8++getStdLibDir :: Result (C_IO C_String)+getStdLibDir = ioFunc0 getKiCSLibDir++-- finding the frontend binary+getFrontendCall :: Result (C_IO C_String)+getFrontendCall = ioFunc0 getCymake++installDir :: Result C_String+installDir _ = toCurry ""++curryRuntime :: Result C_String+curryRuntime _ = toCurry "ghc"++curryRuntimeMajorVersion :: Result C_Int+curryRuntimeMajorVersion _ = 6++curryRuntimeMinorVersion :: Result C_Int+curryRuntimeMinorVersion _ = 10++++-- end included++data C_FrontendTarget = C_FCY+  | C_FINT+  | C_ACY+  | C_UACY+  | C_HTML+  | C_CY+  | C_FrontendTargetFail Curry.RunTimeSystem.C_Exceptions+  | C_FrontendTargetOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.Distribution.C_FrontendTarget)++data C_FrontendParams = C_FrontendParams Curry.Module.Prelude.C_Bool (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+  | C_FrontendParamsFail Curry.RunTimeSystem.C_Exceptions+  | C_FrontendParamsOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.Distribution.C_FrontendParams)++instance BaseCurry Curry.Module.Distribution.C_FrontendTarget where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.Distribution.C_FrontendTargetOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.Distribution.C_FCY,Curry.Module.Distribution.C_FINT,Curry.Module.Distribution.C_ACY,Curry.Module.Distribution.C_UACY,Curry.Module.Distribution.C_HTML,Curry.Module.Distribution.C_CY]))(0)++  failed  = Curry.Module.Distribution.C_FrontendTargetFail++  branching  = Curry.Module.Distribution.C_FrontendTargetOr++  consKind (Curry.Module.Distribution.C_FrontendTargetOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.Distribution.C_FrontendTargetFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.Distribution.C_FrontendTargetFail x) = x++  orRef (Curry.Module.Distribution.C_FrontendTargetOr x _) = x++  branches (Curry.Module.Distribution.C_FrontendTargetOr _ x) = x++++++instance BaseCurry Curry.Module.Distribution.C_FrontendParams where+  nf f (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.Distribution.C_FrontendParams(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.Distribution.C_FrontendParams(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.Distribution.C_FrontendParamsOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.Distribution.C_FrontendParams(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.Distribution.C_FrontendParamsFail++  branching  = Curry.Module.Distribution.C_FrontendParamsOr++  consKind (Curry.Module.Distribution.C_FrontendParamsOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.Distribution.C_FrontendParamsFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.Distribution.C_FrontendParamsFail x) = x++  orRef (Curry.Module.Distribution.C_FrontendParamsOr x _) = x++  branches (Curry.Module.Distribution.C_FrontendParamsOr _ x) = x++++++instance Curry Curry.Module.Distribution.C_FrontendTarget where+  strEq Curry.Module.Distribution.C_FCY Curry.Module.Distribution.C_FCY st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.Distribution.C_FINT Curry.Module.Distribution.C_FINT st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.Distribution.C_ACY Curry.Module.Distribution.C_ACY st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.Distribution.C_UACY Curry.Module.Distribution.C_UACY st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.Distribution.C_HTML Curry.Module.Distribution.C_HTML st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.Distribution.C_CY Curry.Module.Distribution.C_CY st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.Distribution.C_FCY Curry.Module.Distribution.C_FCY st = Curry.Module.Prelude.C_True+  eq Curry.Module.Distribution.C_FINT Curry.Module.Distribution.C_FINT st = Curry.Module.Prelude.C_True+  eq Curry.Module.Distribution.C_ACY Curry.Module.Distribution.C_ACY st = Curry.Module.Prelude.C_True+  eq Curry.Module.Distribution.C_UACY Curry.Module.Distribution.C_UACY st = Curry.Module.Prelude.C_True+  eq Curry.Module.Distribution.C_HTML Curry.Module.Distribution.C_HTML st = Curry.Module.Prelude.C_True+  eq Curry.Module.Distribution.C_CY Curry.Module.Distribution.C_CY st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.Distribution.C_FCY st = Curry.Module.Distribution.C_FCY+  propagate f Curry.Module.Distribution.C_FINT st = Curry.Module.Distribution.C_FINT+  propagate f Curry.Module.Distribution.C_ACY st = Curry.Module.Distribution.C_ACY+  propagate f Curry.Module.Distribution.C_UACY st = Curry.Module.Distribution.C_UACY+  propagate f Curry.Module.Distribution.C_HTML st = Curry.Module.Distribution.C_HTML+  propagate f Curry.Module.Distribution.C_CY st = Curry.Module.Distribution.C_CY++  foldCurry f c Curry.Module.Distribution.C_FCY st = c+  foldCurry f c Curry.Module.Distribution.C_FINT st = c+  foldCurry f c Curry.Module.Distribution.C_ACY st = c+  foldCurry f c Curry.Module.Distribution.C_UACY st = c+  foldCurry f c Curry.Module.Distribution.C_HTML st = c+  foldCurry f c Curry.Module.Distribution.C_CY st = c++  typeName _ = "FrontendTarget"++  showQ _ Curry.Module.Distribution.C_FCY = Prelude.showString("Distribution.FCY")+  showQ _ Curry.Module.Distribution.C_FINT = Prelude.showString("Distribution.FINT")+  showQ _ Curry.Module.Distribution.C_ACY = Prelude.showString("Distribution.ACY")+  showQ _ Curry.Module.Distribution.C_UACY = Prelude.showString("Distribution.UACY")+  showQ _ Curry.Module.Distribution.C_HTML = Prelude.showString("Distribution.HTML")+  showQ _ Curry.Module.Distribution.C_CY = Prelude.showString("Distribution.CY")+  showQ _ (Curry.Module.Distribution.C_FrontendTargetOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.Distribution.C_FrontendParams where+  strEq (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) (Curry.Module.Distribution.C_FrontendParams y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) (Curry.Module.Distribution.C_FrontendParams y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) st = Curry.Module.Distribution.C_FrontendParams(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "FrontendParams"++  showQ d (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Distribution.FrontendParams "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.Distribution.C_FrontendParamsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.Distribution.C_FrontendTarget where+  showsPrec _ Curry.Module.Distribution.C_FCY = Prelude.showString("FCY")+  showsPrec _ Curry.Module.Distribution.C_FINT = Prelude.showString("FINT")+  showsPrec _ Curry.Module.Distribution.C_ACY = Prelude.showString("ACY")+  showsPrec _ Curry.Module.Distribution.C_UACY = Prelude.showString("UACY")+  showsPrec _ Curry.Module.Distribution.C_HTML = Prelude.showString("HTML")+  showsPrec _ Curry.Module.Distribution.C_CY = Prelude.showString("CY")+  showsPrec _ (Curry.Module.Distribution.C_FrontendTargetOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.Distribution.C_FrontendParams where+  showsPrec d (Curry.Module.Distribution.C_FrontendParams x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FrontendParams "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.Distribution.C_FrontendParamsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.Distribution.C_FrontendTarget where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_FCY)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("FCY")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_FINT)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("FINT")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_ACY)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("ACY")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_UACY)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("UACY")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_HTML)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("HTML")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.Distribution.C_CY)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("CY")(r)])(r))))))++++++instance Read Curry.Module.Distribution.C_FrontendParams where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.Distribution.C_FrontendParams(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("Distribution")("FrontendParams")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r)++++++c_rcFileName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_rcFileName st = Curry.Module.Prelude.op_62_62_61(Curry.Module.System.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_43_43))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))(st))(st))))(st))(st)++++c_rcFileContents :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_rcFileContents st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_rcFileName(st))(Curry.Module.Prelude.pf(Curry.Module.PropertyFile.c_readPropertyFile))(st)++++c_getRcVar :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getRcVar x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getRcVars((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_head))(st))(st)++++c_getRcVars :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getRcVars x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_rcFileContents(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getRcVars'46_'35lambda2(x1)))(st)++++c_getRcVars'46_'35lambda2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getRcVars'46_'35lambda2 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_lookup))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getRcVars'46_'35lambda2'46_'35lambda3))(x2)(st))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Char.c_toLower))))(x1)(st))(st))(st)++++c_getRcVars'46_'35lambda2'46_'35lambda3 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getRcVars'46_'35lambda2'46_'35lambda3 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Char.c_toLower))(x2)(st))(x3)+c_getRcVars'46_'35lambda2'46_'35lambda3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getRcVars'46_'35lambda2'46_'35lambda3(x)(st))(i)(xs)(st)+c_getRcVars'46_'35lambda2'46_'35lambda3 x st = Curry.RunTimeSystem.patternFail("Distribution.getRcVars._#lambda2._#lambda3")(x)++++c_currySubdir :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_currySubdir st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))++++c_inCurrySubdir :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir x1 st = let {x2 = Curry.Module.FileGoodies.c_splitDirectoryBaseName(x1)(st)} in Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_inCurrySubdir'46_'35selFP3'35base(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_currySubdir(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Distribution.c_inCurrySubdir'46_'35selFP4'35file(x2)(st)))(st)))(st)++++c_inCurrySubdir'46_'35selFP3'35base :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir'46_'35selFP3'35base x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_inCurrySubdir'46_'35selFP3'35base (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_inCurrySubdir'46_'35selFP3'35base(x)(st))(i)(xs)(st)+c_inCurrySubdir'46_'35selFP3'35base x st = Curry.RunTimeSystem.patternFail("Distribution.inCurrySubdir._#selFP3#base")(x)++++c_inCurrySubdir'46_'35selFP4'35file :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir'46_'35selFP4'35file x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_inCurrySubdir'46_'35selFP4'35file (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_inCurrySubdir'46_'35selFP4'35file(x)(st))(i)(xs)(st)+c_inCurrySubdir'46_'35selFP4'35file x st = Curry.RunTimeSystem.patternFail("Distribution.inCurrySubdir._#selFP4#file")(x)++++c_addCurrySubdir :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_addCurrySubdir x1 st = Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Distribution.c_currySubdir(st)))(st)++++c_getSysLibPath :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getSysLibPath st = Curry.Module.Distribution.c_getSysLibPath_case_10(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(st))(st)++++c_getSysLibPath'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getSysLibPath'46_'35lambda4 x1 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Distribution.c_getSysLibPath'46_'35lambda4_case_8(x1)(Curry.Module.Prelude.c_null(x1)(st))(st))(st)++++c_lookupFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_lookupFileInLoadPath x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPathForFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FileGoodies.c_lookupFileInPath(Curry.Module.FileGoodies.c_baseName(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))))(st)++++c_findFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_findFileInLoadPath x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPathForFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FileGoodies.c_getFileInPath(Curry.Module.FileGoodies.c_baseName(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))))(st)++++c_readFirstFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_readFirstFileInLoadPath x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_findFileInLoadPath(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_readFile))(st)++++c_getLoadPath :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getLoadPath st = Curry.Module.Distribution.c_getLoadPathForFile((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))(st)++++c_getLoadPathForFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getLoadPathForFile x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getSysLibPath(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda5))(st))(x1)))(st)++++c_getLoadPathForFile'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getLoadPathForFile'46_'35lambda5 x1 st = (Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(Curry.Module.Distribution.c_addCurrySubdir(x1)(st))(Curry.Module.Prelude.List))++++c_getLoadPathForFile'46_'35lambda6 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getLoadPathForFile'46_'35lambda6 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getRcVar((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7(x1)(x2)(x3)))(st)++++c_getLoadPathForFile'46_'35lambda6'46_'35lambda7 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7 x1 x2 x3 x4 st = Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7(x1)(x2)(x3)(x4)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(st))(st))(st)++++c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.c_apply(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6(x5)(Curry.Module.Prelude.c_null(x5)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.pf(Curry.Module.FileGoodies.c_splitPath))(x3)(st))(x4)(st))(st)))(st))(st)++++c_defaultParams :: Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_defaultParams st = Curry.Module.Distribution.C_FrontendParams(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.C_Nothing)++++c_setQuiet :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setQuiet x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.Distribution.C_FrontendParams(x1)(x4)(x5)(x6)+c_setQuiet x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_setQuiet(x1)(x)(st))(i)(xs)(st)+c_setQuiet x1 x st = Curry.RunTimeSystem.patternFail("Distribution.setQuiet")(x)++++c_setFullPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setFullPath x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.Distribution.C_FrontendParams(x3)(Curry.Module.Prelude.C_Just(x1))(x5)(x6)+c_setFullPath x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_setFullPath(x1)(x)(st))(i)(xs)(st)+c_setFullPath x1 x st = Curry.RunTimeSystem.patternFail("Distribution.setFullPath")(x)++++c_setOutfile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setOutfile x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.Distribution.C_FrontendParams(x3)(x4)(Curry.Module.Prelude.C_Just(x1))(x6)+c_setOutfile x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_setOutfile(x1)(x)(st))(i)(xs)(st)+c_setOutfile x1 x st = Curry.RunTimeSystem.patternFail("Distribution.setOutfile")(x)++++c_setLogfile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setLogfile x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.Distribution.C_FrontendParams(x3)(x4)(x5)(Curry.Module.Prelude.C_Just(x1))+c_setLogfile x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_setLogfile(x1)(x)(st))(i)(xs)(st)+c_setLogfile x1 x st = Curry.RunTimeSystem.patternFail("Distribution.setLogfile")(x)++++c_quiet :: Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_quiet x1@(Curry.Module.Distribution.C_FrontendParams x2 x3 x4 x5) st = x2+c_quiet (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_quiet(x)(st))(i)(xs)(st)+c_quiet x st = Curry.RunTimeSystem.patternFail("Distribution.quiet")(x)++++c_fullPath :: Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_fullPath x1@(Curry.Module.Distribution.C_FrontendParams x2 x3 x4 x5) st = x3+c_fullPath (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_fullPath(x)(st))(i)(xs)(st)+c_fullPath x st = Curry.RunTimeSystem.patternFail("Distribution.fullPath")(x)++++c_outfile :: Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_outfile x1@(Curry.Module.Distribution.C_FrontendParams x2 x3 x4 x5) st = x4+c_outfile (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_outfile(x)(st))(i)(xs)(st)+c_outfile x st = Curry.RunTimeSystem.patternFail("Distribution.outfile")(x)++++c_logfile :: Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_logfile x1@(Curry.Module.Distribution.C_FrontendParams x2 x3 x4 x5) st = x5+c_logfile (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_logfile(x)(st))(i)(xs)(st)+c_logfile x st = Curry.RunTimeSystem.patternFail("Distribution.logfile")(x)++++c_callFrontend :: Curry.Module.Distribution.C_FrontendTarget -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0)+c_callFrontend x1 st = Curry.Module.Prelude.pf(Curry.Module.Distribution.c_callFrontendWithParams(x1)(Curry.Module.Distribution.c_defaultParams(st)))++++c_callFrontendWithParams :: Curry.Module.Distribution.C_FrontendTarget -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_callFrontendWithParams x1 x2 x3 st = let {x4 = Curry.Module.Distribution.c_callFrontendWithParams_case_2(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(st))(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_callFrontendWithParams_case_5(x2)(x4)(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda12(x2)(x3)(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_callFrontendWithParams_case_4(x2)(x4)(Curry.Module.Distribution.c_quiet(x2)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Distribution.c_outfile(x2)(st))(st))(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda11))(Curry.Module.Distribution.c_fullPath(x2)(st))(st))(st))(st))(x1)))(st)++++c_callFrontendWithParams'46_'35lambda9 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_callFrontendWithParams'46_'35lambda9 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getFrontendCall(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda9'46_'35lambda10(x1)))(st)++++c_callFrontendWithParams'46_'35lambda9'46_'35lambda10 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_callFrontendWithParams'46_'35lambda9'46_'35lambda10 x1 x2 st = let {x3 = Curry.Module.Prelude.op_43_43(x2)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))(Curry.Module.Prelude.List))))))(st))(x1)(st))(st)} in Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_print(x3)(st))(Curry.Module.Prelude.c_return(x3)(st))(st)++++c_callFrontendWithParams'46showFrontendTarget'4679 :: Curry.Module.Distribution.C_FrontendTarget -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_FCY st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_FINT st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_ACY st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_UACY st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_HTML st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))+c_callFrontendWithParams'46showFrontendTarget'4679 x1@Curry.Module.Distribution.C_CY st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))))))+c_callFrontendWithParams'46showFrontendTarget'4679 (Curry.Module.Distribution.C_FrontendTargetOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams'46showFrontendTarget'4679(x)(st))(i)(xs)(st)+c_callFrontendWithParams'46showFrontendTarget'4679 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams.showFrontendTarget.79")(x)++++c_callFrontendWithParams'46_'35lambda11 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_callFrontendWithParams'46_'35lambda11 x1 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x1)(st))(st))(st)++++c_callFrontendWithParams'46_'35lambda12 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendTarget -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_callFrontendWithParams'46_'35lambda12 x1 x2 x3 x4 x5 st = let {x6 = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Distribution.c_logfile(x1)(st))(st)} in let {x7 = Curry.Module.Prelude.op_43_43(x5)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_callFrontendWithParams'46showFrontendTarget'4679(x4)(st))(Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x2)(st))(st))(st))(st))(st)} in Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_print(x7)(st))(Curry.Module.Prelude.op_62_62(Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda12_case_0(x6)(x7)(Curry.Module.Prelude.c_null(x6)(st))(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.T0)(st))(st))(st)++++c_rcErr :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0+c_rcErr x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.IO.c_hPutStrLn(Curry.Module.IO.c_stderr(st))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))(st))(st))(Curry.Module.Prelude.c_return(x2)(st))(st)++++c_callFrontendWithParams'46_'35lambda12_case_0 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.System.c_system(x7)(st)+c_callFrontendWithParams'46_'35lambda12_case_0 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.System.c_system(Curry.Module.Prelude.op_43_43(x7)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))))))(st))(st))(st))(st)+c_callFrontendWithParams'46_'35lambda12_case_0 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda12_case_0(x6)(x7)(x)(st))(i)(xs)(st)+c_callFrontendWithParams'46_'35lambda12_case_0 x6 x7 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams._#lambda12_case_0")(x)++++c_callFrontendWithParams_case_2 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_callFrontendWithParams_case_2 x1@Curry.Module.Prelude.C_False st = Curry.Module.Distribution.c_callFrontendWithParams_case_1(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(st))(st)+c_callFrontendWithParams_case_2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams_case_2(x)(st))(i)(xs)(st)+c_callFrontendWithParams_case_2 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams_case_2")(x)++++c_callFrontendWithParams_case_1 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_False+c_callFrontendWithParams_case_1 x1@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))(st)+c_callFrontendWithParams_case_1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams_case_1(x)(st))(i)(xs)(st)+c_callFrontendWithParams_case_1 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams_case_1")(x)++++c_callFrontendWithParams_case_4 x2 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Distribution.c_callFrontendWithParams_case_3(x4)(st)+c_callFrontendWithParams_case_4 x2 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_callFrontendWithParams_case_4 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams_case_4(x2)(x4)(x)(st))(i)(xs)(st)+c_callFrontendWithParams_case_4 x2 x4 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams_case_4")(x)++++c_callFrontendWithParams_case_3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))+c_callFrontendWithParams_case_3 x4@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))+c_callFrontendWithParams_case_3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams_case_3(x)(st))(i)(xs)(st)+c_callFrontendWithParams_case_3 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams_case_3")(x)++++c_callFrontendWithParams_case_5 x2 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_installDir(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))))))))))(st))(st)+c_callFrontendWithParams_case_5 x2 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_maybe(Curry.Module.Distribution.c_getLoadPath(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Distribution.c_fullPath(x2)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_callFrontendWithParams'46_'35lambda9))(st)+c_callFrontendWithParams_case_5 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_callFrontendWithParams_case_5(x2)(x)(st))(i)(xs)(st)+c_callFrontendWithParams_case_5 x2 x st = Curry.RunTimeSystem.patternFail("Distribution.callFrontendWithParams_case_5")(x)++++c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.FileGoodies.c_splitPath(x5)(st)+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6(x5)(x)(st))(i)(xs)(st)+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8_case_6 x5 x st = Curry.RunTimeSystem.patternFail("Distribution.getLoadPathForFile._#lambda6._#lambda7._#lambda8_case_6")(x)++++c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.System.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List))))))))))(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7'46_'35lambda8(x1)(Curry.Module.FileGoodies.c_dirName(x2)(st))(x4)(x3)))(st)+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))(st)+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_getLoadPathForFile'46_'35lambda6'46_'35lambda7_case_7 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("Distribution.getLoadPathForFile._#lambda6._#lambda7_case_7")(x)++++c_getSysLibPath'46_'35lambda4_case_8 x1 x2@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_installDir(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))(Curry.Module.Prelude.List)))))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_43_43(Curry.Module.Distribution.c_installDir(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List))))))))))(st))(Curry.Module.Prelude.List))+c_getSysLibPath'46_'35lambda4_case_8 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FileGoodies.c_splitPath(x1)(st)+c_getSysLibPath'46_'35lambda4_case_8 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getSysLibPath'46_'35lambda4_case_8(x1)(x)(st))(i)(xs)(st)+c_getSysLibPath'46_'35lambda4_case_8 x1 x st = Curry.RunTimeSystem.patternFail("Distribution.getSysLibPath._#lambda4_case_8")(x)++++c_getSysLibPath_case_10 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.System.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List)))))))))))))(st))(Curry.Module.Prelude.pf(Curry.Module.Distribution.c_getSysLibPath'46_'35lambda4))(st)+c_getSysLibPath_case_10 x1@Curry.Module.Prelude.C_False st = Curry.Module.Distribution.c_getSysLibPath_case_9(Curry.Module.Prelude.op_61_61(Curry.Module.Distribution.c_curryCompiler(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(st))(st)+c_getSysLibPath_case_10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getSysLibPath_case_10(x)(st))(i)(xs)(st)+c_getSysLibPath_case_10 x st = Curry.RunTimeSystem.patternFail("Distribution.getSysLibPath_case_10")(x)++++c_getSysLibPath_case_9 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getStdLibDir(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(st))(st)+c_getSysLibPath_case_9 x1@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))(st)+c_getSysLibPath_case_9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Distribution.c_getSysLibPath_case_9(x)(st))(i)(xs)(st)+c_getSysLibPath_case_9 x st = Curry.RunTimeSystem.patternFail("Distribution.getSysLibPath_case_9")(x)++++c_curryCompiler :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_curryCompiler st = Curry.Module.Distribution.curryCompiler(st)++++c_curryCompilerMajorVersion :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryCompilerMajorVersion st = Curry.Module.Distribution.curryCompilerMajorVersion(st)++++c_curryCompilerMinorVersion :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryCompilerMinorVersion st = Curry.Module.Distribution.curryCompilerMinorVersion(st)++++c_curryRuntime :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_curryRuntime st = Curry.Module.Distribution.curryRuntime(st)++++c_curryRuntimeMajorVersion :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryRuntimeMajorVersion st = Curry.Module.Distribution.curryRuntimeMajorVersion(st)++++c_curryRuntimeMinorVersion :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryRuntimeMinorVersion st = Curry.Module.Distribution.curryRuntimeMinorVersion(st)++++c_getStdLibDir :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getStdLibDir st = Curry.Module.Distribution.getStdLibDir(st)++++c_getFrontendCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getFrontendCall st = Curry.Module.Distribution.getFrontendCall(st)++++c_installDir :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_installDir st = Curry.Module.Distribution.installDir(st)++
+ dist/build/Curry/Module/FlatCurry.hs view
@@ -0,0 +1,1505 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurry (module Curry.Module.FlatCurry) where++import Curry.RunTimeSystem+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm++++-- begin included++++-- end included++type C_QName = Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++type C_TVarIndex = Curry.Module.Prelude.C_Int++type C_VarIndex = Curry.Module.Prelude.C_Int++data C_Prog = C_Prog (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl)+  | C_ProgFail Curry.RunTimeSystem.C_Exceptions+  | C_ProgOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Prog)++data C_Visibility = C_Public+  | C_Private+  | C_VisibilityFail Curry.RunTimeSystem.C_Exceptions+  | C_VisibilityOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Visibility)++data C_TypeDecl = C_Type (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_Visibility (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl)+  | C_TypeSyn (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_Visibility (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) Curry.Module.FlatCurry.C_TypeExpr+  | C_TypeDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_TypeDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_TypeDecl)++data C_ConsDecl = C_Cons (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Visibility (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)+  | C_ConsDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_ConsDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_ConsDecl)++data C_TypeExpr = C_TVar Curry.Module.Prelude.C_Int+  | C_FuncType Curry.Module.FlatCurry.C_TypeExpr Curry.Module.FlatCurry.C_TypeExpr+  | C_TCons (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)+  | C_TypeExprFail Curry.RunTimeSystem.C_Exceptions+  | C_TypeExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_TypeExpr)++data C_OpDecl = C_Op (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_Fixity Curry.Module.Prelude.C_Int+  | C_OpDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_OpDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_OpDecl)++data C_Fixity = C_InfixOp+  | C_InfixlOp+  | C_InfixrOp+  | C_FixityFail Curry.RunTimeSystem.C_Exceptions+  | C_FixityOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Fixity)++data C_FuncDecl = C_Func (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Visibility Curry.Module.FlatCurry.C_TypeExpr Curry.Module.FlatCurry.C_Rule+  | C_FuncDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_FuncDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_FuncDecl)++data C_Rule = C_Rule (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) Curry.Module.FlatCurry.C_Expr+  | C_External (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_RuleFail Curry.RunTimeSystem.C_Exceptions+  | C_RuleOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Rule)++data C_CaseType = C_Rigid+  | C_Flex+  | C_CaseTypeFail Curry.RunTimeSystem.C_Exceptions+  | C_CaseTypeOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_CaseType)++data C_CombType = C_FuncCall+  | C_ConsCall+  | C_FuncPartCall Curry.Module.Prelude.C_Int+  | C_ConsPartCall Curry.Module.Prelude.C_Int+  | C_CombTypeFail Curry.RunTimeSystem.C_Exceptions+  | C_CombTypeOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_CombType)++data C_Expr = C_Var Curry.Module.Prelude.C_Int+  | C_Lit Curry.Module.FlatCurry.C_Literal+  | C_Comb Curry.Module.FlatCurry.C_CombType (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr)+  | C_Let (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr+  | C_Free (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) Curry.Module.FlatCurry.C_Expr+  | C_Or Curry.Module.FlatCurry.C_Expr Curry.Module.FlatCurry.C_Expr+  | C_Case Curry.Module.FlatCurry.C_CaseType Curry.Module.FlatCurry.C_Expr (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr)+  | C_ExprFail Curry.RunTimeSystem.C_Exceptions+  | C_ExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Expr)++data C_BranchExpr = C_Branch Curry.Module.FlatCurry.C_Pattern Curry.Module.FlatCurry.C_Expr+  | C_BranchExprFail Curry.RunTimeSystem.C_Exceptions+  | C_BranchExprOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_BranchExpr)++data C_Pattern = C_Pattern (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+  | C_LPattern Curry.Module.FlatCurry.C_Literal+  | C_PatternFail Curry.RunTimeSystem.C_Exceptions+  | C_PatternOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Pattern)++data C_Literal = C_Intc Curry.Module.Prelude.C_Int+  | C_Floatc Curry.Module.Prelude.C_Float+  | C_Charc Curry.Module.Prelude.C_Char+  | C_LiteralFail Curry.RunTimeSystem.C_Exceptions+  | C_LiteralOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlatCurry.C_Literal)++instance BaseCurry Curry.Module.FlatCurry.C_Prog where+  nf f (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.FlatCurry.C_Prog(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.FlatCurry.C_Prog(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_ProgOr(Curry.RunTimeSystem.mkRef(r)(5)(i))([Curry.Module.FlatCurry.C_Prog(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(5)++  failed  = Curry.Module.FlatCurry.C_ProgFail++  branching  = Curry.Module.FlatCurry.C_ProgOr++  consKind (Curry.Module.FlatCurry.C_ProgOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_ProgFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_ProgFail x) = x++  orRef (Curry.Module.FlatCurry.C_ProgOr x _) = x++  branches (Curry.Module.FlatCurry.C_ProgOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Visibility where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_VisibilityOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.FlatCurry.C_Public,Curry.Module.FlatCurry.C_Private]))(0)++  failed  = Curry.Module.FlatCurry.C_VisibilityFail++  branching  = Curry.Module.FlatCurry.C_VisibilityOr++  consKind (Curry.Module.FlatCurry.C_VisibilityOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_VisibilityFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_VisibilityFail x) = x++  orRef (Curry.Module.FlatCurry.C_VisibilityOr x _) = x++  branches (Curry.Module.FlatCurry.C_VisibilityOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_TypeDecl where+  nf f (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_Type(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_TypeSyn(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_Type(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_TypeSyn(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_TypeDeclOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.FlatCurry.C_Type(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_TypeSyn(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.FlatCurry.C_TypeDeclFail++  branching  = Curry.Module.FlatCurry.C_TypeDeclOr++  consKind (Curry.Module.FlatCurry.C_TypeDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_TypeDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_TypeDeclFail x) = x++  orRef (Curry.Module.FlatCurry.C_TypeDeclOr x _) = x++  branches (Curry.Module.FlatCurry.C_TypeDeclOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_ConsDecl where+  nf f (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_Cons(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> f(Curry.Module.FlatCurry.C_Cons(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_ConsDeclOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.FlatCurry.C_Cons(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.FlatCurry.C_ConsDeclFail++  branching  = Curry.Module.FlatCurry.C_ConsDeclOr++  consKind (Curry.Module.FlatCurry.C_ConsDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_ConsDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_ConsDeclFail x) = x++  orRef (Curry.Module.FlatCurry.C_ConsDeclOr x _) = x++  branches (Curry.Module.FlatCurry.C_ConsDeclOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_TypeExpr where+  nf f (Curry.Module.FlatCurry.C_TVar x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_TVar(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_FuncType x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_FuncType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_TCons x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_TCons(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_TVar x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_TVar(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_FuncType x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_FuncType(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_TCons x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_TCons(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_TypeExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.FlatCurry.C_TVar(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_FuncType(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_TCons(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.FlatCurry.C_TypeExprFail++  branching  = Curry.Module.FlatCurry.C_TypeExprOr++  consKind (Curry.Module.FlatCurry.C_TypeExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_TypeExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_TypeExprFail x) = x++  orRef (Curry.Module.FlatCurry.C_TypeExprOr x _) = x++  branches (Curry.Module.FlatCurry.C_TypeExprOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_OpDecl where+  nf f (Curry.Module.FlatCurry.C_Op x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Op(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Op x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Op(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_OpDeclOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.FlatCurry.C_Op(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.FlatCurry.C_OpDeclFail++  branching  = Curry.Module.FlatCurry.C_OpDeclOr++  consKind (Curry.Module.FlatCurry.C_OpDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_OpDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_OpDeclFail x) = x++  orRef (Curry.Module.FlatCurry.C_OpDeclOr x _) = x++  branches (Curry.Module.FlatCurry.C_OpDeclOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Fixity where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_FixityOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.FlatCurry.C_InfixOp,Curry.Module.FlatCurry.C_InfixlOp,Curry.Module.FlatCurry.C_InfixrOp]))(0)++  failed  = Curry.Module.FlatCurry.C_FixityFail++  branching  = Curry.Module.FlatCurry.C_FixityOr++  consKind (Curry.Module.FlatCurry.C_FixityOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_FixityFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_FixityFail x) = x++  orRef (Curry.Module.FlatCurry.C_FixityOr x _) = x++  branches (Curry.Module.FlatCurry.C_FixityOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_FuncDecl where+  nf f (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> Curry.RunTimeSystem.nfCTC(\ v4 state4 -> Curry.RunTimeSystem.nfCTC(\ v5 state5 -> f(Curry.Module.FlatCurry.C_Func(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> Curry.RunTimeSystem.gnfCTC(\ v4 state4 -> Curry.RunTimeSystem.gnfCTC(\ v5 state5 -> f(Curry.Module.FlatCurry.C_Func(v1)(v2)(v3)(v4)(v5))(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_FuncDeclOr(Curry.RunTimeSystem.mkRef(r)(5)(i))([Curry.Module.FlatCurry.C_Func(Curry.RunTimeSystem.generator((Prelude.+)(r)((4::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(5)++  failed  = Curry.Module.FlatCurry.C_FuncDeclFail++  branching  = Curry.Module.FlatCurry.C_FuncDeclOr++  consKind (Curry.Module.FlatCurry.C_FuncDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_FuncDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_FuncDeclFail x) = x++  orRef (Curry.Module.FlatCurry.C_FuncDeclOr x _) = x++  branches (Curry.Module.FlatCurry.C_FuncDeclOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Rule where+  nf f (Curry.Module.FlatCurry.C_Rule x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Rule(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_External x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_External(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Rule x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Rule(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_External x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_External(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_RuleOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.FlatCurry.C_Rule(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_External(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.FlatCurry.C_RuleFail++  branching  = Curry.Module.FlatCurry.C_RuleOr++  consKind (Curry.Module.FlatCurry.C_RuleOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_RuleFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_RuleFail x) = x++  orRef (Curry.Module.FlatCurry.C_RuleOr x _) = x++  branches (Curry.Module.FlatCurry.C_RuleOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_CaseType where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_CaseTypeOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.FlatCurry.C_Rigid,Curry.Module.FlatCurry.C_Flex]))(0)++  failed  = Curry.Module.FlatCurry.C_CaseTypeFail++  branching  = Curry.Module.FlatCurry.C_CaseTypeOr++  consKind (Curry.Module.FlatCurry.C_CaseTypeOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_CaseTypeFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_CaseTypeFail x) = x++  orRef (Curry.Module.FlatCurry.C_CaseTypeOr x _) = x++  branches (Curry.Module.FlatCurry.C_CaseTypeOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_CombType where+  nf f (Curry.Module.FlatCurry.C_FuncPartCall x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_FuncPartCall(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_ConsPartCall x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_ConsPartCall(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_FuncPartCall x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_FuncPartCall(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_ConsPartCall x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_ConsPartCall(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_CombTypeOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.FlatCurry.C_FuncCall,Curry.Module.FlatCurry.C_ConsCall,Curry.Module.FlatCurry.C_FuncPartCall(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_ConsPartCall(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.FlatCurry.C_CombTypeFail++  branching  = Curry.Module.FlatCurry.C_CombTypeOr++  consKind (Curry.Module.FlatCurry.C_CombTypeOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_CombTypeFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_CombTypeFail x) = x++  orRef (Curry.Module.FlatCurry.C_CombTypeOr x _) = x++  branches (Curry.Module.FlatCurry.C_CombTypeOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Expr where+  nf f (Curry.Module.FlatCurry.C_Var x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Var(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Lit x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Lit(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Comb x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Comb(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Let x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Let(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Free x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Free(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Or x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Or(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Case x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Case(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Var x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Var(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Lit x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Lit(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Comb x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Comb(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Let x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Let(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Free x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Free(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Or x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Or(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Case x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.FlatCurry.C_Case(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_ExprOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.FlatCurry.C_Var(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Lit(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Comb(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Let(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Free(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Or(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Case(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.FlatCurry.C_ExprFail++  branching  = Curry.Module.FlatCurry.C_ExprOr++  consKind (Curry.Module.FlatCurry.C_ExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_ExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_ExprFail x) = x++  orRef (Curry.Module.FlatCurry.C_ExprOr x _) = x++  branches (Curry.Module.FlatCurry.C_ExprOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_BranchExpr where+  nf f (Curry.Module.FlatCurry.C_Branch x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Branch(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Branch x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Branch(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_BranchExprOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.FlatCurry.C_Branch(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.FlatCurry.C_BranchExprFail++  branching  = Curry.Module.FlatCurry.C_BranchExprOr++  consKind (Curry.Module.FlatCurry.C_BranchExprOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_BranchExprFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_BranchExprFail x) = x++  orRef (Curry.Module.FlatCurry.C_BranchExprOr x _) = x++  branches (Curry.Module.FlatCurry.C_BranchExprOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Pattern where+  nf f (Curry.Module.FlatCurry.C_Pattern x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Pattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_LPattern x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_LPattern(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Pattern x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.FlatCurry.C_Pattern(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_LPattern x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_LPattern(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_PatternOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.FlatCurry.C_Pattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_LPattern(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.FlatCurry.C_PatternFail++  branching  = Curry.Module.FlatCurry.C_PatternOr++  consKind (Curry.Module.FlatCurry.C_PatternOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_PatternFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_PatternFail x) = x++  orRef (Curry.Module.FlatCurry.C_PatternOr x _) = x++  branches (Curry.Module.FlatCurry.C_PatternOr _ x) = x++++++instance BaseCurry Curry.Module.FlatCurry.C_Literal where+  nf f (Curry.Module.FlatCurry.C_Intc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Intc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Floatc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Floatc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.FlatCurry.C_Charc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Charc(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.FlatCurry.C_Intc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Intc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Floatc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Floatc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.FlatCurry.C_Charc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.FlatCurry.C_Charc(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlatCurry.C_LiteralOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.FlatCurry.C_Intc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Floatc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.FlatCurry.C_Charc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.FlatCurry.C_LiteralFail++  branching  = Curry.Module.FlatCurry.C_LiteralOr++  consKind (Curry.Module.FlatCurry.C_LiteralOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlatCurry.C_LiteralFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlatCurry.C_LiteralFail x) = x++  orRef (Curry.Module.FlatCurry.C_LiteralOr x _) = x++  branches (Curry.Module.FlatCurry.C_LiteralOr _ x) = x++++++instance Curry Curry.Module.FlatCurry.C_Prog where+  strEq (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) (Curry.Module.FlatCurry.C_Prog y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) (Curry.Module.FlatCurry.C_Prog y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) st = Curry.Module.FlatCurry.C_Prog(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)++  typeName _ = "Prog"++  showQ d (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Prog "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ _ (Curry.Module.FlatCurry.C_ProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Visibility where+  strEq Curry.Module.FlatCurry.C_Public Curry.Module.FlatCurry.C_Public st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlatCurry.C_Private Curry.Module.FlatCurry.C_Private st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.FlatCurry.C_Public Curry.Module.FlatCurry.C_Public st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlatCurry.C_Private Curry.Module.FlatCurry.C_Private st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.FlatCurry.C_Public st = Curry.Module.FlatCurry.C_Public+  propagate f Curry.Module.FlatCurry.C_Private st = Curry.Module.FlatCurry.C_Private++  foldCurry f c Curry.Module.FlatCurry.C_Public st = c+  foldCurry f c Curry.Module.FlatCurry.C_Private st = c++  typeName _ = "Visibility"++  showQ _ Curry.Module.FlatCurry.C_Public = Prelude.showString("FlatCurry.Public")+  showQ _ Curry.Module.FlatCurry.C_Private = Prelude.showString("FlatCurry.Private")+  showQ _ (Curry.Module.FlatCurry.C_VisibilityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_TypeDecl where+  strEq (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) (Curry.Module.FlatCurry.C_Type y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) (Curry.Module.FlatCurry.C_TypeSyn y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) (Curry.Module.FlatCurry.C_Type y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) (Curry.Module.FlatCurry.C_TypeSyn y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) st = Curry.Module.FlatCurry.C_Type(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) st = Curry.Module.FlatCurry.C_TypeSyn(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "TypeDecl"++  showQ d (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Type "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ d (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.TypeSyn "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.FlatCurry.C_TypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_ConsDecl where+  strEq (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) (Curry.Module.FlatCurry.C_Cons y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) (Curry.Module.FlatCurry.C_Cons y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) st = Curry.Module.FlatCurry.C_Cons(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "ConsDecl"++  showQ d (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Cons "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.FlatCurry.C_ConsDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_TypeExpr where+  strEq (Curry.Module.FlatCurry.C_TVar x1) (Curry.Module.FlatCurry.C_TVar y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_FuncType x1 x2) (Curry.Module.FlatCurry.C_FuncType y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_TCons x1 x2) (Curry.Module.FlatCurry.C_TCons y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_TVar x1) (Curry.Module.FlatCurry.C_TVar y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_FuncType x1 x2) (Curry.Module.FlatCurry.C_FuncType y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_TCons x1 x2) (Curry.Module.FlatCurry.C_TCons y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_TVar x1) st = Curry.Module.FlatCurry.C_TVar(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_FuncType x1 x2) st = Curry.Module.FlatCurry.C_FuncType(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_TCons x1 x2) st = Curry.Module.FlatCurry.C_TCons(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_TVar x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_FuncType x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_TCons x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "TypeExpr"++  showQ d (Curry.Module.FlatCurry.C_TVar x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.TVar "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_FuncType x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.FuncType "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_TCons x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.TCons "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.FlatCurry.C_TypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_OpDecl where+  strEq (Curry.Module.FlatCurry.C_Op x1 x2 x3) (Curry.Module.FlatCurry.C_Op y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Op x1 x2 x3) (Curry.Module.FlatCurry.C_Op y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Op x1 x2 x3) st = Curry.Module.FlatCurry.C_Op(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Op x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "OpDecl"++  showQ d (Curry.Module.FlatCurry.C_Op x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Op "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.FlatCurry.C_OpDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Fixity where+  strEq Curry.Module.FlatCurry.C_InfixOp Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlatCurry.C_InfixlOp Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlatCurry.C_InfixrOp Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.FlatCurry.C_InfixOp Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlatCurry.C_InfixlOp Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlatCurry.C_InfixrOp Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.FlatCurry.C_InfixOp+  propagate f Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.FlatCurry.C_InfixlOp+  propagate f Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.FlatCurry.C_InfixrOp++  foldCurry f c Curry.Module.FlatCurry.C_InfixOp st = c+  foldCurry f c Curry.Module.FlatCurry.C_InfixlOp st = c+  foldCurry f c Curry.Module.FlatCurry.C_InfixrOp st = c++  typeName _ = "Fixity"++  showQ _ Curry.Module.FlatCurry.C_InfixOp = Prelude.showString("FlatCurry.InfixOp")+  showQ _ Curry.Module.FlatCurry.C_InfixlOp = Prelude.showString("FlatCurry.InfixlOp")+  showQ _ Curry.Module.FlatCurry.C_InfixrOp = Prelude.showString("FlatCurry.InfixrOp")+  showQ _ (Curry.Module.FlatCurry.C_FixityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_FuncDecl where+  strEq (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) (Curry.Module.FlatCurry.C_Func y1 y2 y3 y4 y5) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(Curry.Module.Prelude.genStrEq(x5)(y5)(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) (Curry.Module.FlatCurry.C_Func y1 y2 y3 y4 y5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x4)(y4)(st))(Curry.Module.Prelude.genEq(x5)(y5)(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) st = Curry.Module.FlatCurry.C_Func(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))(f((4::Int))(x5)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(c)(st))(st))(st))(st))(st)++  typeName _ = "FuncDecl"++  showQ d (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Func "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showQ _ (Curry.Module.FlatCurry.C_FuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Rule where+  strEq (Curry.Module.FlatCurry.C_Rule x1 x2) (Curry.Module.FlatCurry.C_Rule y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_External x1) (Curry.Module.FlatCurry.C_External y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Rule x1 x2) (Curry.Module.FlatCurry.C_Rule y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_External x1) (Curry.Module.FlatCurry.C_External y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Rule x1 x2) st = Curry.Module.FlatCurry.C_Rule(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_External x1) st = Curry.Module.FlatCurry.C_External(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Rule x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_External x1) st = f(x1)(c)(st)++  typeName _ = "Rule"++  showQ d (Curry.Module.FlatCurry.C_Rule x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Rule "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_External x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.External "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.FlatCurry.C_RuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_CaseType where+  strEq Curry.Module.FlatCurry.C_Rigid Curry.Module.FlatCurry.C_Rigid st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlatCurry.C_Flex Curry.Module.FlatCurry.C_Flex st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.FlatCurry.C_Rigid Curry.Module.FlatCurry.C_Rigid st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlatCurry.C_Flex Curry.Module.FlatCurry.C_Flex st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.FlatCurry.C_Rigid st = Curry.Module.FlatCurry.C_Rigid+  propagate f Curry.Module.FlatCurry.C_Flex st = Curry.Module.FlatCurry.C_Flex++  foldCurry f c Curry.Module.FlatCurry.C_Rigid st = c+  foldCurry f c Curry.Module.FlatCurry.C_Flex st = c++  typeName _ = "CaseType"++  showQ _ Curry.Module.FlatCurry.C_Rigid = Prelude.showString("FlatCurry.Rigid")+  showQ _ Curry.Module.FlatCurry.C_Flex = Prelude.showString("FlatCurry.Flex")+  showQ _ (Curry.Module.FlatCurry.C_CaseTypeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_CombType where+  strEq Curry.Module.FlatCurry.C_FuncCall Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlatCurry.C_ConsCall Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.Prelude.strEqSuccess+  strEq (Curry.Module.FlatCurry.C_FuncPartCall x1) (Curry.Module.FlatCurry.C_FuncPartCall y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_ConsPartCall x1) (Curry.Module.FlatCurry.C_ConsPartCall y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.FlatCurry.C_FuncCall Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlatCurry.C_ConsCall Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.Prelude.C_True+  eq (Curry.Module.FlatCurry.C_FuncPartCall x1) (Curry.Module.FlatCurry.C_FuncPartCall y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_ConsPartCall x1) (Curry.Module.FlatCurry.C_ConsPartCall y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.FlatCurry.C_FuncCall+  propagate f Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.FlatCurry.C_ConsCall+  propagate f (Curry.Module.FlatCurry.C_FuncPartCall x1) st = Curry.Module.FlatCurry.C_FuncPartCall(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_ConsPartCall x1) st = Curry.Module.FlatCurry.C_ConsPartCall(f((0::Int))(x1)(st))++  foldCurry f c Curry.Module.FlatCurry.C_FuncCall st = c+  foldCurry f c Curry.Module.FlatCurry.C_ConsCall st = c+  foldCurry f c (Curry.Module.FlatCurry.C_FuncPartCall x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_ConsPartCall x1) st = f(x1)(c)(st)++  typeName _ = "CombType"++  showQ _ Curry.Module.FlatCurry.C_FuncCall = Prelude.showString("FlatCurry.FuncCall")+  showQ _ Curry.Module.FlatCurry.C_ConsCall = Prelude.showString("FlatCurry.ConsCall")+  showQ d (Curry.Module.FlatCurry.C_FuncPartCall x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.FuncPartCall "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_ConsPartCall x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.ConsPartCall "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.FlatCurry.C_CombTypeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Expr where+  strEq (Curry.Module.FlatCurry.C_Var x1) (Curry.Module.FlatCurry.C_Var y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_Lit x1) (Curry.Module.FlatCurry.C_Lit y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_Comb x1 x2 x3) (Curry.Module.FlatCurry.C_Comb y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq (Curry.Module.FlatCurry.C_Let x1 x2) (Curry.Module.FlatCurry.C_Let y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_Free x1 x2) (Curry.Module.FlatCurry.C_Free y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_Or x1 x2) (Curry.Module.FlatCurry.C_Or y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_Case x1 x2 x3) (Curry.Module.FlatCurry.C_Case y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Var x1) (Curry.Module.FlatCurry.C_Var y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_Lit x1) (Curry.Module.FlatCurry.C_Lit y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_Comb x1 x2 x3) (Curry.Module.FlatCurry.C_Comb y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq (Curry.Module.FlatCurry.C_Let x1 x2) (Curry.Module.FlatCurry.C_Let y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_Free x1 x2) (Curry.Module.FlatCurry.C_Free y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_Or x1 x2) (Curry.Module.FlatCurry.C_Or y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_Case x1 x2 x3) (Curry.Module.FlatCurry.C_Case y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Var x1) st = Curry.Module.FlatCurry.C_Var(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_Lit x1) st = Curry.Module.FlatCurry.C_Lit(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_Comb x1 x2 x3) st = Curry.Module.FlatCurry.C_Comb(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.FlatCurry.C_Let x1 x2) st = Curry.Module.FlatCurry.C_Let(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_Free x1 x2) st = Curry.Module.FlatCurry.C_Free(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_Or x1 x2) st = Curry.Module.FlatCurry.C_Or(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_Case x1 x2 x3) st = Curry.Module.FlatCurry.C_Case(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Var x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Lit x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Comb x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Let x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Free x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Or x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Case x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Expr"++  showQ d (Curry.Module.FlatCurry.C_Var x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Var "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_Lit x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Lit "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_Comb x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Comb "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ d (Curry.Module.FlatCurry.C_Let x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Let "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_Free x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Free "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_Or x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Or "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_Case x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Case "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.FlatCurry.C_ExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_BranchExpr where+  strEq (Curry.Module.FlatCurry.C_Branch x1 x2) (Curry.Module.FlatCurry.C_Branch y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Branch x1 x2) (Curry.Module.FlatCurry.C_Branch y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Branch x1 x2) st = Curry.Module.FlatCurry.C_Branch(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Branch x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "BranchExpr"++  showQ d (Curry.Module.FlatCurry.C_Branch x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Branch "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.FlatCurry.C_BranchExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Pattern where+  strEq (Curry.Module.FlatCurry.C_Pattern x1 x2) (Curry.Module.FlatCurry.C_Pattern y1 y2) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(st)+  strEq (Curry.Module.FlatCurry.C_LPattern x1) (Curry.Module.FlatCurry.C_LPattern y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Pattern x1 x2) (Curry.Module.FlatCurry.C_Pattern y1 y2) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.genEq(x2)(y2)(st))(st)+  eq (Curry.Module.FlatCurry.C_LPattern x1) (Curry.Module.FlatCurry.C_LPattern y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Pattern x1 x2) st = Curry.Module.FlatCurry.C_Pattern(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.FlatCurry.C_LPattern x1) st = Curry.Module.FlatCurry.C_LPattern(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Pattern x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.FlatCurry.C_LPattern x1) st = f(x1)(c)(st)++  typeName _ = "Pattern"++  showQ d (Curry.Module.FlatCurry.C_Pattern x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Pattern "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.FlatCurry.C_LPattern x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.LPattern "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.FlatCurry.C_PatternOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.FlatCurry.C_Literal where+  strEq (Curry.Module.FlatCurry.C_Intc x1) (Curry.Module.FlatCurry.C_Intc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_Floatc x1) (Curry.Module.FlatCurry.C_Floatc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.FlatCurry.C_Charc x1) (Curry.Module.FlatCurry.C_Charc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.FlatCurry.C_Intc x1) (Curry.Module.FlatCurry.C_Intc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_Floatc x1) (Curry.Module.FlatCurry.C_Floatc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.FlatCurry.C_Charc x1) (Curry.Module.FlatCurry.C_Charc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.FlatCurry.C_Intc x1) st = Curry.Module.FlatCurry.C_Intc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_Floatc x1) st = Curry.Module.FlatCurry.C_Floatc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.FlatCurry.C_Charc x1) st = Curry.Module.FlatCurry.C_Charc(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.FlatCurry.C_Intc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Floatc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.FlatCurry.C_Charc x1) st = f(x1)(c)(st)++  typeName _ = "Literal"++  showQ d (Curry.Module.FlatCurry.C_Intc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Intc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_Floatc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Floatc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.FlatCurry.C_Charc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FlatCurry.Charc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.FlatCurry.C_LiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Prog where+  showsPrec d (Curry.Module.FlatCurry.C_Prog x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Prog "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_ProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Visibility where+  showsPrec _ Curry.Module.FlatCurry.C_Public = Prelude.showString("Public")+  showsPrec _ Curry.Module.FlatCurry.C_Private = Prelude.showString("Private")+  showsPrec _ (Curry.Module.FlatCurry.C_VisibilityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_TypeDecl where+  showsPrec d (Curry.Module.FlatCurry.C_Type x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Type "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec d (Curry.Module.FlatCurry.C_TypeSyn x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TypeSyn "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_TypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_ConsDecl where+  showsPrec d (Curry.Module.FlatCurry.C_Cons x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Cons "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_ConsDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_TypeExpr where+  showsPrec d (Curry.Module.FlatCurry.C_TVar x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TVar "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_FuncType x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FuncType "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_TCons x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TCons "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.FlatCurry.C_TypeExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_OpDecl where+  showsPrec d (Curry.Module.FlatCurry.C_Op x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Op "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_OpDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Fixity where+  showsPrec _ Curry.Module.FlatCurry.C_InfixOp = Prelude.showString("InfixOp")+  showsPrec _ Curry.Module.FlatCurry.C_InfixlOp = Prelude.showString("InfixlOp")+  showsPrec _ Curry.Module.FlatCurry.C_InfixrOp = Prelude.showString("InfixrOp")+  showsPrec _ (Curry.Module.FlatCurry.C_FixityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_FuncDecl where+  showsPrec d (Curry.Module.FlatCurry.C_Func x1 x2 x3 x4 x5) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Func "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x5))))))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_FuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Rule where+  showsPrec d (Curry.Module.FlatCurry.C_Rule x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Rule "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_External x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("External "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.FlatCurry.C_RuleOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_CaseType where+  showsPrec _ Curry.Module.FlatCurry.C_Rigid = Prelude.showString("Rigid")+  showsPrec _ Curry.Module.FlatCurry.C_Flex = Prelude.showString("Flex")+  showsPrec _ (Curry.Module.FlatCurry.C_CaseTypeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_CombType where+  showsPrec _ Curry.Module.FlatCurry.C_FuncCall = Prelude.showString("FuncCall")+  showsPrec _ Curry.Module.FlatCurry.C_ConsCall = Prelude.showString("ConsCall")+  showsPrec d (Curry.Module.FlatCurry.C_FuncPartCall x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FuncPartCall "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_ConsPartCall x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("ConsPartCall "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.FlatCurry.C_CombTypeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Expr where+  showsPrec d (Curry.Module.FlatCurry.C_Var x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Var "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_Lit x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Lit "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_Comb x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Comb "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec d (Curry.Module.FlatCurry.C_Let x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Let "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_Free x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Free "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_Or x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Or "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_Case x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Case "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.FlatCurry.C_ExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_BranchExpr where+  showsPrec d (Curry.Module.FlatCurry.C_Branch x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Branch "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.FlatCurry.C_BranchExprOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Pattern where+  showsPrec d (Curry.Module.FlatCurry.C_Pattern x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Pattern "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.FlatCurry.C_LPattern x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LPattern "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.FlatCurry.C_PatternOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlatCurry.C_Literal where+  showsPrec d (Curry.Module.FlatCurry.C_Intc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Intc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_Floatc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Floatc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.FlatCurry.C_Charc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Charc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.FlatCurry.C_LiteralOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.FlatCurry.C_Prog where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Prog(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Prog")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r)++++++instance Read Curry.Module.FlatCurry.C_Visibility where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_Public)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Public")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_Private)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Private")(r)])(r))++++++instance Read Curry.Module.FlatCurry.C_TypeDecl where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Type(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Type")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_TypeSyn(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("TypeSyn")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r))++++++instance Read Curry.Module.FlatCurry.C_ConsDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Cons(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Cons")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r)++++++instance Read Curry.Module.FlatCurry.C_TypeExpr where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_TVar(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("TVar")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_FuncType(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("FuncType")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_TCons(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("TCons")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))++++++instance Read Curry.Module.FlatCurry.C_OpDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Op(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Op")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++instance Read Curry.Module.FlatCurry.C_Fixity where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_InfixOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("InfixOp")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_InfixlOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("InfixlOp")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_InfixrOp)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("InfixrOp")(r)])(r)))++++++instance Read Curry.Module.FlatCurry.C_FuncDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Func(x1)(x2)(x3)(x4)(x5))(r5) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Func")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3), ((,) x5 r5) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r4)])(r)++++++instance Read Curry.Module.FlatCurry.C_Rule where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Rule(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Rule")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_External(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("External")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))++++++instance Read Curry.Module.FlatCurry.C_CaseType where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_Rigid)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Rigid")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_Flex)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Flex")(r)])(r))++++++instance Read Curry.Module.FlatCurry.C_CombType where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_FuncCall)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("FuncCall")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlatCurry.C_ConsCall)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("ConsCall")(r)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_FuncPartCall(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("FuncPartCall")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_ConsPartCall(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("ConsPartCall")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))))++++++instance Read Curry.Module.FlatCurry.C_Expr where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Var(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Var")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Lit(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Lit")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Comb(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Comb")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Let(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Let")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Free(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Free")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Or(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Or")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Case(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Case")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)))))))++++++instance Read Curry.Module.FlatCurry.C_BranchExpr where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Branch(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Branch")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.FlatCurry.C_Pattern where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Pattern(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Pattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_LPattern(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("LPattern")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))++++++instance Read Curry.Module.FlatCurry.C_Literal where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Intc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Intc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Floatc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Floatc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.FlatCurry.C_Charc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlatCurry")("Charc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))++++++c_readFlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurry x1 st = Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions(x1)(Curry.Module.Distribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.Distribution.c_defaultParams(st))(st))(st)++++c_readFlatCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryWithParseOptions x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_lookupFileInLoadPath(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2(x2)(x1)))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryWithParseOptions'46_'35lambda2 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_lookupFileInLoadPath(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3(x3)(x1)(x2)))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3 :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3 x1 x2 x3 x4 st = Curry.Module.Prelude.op_62_62(Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2(x1)(x2)(x3)(x4)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Nothing)(st))(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Nothing)(st))(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_findFileInLoadPath(Curry.Module.Prelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4))(st))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 x1 st = Curry.Module.FlatCurry.c_readFlatCurryFile(x1)(st)++++c_flatCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryFileName x1 st = Curry.Module.Distribution.c_inCurrySubdir(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.FileGoodies.c_stripSuffix(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(st))(st)++++c_flatCurryIntName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryIntName x1 st = Curry.Module.Distribution.c_inCurrySubdir(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.FileGoodies.c_stripSuffix(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(st))(st)++++c_readFlatCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryFile x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryFile'46_'35lambda6(x1)))(st)++++c_readFlatCurryFile'46readExistingFCY'4614 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0+c_readFlatCurryFile'46readExistingFCY'4614 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5))(st)++++c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5 :: (Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1+c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5 x1 st = Curry.Module.Prelude.c_return(Curry.Module.ReadShowTerm.c_readTerm(x1)(st))(st)++++c_readFlatCurryFile'46_'35lambda6 :: (Curry t2) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t2+c_readFlatCurryFile'46_'35lambda6 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurry.c_readFlatCurryFile'46readExistingFCY'4614(x1)(st)+c_readFlatCurryFile'46_'35lambda6 x1 x2@Curry.Module.Prelude.C_False st = let {x3 = Curry.Module.Distribution.c_inCurrySubdir(x1)(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryFile'46_'35lambda6'46_'35lambda7(x1)(x3)))(st)+c_readFlatCurryFile'46_'35lambda6 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_readFlatCurryFile'46_'35lambda6(x1)(x)(st))(i)(xs)(st)+c_readFlatCurryFile'46_'35lambda6 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurry.readFlatCurryFile._#lambda6")(x)++++c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 :: (Curry t3) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t3+c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurry.c_readFlatCurryFile'46readExistingFCY'4614(x2)(st)+c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))(st))(st))(st)+c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_readFlatCurryFile'46_'35lambda6'46_'35lambda7(x1)(x2)(x)(st))(i)(xs)(st)+c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurry.readFlatCurryFile._#lambda6._#lambda7")(x)++++c_readFlatCurryInt :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryInt x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryInt'46_'35lambda8(x1)))(st)++++c_readFlatCurryInt'46_'35lambda8 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryInt'46_'35lambda8 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9(x2)(x1)))(st)++++c_readFlatCurryInt'46_'35lambda8'46_'35lambda9 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9 x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.FlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1(x1)(x2)(x3)(Curry.Module.Prelude.op_124_124(x1)(x3)(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_findFileInLoadPath(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10))(st))(st)++++c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10 x1 st = Curry.Module.FlatCurry.c_readFlatCurryFile(x1)(st)++++c_writeFCY :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeFCY x1 x2 st = Curry.Module.Prelude.c_writeFile(x1)(Curry.Module.ReadShowTerm.c_showTerm(x2)(st))(st)++++c_showQNameInModule :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showQNameInModule x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.FlatCurry.c_showQNameInModule_case_0(x1)(x3)(x4)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x3)(x1)(st))(Curry.Module.Prelude.op_61_61(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st))(st))(st)+c_showQNameInModule x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_showQNameInModule(x1)(x)(st))(i)(xs)(st)+c_showQNameInModule x1 x st = Curry.RunTimeSystem.patternFail("FlatCurry.showQNameInModule")(x)++++c_showQNameInModule_case_0 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = x4+c_showQNameInModule_case_0 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(x4)(st))(st)+c_showQNameInModule_case_0 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_showQNameInModule_case_0(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_showQNameInModule_case_0 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurry.showQNameInModule_case_0")(x)++++c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Distribution.c_callFrontend(Curry.Module.Distribution.C_FINT)(st))(x2)(st)+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_done(st)+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9_case_1 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurry.readFlatCurryInt._#lambda8._#lambda9_case_1")(x)++++c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_done(st)+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Distribution.c_callFrontendWithParams(Curry.Module.Distribution.C_FCY)(x2)(x3)(st)+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3_case_2 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurry.readFlatCurryWithParseOptions._#lambda2._#lambda3_case_2")(x)++
+ dist/build/Curry/Module/FlatCurryGoodies.hs view
@@ -0,0 +1,1481 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurryGoodies (module Curry.Module.FlatCurryGoodies) where++import Curry.RunTimeSystem+import Curry.Module.FlatCurry+import Curry.Module.Prelude++++-- begin included++++-- end included++type C_Update t0 t1 = (Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1)) -> t0 -> t0++c_trProg :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> t0)))))) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> t0+c_trProg x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st))(x5)(st))(x6)(st))(x7)(st)+c_trProg x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trProg(x1)(x)(st))(i)(xs)(st)+c_trProg x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trProg")(x)++++c_progName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_progName st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_progName'46_'35lambda2)))++++c_progName'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_progName'46_'35lambda2 x1 x2 x3 x4 x5 st = x1++++c_progImports :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_progImports st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_progImports'46_'35lambda3)))++++c_progImports'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_progImports'46_'35lambda3 x1 x2 x3 x4 x5 st = x2++++c_progTypes :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl)+c_progTypes st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_progTypes'46_'35lambda4)))++++c_progTypes'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl+c_progTypes'46_'35lambda4 x1 x2 x3 x4 x5 st = x3++++c_progFuncs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl)+c_progFuncs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_progFuncs'46_'35lambda5)))++++c_progFuncs'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_progFuncs'46_'35lambda5 x1 x2 x3 x4 x5 st = x4++++c_progOps :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl)+c_progOps st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_progOps'46_'35lambda6)))++++c_progOps'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl+c_progOps'46_'35lambda6 x1 x2 x3 x4 x5 st = x5++++c_updProg :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updProg x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_updProg'46prog'4640(x4)(x2)(x1)(x5)(x3))))++++c_updProg'46prog'4640 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_updProg'46prog'4640 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 st = Curry.Module.FlatCurry.C_Prog(Curry.Module.Prelude.c_apply(x3)(x6)(st))(Curry.Module.Prelude.c_apply(x2)(x7)(st))(Curry.Module.Prelude.c_apply(x5)(x8)(st))(Curry.Module.Prelude.c_apply(x1)(x9)(st))(Curry.Module.Prelude.c_apply(x4)(x10)(st))++++c_updProgName :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updProgName x1 st = Curry.Module.FlatCurryGoodies.c_updProg(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updProgImports :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updProgImports x1 st = Curry.Module.FlatCurryGoodies.c_updProg(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updProgTypes :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updProgTypes x1 st = Curry.Module.FlatCurryGoodies.c_updProg(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updProgFuncs :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updProgFuncs x1 st = Curry.Module.FlatCurryGoodies.c_updProg(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updProgOps :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgOps st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updProg(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_allVarsInProg :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_allVarsInProg st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.c_concatMap(Curry.Module.FlatCurryGoodies.c_allVarsInFunc(st))(st))(Curry.Module.FlatCurryGoodies.c_progFuncs(st))(st)++++c_updProgExps :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgExps st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updProgFuncs))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_map))(Curry.Module.FlatCurryGoodies.c_updFuncBody(st))(st))(st)++++c_rnmAllVarsInProg :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_rnmAllVarsInProg st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updProgFuncs))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_map))(Curry.Module.FlatCurryGoodies.c_rnmAllVarsInFunc(st))(st))(st)++++c_updQNamesInProg :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog)+c_updQNamesInProg x1 st = Curry.Module.FlatCurryGoodies.c_updProg(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_updQNamesInType(x1)(st))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_updQNamesInFunc(x1)(st))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_updOpName(x1)(st))))(st)++++c_rnmProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_rnmProg x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_updProgName(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(x1)))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_updQNamesInProg(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662(x1)(x2)))(st))(x2)(st))(st)++++c_rnmProg'46rnm'4662 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0+c_rnmProg'46rnm'4662 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662_case_9(x1)(x2)(x4)(x5)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_progName(st))(x2)(st))(st))(st)+c_rnmProg'46rnm'4662 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662(x1)(x2)(x)(st))(i)(xs)(st)+c_rnmProg'46rnm'4662 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.rnmProg.rnm.62")(x)++++c_trType :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> t0))))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> t0+c_trType x1 x2 x3@(Curry.Module.FlatCurry.C_Type x4 x5 x6 x7) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x4)(st))(x5)(st))(x6)(st))(x7)(st)+c_trType x1 x2 x3@(Curry.Module.FlatCurry.C_TypeSyn x8 x9 x10 x11) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x2)(x8)(st))(x9)(st))(x10)(st))(x11)(st)+c_trType x1 x2 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trType(x1)(x2)(x)(st))(i)(xs)(st)+c_trType x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trType")(x)++++c_typeName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_typeName st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeName'46_'35lambda7))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeName'46_'35lambda8)))++++c_typeName'46_'35lambda7 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_typeName'46_'35lambda7 x1 x2 x3 x4 st = x1++++c_typeName'46_'35lambda8 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_typeName'46_'35lambda8 x1 x2 x3 x4 st = x1++++c_typeVisibility :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)+c_typeVisibility st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeVisibility'46_'35lambda9))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeVisibility'46_'35lambda10)))++++c_typeVisibility'46_'35lambda9 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_typeVisibility'46_'35lambda9 x1 x2 x3 x4 st = x2++++c_typeVisibility'46_'35lambda10 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_typeVisibility'46_'35lambda10 x1 x2 x3 x4 st = x2++++c_typeParams :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_typeParams st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeParams'46_'35lambda11))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeParams'46_'35lambda12)))++++c_typeParams'46_'35lambda11 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_typeParams'46_'35lambda11 x1 x2 x3 x4 st = x3++++c_typeParams'46_'35lambda12 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_typeParams'46_'35lambda12 x1 x2 x3 x4 st = x3++++c_typeConsDecls :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl)+c_typeConsDecls st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeConsDecls'46_'35lambda13))(Curry.Module.Prelude.c_failed(st)))++++c_typeConsDecls'46_'35lambda13 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl+c_typeConsDecls'46_'35lambda13 x1 x2 x3 x4 st = x4++++c_typeSyn :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_typeSyn st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.c_failed(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_typeSyn'46_'35lambda14)))++++c_typeSyn'46_'35lambda14 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_typeSyn'46_'35lambda14 x1 x2 x3 x4 st = x4++++c_isTypeSyn :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isTypeSyn st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isTypeSyn'46_'35lambda15))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isTypeSyn'46_'35lambda16)))++++c_isTypeSyn'46_'35lambda15 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTypeSyn'46_'35lambda15 x1 x2 x3 x4 st = Curry.Module.Prelude.C_False++++c_isTypeSyn'46_'35lambda16 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTypeSyn'46_'35lambda16 x1 x2 x3 x4 st = Curry.Module.Prelude.C_True++++c_isDataTypeDecl :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isDataTypeDecl st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isDataTypeDecl'46_'35lambda17))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isDataTypeDecl'46_'35lambda18)))++++c_isDataTypeDecl'46_'35lambda17 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDataTypeDecl'46_'35lambda17 x1 x2 x3 x4 st = Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_null(x4)(st))(st)++++c_isDataTypeDecl'46_'35lambda18 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDataTypeDecl'46_'35lambda18 x1 x2 x3 x4 st = Curry.Module.Prelude.C_False++++c_isExternalType :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isExternalType st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isExternalType'46_'35lambda19))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_isExternalType'46_'35lambda20)))++++c_isExternalType'46_'35lambda19 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isExternalType'46_'35lambda19 x1 x2 x3 x4 st = Curry.Module.Prelude.c_null(x4)(st)++++c_isExternalType'46_'35lambda20 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isExternalType'46_'35lambda20 x1 x2 x3 x4 st = Curry.Module.Prelude.C_False++++c_updType :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updType x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_updType'46typ'46148(x4)(x1)(x3)(x2)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_updType'46typesyn'46148(x1)(x3)(x5)(x2))))++++c_updType'46typ'46148 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_updType'46typ'46148 x1 x2 x3 x4 x5 x6 x7 x8 st = Curry.Module.FlatCurry.C_Type(Curry.Module.Prelude.c_apply(x2)(x5)(st))(Curry.Module.Prelude.c_apply(x4)(x6)(st))(Curry.Module.Prelude.c_apply(x3)(x7)(st))(Curry.Module.Prelude.c_apply(x1)(x8)(st))++++c_updType'46typesyn'46148 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_updType'46typesyn'46148 x1 x2 x3 x4 x5 x6 x7 x8 st = Curry.Module.FlatCurry.C_TypeSyn(Curry.Module.Prelude.c_apply(x1)(x5)(st))(Curry.Module.Prelude.c_apply(x4)(x6)(st))(Curry.Module.Prelude.c_apply(x2)(x7)(st))(Curry.Module.Prelude.c_apply(x3)(x8)(st))++++c_updTypeName :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updTypeName x1 st = Curry.Module.FlatCurryGoodies.c_updType(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updTypeVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updTypeVisibility x1 st = Curry.Module.FlatCurryGoodies.c_updType(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updTypeParams :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updTypeParams x1 st = Curry.Module.FlatCurryGoodies.c_updType(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updTypeConsDecls :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updTypeConsDecls x1 st = Curry.Module.FlatCurryGoodies.c_updType(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updTypeSynonym :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updTypeSynonym st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updType(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_updQNamesInType :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl)+c_updQNamesInType x1 st = Curry.Module.FlatCurryGoodies.c_updType(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_updQNamesInConsDecl(x1)(st))))(Curry.Module.FlatCurryGoodies.c_updQNamesInTypeExpr(x1)(st))(st)++++c_trCons :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> t0))))) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> t0+c_trCons x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st))(x5)(st))(x6)(st)+c_trCons x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trCons(x1)(x)(st))(i)(xs)(st)+c_trCons x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trCons")(x)++++c_consName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_consName st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_consName'46_'35lambda21)))++++c_consName'46_'35lambda21 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_consName'46_'35lambda21 x1 x2 x3 x4 st = x1++++c_consArity :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_consArity st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_consArity'46_'35lambda22)))++++c_consArity'46_'35lambda22 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_consArity'46_'35lambda22 x1 x2 x3 x4 st = x2++++c_consVisibility :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)+c_consVisibility st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_consVisibility'46_'35lambda23)))++++c_consVisibility'46_'35lambda23 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_consVisibility'46_'35lambda23 x1 x2 x3 x4 st = x3++++c_consArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)+c_consArgs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_consArgs'46_'35lambda24)))++++c_consArgs'46_'35lambda24 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_consArgs'46_'35lambda24 x1 x2 x3 x4 st = x4++++c_updCons :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl)+c_updCons x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.FlatCurryGoodies.c_updCons'46cons'46192(x2)(x4)(x1)(x3))))++++c_updCons'46cons'46192 :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl+c_updCons'46cons'46192 x1 x2 x3 x4 x5 x6 x7 x8 st = Curry.Module.FlatCurry.C_Cons(Curry.Module.Prelude.c_apply(x3)(x5)(st))(Curry.Module.Prelude.c_apply(x1)(x6)(st))(Curry.Module.Prelude.c_apply(x4)(x7)(st))(Curry.Module.Prelude.c_apply(x2)(x8)(st))++++c_updConsName :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl)+c_updConsName x1 st = Curry.Module.FlatCurryGoodies.c_updCons(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updConsArity :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl)+c_updConsArity x1 st = Curry.Module.FlatCurryGoodies.c_updCons(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updConsVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl)+c_updConsVisibility x1 st = Curry.Module.FlatCurryGoodies.c_updCons(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updConsArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updConsArgs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updCons(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_updQNamesInConsDecl :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl)+c_updQNamesInConsDecl x1 st = Curry.Module.FlatCurryGoodies.c_updCons(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_updQNamesInTypeExpr(x1)(st))))(st)++++c_tVarIndex :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_tVarIndex x1@(Curry.Module.FlatCurry.C_TVar x2) st = x2+c_tVarIndex (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_tVarIndex(x)(st))(i)(xs)(st)+c_tVarIndex x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.tVarIndex")(x)++++c_domain :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_domain x1@(Curry.Module.FlatCurry.C_FuncType x2 x3) st = x2+c_domain (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_domain(x)(st))(i)(xs)(st)+c_domain x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.domain")(x)++++c_range :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_range x1@(Curry.Module.FlatCurry.C_FuncType x2 x3) st = x3+c_range (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_range(x)(st))(i)(xs)(st)+c_range x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.range")(x)++++c_tConsName :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_tConsName x1@(Curry.Module.FlatCurry.C_TCons x2 x3) st = x2+c_tConsName (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_tConsName(x)(st))(i)(xs)(st)+c_tConsName x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.tConsName")(x)++++c_tConsArgs :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_tConsArgs x1@(Curry.Module.FlatCurry.C_TCons x2 x3) st = x3+c_tConsArgs (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_tConsArgs(x)(st))(i)(xs)(st)+c_tConsArgs x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.tConsArgs")(x)++++c_trTypeExpr :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> t0+c_trTypeExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TVar x5) st = Curry.Module.Prelude.c_apply(x1)(x5)(st)+c_trTypeExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TCons x6 x7) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x2)(x6)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(x1)(x2)(x3)))(x7)(st))(st)+c_trTypeExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_FuncType x8 x9) st = let {x10 = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(x1)(x2)(x3))} in Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x3)(Curry.Module.Prelude.c_apply(x10)(x8)(st))(st))(Curry.Module.Prelude.c_apply(x10)(x9)(st))(st)+c_trTypeExpr x1 x2 x3 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trTypeExpr(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_trTypeExpr x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trTypeExpr")(x)++++c_isTVar :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isTVar st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isTVar'46_'35lambda25))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isTVar'46_'35lambda26))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isTVar'46_'35lambda27)))++++c_isTVar'46_'35lambda25 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda25 x1 st = Curry.Module.Prelude.C_True++++c_isTVar'46_'35lambda26 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda26 x1 x2 st = Curry.Module.Prelude.C_False++++c_isTVar'46_'35lambda27 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda27 x1 x2 st = Curry.Module.Prelude.C_False++++c_isTCons :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isTCons st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isTCons'46_'35lambda28))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isTCons'46_'35lambda29))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isTCons'46_'35lambda30)))++++c_isTCons'46_'35lambda28 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda28 x1 st = Curry.Module.Prelude.C_False++++c_isTCons'46_'35lambda29 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda29 x1 x2 st = Curry.Module.Prelude.C_True++++c_isTCons'46_'35lambda30 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda30 x1 x2 st = Curry.Module.Prelude.C_False++++c_isFuncType :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isFuncType st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isFuncType'46_'35lambda31))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isFuncType'46_'35lambda32))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isFuncType'46_'35lambda33)))++++c_isFuncType'46_'35lambda31 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda31 x1 st = Curry.Module.Prelude.C_False++++c_isFuncType'46_'35lambda32 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda32 x1 x2 st = Curry.Module.Prelude.C_False++++c_isFuncType'46_'35lambda33 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda33 x1 x2 st = Curry.Module.Prelude.C_True++++c_updTVars :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_updTVars x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_TCons))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_FuncType)))++++c_updTCons :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_updTCons x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_FuncType)))++++c_updFuncTypes :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_updFuncTypes st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_TCons)))++++c_argTypes :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_argTypes x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.List+c_argTypes x1@(Curry.Module.FlatCurry.C_TCons x3 x4) st = Curry.Module.Prelude.List+c_argTypes x1@(Curry.Module.FlatCurry.C_FuncType x5 x6) st = (Curry.Module.Prelude.:<)(x5)(Curry.Module.FlatCurryGoodies.c_argTypes(x6)(st))+c_argTypes (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_argTypes(x)(st))(i)(xs)(st)+c_argTypes x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.argTypes")(x)++++c_resultType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_resultType x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.FlatCurry.C_TVar(x2)+c_resultType x1@(Curry.Module.FlatCurry.C_TCons x3 x4) st = Curry.Module.FlatCurry.C_TCons(x3)(x4)+c_resultType x1@(Curry.Module.FlatCurry.C_FuncType x5 x6) st = Curry.Module.FlatCurryGoodies.c_resultType(x6)(st)+c_resultType (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_resultType(x)(st))(i)(xs)(st)+c_resultType x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.resultType")(x)++++c_allVarsInTypeExpr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_allVarsInTypeExpr st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_concat))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_43_43)))++++c_rnmAllVarsInTypeExpr :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_rnmAllVarsInTypeExpr x1 st = Curry.Module.FlatCurryGoodies.c_updTVars(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))(x1)(st))(st)++++c_updQNamesInTypeExpr :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_updQNamesInTypeExpr x1 st = Curry.Module.FlatCurryGoodies.c_updTCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_updQNamesInTypeExpr'46_'35lambda34(x1)))(st)++++c_updQNamesInTypeExpr'46_'35lambda34 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_updQNamesInTypeExpr'46_'35lambda34 x1 x2 x3 st = Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.c_apply(x1)(x2)(st))(x3)++++c_trOp :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)))) -> Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> t0+c_trOp x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st))(x5)(st)+c_trOp x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trOp(x1)(x)(st))(i)(xs)(st)+c_trOp x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trOp")(x)++++c_opName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_opName st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_opName'46_'35lambda35)))++++c_opName'46_'35lambda35 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_opName'46_'35lambda35 x1 x2 x3 st = x1++++c_opFixity :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity)+c_opFixity st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_opFixity'46_'35lambda36)))++++c_opFixity'46_'35lambda36 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity+c_opFixity'46_'35lambda36 x1 x2 x3 st = x2++++c_opPrecedence :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_opPrecedence st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_opPrecedence'46_'35lambda37)))++++c_opPrecedence'46_'35lambda37 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_opPrecedence'46_'35lambda37 x1 x2 x3 st = x3++++c_updOp :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity)) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl)+c_updOp x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_updOp'46op'46305(x2)(x1)(x3))))++++c_updOp'46op'46305 :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl+c_updOp'46op'46305 x1 x2 x3 x4 x5 x6 st = Curry.Module.FlatCurry.C_Op(Curry.Module.Prelude.c_apply(x2)(x4)(st))(Curry.Module.Prelude.c_apply(x1)(x5)(st))(Curry.Module.Prelude.c_apply(x3)(x6)(st))++++c_updOpName :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl)+c_updOpName x1 st = Curry.Module.FlatCurryGoodies.c_updOp(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updOpFixity :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl)+c_updOpFixity x1 st = Curry.Module.FlatCurryGoodies.c_updOp(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updOpPrecedence :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl))+c_updOpPrecedence st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updOp(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_trFunc :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> t0)))))) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> t0+c_trFunc x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st))(x5)(st))(x6)(st))(x7)(st)+c_trFunc x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trFunc(x1)(x)(st))(i)(xs)(st)+c_trFunc x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trFunc")(x)++++c_funcName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_funcName st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_funcName'46_'35lambda38)))++++c_funcName'46_'35lambda38 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_funcName'46_'35lambda38 x1 x2 x3 x4 x5 st = x1++++c_funcArity :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_funcArity st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_funcArity'46_'35lambda39)))++++c_funcArity'46_'35lambda39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_funcArity'46_'35lambda39 x1 x2 x3 x4 x5 st = x2++++c_funcVisibility :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)+c_funcVisibility st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_funcVisibility'46_'35lambda40)))++++c_funcVisibility'46_'35lambda40 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_funcVisibility'46_'35lambda40 x1 x2 x3 x4 x5 st = x3++++c_funcType :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)+c_funcType st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_funcType'46_'35lambda41)))++++c_funcType'46_'35lambda41 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_funcType'46_'35lambda41 x1 x2 x3 x4 x5 st = x4++++c_funcRule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_funcRule st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_funcRule'46_'35lambda42)))++++c_funcRule'46_'35lambda42 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_funcRule'46_'35lambda42 x1 x2 x3 x4 x5 st = x5++++c_updFunc :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updFunc x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))(Curry.Module.FlatCurryGoodies.c_updFunc'46func'46352(x2)(x1)(x5)(x4)(x3))))++++c_updFunc'46func'46352 :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl+c_updFunc'46func'46352 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 st = Curry.Module.FlatCurry.C_Func(Curry.Module.Prelude.c_apply(x2)(x6)(st))(Curry.Module.Prelude.c_apply(x1)(x7)(st))(Curry.Module.Prelude.c_apply(x5)(x8)(st))(Curry.Module.Prelude.c_apply(x4)(x9)(st))(Curry.Module.Prelude.c_apply(x3)(x10)(st))++++c_updFuncName :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updFuncName x1 st = Curry.Module.FlatCurryGoodies.c_updFunc(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updFuncArity :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updFuncArity x1 st = Curry.Module.FlatCurryGoodies.c_updFunc(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updFuncVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updFuncVisibility x1 st = Curry.Module.FlatCurryGoodies.c_updFunc(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updFuncType :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updFuncType x1 st = Curry.Module.FlatCurryGoodies.c_updFunc(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updFuncRule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncRule st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updFunc(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_isExternal :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isExternal st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_isRuleExternal(st))(Curry.Module.FlatCurryGoodies.c_funcRule(st))(st)++++c_allVarsInFunc :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_allVarsInFunc st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_allVarsInRule(st))(Curry.Module.FlatCurryGoodies.c_funcRule(st))(st)++++c_funcArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_funcArgs st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_ruleArgs(st))(Curry.Module.FlatCurryGoodies.c_funcRule(st))(st)++++c_funcBody :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_funcBody st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_ruleBody(st))(Curry.Module.FlatCurryGoodies.c_funcRule(st))(st)++++c_funcRHS :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_funcRHS x1 st = Curry.Module.FlatCurryGoodies.c_funcRHS_case_7(x1)(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isExternal(st))(x1)(st))(st))(st)++++c_funcRHS'46orCase'46374 :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_funcRHS'46orCase'46374 x1 st = Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_5(x1)(Curry.Module.FlatCurryGoodies.c_isOr(x1)(st))(st)++++c_rnmAllVarsInFunc :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_rnmAllVarsInFunc st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updFunc(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_rnmAllVarsInRule))(st)++++c_updQNamesInFunc :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl)+c_updQNamesInFunc x1 st = Curry.Module.FlatCurryGoodies.c_updFunc(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.FlatCurryGoodies.c_updQNamesInTypeExpr(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_updQNamesInRule(st))(x1)(st))(st)++++c_updFuncArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncArgs st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_updFuncRule(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updRuleArgs))(st)++++c_updFuncBody :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncBody st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_updFuncRule(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updRuleBody))(st)++++c_trRule :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> t0)) -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> t0+c_trRule x1 x2 x3@(Curry.Module.FlatCurry.C_Rule x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x4)(st))(x5)(st)+c_trRule x1 x2 x3@(Curry.Module.FlatCurry.C_External x6) st = Curry.Module.Prelude.c_apply(x2)(x6)(st)+c_trRule x1 x2 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trRule(x1)(x2)(x)(st))(i)(xs)(st)+c_trRule x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trRule")(x)++++c_ruleArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_ruleArgs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_ruleArgs'46_'35lambda43))(Curry.Module.Prelude.c_failed(st)))++++c_ruleArgs'46_'35lambda43 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_ruleArgs'46_'35lambda43 x1 x2 st = x1++++c_ruleBody :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_ruleBody st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_ruleBody'46_'35lambda44))(Curry.Module.Prelude.c_failed(st)))++++c_ruleBody'46_'35lambda44 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_ruleBody'46_'35lambda44 x1 x2 st = x2++++c_ruleExtDecl :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_ruleExtDecl st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.c_failed(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_isRuleExternal :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isRuleExternal st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isRuleExternal'46_'35lambda45))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isRuleExternal'46_'35lambda46)))++++c_isRuleExternal'46_'35lambda45 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isRuleExternal'46_'35lambda45 x1 x2 st = Curry.Module.Prelude.C_False++++c_isRuleExternal'46_'35lambda46 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isRuleExternal'46_'35lambda46 x1 st = Curry.Module.Prelude.C_True++++c_updRule :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_updRule x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_updRule'46rule'46409(x1)(x2)))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updRule'46ext'46409(x3))))++++c_updRule'46rule'46409 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_updRule'46rule'46409 x1 x2 x3 x4 st = Curry.Module.FlatCurry.C_Rule(Curry.Module.Prelude.c_apply(x1)(x3)(st))(Curry.Module.Prelude.c_apply(x2)(x4)(st))++++c_updRule'46ext'46409 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_updRule'46ext'46409 x1 x2 st = Curry.Module.FlatCurry.C_External(Curry.Module.Prelude.c_apply(x1)(x2)(st))++++c_updRuleArgs :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_updRuleArgs x1 st = Curry.Module.FlatCurryGoodies.c_updRule(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updRuleBody :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_updRuleBody x1 st = Curry.Module.FlatCurryGoodies.c_updRule(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updRuleExtDecl :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_updRuleExtDecl x1 st = Curry.Module.FlatCurryGoodies.c_updRule(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(st)++++c_allVarsInRule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_allVarsInRule st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_allVarsInRule'46_'35lambda47))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_allVarsInRule'46_'35lambda48)))++++c_allVarsInRule'46_'35lambda47 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVarsInRule'46_'35lambda47 x1 x2 st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.FlatCurryGoodies.c_allVars(x2)(st))(st)++++c_allVarsInRule'46_'35lambda48 :: (Curry t1003) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1003+c_allVarsInRule'46_'35lambda48 x1 st = Curry.Module.Prelude.List++++c_rnmAllVarsInRule :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule)+c_rnmAllVarsInRule x1 st = Curry.Module.FlatCurryGoodies.c_updRule(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(x1)))(Curry.Module.FlatCurryGoodies.c_rnmAllVars(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updQNamesInRule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_updQNamesInRule st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updRuleBody))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updQNames))(st)++++c_trCombType :: (Curry t0) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)) -> t0 -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)) -> Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> t0+c_trCombType x1 x2 x3 x4 x5@Curry.Module.FlatCurry.C_FuncCall st = x1+c_trCombType x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_FuncPartCall x6) st = Curry.Module.Prelude.c_apply(x2)(x6)(st)+c_trCombType x1 x2 x3 x4 x5@Curry.Module.FlatCurry.C_ConsCall st = x3+c_trCombType x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_ConsPartCall x7) st = Curry.Module.Prelude.c_apply(x4)(x7)(st)+c_trCombType x1 x2 x3 x4 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trCombType(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_trCombType x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trCombType")(x)++++c_isCombTypeFuncCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isCombTypeFuncCall st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncCall'46_'35lambda49))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncCall'46_'35lambda50)))++++c_isCombTypeFuncCall'46_'35lambda49 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncCall'46_'35lambda49 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeFuncCall'46_'35lambda50 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncCall'46_'35lambda50 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeFuncPartCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isCombTypeFuncPartCall st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncPartCall'46_'35lambda51))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncPartCall'46_'35lambda52)))++++c_isCombTypeFuncPartCall'46_'35lambda51 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncPartCall'46_'35lambda51 x1 st = Curry.Module.Prelude.C_True++++c_isCombTypeFuncPartCall'46_'35lambda52 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncPartCall'46_'35lambda52 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeConsCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isCombTypeConsCall st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeConsCall'46_'35lambda53))(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeConsCall'46_'35lambda54)))++++c_isCombTypeConsCall'46_'35lambda53 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsCall'46_'35lambda53 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeConsCall'46_'35lambda54 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsCall'46_'35lambda54 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeConsPartCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isCombTypeConsPartCall st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeConsPartCall'46_'35lambda55))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isCombTypeConsPartCall'46_'35lambda56)))++++c_isCombTypeConsPartCall'46_'35lambda55 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsPartCall'46_'35lambda55 x1 st = Curry.Module.Prelude.C_False++++c_isCombTypeConsPartCall'46_'35lambda56 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsPartCall'46_'35lambda56 x1 st = Curry.Module.Prelude.C_True++++c_missingArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_missingArgs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_varNr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_varNr x1@(Curry.Module.FlatCurry.C_Var x2) st = x2+c_varNr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_varNr(x)(st))(i)(xs)(st)+c_varNr x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.varNr")(x)++++c_literal :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal+c_literal x1@(Curry.Module.FlatCurry.C_Lit x2) st = x2+c_literal (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_literal(x)(st))(i)(xs)(st)+c_literal x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.literal")(x)++++c_combType :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_CombType+c_combType x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = x2+c_combType (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_combType(x)(st))(i)(xs)(st)+c_combType x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.combType")(x)++++c_combName :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_combName x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = x3+c_combName (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_combName(x)(st))(i)(xs)(st)+c_combName x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.combName")(x)++++c_combArgs :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_combArgs x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = x4+c_combArgs (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_combArgs(x)(st))(i)(xs)(st)+c_combArgs x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.combArgs")(x)++++c_missingCombArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_missingCombArgs st = Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_missingArgs(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_combType))(st)++++c_letBinds :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_letBinds x1@(Curry.Module.FlatCurry.C_Let x2 x3) st = x2+c_letBinds (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_letBinds(x)(st))(i)(xs)(st)+c_letBinds x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.letBinds")(x)++++c_letBody :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_letBody x1@(Curry.Module.FlatCurry.C_Let x2 x3) st = x3+c_letBody (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_letBody(x)(st))(i)(xs)(st)+c_letBody x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.letBody")(x)++++c_freeVars :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_freeVars x1@(Curry.Module.FlatCurry.C_Free x2 x3) st = x2+c_freeVars (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_freeVars(x)(st))(i)(xs)(st)+c_freeVars x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.freeVars")(x)++++c_freeExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_freeExpr x1@(Curry.Module.FlatCurry.C_Free x2 x3) st = x3+c_freeExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_freeExpr(x)(st))(i)(xs)(st)+c_freeExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.freeExpr")(x)++++c_orExps :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_orExps x1@(Curry.Module.FlatCurry.C_Or x2 x3) st = (Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))+c_orExps (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_orExps(x)(st))(i)(xs)(st)+c_orExps x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.orExps")(x)++++c_caseType :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_CaseType+c_caseType x1@(Curry.Module.FlatCurry.C_Case x2 x3 x4) st = x2+c_caseType (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_caseType(x)(st))(i)(xs)(st)+c_caseType x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.caseType")(x)++++c_caseExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_caseExpr x1@(Curry.Module.FlatCurry.C_Case x2 x3 x4) st = x3+c_caseExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_caseExpr(x)(st))(i)(xs)(st)+c_caseExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.caseExpr")(x)++++c_caseBranches :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr+c_caseBranches x1@(Curry.Module.FlatCurry.C_Case x2 x3 x4) st = x4+c_caseBranches (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_caseBranches(x)(st))(i)(xs)(st)+c_caseBranches x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.caseBranches")(x)++++c_isVar :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isVar x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.C_True+c_isVar x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.C_False+c_isVar x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.Prelude.C_False+c_isVar x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isVar x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isVar x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isVar x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isVar (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isVar(x)(st))(i)(xs)(st)+c_isVar x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isVar")(x)++++c_isLit :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLit x1@(Curry.Module.FlatCurry.C_Lit x2) st = Curry.Module.Prelude.C_True+c_isLit x1@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.Prelude.C_False+c_isLit x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.Prelude.C_False+c_isLit x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isLit x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isLit x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isLit x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isLit (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isLit(x)(st))(i)(xs)(st)+c_isLit x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isLit")(x)++++c_isComb :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isComb x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.Prelude.C_True+c_isComb x1@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.Prelude.C_False+c_isComb x1@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.Prelude.C_False+c_isComb x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isComb x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isComb x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isComb x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isComb (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isComb(x)(st))(i)(xs)(st)+c_isComb x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isComb")(x)++++c_isLet :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLet x1@(Curry.Module.FlatCurry.C_Let x2 x3) st = Curry.Module.Prelude.C_True+c_isLet x1@(Curry.Module.FlatCurry.C_Var x4) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.FlatCurry.C_Lit x5) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.FlatCurry.C_Comb x6 x7 x8) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isLet (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isLet(x)(st))(i)(xs)(st)+c_isLet x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isLet")(x)++++c_isFree :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFree x1@(Curry.Module.FlatCurry.C_Free x2 x3) st = Curry.Module.Prelude.C_True+c_isFree x1@(Curry.Module.FlatCurry.C_Var x4) st = Curry.Module.Prelude.C_False+c_isFree x1@(Curry.Module.FlatCurry.C_Lit x5) st = Curry.Module.Prelude.C_False+c_isFree x1@(Curry.Module.FlatCurry.C_Comb x6 x7 x8) st = Curry.Module.Prelude.C_False+c_isFree x1@(Curry.Module.FlatCurry.C_Let x9 x10) st = Curry.Module.Prelude.C_False+c_isFree x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isFree x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isFree (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isFree(x)(st))(i)(xs)(st)+c_isFree x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isFree")(x)++++c_isOr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isOr x1@(Curry.Module.FlatCurry.C_Or x2 x3) st = Curry.Module.Prelude.C_True+c_isOr x1@(Curry.Module.FlatCurry.C_Var x4) st = Curry.Module.Prelude.C_False+c_isOr x1@(Curry.Module.FlatCurry.C_Lit x5) st = Curry.Module.Prelude.C_False+c_isOr x1@(Curry.Module.FlatCurry.C_Comb x6 x7 x8) st = Curry.Module.Prelude.C_False+c_isOr x1@(Curry.Module.FlatCurry.C_Let x9 x10) st = Curry.Module.Prelude.C_False+c_isOr x1@(Curry.Module.FlatCurry.C_Free x11 x12) st = Curry.Module.Prelude.C_False+c_isOr x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isOr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isOr(x)(st))(i)(xs)(st)+c_isOr x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isOr")(x)++++c_isCase :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCase x1@(Curry.Module.FlatCurry.C_Case x2 x3 x4) st = Curry.Module.Prelude.C_True+c_isCase x1@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.Prelude.C_False+c_isCase x1@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.Prelude.C_False+c_isCase x1@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.Prelude.C_False+c_isCase x1@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.Prelude.C_False+c_isCase x1@(Curry.Module.FlatCurry.C_Free x12 x13) st = Curry.Module.Prelude.C_False+c_isCase x1@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.Prelude.C_False+c_isCase (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isCase(x)(st))(i)(xs)(st)+c_isCase x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isCase")(x)++++c_trExpr :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> t0)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CaseType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t0+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Var x10) st = Curry.Module.Prelude.c_apply(x1)(x10)(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Lit x11) st = Curry.Module.Prelude.c_apply(x2)(x11)(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Comb x12 x13 x14) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x3)(x12)(st))(x13)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)))(x14)(st))(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Let x15 x16) st = let {x17 = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8))} in Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x4)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr'46_'35lambda64(x17)))(x15)(st))(st))(Curry.Module.Prelude.c_apply(x17)(x16)(st))(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Free x18 x19) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x5)(x18)(st))(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x19)(st))(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Or x20 x21) st = let {x22 = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8))} in Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x6)(Curry.Module.Prelude.c_apply(x22)(x20)(st))(st))(Curry.Module.Prelude.c_apply(x22)(x21)(st))(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x9@(Curry.Module.FlatCurry.C_Case x23 x24 x25) st = let {x26 = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8))} in Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x7)(x23)(st))(Curry.Module.Prelude.c_apply(x26)(x24)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr'46_'35lambda65(x8)(x26)))(x25)(st))(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trExpr(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_trExpr x1 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trExpr")(x)++++c_trExpr'46_'35lambda64 :: (Curry t231) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t231)) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t231+c_trExpr'46_'35lambda64 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.T2(x3)(Curry.Module.Prelude.c_apply(x1)(x4)(st))+c_trExpr'46_'35lambda64 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trExpr'46_'35lambda64(x1)(x)(st))(i)(xs)(st)+c_trExpr'46_'35lambda64 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trExpr._#lambda64")(x)++++c_trExpr'46_'35lambda65 :: (Curry t231,Curry t232) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t231 -> Curry.RunTimeSystem.State -> t232))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t231)) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> t232+c_trExpr'46_'35lambda65 x1 x2 x3@(Curry.Module.FlatCurry.C_Branch x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x4)(st))(Curry.Module.Prelude.c_apply(x2)(x5)(st))(st)+c_trExpr'46_'35lambda65 x1 x2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trExpr'46_'35lambda65(x1)(x2)(x)(st))(i)(xs)(st)+c_trExpr'46_'35lambda65 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trExpr._#lambda65")(x)++++c_updVars :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updVars x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(x1)(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updLiterals :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updLiterals x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updCombs :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updCombs x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updLets :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updLets x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updFrees :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updFrees x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updOrs :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updOrs x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updCases :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CaseType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updCases x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch)))++++c_updBranches :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updBranches x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(x1))++++c_isFuncCall :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncCall x1 st = Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncCall(st))(Curry.Module.FlatCurryGoodies.c_combType(x1)(st))(st))(st)++++c_isFuncPartCall :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncPartCall x1 st = Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isCombTypeFuncPartCall(st))(Curry.Module.FlatCurryGoodies.c_combType(x1)(st))(st))(st)++++c_isConsCall :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsCall x1 st = Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isCombTypeConsCall(st))(Curry.Module.FlatCurryGoodies.c_combType(x1)(st))(st))(st)++++c_isConsPartCall :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPartCall x1 st = Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isCombTypeConsPartCall(st))(Curry.Module.FlatCurryGoodies.c_combType(x1)(st))(st))(st)++++c_isGround :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isGround x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.FlatCurryGoodies.c_isGround_case_2(x1)(x4)(x2)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Var x7) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Lit x8) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Let x9 x10) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Free x11 x12) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Or x13 x14) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround x1@(Curry.Module.FlatCurry.C_Case x15 x16 x17) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isGround(x)(st))(i)(xs)(st)+c_isGround x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isGround")(x)++++c_allVars :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVars x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_allVars'46comb'46650))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_allVars'46lt'46650))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_allVars'46fr'46650))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_46))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_allVars'46cas'46650))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_allVars'46branch'46650))(x1)(st))(Curry.Module.Prelude.List)(st)++++c_allVars'46comb'46650 :: (Curry t0,Curry t1,Curry t2) => t0 -> t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2))+c_allVars'46comb'46650 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_46))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_allVars'46lt'46650 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0)))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t1)+c_allVars'46lt'46650 x1 x2 st = Curry.Module.Prelude.op_46(x2)(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_46))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_allVars'46lt'46650'46_'35lambda67))(x1)(st))(st))(st)++++c_allVars'46lt'46650'46_'35lambda67 :: (Curry t283) => (Curry.Module.Prelude.T2 t283 (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t283) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t283))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t283) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t283)+c_allVars'46lt'46650'46_'35lambda67 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x2)))(x3)(st)+c_allVars'46lt'46650'46_'35lambda67 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_allVars'46lt'46650'46_'35lambda67(x)(st))(i)(xs)(st)+c_allVars'46lt'46650'46_'35lambda67 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.allVars.lt.650._#lambda67")(x)++++c_allVars'46fr'46650 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0)+c_allVars'46fr'46650 x1 x2 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(x1)))(x2)(st)++++c_allVars'46cas'46650 :: (Curry t0,Curry t1,Curry t2) => t0 -> (Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2)+c_allVars'46cas'46650 x1 x2 x3 st = Curry.Module.Prelude.op_46(x2)(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_46))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x3)(st))(st)++++c_allVars'46args'46650 :: Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVars'46args'46650 x1 st = Curry.Module.FlatCurryGoodies.c_allVars'46args'46650_case_1(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_isConsPattern(st))(x1)(st))(st)++++c_allVars'46branch'46650 :: (Curry t0) => Curry.Module.FlatCurry.C_Pattern -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_allVars'46branch'46650 x1 x2 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryGoodies.c_allVars'46args'46650(x1)(st))))(x2)(st)++++c_rnmAllVars :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_rnmAllVars x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(x1)(st))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_rnmAllVars'46_'35lambda68(x1)))))(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(x1)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(Curry.Module.FlatCurryGoodies.c_updPatArgs(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(x1)))(st))(st)))++++c_rnmAllVars'46_'35lambda68 :: (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr+c_rnmAllVars'46_'35lambda68 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)+c_rnmAllVars'46_'35lambda68 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_rnmAllVars'46_'35lambda68(x1)(x)(st))(i)(xs)(st)+c_rnmAllVars'46_'35lambda68 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.rnmAllVars._#lambda68")(x)++++c_updQNames :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_updQNames x1 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.FlatCurryGoodies.c_updQNames'46comb'46673(x1)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(Curry.Module.FlatCurryGoodies.c_updPatCons(x1)(st))(st)))++++c_updQNames'46comb'46673 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_CombType -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_updQNames'46comb'46673 x1 x2 x3 x4 st = Curry.Module.FlatCurry.C_Comb(x2)(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)++++c_trBranch :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> t0+c_trBranch x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st)+c_trBranch x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trBranch(x1)(x)(st))(i)(xs)(st)+c_trBranch x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trBranch")(x)++++c_branchPattern :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)+c_branchPattern st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trBranch(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_branchPattern'46_'35lambda69)))++++c_branchPattern'46_'35lambda69 :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_branchPattern'46_'35lambda69 x1 x2 st = x1++++c_branchExpr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_branchExpr st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trBranch(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_branchExpr'46_'35lambda70)))++++c_branchExpr'46_'35lambda70 :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_branchExpr'46_'35lambda70 x1 x2 st = x2++++c_updBranch :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr)+c_updBranch x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trBranch(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_updBranch'46branch'46687(x2)(x1))))++++c_updBranch'46branch'46687 :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)) -> Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr+c_updBranch'46branch'46687 x1 x2 x3 x4 st = Curry.Module.FlatCurry.C_Branch(Curry.Module.Prelude.c_apply(x2)(x3)(st))(Curry.Module.Prelude.c_apply(x1)(x4)(st))++++c_updBranchPattern :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr)+c_updBranchPattern x1 st = Curry.Module.FlatCurryGoodies.c_updBranch(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updBranchExpr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))+c_updBranchExpr st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updBranch(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_trPattern :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> t0)) -> Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> t0+c_trPattern x1 x2 x3@(Curry.Module.FlatCurry.C_Pattern x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x4)(st))(x5)(st)+c_trPattern x1 x2 x3@(Curry.Module.FlatCurry.C_LPattern x6) st = Curry.Module.Prelude.c_apply(x2)(x6)(st)+c_trPattern x1 x2 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_trPattern(x1)(x2)(x)(st))(i)(xs)(st)+c_trPattern x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.trPattern")(x)++++c_patCons :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_patCons st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_patCons'46_'35lambda71))(Curry.Module.Prelude.c_failed(st)))++++c_patCons'46_'35lambda71 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_patCons'46_'35lambda71 x1 x2 st = x1++++c_patArgs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_patArgs st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_patArgs'46_'35lambda72))(Curry.Module.Prelude.c_failed(st)))++++c_patArgs'46_'35lambda72 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_patArgs'46_'35lambda72 x1 x2 st = x2++++c_patLiteral :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal)+c_patLiteral st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.c_failed(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)))++++c_isConsPattern :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)+c_isConsPattern st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_isConsPattern'46_'35lambda73))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isConsPattern'46_'35lambda74)))++++c_isConsPattern'46_'35lambda73 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPattern'46_'35lambda73 x1 x2 st = Curry.Module.Prelude.C_True++++c_isConsPattern'46_'35lambda74 :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPattern'46_'35lambda74 x1 st = Curry.Module.Prelude.C_False++++c_updPattern :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)+c_updPattern x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatCurryGoodies.c_updPattern'46pattern'46718(x2)(x1)))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_updPattern'46lpattern'46718(x3))))++++c_updPattern'46pattern'46718 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_updPattern'46pattern'46718 x1 x2 x3 x4 st = Curry.Module.FlatCurry.C_Pattern(Curry.Module.Prelude.c_apply(x2)(x3)(st))(Curry.Module.Prelude.c_apply(x1)(x4)(st))++++c_updPattern'46lpattern'46718 :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal)) -> Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_updPattern'46lpattern'46718 x1 x2 st = Curry.Module.FlatCurry.C_LPattern(Curry.Module.Prelude.c_apply(x1)(x2)(st))++++c_updPatCons :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)+c_updPatCons x1 st = Curry.Module.FlatCurryGoodies.c_updPattern(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updPatArgs :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)+c_updPatArgs x1 st = Curry.Module.FlatCurryGoodies.c_updPattern(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(st)++++c_updPatLiteral :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern)+c_updPatLiteral x1 st = Curry.Module.FlatCurryGoodies.c_updPattern(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x1)(st)++++c_patExpr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_patExpr st = Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trPattern(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_patExpr'46_'35lambda75))(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit)))++++c_patExpr'46_'35lambda75 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_patExpr'46_'35lambda75 x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsCall)(x1)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(st)++++c_allVars'46args'46650_case_1 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_patArgs(st))(x1)(st)+c_allVars'46args'46650_case_1 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryGoodies.c_allVars'46args'46650_case_0(Curry.Module.Prelude.c_otherwise(st))(st)+c_allVars'46args'46650_case_1 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_allVars'46args'46650_case_1(x1)(x)(st))(i)(xs)(st)+c_allVars'46args'46650_case_1 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.allVars.args.650_case_1")(x)++++c_allVars'46args'46650_case_0 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_allVars'46args'46650_case_0 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_allVars'46args'46650_case_0(x)(st))(i)(xs)(st)+c_allVars'46args'46650_case_0 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.allVars.args.650_case_0")(x)++++c_isGround_case_2 x1 x4 x2@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_isGround))(st))(x4)(st)+c_isGround_case_2 x1 x4 x2@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround_case_2 x1 x4 x2@(Curry.Module.FlatCurry.C_FuncPartCall x5) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround_case_2 x1 x4 x2@(Curry.Module.FlatCurry.C_ConsPartCall x6) st = Curry.Module.FlatCurryGoodies.c_isLit(x1)(st)+c_isGround_case_2 x1 x4 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_isGround_case_2(x1)(x4)(x)(st))(i)(xs)(st)+c_isGround_case_2 x1 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.isGround_case_2")(x)++++c_funcRHS'46orCase'46374_case_5 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374))(st))(Curry.Module.FlatCurryGoodies.c_orExps(x1)(st))(st)+c_funcRHS'46orCase'46374_case_5 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_4(x1)(Curry.Module.FlatCurryGoodies.c_isCase(x1)(st))(st)+c_funcRHS'46orCase'46374_case_5 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_5(x1)(x)(st))(i)(xs)(st)+c_funcRHS'46orCase'46374_case_5 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.funcRHS.orCase.374_case_5")(x)++++c_funcRHS'46orCase'46374_case_4 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374))(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatCurryGoodies.c_branchExpr(st))(Curry.Module.FlatCurryGoodies.c_caseBranches(x1)(st))(st))(st)+c_funcRHS'46orCase'46374_case_4 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_3(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_funcRHS'46orCase'46374_case_4 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_4(x1)(x)(st))(i)(xs)(st)+c_funcRHS'46orCase'46374_case_4 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.funcRHS.orCase.374_case_4")(x)++++c_funcRHS'46orCase'46374_case_3 x1 x2@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List)+c_funcRHS'46orCase'46374_case_3 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374_case_3(x1)(x)(st))(i)(xs)(st)+c_funcRHS'46orCase'46374_case_3 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.funcRHS.orCase.374_case_3")(x)++++c_funcRHS_case_7 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryGoodies.c_funcRHS'46orCase'46374(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x1)(st))(st)+c_funcRHS_case_7 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryGoodies.c_funcRHS_case_6(Curry.Module.Prelude.c_otherwise(st))(st)+c_funcRHS_case_7 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_funcRHS_case_7(x1)(x)(st))(i)(xs)(st)+c_funcRHS_case_7 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.funcRHS_case_7")(x)++++c_funcRHS_case_6 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_funcRHS_case_6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_funcRHS_case_6(x)(st))(i)(xs)(st)+c_funcRHS_case_6 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.funcRHS_case_6")(x)++++c_rnmProg'46rnm'4662_case_9 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)(x5)+c_rnmProg'46rnm'4662_case_9 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662_case_8(x4)(x5)(Curry.Module.Prelude.c_otherwise(st))(st)+c_rnmProg'46rnm'4662_case_9 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662_case_9(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_rnmProg'46rnm'4662_case_9 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.rnmProg.rnm.62_case_9")(x)++++c_rnmProg'46rnm'4662_case_8 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x4)(x5)+c_rnmProg'46rnm'4662_case_8 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryGoodies.c_rnmProg'46rnm'4662_case_8(x4)(x5)(x)(st))(i)(xs)(st)+c_rnmProg'46rnm'4662_case_8 x4 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryGoodies.rnmProg.rnm.62_case_8")(x)++
+ dist/build/Curry/Module/FlatCurryRead.hs view
@@ -0,0 +1,202 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurryRead (module Curry.Module.FlatCurryRead) where++import Curry.RunTimeSystem+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.Time+import Curry.Module.System+import Curry.Module.List++++-- begin included++++-- end included++c_readFlatCurryWithImports :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryWithImports x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPathForFile(Curry.Module.FlatCurry.c_flatCurryFileName(x1)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryWithImports'46_'35lambda2(x1)))(st)++++c_readFlatCurryWithImports'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryWithImports'46_'35lambda2 x1 x2 st = Curry.Module.FlatCurryRead.c_readFlatCurryFileWithImports(x2)(Curry.Module.FileGoodies.c_baseName(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(st)++++c_readFlatCurryWithImportsInPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryWithImportsInPath x1 x2 st = Curry.Module.FlatCurryRead.c_readFlatCurryFileWithImports(x1)(x2)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(st)++++c_readFlatCurryIntWithImports :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIntWithImports x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPathForFile(Curry.Module.FlatCurry.c_flatCurryIntName(x1)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIntWithImports'46_'35lambda3(x1)))(st)++++c_readFlatCurryIntWithImports'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIntWithImports'46_'35lambda3 x1 x2 st = Curry.Module.FlatCurryRead.c_readFlatCurryFileWithImports(x2)(Curry.Module.FileGoodies.c_baseName(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List)))(st)++++c_readFlatCurryIntWithImportsInPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIntWithImportsInPath x1 x2 st = Curry.Module.FlatCurryRead.c_readFlatCurryFileWithImports(x1)(x2)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List)))(st)++++c_readFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryFileWithImports x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports(x1)(x2)(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryFileWithImports'46_'35lambda4(x1)(x2)(x3)))(st))(st)++++c_readFlatCurryFileWithImports'46_'35lambda4 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryFileWithImports'46_'35lambda4 x1 x2 x3 x4 st = Curry.Module.Prelude.c_maybe(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports(x1)(x2)(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(x4)(st)++++c_parseFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_putStrLn))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))(st))(st))(st))(Curry.Module.Prelude.op_62_62(Curry.Module.Distribution.c_callFrontendWithParams(Curry.Module.Distribution.C_FCY)(Curry.Module.Distribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.Distribution.c_setFullPath(x1)(Curry.Module.Distribution.c_defaultParams(st))(st))(st))(x2)(st))(Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st))(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x1)(x3)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)(st))(st))(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports'46collectMods'4616 x1 x2 x3@Curry.Module.Prelude.List x4 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStrLn((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.List)(st))(st)+c_parseFlatCurryFileWithImports'46collectMods'4616 x1 x2 x3@((Curry.Module.Prelude.:<) x5 x6) x4 st = Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616_case_2(x1)(x2)(x4)(x5)(x6)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(x4)(st))(st)+c_parseFlatCurryFileWithImports'46collectMods'4616 x1 x2 (Curry.Module.Prelude.ListOr i xs) x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x1)(x2)(x)(x4)(st))(i)(xs)(st)+c_parseFlatCurryFileWithImports'46collectMods'4616 x1 x2 x x4 st = Curry.RunTimeSystem.patternFail("FlatCurryRead.parseFlatCurryFileWithImports.collectMods.16")(x)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))(st))(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6(x1)(x2)(x3)(x4)(x5)))(x6)(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr(Curry.Module.Prelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.FlatCurry.c_readFlatCurryFile(x6)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7(x1)(x2)(x3)(x4)(x5)))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x2)(x5)(Curry.Module.Prelude.op_43_43(x4)(Curry.Module.FlatCurryRead.c_importsOf(x6)(st))(st))((Curry.Module.Prelude.:<)(x3)(x1))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8(x6)))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8 x1 x2 st = Curry.Module.Prelude.c_return((Curry.Module.Prelude.:<)(x1)(x2))(st)++++c_tryReadFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_tryReadFlatCurryFileWithImports x1 x2 x3 st = Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x1)(x3)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_tryReadFlatCurryFileWithImports'46collectMods'4627 x1 x2 x3@Curry.Module.Prelude.List x4 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStrLn((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List))(st))(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627 x1 x2 x3@((Curry.Module.Prelude.:<) x5 x6) x4 st = Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1(x1)(x2)(x4)(x5)(x6)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(x4)(st))(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627 x1 x2 (Curry.Module.Prelude.ListOr i xs) x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x1)(x2)(x)(x4)(st))(i)(xs)(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627 x1 x2 x x4 st = Curry.RunTimeSystem.patternFail("FlatCurryRead.tryReadFlatCurryFileWithImports.collectMods.27")(x)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10(x1)(x2)(x3)(x4)(x5)))(x6)(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x2)(x5)(Curry.Module.Prelude.op_43_43(x4)(Curry.Module.FlatCurryRead.c_importsOf(x6)(st))(st))((Curry.Module.Prelude.:<)(x3)(x1))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11(x6)))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12(x1)))(x2)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12 x1 x2 st = Curry.Module.Prelude.C_Just((Curry.Module.Prelude.:<)(x1)(x2))++++c_importsOf :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_importsOf x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = x3+c_importsOf (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_importsOf(x)(st))(i)(xs)(st)+c_importsOf x st = Curry.RunTimeSystem.patternFail("FlatCurryRead.importsOf")(x)++++c_readFlatCurryIfPossible :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FileGoodies.c_lookupFileInPath(x2)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13(x1)(x2)(x3)))(st)++++c_readFlatCurryIfPossible'46_'35lambda13 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13 x1 x2 x3 x4 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.op_62_62_61(Curry.Module.FileGoodies.c_lookupFileInPath(x2)(x3)(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16(x2)(x3)))(x4)(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14 :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14 x1 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15))(x1)(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurryFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16 x1 x2 x3 st = let {x4 = Curry.Module.FileGoodies.c_dirName(x3)(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.FileGoodies.c_lookupFileInPath(x1)(x2)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(Curry.Module.Distribution.c_addCurrySubdir(x4)(st))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17(x3)))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17 x1 x2 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18(x1)))(x2)(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_getModificationTime(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19(x2)))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19 x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_getModificationTime(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20(x2)(x1)))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20 :: Curry.Module.Time.C_ClockTime -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20 x1 x2 x3 st = Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0(x1)(x2)(x3)(Curry.Module.Prelude.op_62(Curry.Module.Time.c_clockTimeToInt(x1)(st))(Curry.Module.Time.c_clockTimeToInt(x3)(st))(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_putStr(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.FlatCurry.c_readFlatCurryFile(x2)(st))(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(st))(st)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20_case_0 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryRead.readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20_case_0")(x)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x1)(x2)(x6)(x4)(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurryRead.c_readFlatCurryIfPossible(x1)(x5)(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9(x4)(x1)(x5)(x6)(x2)))(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1 x1 x2 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_tryReadFlatCurryFileWithImports'46collectMods'4627_case_1 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryRead.tryReadFlatCurryFileWithImports.collectMods.27_case_1")(x)++++c_parseFlatCurryFileWithImports'46collectMods'4616_case_2 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x1)(x2)(x6)(x4)(st)+c_parseFlatCurryFileWithImports'46collectMods'4616_case_2 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FileGoodies.c_lookupFileInPath(x5)(x2)(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5(x4)(x1)(x5)(x6)(x2)))(st)+c_parseFlatCurryFileWithImports'46collectMods'4616_case_2 x1 x2 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616_case_2(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_parseFlatCurryFileWithImports'46collectMods'4616_case_2 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryRead.parseFlatCurryFileWithImports.collectMods.16_case_2")(x)++
+ dist/build/Curry/Module/FlatCurryShow.hs view
@@ -0,0 +1,872 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurryShow (module Curry.Module.FlatCurryShow) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Prelude++++-- begin included++++-- end included++c_showFlatProg :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatProg x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatProg_case_93(x3)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.List)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatProg_case_92(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.List)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatFunc))(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatOp))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showFlatProg (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatProg(x)(st))(i)(xs)(st)+c_showFlatProg x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatProg")(x)++++c_showFlatVisibility :: Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatVisibility x1@Curry.Module.FlatCurry.C_Public st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))+c_showFlatVisibility x1@Curry.Module.FlatCurry.C_Private st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))+c_showFlatVisibility (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatVisibility(x)(st))(i)(xs)(st)+c_showFlatVisibility x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatVisibility")(x)++++c_showFlatFixity :: Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixlOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixrOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))+c_showFlatFixity (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatFixity(x)(st))(i)(xs)(st)+c_showFlatFixity x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatFixity")(x)++++c_showFlatOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatOp x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatFixity(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatOp (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatOp(x)(st))(i)(xs)(st)+c_showFlatOp x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatOp")(x)++++c_showFlatType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatType x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatVisibility(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatCons))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatType x1@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x6)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatVisibility(x7)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x8)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatTypeExpr(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatType(x)(st))(i)(xs)(st)+c_showFlatType x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatType")(x)++++c_showFlatCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCons x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatVisibility(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatTypeExpr))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st)+c_showFlatCons (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatCons(x)(st))(i)(xs)(st)+c_showFlatCons x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatCons")(x)++++c_showFlatFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatVisibility(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatTypeExpr(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatRule(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showFlatFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatFunc(x)(st))(i)(xs)(st)+c_showFlatFunc x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatFunc")(x)++++c_showFlatRule :: Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatRule x1@(Curry.Module.FlatCurry.C_Rule x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatRule x1@(Curry.Module.FlatCurry.C_External x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatRule (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatRule(x)(st))(i)(xs)(st)+c_showFlatRule x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatRule")(x)++++c_showFlatTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_FuncType x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatTypeExpr(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatTypeExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_TCons x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatTypeExpr))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_TVar x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatTypeExpr (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatTypeExpr(x)(st))(i)(xs)(st)+c_showFlatTypeExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatTypeExpr")(x)++++c_showFlatCombType :: Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCombType x1@Curry.Module.FlatCurry.C_FuncCall st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))+c_showFlatCombType x1@Curry.Module.FlatCurry.C_ConsCall st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))+c_showFlatCombType x1@(Curry.Module.FlatCurry.C_FuncPartCall x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatCombType x1@(Curry.Module.FlatCurry.C_ConsPartCall x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatCombType (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatCombType(x)(st))(i)(xs)(st)+c_showFlatCombType x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatCombType")(x)++++c_showFlatExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatLit(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatCombType(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x5)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatExpr))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatExpr'46showFlatBinding'4649))(x7)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x9)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x11)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.FlatCurryShow.c_showFlatExpr_case_91(x14)(x15)(x13)(st)+c_showFlatExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatExpr(x)(st))(i)(xs)(st)+c_showFlatExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatExpr")(x)++++c_showFlatExpr'46showFlatBinding'4649 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr'46showFlatBinding'4649 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatExpr'46showFlatBinding'4649 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatExpr'46showFlatBinding'4649(x)(st))(i)(xs)(st)+c_showFlatExpr'46showFlatBinding'4649 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatExpr.showFlatBinding.49")(x)++++c_showFlatLit :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatLit (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatLit(x)(st))(i)(xs)(st)+c_showFlatLit x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatLit")(x)++++c_showFlatBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatBranch x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatPattern(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatBranch (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatBranch(x)(st))(i)(xs)(st)+c_showFlatBranch x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatBranch")(x)++++c_showFlatPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatPattern x1@(Curry.Module.FlatCurry.C_Pattern x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatPattern x1@(Curry.Module.FlatCurry.C_LPattern x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatLit(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatPattern (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatPattern(x)(st))(i)(xs)(st)+c_showFlatPattern x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatPattern")(x)++++c_showFlatList :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatList x1 x2 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatListElems(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(st))(st)++++c_showFlatListElems :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatListElems x1 x2 st = Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(x1)(x2)(st))(st))(st)++++c_showCurryType :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_TVar x4) st = Curry.Module.FlatCurryShow.c_showCurryType_case_90(x4)(Curry.Module.Prelude.op_60(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(st)+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_FuncType x5 x6) st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryType(x1)(Curry.Module.FlatCurryShow.c_isFuncType(x5)(st))(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.FlatCurryShow.c_showCurryType(x1)(Curry.Module.Prelude.C_False)(x6)(st))(st))(st))(st)+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_TCons x7 x8) st = Curry.Module.FlatCurryShow.c_showCurryType_case_89(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.List)(st))(st)+c_showCurryType x1 x2 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryType x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType")(x)++++c_showCurryType'46_'35lambda2 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType'46_'35lambda2 x1 x2 st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.FlatCurryShow.c_showCurryType(x1)(Curry.Module.Prelude.C_True)(x2)(st))++++c_isFuncType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.C_False+c_isFuncType x1@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.Prelude.C_True+c_isFuncType x1@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.Prelude.C_False+c_isFuncType (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isFuncType(x)(st))(i)(xs)(st)+c_isFuncType x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isFuncType")(x)++++c_showCurryExpr :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.FlatCurryShow.c_showCurryVar(x5)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.FlatCurryShow.c_showCurryLit(x6)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_84(x1)(x2)(x3)(x7)(x8)(x9)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Let x16 x17) st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryExpr'46_'35lambda3(x3)(x1)))(x16)(st))(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(x17)(st))(st))(st))(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Free x18 x19) st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_72(x1)(x2)(x3)(x19)(x18)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Or x22 x23) st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x22)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x23)(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Case x24 x25 x26) st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr_case_71(x24)(Curry.Module.Prelude.op_61_61(x24)(Curry.Module.FlatCurry.C_Rigid)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x25)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryCase(x1)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))))(x26)(st))(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(st))(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_showCurryExpr x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr")(x)++++c_showCurryExpr'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr'46_'35lambda3 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryVar(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.FlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(x5)(st))(st))(st)+c_showCurryExpr'46_'35lambda3 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr'46_'35lambda3(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryExpr'46_'35lambda3 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr._#lambda3")(x)++++c_showCurryVar :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryVar x1 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_show(x1)(st))(st)++++c_showCurryId :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryId x1 st = Curry.Module.FlatCurryShow.c_showCurryId_case_70(x1)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(x1)(st))(st))(st)++++c_showCurryLit :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.Prelude.c_show(x2)(st)+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.Prelude.c_show(x3)(st)+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.Prelude.c_show(x4)(st)+c_showCurryLit (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryLit(x)(st))(i)(xs)(st)+c_showCurryLit x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryLit")(x)++++c_showCurryCase :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase x1 x2 x3@(Curry.Module.FlatCurry.C_Branch x4 x5) st = Curry.Module.FlatCurryShow.c_showCurryCase_case_67(x1)(x2)(x5)(x4)(st)+c_showCurryCase x1 x2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryCase x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase")(x)++++c_showCurryCase'46showPattern'46151 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase'46showPattern'46151 x1 x2@Curry.Module.Prelude.List st = x1+c_showCurryCase'46showPattern'46151 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_66(x1)(x3)(x4)(st)+c_showCurryCase'46showPattern'46151 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151(x1)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151")(x)++++c_showCurryFiniteList :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showCurryFiniteList x1 x2 x3@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_61(x1)(x2)(x6)(x5)(st)+c_showCurryFiniteList x1 x2 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryFiniteList x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList")(x)++++c_showCurryStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryStringConstant x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_35(x4)(x3)(st)+c_showCurryStringConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant(x)(st))(i)(xs)(st)+c_showCurryStringConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant")(x)++++c_showCharExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharExpr x1@(Curry.Module.FlatCurry.C_Lit x2) st = Curry.Module.FlatCurryShow.c_showCharExpr_case_9(x2)(st)+c_showCharExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr(x)(st))(i)(xs)(st)+c_showCharExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr")(x)++++c_showCurryElems :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryElems x1 x2 st = Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(x1)(x2)(st))(st))(st)++++c_showBracketsIf :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBracketsIf x1@Curry.Module.Prelude.C_True x2 st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))+c_showBracketsIf x1@Curry.Module.Prelude.C_False x2 st = x2+c_showBracketsIf (Curry.Module.Prelude.C_BoolOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showBracketsIf(x)(x2)(st))(i)(xs)(st)+c_showBracketsIf x x2 st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showBracketsIf")(x)++++c_sceBlanks :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_sceBlanks x1 st = Curry.Module.Prelude.c_take(x1)(Curry.Module.Prelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(st))(st)++++c_isFiniteList :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.FlatCurryShow.c_isFiniteList_case_3(x5)(x6)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.op_61_61(x6)(Curry.Module.Prelude.List)(st))(st))(st)+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isFiniteList (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isFiniteList(x)(st))(i)(xs)(st)+c_isFiniteList x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isFiniteList")(x)++++c_isStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.c_null(x4)(st))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x4)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryShow.c_isCharConstant(Curry.Module.Prelude.c_head(x4)(st))(st))(Curry.Module.FlatCurryShow.c_isStringConstant(Curry.Module.Prelude.op_33_33(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st))(st)+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isStringConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isStringConstant(x)(st))(i)(xs)(st)+c_isStringConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isStringConstant")(x)++++c_isCharConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Lit x2) st = Curry.Module.FlatCurryShow.c_isCharConstant_case_0(x2)(st)+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Free x12 x13) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Case x16 x17 x18) st = Curry.Module.Prelude.C_False+c_isCharConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isCharConstant(x)(st))(i)(xs)(st)+c_isCharConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isCharConstant")(x)++++c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Charc x3) st = Curry.Module.Prelude.C_True+c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Intc x4) st = Curry.Module.Prelude.C_False+c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Floatc x5) st = Curry.Module.Prelude.C_False+c_isCharConstant_case_0 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isCharConstant_case_0(x)(st))(i)(xs)(st)+c_isCharConstant_case_0 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isCharConstant_case_0")(x)++++c_isFiniteList_case_3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_isFiniteList_case_3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_isFiniteList_case_2(x5)(x6)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x6)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_isFiniteList_case_3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isFiniteList_case_3(x5)(x6)(x)(st))(i)(xs)(st)+c_isFiniteList_case_3 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isFiniteList_case_3")(x)++++c_isFiniteList_case_2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_isFiniteList(Curry.Module.Prelude.op_33_33(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)+c_isFiniteList_case_2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_isFiniteList_case_1(Curry.Module.Prelude.c_otherwise(st))(st)+c_isFiniteList_case_2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isFiniteList_case_2(x5)(x6)(x)(st))(i)(xs)(st)+c_isFiniteList_case_2 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isFiniteList_case_2")(x)++++c_isFiniteList_case_1 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_False+c_isFiniteList_case_1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_isFiniteList_case_1(x)(st))(i)(xs)(st)+c_isFiniteList_case_1 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.isFiniteList_case_1")(x)++++c_showCharExpr_case_9 x2@(Curry.Module.FlatCurry.C_Charc x3) st = let {x4 = Curry.Module.Prelude.c_ord(x3)(st)} in Curry.Module.FlatCurryShow.c_showCharExpr_case_8(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\"'))(st))(st)+c_showCharExpr_case_9 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_9(x)(st))(i)(xs)(st)+c_showCharExpr_case_9 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_9")(x)++++c_showCharExpr_case_8 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))+c_showCharExpr_case_8 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCharExpr_case_7(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_showCharExpr_case_8 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_8(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_8 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_8")(x)++++c_showCharExpr_case_7 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))+c_showCharExpr_case_7 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCharExpr_case_6(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_showCharExpr_case_7 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_7(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_7 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_7")(x)++++c_showCharExpr_case_6 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))+c_showCharExpr_case_6 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCharExpr_case_5(x3)(x4)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_60(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(st))(Curry.Module.Prelude.op_62(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(st))(st)+c_showCharExpr_case_6 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_6(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_6 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_6")(x)++++c_showCharExpr_case_5 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_div(Curry.Module.Prelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))(Curry.Module.Prelude.List))))+c_showCharExpr_case_5 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCharExpr_case_4(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCharExpr_case_5 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_5(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_5 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_5")(x)++++c_showCharExpr_case_4 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)+c_showCharExpr_case_4 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCharExpr_case_4(x3)(x)(st))(i)(xs)(st)+c_showCharExpr_case_4 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCharExpr_case_4")(x)++++c_showCurryStringConstant_case_35 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_34(x4)(x6)(x5)(st)+c_showCurryStringConstant_case_35 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_35(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_35 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_35")(x)++++c_showCurryStringConstant_case_34 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_33(x4)(x6)(x8)(x7)(st)+c_showCurryStringConstant_case_34 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_34(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_34 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_34")(x)++++c_showCurryStringConstant_case_33 x4 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_32(x4)(x6)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_32 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_31(x4)(x6)(x10)(x9)(st)+c_showCurryStringConstant_case_32 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_32(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_32 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_32")(x)++++c_showCurryStringConstant_case_31 x4 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_30(x4)(x6)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_30 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_29(x4)(x6)(x12)(x11)(st)+c_showCurryStringConstant_case_30 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_30(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_30 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_30")(x)++++c_showCurryStringConstant_case_29 x4 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_28(x4)(x6)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_28 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_27(x4)(x6)(x14)(x13)(st)+c_showCurryStringConstant_case_28 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_28(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_28 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_28")(x)++++c_showCurryStringConstant_case_27 x4 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_26(x4)(x6)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_26 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_25(x4)(x6)(x16)(x15)(st)+c_showCurryStringConstant_case_26 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_26(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_26 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_26")(x)++++c_showCurryStringConstant_case_25 x4 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_24(x4)(x6)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_24 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_23(x4)(x6)(x18)(x17)(st)+c_showCurryStringConstant_case_24 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_24(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_24 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_24")(x)++++c_showCurryStringConstant_case_23 x4 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_22(x4)(x6)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_22 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_21(x4)(x6)(x20)(x19)(st)+c_showCurryStringConstant_case_22 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_22(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_22 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_22")(x)++++c_showCurryStringConstant_case_21 x4 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_20(x4)(x6)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_20 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_19(x4)(x6)(st)+c_showCurryStringConstant_case_20 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_20(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_20 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_20")(x)++++c_showCurryStringConstant_case_19 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_18(x4)(x22)(x21)(st)+c_showCurryStringConstant_case_19 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_19(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_19 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_19")(x)++++c_showCurryStringConstant_case_18 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_17(x4)(x22)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_13(x4)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_showCurryStringConstant_case_13 x4 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_12(x4)(st)+c_showCurryStringConstant_case_13 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_13(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_13 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_13")(x)++++c_showCurryStringConstant_case_12 x4@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_11(x25)(x26)(st)+c_showCurryStringConstant_case_12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_12(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_12")(x)++++c_showCurryStringConstant_case_11 x25 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_10(x25)(x27)(x28)(st)+c_showCurryStringConstant_case_11 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_11(x25)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_11 x25 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_11")(x)++++c_showCurryStringConstant_case_10 x25 x27 x28@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCharExpr(x25)(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant(x27)(st))(st)+c_showCurryStringConstant_case_10 x25 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_10(x25)(x27)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_10 x25 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_10")(x)++++c_showCurryStringConstant_case_17 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_16(x4)(x24)(x23)(st)+c_showCurryStringConstant_case_17 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_17(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_17 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_17")(x)++++c_showCurryStringConstant_case_16 x4 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_15(x4)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_15 x4 x24@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_14(x4)(st)+c_showCurryStringConstant_case_15 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_15(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_15 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_15")(x)++++c_showCurryStringConstant_case_14 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showCurryStringConstant_case_14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryStringConstant_case_14(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_14 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryStringConstant_case_14")(x)++++c_showCurryFiniteList_case_61 x1 x2 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_60(x1)(x2)(x6)(x8)(x7)(st)+c_showCurryFiniteList_case_61 x1 x2 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_61(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_61 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_61")(x)++++c_showCurryFiniteList_case_60 x1 x2 x6 x8 x7@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_59(x1)(x2)(x6)(x8)(x10)(x9)(st)+c_showCurryFiniteList_case_60 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_60(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_60 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_60")(x)++++c_showCurryFiniteList_case_59 x1 x2 x6 x8 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_58(x1)(x2)(x6)(x8)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_58 x1 x2 x6 x8 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_57(x1)(x2)(x6)(x8)(x12)(x11)(st)+c_showCurryFiniteList_case_58 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_58(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_58 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_58")(x)++++c_showCurryFiniteList_case_57 x1 x2 x6 x8 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_56(x1)(x2)(x6)(x8)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_56 x1 x2 x6 x8 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_55(x1)(x2)(x6)(x8)(x14)(x13)(st)+c_showCurryFiniteList_case_56 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_56(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_56 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_56")(x)++++c_showCurryFiniteList_case_55 x1 x2 x6 x8 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_54(x1)(x2)(x6)(x8)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_54 x1 x2 x6 x8 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_53(x1)(x2)(x6)(x8)(x16)(x15)(st)+c_showCurryFiniteList_case_54 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_54(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_54 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_54")(x)++++c_showCurryFiniteList_case_53 x1 x2 x6 x8 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_52(x1)(x2)(x6)(x8)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_52 x1 x2 x6 x8 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_51(x1)(x2)(x6)(x8)(x18)(x17)(st)+c_showCurryFiniteList_case_52 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_52(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_52 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_52")(x)++++c_showCurryFiniteList_case_51 x1 x2 x6 x8 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_50(x1)(x2)(x6)(x8)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_50 x1 x2 x6 x8 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_49(x1)(x2)(x6)(x8)(x20)(x19)(st)+c_showCurryFiniteList_case_50 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_50(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_50 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_50")(x)++++c_showCurryFiniteList_case_49 x1 x2 x6 x8 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_48(x1)(x2)(x6)(x8)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_48 x1 x2 x6 x8 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_47(x1)(x2)(x6)(x8)(x22)(x21)(st)+c_showCurryFiniteList_case_48 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_48(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_48 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_48")(x)++++c_showCurryFiniteList_case_47 x1 x2 x6 x8 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_46(x1)(x2)(x6)(x8)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_46 x1 x2 x6 x8 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_45(x1)(x2)(x6)(x8)(st)+c_showCurryFiniteList_case_46 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_46(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_46 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_46")(x)++++c_showCurryFiniteList_case_45 x1 x2 x6 x8@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_44(x1)(x2)(x6)(x24)(x23)(st)+c_showCurryFiniteList_case_45 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_45(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_45 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_45")(x)++++c_showCurryFiniteList_case_44 x1 x2 x6 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_43(x6)(x24)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_39(x1)(x2)(x6)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_showCurryFiniteList_case_39 x1 x2 x6 x24@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_38(x1)(x2)(x6)(st)+c_showCurryFiniteList_case_39 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_39(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_39 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_39")(x)++++c_showCurryFiniteList_case_38 x1 x2 x6@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_37(x1)(x2)(x27)(x28)(st)+c_showCurryFiniteList_case_38 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_38(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_38 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_38")(x)++++c_showCurryFiniteList_case_37 x1 x2 x27 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_36(x1)(x2)(x27)(x29)(x30)(st)+c_showCurryFiniteList_case_37 x1 x2 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_37(x1)(x2)(x27)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_37 x1 x2 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_37")(x)++++c_showCurryFiniteList_case_36 x1 x2 x27 x29 x30@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x27)(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList(x1)(x2)(x29)(st))+c_showCurryFiniteList_case_36 x1 x2 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_36(x1)(x2)(x27)(x29)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_36 x1 x2 x27 x29 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_36")(x)++++c_showCurryFiniteList_case_43 x6 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_42(x6)(x26)(x25)(st)+c_showCurryFiniteList_case_43 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_43(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_43 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_43")(x)++++c_showCurryFiniteList_case_42 x6 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_41(x6)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_41 x6 x26@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_40(x6)(st)+c_showCurryFiniteList_case_41 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_41(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_41 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_41")(x)++++c_showCurryFiniteList_case_40 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showCurryFiniteList_case_40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryFiniteList_case_40(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_40 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryFiniteList_case_40")(x)++++c_showCurryCase'46showPattern'46151_case_66 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryVar(x3)(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_66 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_65(x1)(x3)(x5)(x6)(st)+c_showCurryCase'46showPattern'46151_case_66 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_66(x1)(x3)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151_case_66 x1 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151_case_66")(x)++++c_showCurryCase'46showPattern'46151_case_65 x1 x3 x5 x6@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_64(x1)(x3)(x5)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(x1)(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_65 x1 x3 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_62(x1)(x3)(x5)(x7)(x8)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryCase'46showPattern'46151_case_65 x1 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_65(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151_case_65 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151_case_65")(x)++++c_showCurryCase'46showPattern'46151_case_62 x1 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryVar))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x7)(x8))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryCase'46showPattern'46151_case_62 x1 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryVar))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x7)(x8))))(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_62 x1 x3 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_62(x1)(x3)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151_case_62 x1 x3 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151_case_62")(x)++++c_showCurryCase'46showPattern'46151_case_64 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryVar(x5)(st))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_64 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_63(x1)(x3)(x5)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryCase'46showPattern'46151_case_64 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_64(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151_case_64 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151_case_64")(x)++++c_showCurryCase'46showPattern'46151_case_63 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryVar(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_63 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryVar(x5)(st))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46151_case_63 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151_case_63(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46151_case_63 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase.showPattern.151_case_63")(x)++++c_showCurryCase_case_67 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_Pattern x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryCase'46showPattern'46151(Curry.Module.Prelude.c_apply(x1)(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryCase_case_67 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_LPattern x8) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryLit(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showCurryCase_case_67 x1 x2 x5 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryCase_case_67(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase_case_67 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryCase_case_67")(x)++++c_showCurryId_case_70 x1 x2@Curry.Module.Prelude.C_True st = x1+c_showCurryId_case_70 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryId_case_69(x1)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryId_case_70 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryId_case_70(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_70 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryId_case_70")(x)++++c_showCurryId_case_69 x1 x2@Curry.Module.Prelude.C_True st = x1+c_showCurryId_case_69 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryId_case_68(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryId_case_69 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryId_case_69(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_69 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryId_case_69")(x)++++c_showCurryId_case_68 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(x1))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st)+c_showCurryId_case_68 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryId_case_68(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_68 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryId_case_68")(x)++++c_showCurryExpr_case_71 x24 x25@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))+c_showCurryExpr_case_71 x24 x25@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))+c_showCurryExpr_case_71 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_71(x24)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_71 x24 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_71")(x)++++c_showCurryExpr_case_72 x1 x2 x3 x19 x18@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(x2)(x3)(x19)(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 x18@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryVar))((Curry.Module.Prelude.:<)(x20)(x21))(st))(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x19)(st))(st))(st))(st))(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_72(x1)(x2)(x3)(x19)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_72")(x)++++c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x9@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_83(x1)(x2)(x3)(x7)(x8)(x10)(x11)(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_84(x1)(x2)(x3)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_84")(x)++++c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x11@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(st))(st))(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_82(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x13)(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_83(x1)(x2)(x3)(x7)(x8)(x10)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_83")(x)++++c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.List st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_81(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_75(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))(st))(Curry.Module.Prelude.op_61_61(x15)(Curry.Module.Prelude.List)(st))(st))(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_82(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_82")(x)++++c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x12)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x14)(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_74(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.Prelude.c_snd(x8)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_75(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_75")(x)++++c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x14)(x15))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_73(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_74(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_74")(x)++++c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x14)(x15))))(st))(st))(st))(st)+c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_73(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_73")(x)++++c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x12)(st))(st))(st))(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_80(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(Curry.Module.Prelude.c_snd(x8)(st))(st))(st))(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_81(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_81")(x)++++c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(st))(st))(st))(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_79(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.FlatCurryShow.c_isFiniteList(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_80(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_80")(x)++++c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_78(x1)(x3)(x7)(x8)(x10)(x12)(Curry.Module.FlatCurryShow.c_isStringConstant(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_77(x1)(x2)(x3)(x8)(x10)(x12)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_snd(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_79(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_79")(x)++++c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryExpr_case_76(x1)(x2)(x3)(x8)(x10)(x12)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_77(x1)(x2)(x3)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_77")(x)++++c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x12)(st))(st))(st))(st))(st))(st)+c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_76(x1)(x2)(x3)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_76")(x)++++c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryStringConstant(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryShow.c_showCurryFiniteList(x1)(x3)(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryExpr_case_78(x1)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryExpr_case_78")(x)++++c_showCurryType_case_89 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(x1)(x7)(st)+c_showCurryType_case_89 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryType_case_88(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x8)(st))(Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(st))(st))(st)+c_showCurryType_case_89 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_89(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_89 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_89")(x)++++c_showCurryType_case_88 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))+c_showCurryType_case_88 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryType_case_87(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryType_case_88 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_88(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_88 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_88")(x)++++c_showCurryType_case_87 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showCurryType(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.c_head(x8)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryType_case_87 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryType_case_86(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.Prelude.c_snd(x7)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryType_case_87 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_87(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_87 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_87")(x)++++c_showCurryType_case_86 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryType(x1)(Curry.Module.Prelude.C_False)))(x8)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryType_case_86 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryShow.c_showCurryType_case_85(x1)(x2)(x7)(x8)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryType_case_86 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_86(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_86 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_86")(x)++++c_showCurryType_case_85 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryShow.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x7)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showCurryType'46_'35lambda2(x1)))(st))(x8)(st))(st))(st)+c_showCurryType_case_85 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_85(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_85 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_85")(x)++++c_showCurryType_case_90 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x4)(st))(st))(Curry.Module.Prelude.List)+c_showCurryType_case_90 x4 x5@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.c_show(x4)(st))+c_showCurryType_case_90 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showCurryType_case_90(x4)(x)(st))(i)(xs)(st)+c_showCurryType_case_90 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showCurryType_case_90")(x)++++c_showFlatExpr_case_91 x14 x15 x13@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x14)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatBranch))(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr_case_91 x14 x15 x13@Curry.Module.FlatCurry.C_Flex st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatExpr(x14)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatBranch))(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr_case_91 x14 x15 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatExpr_case_91(x14)(x15)(x)(st))(i)(xs)(st)+c_showFlatExpr_case_91 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatExpr_case_91")(x)++++c_showFlatProg_case_92 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))+c_showFlatProg_case_92 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryShow.c_showFlatType))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(st)+c_showFlatProg_case_92 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatProg_case_92(x4)(x)(st))(i)(xs)(st)+c_showFlatProg_case_92 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatProg_case_92")(x)++++c_showFlatProg_case_93 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))+c_showFlatProg_case_93 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatProg_case_93 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryShow.c_showFlatProg_case_93(x3)(x)(st))(i)(xs)(st)+c_showFlatProg_case_93 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryShow.showFlatProg_case_93")(x)++
+ dist/build/Curry/Module/FlatCurryTools.hs view
@@ -0,0 +1,879 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurryTools (module Curry.Module.FlatCurryTools) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Prelude++++-- begin included++++-- end included++c_showFlatProg :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatProg x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatProg_case_94(x3)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.List)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatProg_case_93(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.List)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatFunc))(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatOp))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showFlatProg (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatProg(x)(st))(i)(xs)(st)+c_showFlatProg x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatProg")(x)++++c_showFlatVisibility :: Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatVisibility x1@Curry.Module.FlatCurry.C_Public st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))+c_showFlatVisibility x1@Curry.Module.FlatCurry.C_Private st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))+c_showFlatVisibility (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatVisibility(x)(st))(i)(xs)(st)+c_showFlatVisibility x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatVisibility")(x)++++c_showFlatFixity :: Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixlOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))+c_showFlatFixity x1@Curry.Module.FlatCurry.C_InfixrOp st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))+c_showFlatFixity (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatFixity(x)(st))(i)(xs)(st)+c_showFlatFixity x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatFixity")(x)++++c_showFlatOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatOp x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatFixity(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatOp (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatOp(x)(st))(i)(xs)(st)+c_showFlatOp x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatOp")(x)++++c_showFlatType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatType x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatVisibility(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatCons))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatType x1@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x6)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatVisibility(x7)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x8)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatTypeExpr(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatType(x)(st))(i)(xs)(st)+c_showFlatType x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatType")(x)++++c_showFlatCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCons x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatVisibility(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatTypeExpr))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st)+c_showFlatCons (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatCons(x)(st))(i)(xs)(st)+c_showFlatCons x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatCons")(x)++++c_showFlatFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatVisibility(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatTypeExpr(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatRule(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showFlatFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatFunc(x)(st))(i)(xs)(st)+c_showFlatFunc x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatFunc")(x)++++c_showFlatRule :: Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatRule x1@(Curry.Module.FlatCurry.C_Rule x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatRule x1@(Curry.Module.FlatCurry.C_External x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatRule (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatRule(x)(st))(i)(xs)(st)+c_showFlatRule x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatRule")(x)++++c_showFlatTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_FuncType x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatTypeExpr(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatTypeExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_TCons x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x4)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatTypeExpr))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatTypeExpr x1@(Curry.Module.FlatCurry.C_TVar x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatTypeExpr (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatTypeExpr(x)(st))(i)(xs)(st)+c_showFlatTypeExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatTypeExpr")(x)++++c_showFlatCombType :: Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCombType x1@Curry.Module.FlatCurry.C_FuncCall st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))+c_showFlatCombType x1@Curry.Module.FlatCurry.C_ConsCall st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))+c_showFlatCombType x1@(Curry.Module.FlatCurry.C_FuncPartCall x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatCombType x1@(Curry.Module.FlatCurry.C_ConsPartCall x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatCombType (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatCombType(x)(st))(i)(xs)(st)+c_showFlatCombType x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatCombType")(x)++++c_showFlatExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatLit(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatCombType(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x5)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatExpr))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatExpr'46showFlatBinding'4649))(x7)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x9)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x11)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatExpr x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.FlatCurryTools.c_showFlatExpr_case_92(x14)(x15)(x13)(st)+c_showFlatExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatExpr(x)(st))(i)(xs)(st)+c_showFlatExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatExpr")(x)++++c_showFlatExpr'46showFlatBinding'4649 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr'46showFlatBinding'4649 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showFlatExpr'46showFlatBinding'4649 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatExpr'46showFlatBinding'4649(x)(st))(i)(xs)(st)+c_showFlatExpr'46showFlatBinding'4649 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatExpr.showFlatBinding.49")(x)++++c_showFlatLit :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatLit x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.FlatCurryTools.c_showFlatLit_case_91(x4)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_62_61(Curry.Module.Prelude.c_ord(x4)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(st))(Curry.Module.Prelude.op_60(Curry.Module.Prelude.c_ord(x4)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(st))(st)+c_showFlatLit (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatLit(x)(st))(i)(xs)(st)+c_showFlatLit x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatLit")(x)++++c_showFlatBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatBranch x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatPattern(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatBranch (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatBranch(x)(st))(i)(xs)(st)+c_showFlatBranch x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatBranch")(x)++++c_showFlatPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatPattern x1@(Curry.Module.FlatCurry.C_Pattern x2 x3) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatPattern x1@(Curry.Module.FlatCurry.C_LPattern x4) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatLit(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatPattern (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatPattern(x)(st))(i)(xs)(st)+c_showFlatPattern x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatPattern")(x)++++c_showFlatList :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatList x1 x2 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatListElems(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(st))(st)++++c_showFlatListElems :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatListElems x1 x2 st = Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(x1)(x2)(st))(st))(st)++++c_showCurryType :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_TVar x4) st = Curry.Module.FlatCurryTools.c_showCurryType_case_90(x4)(Curry.Module.Prelude.op_60(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(st)+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_FuncType x5 x6) st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryType(x1)(Curry.Module.FlatCurryTools.c_isFuncType(x5)(st))(x5)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.FlatCurryTools.c_showCurryType(x1)(Curry.Module.Prelude.C_False)(x6)(st))(st))(st))(st)+c_showCurryType x1 x2 x3@(Curry.Module.FlatCurry.C_TCons x7 x8) st = Curry.Module.FlatCurryTools.c_showCurryType_case_89(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.List)(st))(st)+c_showCurryType x1 x2 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryType x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType")(x)++++c_showCurryType'46_'35lambda2 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType'46_'35lambda2 x1 x2 st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.FlatCurryTools.c_showCurryType(x1)(Curry.Module.Prelude.C_True)(x2)(st))++++c_isFuncType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.C_False+c_isFuncType x1@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.Prelude.C_True+c_isFuncType x1@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.Prelude.C_False+c_isFuncType (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isFuncType(x)(st))(i)(xs)(st)+c_isFuncType x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isFuncType")(x)++++c_showCurryExpr :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.FlatCurryTools.c_showCurryVar(x5)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.FlatCurryTools.c_showCurryLit(x6)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_84(x1)(x2)(x3)(x7)(x8)(x9)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Let x16 x17) st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryExpr'46_'35lambda3(x3)(x1)))(x16)(st))(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(x17)(st))(st))(st))(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Free x18 x19) st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_72(x1)(x2)(x3)(x19)(x18)(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Or x22 x23) st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x22)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x23)(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Case x24 x25 x26) st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr_case_71(x24)(Curry.Module.Prelude.op_61_61(x24)(Curry.Module.FlatCurry.C_Rigid)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x25)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryCase(x1)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))))(x26)(st))(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(st))(st))(st))(st))(st)+c_showCurryExpr x1 x2 x3 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_showCurryExpr x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr")(x)++++c_showCurryExpr'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr'46_'35lambda3 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryVar(x4)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.FlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(x5)(st))(st))(st)+c_showCurryExpr'46_'35lambda3 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr'46_'35lambda3(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryExpr'46_'35lambda3 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr._#lambda3")(x)++++c_showCurryVar :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryVar x1 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_show(x1)(st))(st)++++c_showCurryId :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryId x1 st = Curry.Module.FlatCurryTools.c_showCurryId_case_70(x1)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(x1)(st))(st))(st)++++c_showCurryLit :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.Prelude.c_show(x2)(st)+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.Prelude.c_show(x3)(st)+c_showCurryLit x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.Prelude.c_show(x4)(st)+c_showCurryLit (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryLit(x)(st))(i)(xs)(st)+c_showCurryLit x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryLit")(x)++++c_showCurryCase :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase x1 x2 x3@(Curry.Module.FlatCurry.C_Branch x4 x5) st = Curry.Module.FlatCurryTools.c_showCurryCase_case_67(x1)(x2)(x5)(x4)(st)+c_showCurryCase x1 x2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryCase x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase")(x)++++c_showCurryCase'46showPattern'46153 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase'46showPattern'46153 x1 x2@Curry.Module.Prelude.List st = x1+c_showCurryCase'46showPattern'46153 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_66(x1)(x3)(x4)(st)+c_showCurryCase'46showPattern'46153 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153(x1)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153")(x)++++c_showCurryFiniteList :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showCurryFiniteList x1 x2 x3@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_61(x1)(x2)(x6)(x5)(st)+c_showCurryFiniteList x1 x2 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryFiniteList x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList")(x)++++c_showCurryStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryStringConstant x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_35(x4)(x3)(st)+c_showCurryStringConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant(x)(st))(i)(xs)(st)+c_showCurryStringConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant")(x)++++c_showCharExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharExpr x1@(Curry.Module.FlatCurry.C_Lit x2) st = Curry.Module.FlatCurryTools.c_showCharExpr_case_9(x2)(st)+c_showCharExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr(x)(st))(i)(xs)(st)+c_showCharExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr")(x)++++c_showCurryElems :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryElems x1 x2 st = Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(x1)(x2)(st))(st))(st)++++c_showBracketsIf :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBracketsIf x1@Curry.Module.Prelude.C_True x2 st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))+c_showBracketsIf x1@Curry.Module.Prelude.C_False x2 st = x2+c_showBracketsIf (Curry.Module.Prelude.C_BoolOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showBracketsIf(x)(x2)(st))(i)(xs)(st)+c_showBracketsIf x x2 st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showBracketsIf")(x)++++c_sceBlanks :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_sceBlanks x1 st = Curry.Module.Prelude.c_take(x1)(Curry.Module.Prelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(st))(st)++++c_isFiniteList :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.FlatCurryTools.c_isFiniteList_case_3(x5)(x6)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.op_61_61(x6)(Curry.Module.Prelude.List)(st))(st))(st)+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isFiniteList x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isFiniteList (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isFiniteList(x)(st))(i)(xs)(st)+c_isFiniteList x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isFiniteList")(x)++++c_isStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.c_null(x4)(st))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x4)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryTools.c_isCharConstant(Curry.Module.Prelude.c_head(x4)(st))(st))(Curry.Module.FlatCurryTools.c_isStringConstant(Curry.Module.Prelude.op_33_33(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st))(st)+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.Prelude.C_False+c_isStringConstant x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.C_False+c_isStringConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isStringConstant(x)(st))(i)(xs)(st)+c_isStringConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isStringConstant")(x)++++c_isCharConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Lit x2) st = Curry.Module.FlatCurryTools.c_isCharConstant_case_0(x2)(st)+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Free x12 x13) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.Prelude.C_False+c_isCharConstant x1@(Curry.Module.FlatCurry.C_Case x16 x17 x18) st = Curry.Module.Prelude.C_False+c_isCharConstant (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isCharConstant(x)(st))(i)(xs)(st)+c_isCharConstant x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isCharConstant")(x)++++c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Charc x3) st = Curry.Module.Prelude.C_True+c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Intc x4) st = Curry.Module.Prelude.C_False+c_isCharConstant_case_0 x2@(Curry.Module.FlatCurry.C_Floatc x5) st = Curry.Module.Prelude.C_False+c_isCharConstant_case_0 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isCharConstant_case_0(x)(st))(i)(xs)(st)+c_isCharConstant_case_0 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isCharConstant_case_0")(x)++++c_isFiniteList_case_3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_isFiniteList_case_3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_isFiniteList_case_2(x5)(x6)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x6)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_isFiniteList_case_3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isFiniteList_case_3(x5)(x6)(x)(st))(i)(xs)(st)+c_isFiniteList_case_3 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isFiniteList_case_3")(x)++++c_isFiniteList_case_2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_isFiniteList(Curry.Module.Prelude.op_33_33(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)+c_isFiniteList_case_2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_isFiniteList_case_1(Curry.Module.Prelude.c_otherwise(st))(st)+c_isFiniteList_case_2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isFiniteList_case_2(x5)(x6)(x)(st))(i)(xs)(st)+c_isFiniteList_case_2 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isFiniteList_case_2")(x)++++c_isFiniteList_case_1 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_False+c_isFiniteList_case_1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_isFiniteList_case_1(x)(st))(i)(xs)(st)+c_isFiniteList_case_1 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.isFiniteList_case_1")(x)++++c_showCharExpr_case_9 x2@(Curry.Module.FlatCurry.C_Charc x3) st = let {x4 = Curry.Module.Prelude.c_ord(x3)(st)} in Curry.Module.FlatCurryTools.c_showCharExpr_case_8(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\"'))(st))(st)+c_showCharExpr_case_9 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_9(x)(st))(i)(xs)(st)+c_showCharExpr_case_9 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_9")(x)++++c_showCharExpr_case_8 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))+c_showCharExpr_case_8 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCharExpr_case_7(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_showCharExpr_case_8 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_8(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_8 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_8")(x)++++c_showCharExpr_case_7 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))+c_showCharExpr_case_7 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCharExpr_case_6(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\n'))(st))(st)+c_showCharExpr_case_7 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_7(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_7 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_7")(x)++++c_showCharExpr_case_6 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))+c_showCharExpr_case_6 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCharExpr_case_5(x3)(x4)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_60(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(st))(Curry.Module.Prelude.op_62(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(st))(st)+c_showCharExpr_case_6 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_6(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_6 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_6")(x)++++c_showCharExpr_case_5 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_div(Curry.Module.Prelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st))(st))(Curry.Module.Prelude.List))))+c_showCharExpr_case_5 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCharExpr_case_4(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCharExpr_case_5 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_5(x3)(x4)(x)(st))(i)(xs)(st)+c_showCharExpr_case_5 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_5")(x)++++c_showCharExpr_case_4 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)+c_showCharExpr_case_4 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCharExpr_case_4(x3)(x)(st))(i)(xs)(st)+c_showCharExpr_case_4 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCharExpr_case_4")(x)++++c_showCurryStringConstant_case_35 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_34(x4)(x6)(x5)(st)+c_showCurryStringConstant_case_35 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_35(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_35 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_35")(x)++++c_showCurryStringConstant_case_34 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_33(x4)(x6)(x8)(x7)(st)+c_showCurryStringConstant_case_34 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_34(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_34 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_34")(x)++++c_showCurryStringConstant_case_33 x4 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_32(x4)(x6)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_32 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_31(x4)(x6)(x10)(x9)(st)+c_showCurryStringConstant_case_32 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_32(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_32 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_32")(x)++++c_showCurryStringConstant_case_31 x4 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_30(x4)(x6)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_30 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_29(x4)(x6)(x12)(x11)(st)+c_showCurryStringConstant_case_30 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_30(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_30 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_30")(x)++++c_showCurryStringConstant_case_29 x4 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_28(x4)(x6)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_28 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_27(x4)(x6)(x14)(x13)(st)+c_showCurryStringConstant_case_28 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_28(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_28 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_28")(x)++++c_showCurryStringConstant_case_27 x4 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_26(x4)(x6)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_26 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_25(x4)(x6)(x16)(x15)(st)+c_showCurryStringConstant_case_26 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_26(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_26 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_26")(x)++++c_showCurryStringConstant_case_25 x4 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_24(x4)(x6)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_24 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_23(x4)(x6)(x18)(x17)(st)+c_showCurryStringConstant_case_24 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_24(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_24 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_24")(x)++++c_showCurryStringConstant_case_23 x4 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_22(x4)(x6)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_22 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_21(x4)(x6)(x20)(x19)(st)+c_showCurryStringConstant_case_22 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_22(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_22 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_22")(x)++++c_showCurryStringConstant_case_21 x4 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_20(x4)(x6)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_20 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_19(x4)(x6)(st)+c_showCurryStringConstant_case_20 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_20(x4)(x6)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_20 x4 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_20")(x)++++c_showCurryStringConstant_case_19 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_18(x4)(x22)(x21)(st)+c_showCurryStringConstant_case_19 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_19(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_19 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_19")(x)++++c_showCurryStringConstant_case_18 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_17(x4)(x22)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_13(x4)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_showCurryStringConstant_case_13 x4 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_12(x4)(st)+c_showCurryStringConstant_case_13 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_13(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_13 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_13")(x)++++c_showCurryStringConstant_case_12 x4@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_11(x25)(x26)(st)+c_showCurryStringConstant_case_12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_12(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_12")(x)++++c_showCurryStringConstant_case_11 x25 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_10(x25)(x27)(x28)(st)+c_showCurryStringConstant_case_11 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_11(x25)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_11 x25 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_11")(x)++++c_showCurryStringConstant_case_10 x25 x27 x28@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCharExpr(x25)(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant(x27)(st))(st)+c_showCurryStringConstant_case_10 x25 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_10(x25)(x27)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_10 x25 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_10")(x)++++c_showCurryStringConstant_case_17 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_16(x4)(x24)(x23)(st)+c_showCurryStringConstant_case_17 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_17(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_17 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_17")(x)++++c_showCurryStringConstant_case_16 x4 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_15(x4)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryStringConstant_case_15 x4 x24@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_14(x4)(st)+c_showCurryStringConstant_case_15 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_15(x4)(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_15 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_15")(x)++++c_showCurryStringConstant_case_14 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showCurryStringConstant_case_14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryStringConstant_case_14(x)(st))(i)(xs)(st)+c_showCurryStringConstant_case_14 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryStringConstant_case_14")(x)++++c_showCurryFiniteList_case_61 x1 x2 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_60(x1)(x2)(x6)(x8)(x7)(st)+c_showCurryFiniteList_case_61 x1 x2 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_61(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_61 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_61")(x)++++c_showCurryFiniteList_case_60 x1 x2 x6 x8 x7@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_59(x1)(x2)(x6)(x8)(x10)(x9)(st)+c_showCurryFiniteList_case_60 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_60(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_60 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_60")(x)++++c_showCurryFiniteList_case_59 x1 x2 x6 x8 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_58(x1)(x2)(x6)(x8)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_58 x1 x2 x6 x8 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_57(x1)(x2)(x6)(x8)(x12)(x11)(st)+c_showCurryFiniteList_case_58 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_58(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_58 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_58")(x)++++c_showCurryFiniteList_case_57 x1 x2 x6 x8 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_56(x1)(x2)(x6)(x8)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_56 x1 x2 x6 x8 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_55(x1)(x2)(x6)(x8)(x14)(x13)(st)+c_showCurryFiniteList_case_56 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_56(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_56 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_56")(x)++++c_showCurryFiniteList_case_55 x1 x2 x6 x8 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_54(x1)(x2)(x6)(x8)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_54 x1 x2 x6 x8 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_53(x1)(x2)(x6)(x8)(x16)(x15)(st)+c_showCurryFiniteList_case_54 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_54(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_54 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_54")(x)++++c_showCurryFiniteList_case_53 x1 x2 x6 x8 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_52(x1)(x2)(x6)(x8)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_52 x1 x2 x6 x8 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_51(x1)(x2)(x6)(x8)(x18)(x17)(st)+c_showCurryFiniteList_case_52 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_52(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_52 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_52")(x)++++c_showCurryFiniteList_case_51 x1 x2 x6 x8 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_50(x1)(x2)(x6)(x8)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_50 x1 x2 x6 x8 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_49(x1)(x2)(x6)(x8)(x20)(x19)(st)+c_showCurryFiniteList_case_50 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_50(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_50 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_50")(x)++++c_showCurryFiniteList_case_49 x1 x2 x6 x8 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_48(x1)(x2)(x6)(x8)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_48 x1 x2 x6 x8 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_47(x1)(x2)(x6)(x8)(x22)(x21)(st)+c_showCurryFiniteList_case_48 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_48(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_48 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_48")(x)++++c_showCurryFiniteList_case_47 x1 x2 x6 x8 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_46(x1)(x2)(x6)(x8)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_46 x1 x2 x6 x8 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_45(x1)(x2)(x6)(x8)(st)+c_showCurryFiniteList_case_46 x1 x2 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_46(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_46 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_46")(x)++++c_showCurryFiniteList_case_45 x1 x2 x6 x8@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_44(x1)(x2)(x6)(x24)(x23)(st)+c_showCurryFiniteList_case_45 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_45(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_45 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_45")(x)++++c_showCurryFiniteList_case_44 x1 x2 x6 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_43(x6)(x24)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_39(x1)(x2)(x6)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_showCurryFiniteList_case_39 x1 x2 x6 x24@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_38(x1)(x2)(x6)(st)+c_showCurryFiniteList_case_39 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_39(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_39 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_39")(x)++++c_showCurryFiniteList_case_38 x1 x2 x6@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_37(x1)(x2)(x27)(x28)(st)+c_showCurryFiniteList_case_38 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_38(x1)(x2)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_38 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_38")(x)++++c_showCurryFiniteList_case_37 x1 x2 x27 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_36(x1)(x2)(x27)(x29)(x30)(st)+c_showCurryFiniteList_case_37 x1 x2 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_37(x1)(x2)(x27)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_37 x1 x2 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_37")(x)++++c_showCurryFiniteList_case_36 x1 x2 x27 x29 x30@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x27)(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList(x1)(x2)(x29)(st))+c_showCurryFiniteList_case_36 x1 x2 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_36(x1)(x2)(x27)(x29)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_36 x1 x2 x27 x29 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_36")(x)++++c_showCurryFiniteList_case_43 x6 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_42(x6)(x26)(x25)(st)+c_showCurryFiniteList_case_43 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_43(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_43 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_43")(x)++++c_showCurryFiniteList_case_42 x6 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_41(x6)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_showCurryFiniteList_case_41 x6 x26@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_40(x6)(st)+c_showCurryFiniteList_case_41 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_41(x6)(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_41 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_41")(x)++++c_showCurryFiniteList_case_40 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_showCurryFiniteList_case_40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryFiniteList_case_40(x)(st))(i)(xs)(st)+c_showCurryFiniteList_case_40 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryFiniteList_case_40")(x)++++c_showCurryCase'46showPattern'46153_case_66 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryVar(x3)(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_66 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_65(x1)(x3)(x5)(x6)(st)+c_showCurryCase'46showPattern'46153_case_66 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_66(x1)(x3)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153_case_66 x1 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153_case_66")(x)++++c_showCurryCase'46showPattern'46153_case_65 x1 x3 x5 x6@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_64(x1)(x3)(x5)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(x1)(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_65 x1 x3 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_62(x1)(x3)(x5)(x7)(x8)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryCase'46showPattern'46153_case_65 x1 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_65(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153_case_65 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153_case_65")(x)++++c_showCurryCase'46showPattern'46153_case_62 x1 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryVar))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x7)(x8))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryCase'46showPattern'46153_case_62 x1 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryVar))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x7)(x8))))(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_62 x1 x3 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_62(x1)(x3)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153_case_62 x1 x3 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153_case_62")(x)++++c_showCurryCase'46showPattern'46153_case_64 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryVar(x5)(st))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_64 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_63(x1)(x3)(x5)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryCase'46showPattern'46153_case_64 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_64(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153_case_64 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153_case_64")(x)++++c_showCurryCase'46showPattern'46153_case_63 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryVar(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_63 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryVar(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryVar(x5)(st))(st))(st))(st))(st)+c_showCurryCase'46showPattern'46153_case_63 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153_case_63(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase'46showPattern'46153_case_63 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase.showPattern.153_case_63")(x)++++c_showCurryCase_case_67 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_Pattern x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryCase'46showPattern'46153(Curry.Module.Prelude.c_apply(x1)(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryCase_case_67 x1 x2 x5 x4@(Curry.Module.FlatCurry.C_LPattern x8) st = Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryLit(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x2)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st))(st))(st))(st)+c_showCurryCase_case_67 x1 x2 x5 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryCase_case_67(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_showCurryCase_case_67 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryCase_case_67")(x)++++c_showCurryId_case_70 x1 x2@Curry.Module.Prelude.C_True st = x1+c_showCurryId_case_70 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryId_case_69(x1)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryId_case_70 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryId_case_70(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_70 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryId_case_70")(x)++++c_showCurryId_case_69 x1 x2@Curry.Module.Prelude.C_True st = x1+c_showCurryId_case_69 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryId_case_68(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryId_case_69 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryId_case_69(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_69 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryId_case_69")(x)++++c_showCurryId_case_68 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(x1))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st)+c_showCurryId_case_68 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryId_case_68(x1)(x)(st))(i)(xs)(st)+c_showCurryId_case_68 x1 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryId_case_68")(x)++++c_showCurryExpr_case_71 x24 x25@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))+c_showCurryExpr_case_71 x24 x25@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))+c_showCurryExpr_case_71 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_71(x24)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_71 x24 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_71")(x)++++c_showCurryExpr_case_72 x1 x2 x3 x19 x18@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(x2)(x3)(x19)(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 x18@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryVar))((Curry.Module.Prelude.:<)(x20)(x21))(st))(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x19)(st))(st))(st))(st))(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_72(x1)(x2)(x3)(x19)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_72 x1 x2 x3 x19 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_72")(x)++++c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x9@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_83(x1)(x2)(x3)(x7)(x8)(x10)(x11)(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_84(x1)(x2)(x3)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_84 x1 x2 x3 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_84")(x)++++c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x11@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(st))(st))(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_82(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x13)(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_83(x1)(x2)(x3)(x7)(x8)(x10)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_83 x1 x2 x3 x7 x8 x10 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_83")(x)++++c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.List st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_81(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_75(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))(st))(Curry.Module.Prelude.op_61_61(x15)(Curry.Module.Prelude.List)(st))(st))(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_82(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_82 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_82")(x)++++c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x12)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_sceBlanks(x3)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x14)(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_74(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.Prelude.c_snd(x8)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_75(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_75 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_75")(x)++++c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x14)(x15))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_73(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_74(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_74 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_74")(x)++++c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryId(Curry.Module.Prelude.c_apply(x1)(x8)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x14)(x15))))(st))(st))(st))(st)+c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_73(x1)(x2)(x3)(x8)(x10)(x12)(x14)(x15)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_73 x1 x2 x3 x8 x10 x12 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_73")(x)++++c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x12)(st))(st))(st))(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_80(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.Char.c_isAlpha(Curry.Module.Prelude.c_head(Curry.Module.Prelude.c_snd(x8)(st))(st))(st))(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_81(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_81 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_81")(x)++++c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)))((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(st))(st))(st))(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_79(x1)(x2)(x3)(x7)(x8)(x10)(x12)(Curry.Module.FlatCurryTools.c_isFiniteList(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_80(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_80 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_80")(x)++++c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_78(x1)(x3)(x7)(x8)(x10)(x12)(Curry.Module.FlatCurryTools.c_isStringConstant(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_77(x1)(x2)(x3)(x8)(x10)(x12)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_snd(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_79(x1)(x2)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_79 x1 x2 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_79")(x)++++c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_False)(x3)(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryExpr_case_76(x1)(x2)(x3)(x8)(x10)(x12)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_77(x1)(x2)(x3)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_77 x1 x2 x3 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_77")(x)++++c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x10)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x8)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryExpr(x1)(Curry.Module.Prelude.C_True)(x3)(x12)(st))(st))(st))(st))(st))(st)+c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_76(x1)(x2)(x3)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_76 x1 x2 x3 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_76")(x)++++c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryStringConstant(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryTools.c_showCurryFiniteList(x1)(x3)(Curry.Module.FlatCurry.C_Comb(x7)(x8)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryExpr_case_78(x1)(x3)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c_showCurryExpr_case_78 x1 x3 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryExpr_case_78")(x)++++c_showCurryType_case_89 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(x1)(x7)(st)+c_showCurryType_case_89 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryType_case_88(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x8)(st))(Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(st))(st))(st)+c_showCurryType_case_89 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_89(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_89 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_89")(x)++++c_showCurryType_case_88 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))+c_showCurryType_case_88 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryType_case_87(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(st)+c_showCurryType_case_88 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_88(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_88 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_88")(x)++++c_showCurryType_case_87 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showCurryType(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.c_head(x8)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryType_case_87 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryType_case_86(x1)(x2)(x7)(x8)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.Prelude.c_snd(x7)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(st))(st)+c_showCurryType_case_87 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_87(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_87 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_87")(x)++++c_showCurryType_case_86 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryType(x1)(Curry.Module.Prelude.C_False)))(x8)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st)+c_showCurryType_case_86 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.FlatCurryTools.c_showCurryType_case_85(x1)(x2)(x7)(x8)(Curry.Module.Prelude.c_otherwise(st))(st)+c_showCurryType_case_86 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_86(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_86 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_86")(x)++++c_showCurryType_case_85 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurryTools.c_showBracketsIf(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x7)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showCurryType'46_'35lambda2(x1)))(st))(x8)(st))(st))(st)+c_showCurryType_case_85 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_85(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c_showCurryType_case_85 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_85")(x)++++c_showCurryType_case_90 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x4)(st))(st))(Curry.Module.Prelude.List)+c_showCurryType_case_90 x4 x5@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.c_show(x4)(st))+c_showCurryType_case_90 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showCurryType_case_90(x4)(x)(st))(i)(xs)(st)+c_showCurryType_case_90 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showCurryType_case_90")(x)++++c_showFlatLit_case_91 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(st))(st)+c_showFlatLit_case_91 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_ord(x4)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(st))(st)+c_showFlatLit_case_91 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatLit_case_91(x4)(x)(st))(i)(xs)(st)+c_showFlatLit_case_91 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatLit_case_91")(x)++++c_showFlatExpr_case_92 x14 x15 x13@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x14)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatBranch))(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr_case_92 x14 x15 x13@Curry.Module.FlatCurry.C_Flex st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatExpr(x14)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatList(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatBranch))(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showFlatExpr_case_92 x14 x15 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatExpr_case_92(x14)(x15)(x)(st))(i)(xs)(st)+c_showFlatExpr_case_92 x14 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatExpr_case_92")(x)++++c_showFlatProg_case_93 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))+c_showFlatProg_case_93 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.FlatCurryTools.c_showFlatType))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(st)+c_showFlatProg_case_93 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatProg_case_93(x4)(x)(st))(i)(xs)(st)+c_showFlatProg_case_93 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatProg_case_93")(x)++++c_showFlatProg_case_94 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))+c_showFlatProg_case_94 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(st))(st)+c_showFlatProg_case_94 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryTools.c_showFlatProg_case_94(x3)(x)(st))(i)(xs)(st)+c_showFlatProg_case_94 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryTools.showFlatProg_case_94")(x)++
+ dist/build/Curry/Module/FlatCurryXML.hs view
@@ -0,0 +1,5735 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatCurryXML (module Curry.Module.FlatCurryXML) where++import Curry.RunTimeSystem+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.Read+import Curry.Module.XML++++-- begin included++++-- end included++c_flatCurryDtd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryDtd st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))++++c_flatCurry2XmlFile :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_flatCurry2XmlFile x1 x2 st = Curry.Module.Prelude.c_writeFile(x2)(Curry.Module.XML.c_showXmlDocWithParams((Curry.Module.Prelude.:<)(Curry.Module.XML.C_DtdUrl(Curry.Module.FlatCurryXML.c_flatCurryDtd(st)))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryXML.c_flatCurry2Xml(x1)(st))(st))(st)++++c_flatCurry2Xml :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_flatCurry2Xml x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(x2)(st))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatCurry2Xml'46_'35lambda2))(x3)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowType))(x4)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowFunc))(x5)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowOp))(x6)(st))(st))(Curry.Module.Prelude.List))))))(st)+c_flatCurry2Xml (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatCurry2Xml(x)(st))(i)(xs)(st)+c_flatCurry2Xml x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatCurry2Xml")(x)++++c_flatCurry2Xml'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_flatCurry2Xml'46_'35lambda2 x1 st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(x1)(st))(Curry.Module.Prelude.List))(st)++++c_qname2xmlattrs :: (Curry t0) => (Curry.Module.Prelude.T2 t0 t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0)+c_qname2xmlattrs x1@(Curry.Module.Prelude.T2 x2 x3) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(x2))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x3))(Curry.Module.Prelude.List))+c_qname2xmlattrs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_qname2xmlattrs(x)(st))(i)(xs)(st)+c_qname2xmlattrs x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.qname2xmlattrs")(x)++++c_xmlShowVisibity :: Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_xmlShowVisibity x1@Curry.Module.FlatCurry.C_Public st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List)+c_xmlShowVisibity x1@Curry.Module.FlatCurry.C_Private st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.List)+c_xmlShowVisibity (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowVisibity(x)(st))(i)(xs)(st)+c_xmlShowVisibity x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowVisibity")(x)++++c_xmlShowType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowType x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x2)(st))(Curry.Module.FlatCurryXML.c_xmlShowVisibity(x3)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowTVar))(x4)(st))(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowCons))(x5)(st))(st))+c_xmlShowType x1@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x6)(st))(Curry.Module.FlatCurryXML.c_xmlShowVisibity(x7)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowTVar))(x8)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr(x9)(st))(Curry.Module.Prelude.List)))+c_xmlShowType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowType(x)(st))(i)(xs)(st)+c_xmlShowType x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowType")(x)++++c_xmlShowCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowCons x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.c_show(x3)(st)))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryXML.c_xmlShowVisibity(x4)(st))(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr))(x5)(st))+c_xmlShowCons (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowCons(x)(st))(i)(xs)(st)+c_xmlShowCons x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowCons")(x)++++c_xmlShowTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowTypeExpr x1@(Curry.Module.FlatCurry.C_FuncType x2 x3) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr(x3)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowTypeExpr x1@(Curry.Module.FlatCurry.C_TCons x4 x5) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x4)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr))(x5)(st))+c_xmlShowTypeExpr x1@(Curry.Module.FlatCurry.C_TVar x6) st = Curry.Module.FlatCurryXML.c_xmlShowTVar(x6)(st)+c_xmlShowTypeExpr (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowTypeExpr(x)(st))(i)(xs)(st)+c_xmlShowTypeExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowTypeExpr")(x)++++c_xmlShowTVar :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowTVar x1 st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(Curry.Module.Prelude.c_show(x1)(st))(st))(Curry.Module.Prelude.List))(st)++++c_xmlShowFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.c_show(x3)(st)))(Curry.Module.Prelude.List))(Curry.Module.FlatCurryXML.c_xmlShowVisibity(x4)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowTypeExpr(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowRule(x6)(st))(Curry.Module.Prelude.List)))+c_xmlShowFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowFunc(x)(st))(i)(xs)(st)+c_xmlShowFunc x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowFunc")(x)++++c_xmlShowRule :: Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowRule x1@(Curry.Module.FlatCurry.C_Rule x2 x3) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowVar))(x2)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x3)(st))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowRule x1@(Curry.Module.FlatCurry.C_External x4) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(x4)(st))(Curry.Module.Prelude.List))(st)+c_xmlShowRule (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowRule(x)(st))(i)(xs)(st)+c_xmlShowRule x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowRule")(x)++++c_xmlShowVar :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowVar x1 st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(Curry.Module.Prelude.c_show(x1)(st))(st))(Curry.Module.Prelude.List))(st)++++c_xmlShowExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.FlatCurryXML.c_xmlShowVar(x2)(st)+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowLit(x3)(st))(Curry.Module.Prelude.List))(st)+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.FlatCurryXML.c_xmlShowExpr_case_1032(x5)(x6)(x4)(st)+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowVar))(x9)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x10)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x12)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.XML.C_XElem(Curry.Module.FlatCurryXML.c_xmlShowExpr_case_1031(x13)(Curry.Module.Prelude.op_61_61(x13)(Curry.Module.FlatCurry.C_Flex)(st))(st))(Curry.Module.Prelude.List)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x14)(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowBranch))(x15)(st))(st))+c_xmlShowExpr x1@(Curry.Module.FlatCurry.C_Let x16 x17) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowExpr'46_'35lambda3))(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x17)(st))(Curry.Module.Prelude.List))(st))(st)+c_xmlShowExpr (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowExpr(x)(st))(i)(xs)(st)+c_xmlShowExpr x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowExpr")(x)++++c_xmlShowExpr'46_'35lambda3 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowExpr'46_'35lambda3 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowVar(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x3)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowExpr'46_'35lambda3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowExpr'46_'35lambda3(x)(st))(i)(xs)(st)+c_xmlShowExpr'46_'35lambda3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowExpr._#lambda3")(x)++++c_xmlShowLit :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowLit x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(Curry.Module.Prelude.c_show(x2)(st))(st))(Curry.Module.Prelude.List))(st)+c_xmlShowLit x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(Curry.Module.Prelude.c_show(x3)(st))(st))(Curry.Module.Prelude.List))(st)+c_xmlShowLit x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xtxt(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_ord(x4)(st))(st))(st))(Curry.Module.Prelude.List))(st)+c_xmlShowLit (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowLit(x)(st))(i)(xs)(st)+c_xmlShowLit x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowLit")(x)++++c_xmlShowBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowBranch x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = Curry.Module.FlatCurryXML.c_xmlShowBranch_case_1030(x3)(x2)(st)+c_xmlShowBranch (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowBranch(x)(st))(i)(xs)(st)+c_xmlShowBranch x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowBranch")(x)++++c_xmlShowOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowOp x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.c_show(x3)(st)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x4)(st)))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.List)+c_xmlShowOp (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowOp(x)(st))(i)(xs)(st)+c_xmlShowOp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowOp")(x)++++c_xmlFile2FlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_xmlFile2FlatCurry x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.XML.c_readXmlFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlFile2FlatCurry'46_'35lambda4))(st)++++c_xmlFile2FlatCurry'46_'35lambda4 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog+c_xmlFile2FlatCurry'46_'35lambda4 x1 st = Curry.Module.Prelude.c_return(Curry.Module.FlatCurryXML.c_xml2FlatCurry(x1)(st))(st)++++c_xml2FlatCurry :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_xml2FlatCurry x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1029(x3)(x4)(x2)(st)+c_xml2FlatCurry (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry(x)(st))(i)(xs)(st)+c_xml2FlatCurry x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry")(x)++++c_xml2FlatCurry'46_'35lambda5 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xml2FlatCurry'46_'35lambda5 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_928(x3)(x4)(x2)(st)+c_xml2FlatCurry'46_'35lambda5 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5")(x)++++c_xml2FlatCurry'46_'35lambda6 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl+c_xml2FlatCurry'46_'35lambda6 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_914(x3)(x4)(x2)(st)+c_xml2FlatCurry'46_'35lambda6 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6")(x)++++c_xml2FlatCurry'46_'35lambda7 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl+c_xml2FlatCurry'46_'35lambda7 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_861(x3)(x4)(x2)(st)+c_xml2FlatCurry'46_'35lambda7 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7")(x)++++c_flatx2typedecl :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_flatx2typedecl x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_802(x3)(x4)(x2)(st)+c_flatx2typedecl (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl(x)(st))(i)(xs)(st)+c_flatx2typedecl x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl")(x)++++c_flatx2typedecl'46_'35lambda8 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2typedecl'46_'35lambda8 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_697(x3)(x4)(x2)(st)+c_flatx2typedecl'46_'35lambda8 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8")(x)++++c_flatx2typedecl'46_'35lambda9 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl+c_flatx2typedecl'46_'35lambda9 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_687(x3)(x4)(x2)(st)+c_flatx2typedecl'46_'35lambda9 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9")(x)++++c_flatx2typedecl'46_'35lambda10 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2typedecl'46_'35lambda10 x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_637(x3)(x4)(x2)(st)+c_flatx2typedecl'46_'35lambda10 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10")(x)++++c_flatx2FunBody :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_flatx2FunBody x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_627(x3)(x4)(x2)(st)+c_flatx2FunBody (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody(x)(st))(i)(xs)(st)+c_flatx2FunBody x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody")(x)++++c_flatx2var :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2var x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2var_case_578(x3)(x4)(x2)(st)+c_flatx2var (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var(x)(st))(i)(xs)(st)+c_flatx2var x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var")(x)++++c_flatx2exp :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_570(x3)(x4)(x2)(st)+c_flatx2exp (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp(x)(st))(i)(xs)(st)+c_flatx2exp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp")(x)++++c_flatx2exp'46_'35selFP3'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2exp'46_'35selFP3'35bindings x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_flatx2exp'46_'35selFP3'35bindings (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP3'35bindings(x)(st))(i)(xs)(st)+c_flatx2exp'46_'35selFP3'35bindings x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp._#selFP3#bindings")(x)++++c_flatx2exp'46_'35selFP4'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp'46_'35selFP4'35exp x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_flatx2exp'46_'35selFP4'35exp (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP4'35exp(x)(st))(i)(xs)(st)+c_flatx2exp'46_'35selFP4'35exp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp._#selFP4#exp")(x)++++c_flatx2exp'46_'35selFP6'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2exp'46_'35selFP6'35bindings x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_flatx2exp'46_'35selFP6'35bindings (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP6'35bindings(x)(st))(i)(xs)(st)+c_flatx2exp'46_'35selFP6'35bindings x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp._#selFP6#bindings")(x)++++c_flatx2exp'46_'35selFP7'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp'46_'35selFP7'35exp x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_flatx2exp'46_'35selFP7'35exp (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP7'35exp(x)(st))(i)(xs)(st)+c_flatx2exp'46_'35selFP7'35exp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp._#selFP7#exp")(x)++++c_flatx2let :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr+c_flatx2let x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.FlatCurryXML.c_flatx2let_case_290(x2)(x3)(st)+c_flatx2let (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let(x)(st))(i)(xs)(st)+c_flatx2let x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let")(x)++++c_flatx2let'46_'35selFP9'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2let'46_'35selFP9'35bindings x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_flatx2let'46_'35selFP9'35bindings (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let'46_'35selFP9'35bindings(x)(st))(i)(xs)(st)+c_flatx2let'46_'35selFP9'35bindings x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let._#selFP9#bindings")(x)++++c_flatx2let'46_'35selFP10'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2let'46_'35selFP10'35exp x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_flatx2let'46_'35selFP10'35exp (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let'46_'35selFP10'35exp(x)(st))(i)(xs)(st)+c_flatx2let'46_'35selFP10'35exp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let._#selFP10#exp")(x)++++c_flatx2branch :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr+c_flatx2branch x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_260(x3)(x4)(x2)(st)+c_flatx2branch (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch(x)(st))(i)(xs)(st)+c_flatx2branch x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch")(x)++++c_flatx2lit :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal+c_flatx2lit x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_163(x3)(x4)(x2)(st)+c_flatx2lit (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit(x)(st))(i)(xs)(st)+c_flatx2lit x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit")(x)++++c_flatx2texp :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_flatx2texp x1@(Curry.Module.XML.C_XElem x2 x3 x4) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_131(x3)(x4)(x2)(st)+c_flatx2texp (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp(x)(st))(i)(xs)(st)+c_flatx2texp x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp")(x)++++c_xvis2vis :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_xvis2vis x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_68(x3)(x2)(st)+c_xvis2vis (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis(x)(st))(i)(xs)(st)+c_xvis2vis x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis")(x)++++c_flatx2Fixity :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity+c_flatx2Fixity x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_23(x3)(x2)(st)+c_flatx2Fixity (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity(x)(st))(i)(xs)(st)+c_flatx2Fixity x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity")(x)++++c_flatx2Fixity_case_23 x3 x2 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x2)(Curry.Module.Prelude.C_Char('I'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_22(x3)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_22 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_21(x5)(x4)(st)+c_flatx2Fixity_case_22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_22(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_22")(x)++++c_flatx2Fixity_case_21 x5 x4 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x4)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_20(x5)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_20 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_19(x7)(x6)(st)+c_flatx2Fixity_case_20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_20(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_20 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_20")(x)++++c_flatx2Fixity_case_19 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_18(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_18 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_17(x9)(x8)(st)+c_flatx2Fixity_case_18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_18(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_18")(x)++++c_flatx2Fixity_case_17 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_16(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_16 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_15(x11)(x10)(st)+c_flatx2Fixity_case_16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_16(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_16")(x)++++c_flatx2Fixity_case_15 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_14(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_14 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_13(x13)(x12)(st)+c_flatx2Fixity_case_14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_14(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_14 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_14")(x)++++c_flatx2Fixity_case_13 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_12(x13)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_9(x13)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_4(x13)(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c_flatx2Fixity_case_4 x13@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_3(x21)(x20)(st)+c_flatx2Fixity_case_4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_4(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_4")(x)++++c_flatx2Fixity_case_3 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_2(x21)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_2 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_1(x23)(x22)(st)+c_flatx2Fixity_case_2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_2(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_2 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_2")(x)++++c_flatx2Fixity_case_1 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_0(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_0 x23@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_InfixrOp+c_flatx2Fixity_case_0 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_0(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_0 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_0")(x)++++c_flatx2Fixity_case_9 x13@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_8(x17)(x16)(st)+c_flatx2Fixity_case_9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_9(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_9 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_9")(x)++++c_flatx2Fixity_case_8 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_7(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_7 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_6(x19)(x18)(st)+c_flatx2Fixity_case_7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_7(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_7 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_7")(x)++++c_flatx2Fixity_case_6 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_5(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_5 x19@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_InfixlOp+c_flatx2Fixity_case_5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_5(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_5 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_5")(x)++++c_flatx2Fixity_case_12 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.FlatCurryXML.c_flatx2Fixity_case_11(x15)(x14)(st)+c_flatx2Fixity_case_12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_12(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_12")(x)++++c_flatx2Fixity_case_11 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2Fixity_case_10(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2Fixity_case_10 x15@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_InfixOp+c_flatx2Fixity_case_10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2Fixity_case_10(x)(st))(i)(xs)(st)+c_flatx2Fixity_case_10 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2Fixity_case_10")(x)++++c_xvis2vis_case_68 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_67(x3)(x5)(x4)(st)+c_xvis2vis_case_68 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_68(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_68 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_68")(x)++++c_xvis2vis_case_67 x3 x5 x4 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x4)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_66(x3)(x5)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_66 x3 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_65(x3)(x7)(x6)(st)+c_xvis2vis_case_66 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_66(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_66 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_66")(x)++++c_xvis2vis_case_65 x3 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_64(x3)(x7)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_64 x3 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_63(x3)(x9)(x8)(st)+c_xvis2vis_case_64 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_64(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_64 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_64")(x)++++c_xvis2vis_case_63 x3 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_62(x3)(x9)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_62 x3 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_61(x3)(x11)(x10)(st)+c_xvis2vis_case_62 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_62(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_62 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_62")(x)++++c_xvis2vis_case_61 x3 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_60(x3)(x11)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_60 x3 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_59(x3)(x13)(x12)(st)+c_xvis2vis_case_60 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_60(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_60 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_60")(x)++++c_xvis2vis_case_59 x3 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_58(x3)(x13)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_58 x3 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_57(x3)(x15)(x14)(st)+c_xvis2vis_case_58 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_58(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_58 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_58")(x)++++c_xvis2vis_case_57 x3 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_56(x3)(x15)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_56 x3 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_55(x3)(x17)(x16)(st)+c_xvis2vis_case_56 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_56(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_56 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_56")(x)++++c_xvis2vis_case_55 x3 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_54(x3)(x17)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_54 x3 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_53(x3)(x19)(x18)(st)+c_xvis2vis_case_54 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_54(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_54 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_54")(x)++++c_xvis2vis_case_53 x3 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_52(x3)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_52 x3 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_51(x3)(x21)(x20)(st)+c_xvis2vis_case_52 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_52(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_52 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_52")(x)++++c_xvis2vis_case_51 x3 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_50(x3)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_50 x3 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_49(x3)(x23)(x22)(st)+c_xvis2vis_case_50 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_50(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_50 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_50")(x)++++c_xvis2vis_case_49 x3 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_48(x3)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_48 x3 x23@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xvis2vis_case_47(x3)(st)+c_xvis2vis_case_48 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_48(x3)(x)(st))(i)(xs)(st)+c_xvis2vis_case_48 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_48")(x)++++c_xvis2vis_case_47 x3@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_46(x25)(x24)(st)+c_xvis2vis_case_47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_47(x)(st))(i)(xs)(st)+c_xvis2vis_case_47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_47")(x)++++c_xvis2vis_case_46 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_45(x25)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_45 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_44(x27)(x26)(st)+c_xvis2vis_case_45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_45(x)(st))(i)(xs)(st)+c_xvis2vis_case_45 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_45")(x)++++c_xvis2vis_case_44 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_43(x27)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_34(x27)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_xvis2vis_case_34 x27@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_33(x37)(x36)(st)+c_xvis2vis_case_34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_34(x)(st))(i)(xs)(st)+c_xvis2vis_case_34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_34")(x)++++c_xvis2vis_case_33 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_32(x37)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_32 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_31(x39)(x38)(st)+c_xvis2vis_case_32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_32(x)(st))(i)(xs)(st)+c_xvis2vis_case_32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_32")(x)++++c_xvis2vis_case_31 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_30(x39)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_30 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_29(x41)(x40)(st)+c_xvis2vis_case_30 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_30(x)(st))(i)(xs)(st)+c_xvis2vis_case_30 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_30")(x)++++c_xvis2vis_case_29 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_28(x41)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_28 x41@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_27(x43)(x42)(st)+c_xvis2vis_case_28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_28(x)(st))(i)(xs)(st)+c_xvis2vis_case_28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_28")(x)++++c_xvis2vis_case_27 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_26(x43)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_26 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_25(x45)(x44)(st)+c_xvis2vis_case_26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_26(x)(st))(i)(xs)(st)+c_xvis2vis_case_26 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_26")(x)++++c_xvis2vis_case_25 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_24(x45)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_24 x45@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Private+c_xvis2vis_case_24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_24(x)(st))(i)(xs)(st)+c_xvis2vis_case_24 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_24")(x)++++c_xvis2vis_case_43 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_42(x29)(x28)(st)+c_xvis2vis_case_43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_43(x)(st))(i)(xs)(st)+c_xvis2vis_case_43 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_43")(x)++++c_xvis2vis_case_42 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_41(x29)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_41 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_40(x31)(x30)(st)+c_xvis2vis_case_41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_41(x)(st))(i)(xs)(st)+c_xvis2vis_case_41 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_41")(x)++++c_xvis2vis_case_40 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_39(x31)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_39 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_38(x33)(x32)(st)+c_xvis2vis_case_39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_39(x)(st))(i)(xs)(st)+c_xvis2vis_case_39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_39")(x)++++c_xvis2vis_case_38 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_37(x33)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_37 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.FlatCurryXML.c_xvis2vis_case_36(x35)(x34)(st)+c_xvis2vis_case_37 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_37(x)(st))(i)(xs)(st)+c_xvis2vis_case_37 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_37")(x)++++c_xvis2vis_case_36 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_xvis2vis_case_35(x35)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xvis2vis_case_35 x35@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Public+c_xvis2vis_case_35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xvis2vis_case_35(x)(st))(i)(xs)(st)+c_xvis2vis_case_35 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xvis2vis_case_35")(x)++++c_flatx2texp_case_131 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_130(x3)(x4)(x6)(x5)(st)+c_flatx2texp_case_131 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_131(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_131 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_131")(x)++++c_flatx2texp_case_130 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_129(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_87(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2texp_case_87 x3 x4 x6@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_86(x3)(x4)(x48)(x47)(st)+c_flatx2texp_case_87 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_87(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_87 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_87")(x)++++c_flatx2texp_case_86 x3 x4 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_85(x3)(x4)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_85 x3 x4 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_84(x3)(x4)(x50)(x49)(st)+c_flatx2texp_case_85 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_85(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_85 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_85")(x)++++c_flatx2texp_case_84 x3 x4 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_83(x3)(x4)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_83 x3 x4 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_82(x3)(x4)(x52)(x51)(st)+c_flatx2texp_case_83 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_83(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_83 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_83")(x)++++c_flatx2texp_case_82 x3 x4 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_81(x3)(x4)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_81 x3 x4 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_80(x3)(x4)(x54)(x53)(st)+c_flatx2texp_case_81 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_81(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_81 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_81")(x)++++c_flatx2texp_case_80 x3 x4 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_79(x3)(x4)(x54)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_79 x3 x4 x54@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_78(x3)(x4)(x56)(x55)(st)+c_flatx2texp_case_79 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_79(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_79 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_79")(x)++++c_flatx2texp_case_78 x3 x4 x56 x55 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x55)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_77(x3)(x4)(x56)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_77 x3 x4 x56@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_76(x3)(x4)(x58)(x57)(st)+c_flatx2texp_case_77 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_77(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_77 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_77")(x)++++c_flatx2texp_case_76 x3 x4 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_75(x3)(x4)(x58)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_75 x3 x4 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_74(x3)(x4)(x60)(x59)(st)+c_flatx2texp_case_75 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_75(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_75 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_75")(x)++++c_flatx2texp_case_74 x3 x4 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_73(x3)(x4)(x60)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_73 x3 x4 x60@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_72(x4)(x3)(st)+c_flatx2texp_case_73 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_73(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_73 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_73")(x)++++c_flatx2texp_case_72 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_71(x4)(st)+c_flatx2texp_case_72 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_72(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_72 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_72")(x)++++c_flatx2texp_case_71 x4@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_70(x61)(x62)(st)+c_flatx2texp_case_71 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_71(x)(st))(i)(xs)(st)+c_flatx2texp_case_71 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_71")(x)++++c_flatx2texp_case_70 x61 x62@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_69(x61)(x63)(x64)(st)+c_flatx2texp_case_70 x61 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_70(x61)(x)(st))(i)(xs)(st)+c_flatx2texp_case_70 x61 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_70")(x)++++c_flatx2texp_case_69 x61 x63 x64@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_FuncType(Curry.Module.FlatCurryXML.c_flatx2texp(x61)(st))(Curry.Module.FlatCurryXML.c_flatx2texp(x63)(st))+c_flatx2texp_case_69 x61 x63 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_69(x61)(x63)(x)(st))(i)(xs)(st)+c_flatx2texp_case_69 x61 x63 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_69")(x)++++c_flatx2texp_case_129 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_128(x3)(x4)(x8)(x7)(st)+c_flatx2texp_case_129 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_129(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_129 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_129")(x)++++c_flatx2texp_case_128 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_127(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_121(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2texp_case_121 x3 x4 x8@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_120(x3)(x4)(x14)(x13)(st)+c_flatx2texp_case_121 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_121(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_121 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_121")(x)++++c_flatx2texp_case_120 x3 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_119(x3)(x4)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_119 x3 x4 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_118(x3)(x4)(x16)(x15)(st)+c_flatx2texp_case_119 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_119(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_119 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_119")(x)++++c_flatx2texp_case_118 x3 x4 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_117(x3)(x4)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_117 x3 x4 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_116(x3)(x4)(x18)(x17)(st)+c_flatx2texp_case_117 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_117(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_117 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_117")(x)++++c_flatx2texp_case_116 x3 x4 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_115(x3)(x4)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_115 x3 x4 x18@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_114(x4)(x3)(st)+c_flatx2texp_case_115 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_115(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_115 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_115")(x)++++c_flatx2texp_case_114 x4 x3@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_113(x4)(x20)(x19)(st)+c_flatx2texp_case_114 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_114(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_114 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_114")(x)++++c_flatx2texp_case_113 x4 x20 x19@(Curry.Module.Prelude.T2 x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_112(x4)(x20)(x22)(x21)(st)+c_flatx2texp_case_113 x4 x20 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_113(x4)(x20)(x)(st))(i)(xs)(st)+c_flatx2texp_case_113 x4 x20 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_113")(x)++++c_flatx2texp_case_112 x4 x20 x22 x21@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_111(x4)(x20)(x22)(x24)(x23)(st)+c_flatx2texp_case_112 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_112(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_112 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_112")(x)++++c_flatx2texp_case_111 x4 x20 x22 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_110(x4)(x20)(x22)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_110 x4 x20 x22 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_109(x4)(x20)(x22)(x26)(x25)(st)+c_flatx2texp_case_110 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_110(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_110 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_110")(x)++++c_flatx2texp_case_109 x4 x20 x22 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_108(x4)(x20)(x22)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_108 x4 x20 x22 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_107(x4)(x20)(x22)(x28)(x27)(st)+c_flatx2texp_case_108 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_108(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_108 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_108")(x)++++c_flatx2texp_case_107 x4 x20 x22 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_106(x4)(x20)(x22)(x28)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_106 x4 x20 x22 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_105(x4)(x20)(x22)(x30)(x29)(st)+c_flatx2texp_case_106 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_106(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_106 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_106")(x)++++c_flatx2texp_case_105 x4 x20 x22 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_104(x4)(x20)(x22)(x30)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_104 x4 x20 x22 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_103(x4)(x20)(x22)(x32)(x31)(st)+c_flatx2texp_case_104 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_104(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_104 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_104")(x)++++c_flatx2texp_case_103 x4 x20 x22 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_102(x4)(x20)(x22)(x32)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_102 x4 x20 x22 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_101(x4)(x20)(x22)(x34)(x33)(st)+c_flatx2texp_case_102 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_102(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_102 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_102")(x)++++c_flatx2texp_case_101 x4 x20 x22 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_100(x4)(x20)(x22)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_100 x4 x20 x22 x34@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_99(x4)(x22)(x20)(st)+c_flatx2texp_case_100 x4 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_100(x4)(x20)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_100 x4 x20 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_100")(x)++++c_flatx2texp_case_99 x4 x22 x20@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_98(x4)(x22)(x36)(x35)(st)+c_flatx2texp_case_99 x4 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_99(x4)(x22)(x)(st))(i)(xs)(st)+c_flatx2texp_case_99 x4 x22 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_99")(x)++++c_flatx2texp_case_98 x4 x22 x36 x35@(Curry.Module.Prelude.T2 x37 x38) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_97(x4)(x22)(x36)(x38)(x37)(st)+c_flatx2texp_case_98 x4 x22 x36 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_98(x4)(x22)(x36)(x)(st))(i)(xs)(st)+c_flatx2texp_case_98 x4 x22 x36 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_98")(x)++++c_flatx2texp_case_97 x4 x22 x36 x38 x37@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_96(x4)(x22)(x36)(x38)(x40)(x39)(st)+c_flatx2texp_case_97 x4 x22 x36 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_97(x4)(x22)(x36)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_97 x4 x22 x36 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_97")(x)++++c_flatx2texp_case_96 x4 x22 x36 x38 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_95(x4)(x22)(x36)(x38)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_95 x4 x22 x36 x38 x40@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_94(x4)(x22)(x36)(x38)(x42)(x41)(st)+c_flatx2texp_case_95 x4 x22 x36 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_95(x4)(x22)(x36)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_95 x4 x22 x36 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_95")(x)++++c_flatx2texp_case_94 x4 x22 x36 x38 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_93(x4)(x22)(x36)(x38)(x42)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_93 x4 x22 x36 x38 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_92(x4)(x22)(x36)(x38)(x44)(x43)(st)+c_flatx2texp_case_93 x4 x22 x36 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_93(x4)(x22)(x36)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_93 x4 x22 x36 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_93")(x)++++c_flatx2texp_case_92 x4 x22 x36 x38 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_91(x4)(x22)(x36)(x38)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_91 x4 x22 x36 x38 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_90(x4)(x22)(x36)(x38)(x46)(x45)(st)+c_flatx2texp_case_91 x4 x22 x36 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_91(x4)(x22)(x36)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_91 x4 x22 x36 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_91")(x)++++c_flatx2texp_case_90 x4 x22 x36 x38 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_89(x4)(x22)(x36)(x38)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_89 x4 x22 x36 x38 x46@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_88(x4)(x22)(x38)(x36)(st)+c_flatx2texp_case_89 x4 x22 x36 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_89(x4)(x22)(x36)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_89 x4 x22 x36 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_89")(x)++++c_flatx2texp_case_88 x4 x22 x38 x36@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2(x22)(x38))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2texp))(x4)(st))+c_flatx2texp_case_88 x4 x22 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_88(x4)(x22)(x38)(x)(st))(i)(xs)(st)+c_flatx2texp_case_88 x4 x22 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_88")(x)++++c_flatx2texp_case_127 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_126(x3)(x4)(x10)(x9)(st)+c_flatx2texp_case_127 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_127(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_127 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_127")(x)++++c_flatx2texp_case_126 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_125(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_125 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2texp_case_124(x3)(x4)(x12)(x11)(st)+c_flatx2texp_case_125 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_125(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_125 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_125")(x)++++c_flatx2texp_case_124 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2texp_case_123(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2texp_case_123 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2texp_case_122(x4)(x3)(st)+c_flatx2texp_case_123 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_123(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_123 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_123")(x)++++c_flatx2texp_case_122 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_TVar(Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st))+c_flatx2texp_case_122 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2texp_case_122(x4)(x)(st))(i)(xs)(st)+c_flatx2texp_case_122 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2texp_case_122")(x)++++c_flatx2lit_case_163 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_162(x3)(x4)(x6)(x5)(st)+c_flatx2lit_case_163 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_163(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_163 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_163")(x)++++c_flatx2lit_case_162 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_161(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_153(x3)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_141(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c_flatx2lit_case_141 x3 x4 x6@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_140(x3)(x4)(x24)(x23)(st)+c_flatx2lit_case_141 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_141(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_141 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_141")(x)++++c_flatx2lit_case_140 x3 x4 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_139(x3)(x4)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_139 x3 x4 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_138(x3)(x4)(x26)(x25)(st)+c_flatx2lit_case_139 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_139(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_139 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_139")(x)++++c_flatx2lit_case_138 x3 x4 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_137(x3)(x4)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_137 x3 x4 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_136(x3)(x4)(x28)(x27)(st)+c_flatx2lit_case_137 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_137(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_137 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_137")(x)++++c_flatx2lit_case_136 x3 x4 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_135(x3)(x4)(x28)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_135 x3 x4 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_134(x3)(x4)(x30)(x29)(st)+c_flatx2lit_case_135 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_135(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_135 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_135")(x)++++c_flatx2lit_case_134 x3 x4 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_133(x3)(x4)(x30)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_133 x3 x4 x30@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2lit_case_132(x4)(x3)(st)+c_flatx2lit_case_133 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_133(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_133 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_133")(x)++++c_flatx2lit_case_132 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Charc(Curry.Module.Prelude.c_chr(Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st))(st))+c_flatx2lit_case_132 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_132(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_132 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_132")(x)++++c_flatx2lit_case_153 x3 x6@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_152(x3)(x14)(x13)(st)+c_flatx2lit_case_153 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_153(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_153 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_153")(x)++++c_flatx2lit_case_152 x3 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_151(x3)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_151 x3 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_150(x3)(x16)(x15)(st)+c_flatx2lit_case_151 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_151(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_151 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_151")(x)++++c_flatx2lit_case_150 x3 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_149(x3)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_149 x3 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_148(x3)(x18)(x17)(st)+c_flatx2lit_case_149 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_149(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_149 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_149")(x)++++c_flatx2lit_case_148 x3 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_147(x3)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_147 x3 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_146(x3)(x20)(x19)(st)+c_flatx2lit_case_147 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_147(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_147 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_147")(x)++++c_flatx2lit_case_146 x3 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_145(x3)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_145 x3 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_144(x3)(x22)(x21)(st)+c_flatx2lit_case_145 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_145(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_145 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_145")(x)++++c_flatx2lit_case_144 x3 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_143(x3)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_143 x3 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2lit_case_142(x3)(st)+c_flatx2lit_case_143 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_143(x3)(x)(st))(i)(xs)(st)+c_flatx2lit_case_143 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_143")(x)++++c_flatx2lit_case_142 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))(st)+c_flatx2lit_case_142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_142(x)(st))(i)(xs)(st)+c_flatx2lit_case_142 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_142")(x)++++c_flatx2lit_case_161 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_160(x3)(x4)(x8)(x7)(st)+c_flatx2lit_case_161 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_161(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_161 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_161")(x)++++c_flatx2lit_case_160 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_159(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_159 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_158(x3)(x4)(x10)(x9)(st)+c_flatx2lit_case_159 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_159(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_159 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_159")(x)++++c_flatx2lit_case_158 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_157(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_157 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2lit_case_156(x3)(x4)(x12)(x11)(st)+c_flatx2lit_case_157 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_157(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_157 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_157")(x)++++c_flatx2lit_case_156 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2lit_case_155(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2lit_case_155 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2lit_case_154(x4)(x3)(st)+c_flatx2lit_case_155 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_155(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_155 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_155")(x)++++c_flatx2lit_case_154 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Intc(Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st))+c_flatx2lit_case_154 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2lit_case_154(x4)(x)(st))(i)(xs)(st)+c_flatx2lit_case_154 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2lit_case_154")(x)++++c_flatx2branch_case_260 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_259(x3)(x4)(x6)(x5)(st)+c_flatx2branch_case_260 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_260(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_260 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_260")(x)++++c_flatx2branch_case_259 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_258(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_258 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_257(x3)(x4)(x8)(x7)(st)+c_flatx2branch_case_258 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_258(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_258 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_258")(x)++++c_flatx2branch_case_257 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_256(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_256 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_255(x3)(x4)(x10)(x9)(st)+c_flatx2branch_case_256 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_256(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_256 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_256")(x)++++c_flatx2branch_case_255 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_254(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_254 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_253(x3)(x4)(x12)(x11)(st)+c_flatx2branch_case_254 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_254(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_254 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_254")(x)++++c_flatx2branch_case_253 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_252(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_252 x3 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_251(x3)(x4)(x14)(x13)(st)+c_flatx2branch_case_252 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_252(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_252 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_252")(x)++++c_flatx2branch_case_251 x3 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_250(x3)(x4)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_250 x3 x4 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_249(x3)(x4)(x16)(x15)(st)+c_flatx2branch_case_250 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_250(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_250 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_250")(x)++++c_flatx2branch_case_249 x3 x4 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_248(x3)(x4)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_248 x3 x4 x16@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_247(x4)(x3)(st)+c_flatx2branch_case_248 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_248(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_248 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_248")(x)++++c_flatx2branch_case_247 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_246(x4)(st)+c_flatx2branch_case_247 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_247(x4)(x)(st))(i)(xs)(st)+c_flatx2branch_case_247 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_247")(x)++++c_flatx2branch_case_246 x4@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_245(x18)(x17)(st)+c_flatx2branch_case_246 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_246(x)(st))(i)(xs)(st)+c_flatx2branch_case_246 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_246")(x)++++c_flatx2branch_case_245 x18 x17@(Curry.Module.XML.C_XElem x19 x20 x21) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_244(x18)(x20)(x21)(x19)(st)+c_flatx2branch_case_245 x18 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_245(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_245 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_245")(x)++++c_flatx2branch_case_244 x18 x20 x21 x19@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_243(x18)(x20)(x21)(x23)(x22)(st)+c_flatx2branch_case_244 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_244(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_244 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_244")(x)++++c_flatx2branch_case_243 x18 x20 x21 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_242(x18)(x20)(x21)(x23)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_200(x18)(x20)(x21)(x23)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_180(x18)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c_flatx2branch_case_180 x18 x23@((Curry.Module.Prelude.:<) x84 x85) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_179(x18)(x85)(x84)(st)+c_flatx2branch_case_180 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_180(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_180 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_180")(x)++++c_flatx2branch_case_179 x18 x85 x84 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x84)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_178(x18)(x85)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_178 x18 x85@((Curry.Module.Prelude.:<) x86 x87) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_177(x18)(x87)(x86)(st)+c_flatx2branch_case_178 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_178(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_178 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_178")(x)++++c_flatx2branch_case_177 x18 x87 x86 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x86)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_176(x18)(x87)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_176 x18 x87@((Curry.Module.Prelude.:<) x88 x89) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_175(x18)(x89)(x88)(st)+c_flatx2branch_case_176 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_176(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_176 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_176")(x)++++c_flatx2branch_case_175 x18 x89 x88 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x88)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_174(x18)(x89)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_174 x18 x89@((Curry.Module.Prelude.:<) x90 x91) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_173(x18)(x91)(x90)(st)+c_flatx2branch_case_174 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_174(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_174 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_174")(x)++++c_flatx2branch_case_173 x18 x91 x90 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x90)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_172(x18)(x91)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_172 x18 x91@((Curry.Module.Prelude.:<) x92 x93) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_171(x18)(x93)(x92)(st)+c_flatx2branch_case_172 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_172(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_172 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_172")(x)++++c_flatx2branch_case_171 x18 x93 x92 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x92)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_170(x18)(x93)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_170 x18 x93@((Curry.Module.Prelude.:<) x94 x95) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_169(x18)(x95)(x94)(st)+c_flatx2branch_case_170 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_170(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_170 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_170")(x)++++c_flatx2branch_case_169 x18 x95 x94 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x94)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_168(x18)(x95)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_168 x18 x95@((Curry.Module.Prelude.:<) x96 x97) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_167(x18)(x97)(x96)(st)+c_flatx2branch_case_168 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_168(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_168 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_168")(x)++++c_flatx2branch_case_167 x18 x97 x96 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x96)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_166(x18)(x97)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_166 x18 x97@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_165(x18)(st)+c_flatx2branch_case_166 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_166(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_166 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_166")(x)++++c_flatx2branch_case_165 x18@((Curry.Module.Prelude.:<) x98 x99) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_164(x99)(st)+c_flatx2branch_case_165 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_165(x)(st))(i)(xs)(st)+c_flatx2branch_case_165 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_165")(x)++++c_flatx2branch_case_164 x99@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(st)+c_flatx2branch_case_164 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_164(x)(st))(i)(xs)(st)+c_flatx2branch_case_164 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_164")(x)++++c_flatx2branch_case_200 x18 x20 x21 x23@((Curry.Module.Prelude.:<) x66 x67) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_199(x18)(x20)(x21)(x67)(x66)(st)+c_flatx2branch_case_200 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_200(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_200 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_200")(x)++++c_flatx2branch_case_199 x18 x20 x21 x67 x66 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x66)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_198(x18)(x20)(x21)(x67)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_198 x18 x20 x21 x67@((Curry.Module.Prelude.:<) x68 x69) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_197(x18)(x20)(x21)(x69)(x68)(st)+c_flatx2branch_case_198 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_198(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_198 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_198")(x)++++c_flatx2branch_case_197 x18 x20 x21 x69 x68 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x68)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_196(x18)(x20)(x21)(x69)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_196 x18 x20 x21 x69@((Curry.Module.Prelude.:<) x70 x71) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_195(x18)(x20)(x21)(x71)(x70)(st)+c_flatx2branch_case_196 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_196(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_196 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_196")(x)++++c_flatx2branch_case_195 x18 x20 x21 x71 x70 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x70)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_194(x18)(x20)(x21)(x71)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_194 x18 x20 x21 x71@((Curry.Module.Prelude.:<) x72 x73) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_193(x18)(x20)(x21)(x73)(x72)(st)+c_flatx2branch_case_194 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_194(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_194 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_194")(x)++++c_flatx2branch_case_193 x18 x20 x21 x73 x72 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x72)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_192(x18)(x20)(x21)(x73)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_192 x18 x20 x21 x73@((Curry.Module.Prelude.:<) x74 x75) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_191(x18)(x20)(x21)(x75)(x74)(st)+c_flatx2branch_case_192 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_192(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_192 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_192")(x)++++c_flatx2branch_case_191 x18 x20 x21 x75 x74 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x74)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_190(x18)(x20)(x21)(x75)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_190 x18 x20 x21 x75@((Curry.Module.Prelude.:<) x76 x77) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_189(x18)(x20)(x21)(x77)(x76)(st)+c_flatx2branch_case_190 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_190(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_190 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_190")(x)++++c_flatx2branch_case_189 x18 x20 x21 x77 x76 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x76)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_188(x18)(x20)(x21)(x77)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_188 x18 x20 x21 x77@((Curry.Module.Prelude.:<) x78 x79) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_187(x18)(x20)(x21)(x79)(x78)(st)+c_flatx2branch_case_188 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_188(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_188 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_188")(x)++++c_flatx2branch_case_187 x18 x20 x21 x79 x78 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x78)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_186(x18)(x20)(x21)(x79)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_186 x18 x20 x21 x79@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_185(x18)(x21)(x20)(st)+c_flatx2branch_case_186 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_186(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_186 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_186")(x)++++c_flatx2branch_case_185 x18 x21 x20@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_184(x18)(x21)(st)+c_flatx2branch_case_185 x18 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_185(x18)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_185 x18 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_185")(x)++++c_flatx2branch_case_184 x18 x21@((Curry.Module.Prelude.:<) x80 x81) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_183(x18)(x80)(x81)(st)+c_flatx2branch_case_184 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_184(x18)(x)(st))(i)(xs)(st)+c_flatx2branch_case_184 x18 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_184")(x)++++c_flatx2branch_case_183 x18 x80 x81@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_182(x80)(x18)(st)+c_flatx2branch_case_183 x18 x80 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_183(x18)(x80)(x)(st))(i)(xs)(st)+c_flatx2branch_case_183 x18 x80 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_183")(x)++++c_flatx2branch_case_182 x80 x18@((Curry.Module.Prelude.:<) x82 x83) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_181(x80)(x82)(x83)(st)+c_flatx2branch_case_182 x80 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_182(x80)(x)(st))(i)(xs)(st)+c_flatx2branch_case_182 x80 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_182")(x)++++c_flatx2branch_case_181 x80 x82 x83@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Branch(Curry.Module.FlatCurry.C_LPattern(Curry.Module.FlatCurryXML.c_flatx2lit(x80)(st)))(Curry.Module.FlatCurryXML.c_flatx2exp(x82)(st))+c_flatx2branch_case_181 x80 x82 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_181(x80)(x82)(x)(st))(i)(xs)(st)+c_flatx2branch_case_181 x80 x82 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_181")(x)++++c_flatx2branch_case_242 x18 x20 x21 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_241(x18)(x20)(x21)(x25)(x24)(st)+c_flatx2branch_case_242 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_242(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_242 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_242")(x)++++c_flatx2branch_case_241 x18 x20 x21 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_240(x18)(x20)(x21)(x25)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_240 x18 x20 x21 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_239(x18)(x20)(x21)(x27)(x26)(st)+c_flatx2branch_case_240 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_240(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_240 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_240")(x)++++c_flatx2branch_case_239 x18 x20 x21 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_238(x18)(x20)(x21)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_238 x18 x20 x21 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_237(x18)(x20)(x21)(x29)(x28)(st)+c_flatx2branch_case_238 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_238(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_238 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_238")(x)++++c_flatx2branch_case_237 x18 x20 x21 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_236(x18)(x20)(x21)(x29)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_236 x18 x20 x21 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_235(x18)(x20)(x21)(x31)(x30)(st)+c_flatx2branch_case_236 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_236(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_236 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_236")(x)++++c_flatx2branch_case_235 x18 x20 x21 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_234(x18)(x20)(x21)(x31)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_234 x18 x20 x21 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_233(x18)(x20)(x21)(x33)(x32)(st)+c_flatx2branch_case_234 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_234(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_234 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_234")(x)++++c_flatx2branch_case_233 x18 x20 x21 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_232(x18)(x20)(x21)(x33)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_232 x18 x20 x21 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_231(x18)(x20)(x21)(x35)(x34)(st)+c_flatx2branch_case_232 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_232(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_232 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_232")(x)++++c_flatx2branch_case_231 x18 x20 x21 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_230(x18)(x20)(x21)(x35)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_230 x18 x20 x21 x35@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_229(x18)(x21)(x20)(st)+c_flatx2branch_case_230 x18 x20 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_230(x18)(x20)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_230 x18 x20 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_230")(x)++++c_flatx2branch_case_229 x18 x21 x20@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_228(x18)(x21)(x37)(x36)(st)+c_flatx2branch_case_229 x18 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_229(x18)(x21)(x)(st))(i)(xs)(st)+c_flatx2branch_case_229 x18 x21 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_229")(x)++++c_flatx2branch_case_228 x18 x21 x37 x36@(Curry.Module.Prelude.T2 x38 x39) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_227(x18)(x21)(x37)(x39)(x38)(st)+c_flatx2branch_case_228 x18 x21 x37 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_228(x18)(x21)(x37)(x)(st))(i)(xs)(st)+c_flatx2branch_case_228 x18 x21 x37 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_228")(x)++++c_flatx2branch_case_227 x18 x21 x37 x39 x38@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_226(x18)(x21)(x37)(x39)(x41)(x40)(st)+c_flatx2branch_case_227 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_227(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_227 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_227")(x)++++c_flatx2branch_case_226 x18 x21 x37 x39 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_225(x18)(x21)(x37)(x39)(x41)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_225 x18 x21 x37 x39 x41@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_224(x18)(x21)(x37)(x39)(x43)(x42)(st)+c_flatx2branch_case_225 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_225(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_225 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_225")(x)++++c_flatx2branch_case_224 x18 x21 x37 x39 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_223(x18)(x21)(x37)(x39)(x43)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_223 x18 x21 x37 x39 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_222(x18)(x21)(x37)(x39)(x45)(x44)(st)+c_flatx2branch_case_223 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_223(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_223 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_223")(x)++++c_flatx2branch_case_222 x18 x21 x37 x39 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_221(x18)(x21)(x37)(x39)(x45)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_221 x18 x21 x37 x39 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_220(x18)(x21)(x37)(x39)(x47)(x46)(st)+c_flatx2branch_case_221 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_221(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_221 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_221")(x)++++c_flatx2branch_case_220 x18 x21 x37 x39 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_219(x18)(x21)(x37)(x39)(x47)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_219 x18 x21 x37 x39 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_218(x18)(x21)(x37)(x39)(x49)(x48)(st)+c_flatx2branch_case_219 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_219(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_219 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_219")(x)++++c_flatx2branch_case_218 x18 x21 x37 x39 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_217(x18)(x21)(x37)(x39)(x49)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_217 x18 x21 x37 x39 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_216(x18)(x21)(x37)(x39)(x51)(x50)(st)+c_flatx2branch_case_217 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_217(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_217 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_217")(x)++++c_flatx2branch_case_216 x18 x21 x37 x39 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_215(x18)(x21)(x37)(x39)(x51)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_215 x18 x21 x37 x39 x51@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_214(x18)(x21)(x39)(x37)(st)+c_flatx2branch_case_215 x18 x21 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_215(x18)(x21)(x37)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_215 x18 x21 x37 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_215")(x)++++c_flatx2branch_case_214 x18 x21 x39 x37@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_213(x18)(x21)(x39)(x53)(x52)(st)+c_flatx2branch_case_214 x18 x21 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_214(x18)(x21)(x39)(x)(st))(i)(xs)(st)+c_flatx2branch_case_214 x18 x21 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_214")(x)++++c_flatx2branch_case_213 x18 x21 x39 x53 x52@(Curry.Module.Prelude.T2 x54 x55) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_212(x18)(x21)(x39)(x53)(x55)(x54)(st)+c_flatx2branch_case_213 x18 x21 x39 x53 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_213(x18)(x21)(x39)(x53)(x)(st))(i)(xs)(st)+c_flatx2branch_case_213 x18 x21 x39 x53 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_213")(x)++++c_flatx2branch_case_212 x18 x21 x39 x53 x55 x54@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_211(x18)(x21)(x39)(x53)(x55)(x57)(x56)(st)+c_flatx2branch_case_212 x18 x21 x39 x53 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_212(x18)(x21)(x39)(x53)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_212 x18 x21 x39 x53 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_212")(x)++++c_flatx2branch_case_211 x18 x21 x39 x53 x55 x57 x56 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x56)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_210(x18)(x21)(x39)(x53)(x55)(x57)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_210 x18 x21 x39 x53 x55 x57@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_209(x18)(x21)(x39)(x53)(x55)(x59)(x58)(st)+c_flatx2branch_case_210 x18 x21 x39 x53 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_210(x18)(x21)(x39)(x53)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_210 x18 x21 x39 x53 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_210")(x)++++c_flatx2branch_case_209 x18 x21 x39 x53 x55 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_208(x18)(x21)(x39)(x53)(x55)(x59)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_208 x18 x21 x39 x53 x55 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_207(x18)(x21)(x39)(x53)(x55)(x61)(x60)(st)+c_flatx2branch_case_208 x18 x21 x39 x53 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_208(x18)(x21)(x39)(x53)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_208 x18 x21 x39 x53 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_208")(x)++++c_flatx2branch_case_207 x18 x21 x39 x53 x55 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_206(x18)(x21)(x39)(x53)(x55)(x61)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_206 x18 x21 x39 x53 x55 x61@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_205(x18)(x21)(x39)(x53)(x55)(x63)(x62)(st)+c_flatx2branch_case_206 x18 x21 x39 x53 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_206(x18)(x21)(x39)(x53)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_206 x18 x21 x39 x53 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_206")(x)++++c_flatx2branch_case_205 x18 x21 x39 x53 x55 x63 x62 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x62)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2branch_case_204(x18)(x21)(x39)(x53)(x55)(x63)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2branch_case_204 x18 x21 x39 x53 x55 x63@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_203(x18)(x21)(x39)(x55)(x53)(st)+c_flatx2branch_case_204 x18 x21 x39 x53 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_204(x18)(x21)(x39)(x53)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_204 x18 x21 x39 x53 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_204")(x)++++c_flatx2branch_case_203 x18 x21 x39 x55 x53@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2branch_case_202(x21)(x39)(x55)(x18)(st)+c_flatx2branch_case_203 x18 x21 x39 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_203(x18)(x21)(x39)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_203 x18 x21 x39 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_203")(x)++++c_flatx2branch_case_202 x21 x39 x55 x18@((Curry.Module.Prelude.:<) x64 x65) st = Curry.Module.FlatCurryXML.c_flatx2branch_case_201(x21)(x39)(x55)(x64)(x65)(st)+c_flatx2branch_case_202 x21 x39 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_202(x21)(x39)(x55)(x)(st))(i)(xs)(st)+c_flatx2branch_case_202 x21 x39 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_202")(x)++++c_flatx2branch_case_201 x21 x39 x55 x64 x65@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Branch(Curry.Module.FlatCurry.C_Pattern(Curry.Module.Prelude.T2(x39)(x55))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2var))(x21)(st)))(Curry.Module.FlatCurryXML.c_flatx2exp(x64)(st))+c_flatx2branch_case_201 x21 x39 x55 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2branch_case_201(x21)(x39)(x55)(x64)(x)(st))(i)(xs)(st)+c_flatx2branch_case_201 x21 x39 x55 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2branch_case_201")(x)++++c_flatx2let_case_290 x2 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.FlatCurryXML.c_flatx2exp(x2)(st))+c_flatx2let_case_290 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.FlatCurryXML.c_flatx2let_case_289(x4)(x5)(x2)(st)+c_flatx2let_case_290 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_290(x2)(x)(st))(i)(xs)(st)+c_flatx2let_case_290 x2 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_290")(x)++++c_flatx2let_case_289 x4 x5 x2@(Curry.Module.XML.C_XElem x6 x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2let_case_288(x4)(x5)(x7)(x8)(x6)(st)+c_flatx2let_case_289 x4 x5 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_289(x4)(x5)(x)(st))(i)(xs)(st)+c_flatx2let_case_289 x4 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_289")(x)++++c_flatx2let_case_288 x4 x5 x7 x8 x6@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2let_case_287(x4)(x5)(x7)(x8)(x10)(x9)(st)+c_flatx2let_case_288 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_288(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_288 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_288")(x)++++c_flatx2let_case_287 x4 x5 x7 x8 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_286(x4)(x5)(x7)(x8)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_286 x4 x5 x7 x8 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2let_case_285(x4)(x5)(x7)(x8)(x12)(x11)(st)+c_flatx2let_case_286 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_286(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_286 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_286")(x)++++c_flatx2let_case_285 x4 x5 x7 x8 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_284(x4)(x5)(x7)(x8)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_284 x4 x5 x7 x8 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2let_case_283(x4)(x5)(x7)(x8)(x14)(x13)(st)+c_flatx2let_case_284 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_284(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_284 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_284")(x)++++c_flatx2let_case_283 x4 x5 x7 x8 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_282(x4)(x5)(x7)(x8)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_282 x4 x5 x7 x8 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2let_case_281(x4)(x5)(x7)(x8)(x16)(x15)(st)+c_flatx2let_case_282 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_282(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_282 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_282")(x)++++c_flatx2let_case_281 x4 x5 x7 x8 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_280(x4)(x5)(x7)(x8)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_280 x4 x5 x7 x8 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2let_case_279(x4)(x5)(x7)(x8)(x18)(x17)(st)+c_flatx2let_case_280 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_280(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_280 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_280")(x)++++c_flatx2let_case_279 x4 x5 x7 x8 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_278(x4)(x5)(x7)(x8)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_278 x4 x5 x7 x8 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2let_case_277(x4)(x5)(x7)(x8)(x20)(x19)(st)+c_flatx2let_case_278 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_278(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_278 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_278")(x)++++c_flatx2let_case_277 x4 x5 x7 x8 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_276(x4)(x5)(x7)(x8)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_276 x4 x5 x7 x8 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2let_case_275(x4)(x5)(x7)(x8)(x22)(x21)(st)+c_flatx2let_case_276 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_276(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_276 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_276")(x)++++c_flatx2let_case_275 x4 x5 x7 x8 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_274(x4)(x5)(x7)(x8)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_274 x4 x5 x7 x8 x22@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2let_case_273(x4)(x5)(x8)(x7)(st)+c_flatx2let_case_274 x4 x5 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_274(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_274 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_274")(x)++++c_flatx2let_case_273 x4 x5 x8 x7@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2let_case_272(x4)(x5)(x8)(st)+c_flatx2let_case_273 x4 x5 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_273(x4)(x5)(x8)(x)(st))(i)(xs)(st)+c_flatx2let_case_273 x4 x5 x8 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_273")(x)++++c_flatx2let_case_272 x4 x5 x8@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2let_case_271(x4)(x5)(x24)(x23)(st)+c_flatx2let_case_272 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_272(x4)(x5)(x)(st))(i)(xs)(st)+c_flatx2let_case_272 x4 x5 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_272")(x)++++c_flatx2let_case_271 x4 x5 x24 x23@(Curry.Module.XML.C_XElem x25 x26 x27) st = Curry.Module.FlatCurryXML.c_flatx2let_case_270(x4)(x5)(x24)(x26)(x27)(x25)(st)+c_flatx2let_case_271 x4 x5 x24 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_271(x4)(x5)(x24)(x)(st))(i)(xs)(st)+c_flatx2let_case_271 x4 x5 x24 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_271")(x)++++c_flatx2let_case_270 x4 x5 x24 x26 x27 x25@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.FlatCurryXML.c_flatx2let_case_269(x4)(x5)(x24)(x26)(x27)(x29)(x28)(st)+c_flatx2let_case_270 x4 x5 x24 x26 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_270(x4)(x5)(x24)(x26)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_270 x4 x5 x24 x26 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_270")(x)++++c_flatx2let_case_269 x4 x5 x24 x26 x27 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_268(x4)(x5)(x24)(x26)(x27)(x29)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_268 x4 x5 x24 x26 x27 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.FlatCurryXML.c_flatx2let_case_267(x4)(x5)(x24)(x26)(x27)(x31)(x30)(st)+c_flatx2let_case_268 x4 x5 x24 x26 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_268(x4)(x5)(x24)(x26)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_268 x4 x5 x24 x26 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_268")(x)++++c_flatx2let_case_267 x4 x5 x24 x26 x27 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_266(x4)(x5)(x24)(x26)(x27)(x31)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_266 x4 x5 x24 x26 x27 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.FlatCurryXML.c_flatx2let_case_265(x4)(x5)(x24)(x26)(x27)(x33)(x32)(st)+c_flatx2let_case_266 x4 x5 x24 x26 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_266(x4)(x5)(x24)(x26)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_266 x4 x5 x24 x26 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_266")(x)++++c_flatx2let_case_265 x4 x5 x24 x26 x27 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2let_case_264(x4)(x5)(x24)(x26)(x27)(x33)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2let_case_264 x4 x5 x24 x26 x27 x33@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2let_case_263(x4)(x5)(x24)(x27)(x26)(st)+c_flatx2let_case_264 x4 x5 x24 x26 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_264(x4)(x5)(x24)(x26)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_264 x4 x5 x24 x26 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_264")(x)++++c_flatx2let_case_263 x4 x5 x24 x27 x26@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2let_case_262(x4)(x5)(x27)(x24)(st)+c_flatx2let_case_263 x4 x5 x24 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_263(x4)(x5)(x24)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_263 x4 x5 x24 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_263")(x)++++c_flatx2let_case_262 x4 x5 x27 x24@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.FlatCurryXML.c_flatx2let_case_261(x4)(x5)(x27)(x34)(x35)(st)+c_flatx2let_case_262 x4 x5 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_262(x4)(x5)(x27)(x)(st))(i)(xs)(st)+c_flatx2let_case_262 x4 x5 x27 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_262")(x)++++c_flatx2let_case_261 x4 x5 x27 x34 x35@Curry.Module.Prelude.List st = let {x36 = Curry.Module.FlatCurryXML.c_flatx2let((Curry.Module.Prelude.:<)(x4)(x5))(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x27)(st))(st))(Curry.Module.FlatCurryXML.c_flatx2exp(x34)(st)))(Curry.Module.FlatCurryXML.c_flatx2let'46_'35selFP9'35bindings(x36)(st)))(Curry.Module.FlatCurryXML.c_flatx2let'46_'35selFP10'35exp(x36)(st))+c_flatx2let_case_261 x4 x5 x27 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2let_case_261(x4)(x5)(x27)(x34)(x)(st))(i)(xs)(st)+c_flatx2let_case_261 x4 x5 x27 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2let_case_261")(x)++++c_flatx2exp_case_570 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_569(x3)(x4)(x6)(x5)(st)+c_flatx2exp_case_570 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_570(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_570 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_570")(x)++++c_flatx2exp_case_569 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_568(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_562(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_543(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_405(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_297(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st))(st))(st)++++c_flatx2exp_case_297 x3 x4 x6@((Curry.Module.Prelude.:<) x276 x277) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_296(x3)(x4)(x277)(x276)(st)+c_flatx2exp_case_297 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_297(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_297 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_297")(x)++++c_flatx2exp_case_296 x3 x4 x277 x276 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x276)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_295(x3)(x4)(x277)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_295 x3 x4 x277@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_294(x4)(x3)(st)+c_flatx2exp_case_295 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_295(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_295 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_295")(x)++++c_flatx2exp_case_294 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_293(x4)(st)+c_flatx2exp_case_294 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_294(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_294 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_294")(x)++++c_flatx2exp_case_293 x4@((Curry.Module.Prelude.:<) x278 x279) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_292(x278)(x279)(st)+c_flatx2exp_case_293 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_293(x)(st))(i)(xs)(st)+c_flatx2exp_case_293 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_293")(x)++++c_flatx2exp_case_292 x278 x279@((Curry.Module.Prelude.:<) x280 x281) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_291(x278)(x280)(x281)(st)+c_flatx2exp_case_292 x278 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_292(x278)(x)(st))(i)(xs)(st)+c_flatx2exp_case_292 x278 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_292")(x)++++c_flatx2exp_case_291 x278 x280 x281@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Or(Curry.Module.FlatCurryXML.c_flatx2exp(x278)(st))(Curry.Module.FlatCurryXML.c_flatx2exp(x280)(st))+c_flatx2exp_case_291 x278 x280 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_291(x278)(x280)(x)(st))(i)(xs)(st)+c_flatx2exp_case_291 x278 x280 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_291")(x)++++c_flatx2exp_case_405 x3 x4 x6@((Curry.Module.Prelude.:<) x168 x169) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_404(x3)(x4)(x169)(x168)(st)+c_flatx2exp_case_405 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_405(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_405 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_405")(x)++++c_flatx2exp_case_404 x3 x4 x169 x168 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x168)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_403(x3)(x4)(x169)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x168)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_304(x3)(x4)(x169)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2exp_case_304 x3 x4 x169@((Curry.Module.Prelude.:<) x270 x271) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_303(x3)(x4)(x271)(x270)(st)+c_flatx2exp_case_304 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_304(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_304 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_304")(x)++++c_flatx2exp_case_303 x3 x4 x271 x270 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x270)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_302(x3)(x4)(x271)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_302 x3 x4 x271@((Curry.Module.Prelude.:<) x272 x273) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_301(x3)(x4)(x273)(x272)(st)+c_flatx2exp_case_302 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_302(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_302 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_302")(x)++++c_flatx2exp_case_301 x3 x4 x273 x272 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x272)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_300(x3)(x4)(x273)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_300 x3 x4 x273@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_299(x4)(x3)(st)+c_flatx2exp_case_300 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_300(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_300 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_300")(x)++++c_flatx2exp_case_299 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_298(x4)(st)+c_flatx2exp_case_299 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_299(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_299 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_299")(x)++++c_flatx2exp_case_298 x4@((Curry.Module.Prelude.:<) x274 x275) st = Curry.Module.FlatCurry.C_Case(Curry.Module.FlatCurry.C_Rigid)(Curry.Module.FlatCurryXML.c_flatx2exp(x274)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2branch))(x275)(st))+c_flatx2exp_case_298 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_298(x)(st))(i)(xs)(st)+c_flatx2exp_case_298 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_298")(x)++++c_flatx2exp_case_403 x3 x4 x169@((Curry.Module.Prelude.:<) x170 x171) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_402(x3)(x4)(x171)(x170)(st)+c_flatx2exp_case_403 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_403(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_403 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_403")(x)++++c_flatx2exp_case_402 x3 x4 x171 x170 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x170)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_401(x3)(x4)(x171)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_401 x3 x4 x171@((Curry.Module.Prelude.:<) x172 x173) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_400(x3)(x4)(x173)(x172)(st)+c_flatx2exp_case_401 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_401(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_401 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_401")(x)++++c_flatx2exp_case_400 x3 x4 x173 x172 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x172)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_399(x3)(x4)(x173)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_399 x3 x4 x173@((Curry.Module.Prelude.:<) x174 x175) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_398(x3)(x4)(x175)(x174)(st)+c_flatx2exp_case_399 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_399(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_399 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_399")(x)++++c_flatx2exp_case_398 x3 x4 x175 x174 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x174)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_397(x3)(x4)(x175)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x174)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_363(x3)(x4)(x175)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2exp_case_363 x3 x4 x175@((Curry.Module.Prelude.:<) x210 x211) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_362(x3)(x4)(x211)(x210)(st)+c_flatx2exp_case_363 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_363(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_363 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_363")(x)++++c_flatx2exp_case_362 x3 x4 x211 x210 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x210)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_361(x3)(x4)(x211)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_361 x3 x4 x211@((Curry.Module.Prelude.:<) x212 x213) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_360(x3)(x4)(x213)(x212)(st)+c_flatx2exp_case_361 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_361(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_361 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_361")(x)++++c_flatx2exp_case_360 x3 x4 x213 x212 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x212)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_359(x3)(x4)(x213)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_359 x3 x4 x213@((Curry.Module.Prelude.:<) x214 x215) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_358(x3)(x4)(x215)(x214)(st)+c_flatx2exp_case_359 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_359(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_359 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_359")(x)++++c_flatx2exp_case_358 x3 x4 x215 x214 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x214)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_357(x3)(x4)(x215)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_357 x3 x4 x215@((Curry.Module.Prelude.:<) x216 x217) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_356(x3)(x4)(x217)(x216)(st)+c_flatx2exp_case_357 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_357(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_357 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_357")(x)++++c_flatx2exp_case_356 x3 x4 x217 x216 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x216)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_355(x3)(x4)(x217)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_355 x3 x4 x217@((Curry.Module.Prelude.:<) x218 x219) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_354(x3)(x4)(x219)(x218)(st)+c_flatx2exp_case_355 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_355(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_355 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_355")(x)++++c_flatx2exp_case_354 x3 x4 x219 x218 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x218)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_353(x3)(x4)(x219)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_353 x3 x4 x219@((Curry.Module.Prelude.:<) x220 x221) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_352(x3)(x4)(x221)(x220)(st)+c_flatx2exp_case_353 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_353(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_353 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_353")(x)++++c_flatx2exp_case_352 x3 x4 x221 x220 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x220)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_351(x3)(x4)(x221)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_351 x3 x4 x221@((Curry.Module.Prelude.:<) x222 x223) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_350(x3)(x4)(x223)(x222)(st)+c_flatx2exp_case_351 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_351(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_351 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_351")(x)++++c_flatx2exp_case_350 x3 x4 x223 x222 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x222)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_349(x3)(x4)(x223)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_349 x3 x4 x223@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_348(x4)(x3)(st)+c_flatx2exp_case_349 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_349(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_349 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_349")(x)++++c_flatx2exp_case_348 x4 x3@((Curry.Module.Prelude.:<) x224 x225) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_347(x4)(x225)(x224)(st)+c_flatx2exp_case_348 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_348(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_348 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_348")(x)++++c_flatx2exp_case_347 x4 x225 x224@(Curry.Module.Prelude.T2 x226 x227) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_346(x4)(x225)(x227)(x226)(st)+c_flatx2exp_case_347 x4 x225 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_347(x4)(x225)(x)(st))(i)(xs)(st)+c_flatx2exp_case_347 x4 x225 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_347")(x)++++c_flatx2exp_case_346 x4 x225 x227 x226@((Curry.Module.Prelude.:<) x228 x229) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_345(x4)(x225)(x227)(x229)(x228)(st)+c_flatx2exp_case_346 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_346(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_346 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_346")(x)++++c_flatx2exp_case_345 x4 x225 x227 x229 x228 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x228)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_344(x4)(x225)(x227)(x229)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_344 x4 x225 x227 x229@((Curry.Module.Prelude.:<) x230 x231) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_343(x4)(x225)(x227)(x231)(x230)(st)+c_flatx2exp_case_344 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_344(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_344 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_344")(x)++++c_flatx2exp_case_343 x4 x225 x227 x231 x230 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x230)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_342(x4)(x225)(x227)(x231)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_342 x4 x225 x227 x231@((Curry.Module.Prelude.:<) x232 x233) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_341(x4)(x225)(x227)(x233)(x232)(st)+c_flatx2exp_case_342 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_342(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_342 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_342")(x)++++c_flatx2exp_case_341 x4 x225 x227 x233 x232 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x232)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_340(x4)(x225)(x227)(x233)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_340 x4 x225 x227 x233@((Curry.Module.Prelude.:<) x234 x235) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_339(x4)(x225)(x227)(x235)(x234)(st)+c_flatx2exp_case_340 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_340(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_340 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_340")(x)++++c_flatx2exp_case_339 x4 x225 x227 x235 x234 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x234)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_338(x4)(x225)(x227)(x235)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_338 x4 x225 x227 x235@((Curry.Module.Prelude.:<) x236 x237) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_337(x4)(x225)(x227)(x237)(x236)(st)+c_flatx2exp_case_338 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_338(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_338 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_338")(x)++++c_flatx2exp_case_337 x4 x225 x227 x237 x236 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x236)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_336(x4)(x225)(x227)(x237)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_336 x4 x225 x227 x237@((Curry.Module.Prelude.:<) x238 x239) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_335(x4)(x225)(x227)(x239)(x238)(st)+c_flatx2exp_case_336 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_336(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_336 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_336")(x)++++c_flatx2exp_case_335 x4 x225 x227 x239 x238 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x238)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_334(x4)(x225)(x227)(x239)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_334 x4 x225 x227 x239@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_333(x4)(x227)(x225)(st)+c_flatx2exp_case_334 x4 x225 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_334(x4)(x225)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_334 x4 x225 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_334")(x)++++c_flatx2exp_case_333 x4 x227 x225@((Curry.Module.Prelude.:<) x240 x241) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_332(x4)(x227)(x241)(x240)(st)+c_flatx2exp_case_333 x4 x227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_333(x4)(x227)(x)(st))(i)(xs)(st)+c_flatx2exp_case_333 x4 x227 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_333")(x)++++c_flatx2exp_case_332 x4 x227 x241 x240@(Curry.Module.Prelude.T2 x242 x243) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_331(x4)(x227)(x241)(x243)(x242)(st)+c_flatx2exp_case_332 x4 x227 x241 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_332(x4)(x227)(x241)(x)(st))(i)(xs)(st)+c_flatx2exp_case_332 x4 x227 x241 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_332")(x)++++c_flatx2exp_case_331 x4 x227 x241 x243 x242@((Curry.Module.Prelude.:<) x244 x245) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_330(x4)(x227)(x241)(x243)(x245)(x244)(st)+c_flatx2exp_case_331 x4 x227 x241 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_331(x4)(x227)(x241)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_331 x4 x227 x241 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_331")(x)++++c_flatx2exp_case_330 x4 x227 x241 x243 x245 x244 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x244)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_329(x4)(x227)(x241)(x243)(x245)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_329 x4 x227 x241 x243 x245@((Curry.Module.Prelude.:<) x246 x247) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_328(x4)(x227)(x241)(x243)(x247)(x246)(st)+c_flatx2exp_case_329 x4 x227 x241 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_329(x4)(x227)(x241)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_329 x4 x227 x241 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_329")(x)++++c_flatx2exp_case_328 x4 x227 x241 x243 x247 x246 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x246)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_327(x4)(x227)(x241)(x243)(x247)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_327 x4 x227 x241 x243 x247@((Curry.Module.Prelude.:<) x248 x249) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_326(x4)(x227)(x241)(x243)(x249)(x248)(st)+c_flatx2exp_case_327 x4 x227 x241 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_327(x4)(x227)(x241)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_327 x4 x227 x241 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_327")(x)++++c_flatx2exp_case_326 x4 x227 x241 x243 x249 x248 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x248)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_325(x4)(x227)(x241)(x243)(x249)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_325 x4 x227 x241 x243 x249@((Curry.Module.Prelude.:<) x250 x251) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_324(x4)(x227)(x241)(x243)(x251)(x250)(st)+c_flatx2exp_case_325 x4 x227 x241 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_325(x4)(x227)(x241)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_325 x4 x227 x241 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_325")(x)++++c_flatx2exp_case_324 x4 x227 x241 x243 x251 x250 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x250)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_323(x4)(x227)(x241)(x243)(x251)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_323 x4 x227 x241 x243 x251@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_322(x4)(x227)(x243)(x241)(st)+c_flatx2exp_case_323 x4 x227 x241 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_323(x4)(x227)(x241)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_323 x4 x227 x241 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_323")(x)++++c_flatx2exp_case_322 x4 x227 x243 x241@((Curry.Module.Prelude.:<) x252 x253) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_321(x4)(x227)(x243)(x253)(x252)(st)+c_flatx2exp_case_322 x4 x227 x243 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_322(x4)(x227)(x243)(x)(st))(i)(xs)(st)+c_flatx2exp_case_322 x4 x227 x243 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_322")(x)++++c_flatx2exp_case_321 x4 x227 x243 x253 x252@(Curry.Module.Prelude.T2 x254 x255) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_320(x4)(x227)(x243)(x253)(x255)(x254)(st)+c_flatx2exp_case_321 x4 x227 x243 x253 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_321(x4)(x227)(x243)(x253)(x)(st))(i)(xs)(st)+c_flatx2exp_case_321 x4 x227 x243 x253 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_321")(x)++++c_flatx2exp_case_320 x4 x227 x243 x253 x255 x254@((Curry.Module.Prelude.:<) x256 x257) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_319(x4)(x227)(x243)(x253)(x255)(x257)(x256)(st)+c_flatx2exp_case_320 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_320(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_320 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_320")(x)++++c_flatx2exp_case_319 x4 x227 x243 x253 x255 x257 x256 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x256)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_318(x4)(x227)(x243)(x253)(x255)(x257)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_318 x4 x227 x243 x253 x255 x257@((Curry.Module.Prelude.:<) x258 x259) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_317(x4)(x227)(x243)(x253)(x255)(x259)(x258)(st)+c_flatx2exp_case_318 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_318(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_318 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_318")(x)++++c_flatx2exp_case_317 x4 x227 x243 x253 x255 x259 x258 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x258)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_316(x4)(x227)(x243)(x253)(x255)(x259)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_316 x4 x227 x243 x253 x255 x259@((Curry.Module.Prelude.:<) x260 x261) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_315(x4)(x227)(x243)(x253)(x255)(x261)(x260)(st)+c_flatx2exp_case_316 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_316(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_316 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_316")(x)++++c_flatx2exp_case_315 x4 x227 x243 x253 x255 x261 x260 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x260)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_314(x4)(x227)(x243)(x253)(x255)(x261)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_314 x4 x227 x243 x253 x255 x261@((Curry.Module.Prelude.:<) x262 x263) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_313(x4)(x227)(x243)(x253)(x255)(x263)(x262)(st)+c_flatx2exp_case_314 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_314(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_314 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_314")(x)++++c_flatx2exp_case_313 x4 x227 x243 x253 x255 x263 x262 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x262)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_312(x4)(x227)(x243)(x253)(x255)(x263)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_312 x4 x227 x243 x253 x255 x263@((Curry.Module.Prelude.:<) x264 x265) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_311(x4)(x227)(x243)(x253)(x255)(x265)(x264)(st)+c_flatx2exp_case_312 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_312(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_312 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_312")(x)++++c_flatx2exp_case_311 x4 x227 x243 x253 x255 x265 x264 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x264)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_310(x4)(x227)(x243)(x253)(x255)(x265)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_310 x4 x227 x243 x253 x255 x265@((Curry.Module.Prelude.:<) x266 x267) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_309(x4)(x227)(x243)(x253)(x255)(x267)(x266)(st)+c_flatx2exp_case_310 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_310(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_310 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_310")(x)++++c_flatx2exp_case_309 x4 x227 x243 x253 x255 x267 x266 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x266)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_308(x4)(x227)(x243)(x253)(x255)(x267)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_308 x4 x227 x243 x253 x255 x267@((Curry.Module.Prelude.:<) x268 x269) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_307(x4)(x227)(x243)(x253)(x255)(x269)(x268)(st)+c_flatx2exp_case_308 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_308(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_308 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_308")(x)++++c_flatx2exp_case_307 x4 x227 x243 x253 x255 x269 x268 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x268)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_306(x4)(x227)(x243)(x253)(x255)(x269)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_306 x4 x227 x243 x253 x255 x269@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_305(x4)(x227)(x243)(x255)(x253)(st)+c_flatx2exp_case_306 x4 x227 x243 x253 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_306(x4)(x227)(x243)(x253)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_306 x4 x227 x243 x253 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_306")(x)++++c_flatx2exp_case_305 x4 x227 x243 x255 x253@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsPartCall(Curry.Module.Read.c_readNat(x255)(st)))(Curry.Module.Prelude.T2(x227)(x243))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2exp))(x4)(st))+c_flatx2exp_case_305 x4 x227 x243 x255 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_305(x4)(x227)(x243)(x255)(x)(st))(i)(xs)(st)+c_flatx2exp_case_305 x4 x227 x243 x255 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_305")(x)++++c_flatx2exp_case_397 x3 x4 x175@((Curry.Module.Prelude.:<) x176 x177) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_396(x3)(x4)(x177)(x176)(st)+c_flatx2exp_case_397 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_397(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_397 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_397")(x)++++c_flatx2exp_case_396 x3 x4 x177 x176 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x176)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_395(x3)(x4)(x177)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_395 x3 x4 x177@((Curry.Module.Prelude.:<) x178 x179) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_394(x3)(x4)(x179)(x178)(st)+c_flatx2exp_case_395 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_395(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_395 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_395")(x)++++c_flatx2exp_case_394 x3 x4 x179 x178 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x178)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_393(x3)(x4)(x179)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_393 x3 x4 x179@((Curry.Module.Prelude.:<) x180 x181) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_392(x3)(x4)(x181)(x180)(st)+c_flatx2exp_case_393 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_393(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_393 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_393")(x)++++c_flatx2exp_case_392 x3 x4 x181 x180 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x180)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_391(x3)(x4)(x181)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_391 x3 x4 x181@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_390(x4)(x3)(st)+c_flatx2exp_case_391 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_391(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_391 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_391")(x)++++c_flatx2exp_case_390 x4 x3@((Curry.Module.Prelude.:<) x182 x183) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_389(x4)(x183)(x182)(st)+c_flatx2exp_case_390 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_390(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_390 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_390")(x)++++c_flatx2exp_case_389 x4 x183 x182@(Curry.Module.Prelude.T2 x184 x185) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_388(x4)(x183)(x185)(x184)(st)+c_flatx2exp_case_389 x4 x183 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_389(x4)(x183)(x)(st))(i)(xs)(st)+c_flatx2exp_case_389 x4 x183 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_389")(x)++++c_flatx2exp_case_388 x4 x183 x185 x184@((Curry.Module.Prelude.:<) x186 x187) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_387(x4)(x183)(x185)(x187)(x186)(st)+c_flatx2exp_case_388 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_388(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_388 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_388")(x)++++c_flatx2exp_case_387 x4 x183 x185 x187 x186 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x186)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_386(x4)(x183)(x185)(x187)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_386 x4 x183 x185 x187@((Curry.Module.Prelude.:<) x188 x189) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_385(x4)(x183)(x185)(x189)(x188)(st)+c_flatx2exp_case_386 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_386(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_386 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_386")(x)++++c_flatx2exp_case_385 x4 x183 x185 x189 x188 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x188)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_384(x4)(x183)(x185)(x189)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_384 x4 x183 x185 x189@((Curry.Module.Prelude.:<) x190 x191) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_383(x4)(x183)(x185)(x191)(x190)(st)+c_flatx2exp_case_384 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_384(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_384 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_384")(x)++++c_flatx2exp_case_383 x4 x183 x185 x191 x190 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x190)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_382(x4)(x183)(x185)(x191)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_382 x4 x183 x185 x191@((Curry.Module.Prelude.:<) x192 x193) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_381(x4)(x183)(x185)(x193)(x192)(st)+c_flatx2exp_case_382 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_382(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_382 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_382")(x)++++c_flatx2exp_case_381 x4 x183 x185 x193 x192 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x192)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_380(x4)(x183)(x185)(x193)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_380 x4 x183 x185 x193@((Curry.Module.Prelude.:<) x194 x195) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_379(x4)(x183)(x185)(x195)(x194)(st)+c_flatx2exp_case_380 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_380(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_380 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_380")(x)++++c_flatx2exp_case_379 x4 x183 x185 x195 x194 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x194)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_378(x4)(x183)(x185)(x195)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_378 x4 x183 x185 x195@((Curry.Module.Prelude.:<) x196 x197) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_377(x4)(x183)(x185)(x197)(x196)(st)+c_flatx2exp_case_378 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_378(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_378 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_378")(x)++++c_flatx2exp_case_377 x4 x183 x185 x197 x196 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x196)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_376(x4)(x183)(x185)(x197)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_376 x4 x183 x185 x197@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_375(x4)(x185)(x183)(st)+c_flatx2exp_case_376 x4 x183 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_376(x4)(x183)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_376 x4 x183 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_376")(x)++++c_flatx2exp_case_375 x4 x185 x183@((Curry.Module.Prelude.:<) x198 x199) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_374(x4)(x185)(x199)(x198)(st)+c_flatx2exp_case_375 x4 x185 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_375(x4)(x185)(x)(st))(i)(xs)(st)+c_flatx2exp_case_375 x4 x185 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_375")(x)++++c_flatx2exp_case_374 x4 x185 x199 x198@(Curry.Module.Prelude.T2 x200 x201) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_373(x4)(x185)(x199)(x201)(x200)(st)+c_flatx2exp_case_374 x4 x185 x199 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_374(x4)(x185)(x199)(x)(st))(i)(xs)(st)+c_flatx2exp_case_374 x4 x185 x199 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_374")(x)++++c_flatx2exp_case_373 x4 x185 x199 x201 x200@((Curry.Module.Prelude.:<) x202 x203) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_372(x4)(x185)(x199)(x201)(x203)(x202)(st)+c_flatx2exp_case_373 x4 x185 x199 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_373(x4)(x185)(x199)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_373 x4 x185 x199 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_373")(x)++++c_flatx2exp_case_372 x4 x185 x199 x201 x203 x202 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x202)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_371(x4)(x185)(x199)(x201)(x203)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_371 x4 x185 x199 x201 x203@((Curry.Module.Prelude.:<) x204 x205) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_370(x4)(x185)(x199)(x201)(x205)(x204)(st)+c_flatx2exp_case_371 x4 x185 x199 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_371(x4)(x185)(x199)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_371 x4 x185 x199 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_371")(x)++++c_flatx2exp_case_370 x4 x185 x199 x201 x205 x204 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x204)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_369(x4)(x185)(x199)(x201)(x205)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_369 x4 x185 x199 x201 x205@((Curry.Module.Prelude.:<) x206 x207) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_368(x4)(x185)(x199)(x201)(x207)(x206)(st)+c_flatx2exp_case_369 x4 x185 x199 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_369(x4)(x185)(x199)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_369 x4 x185 x199 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_369")(x)++++c_flatx2exp_case_368 x4 x185 x199 x201 x207 x206 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x206)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_367(x4)(x185)(x199)(x201)(x207)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_367 x4 x185 x199 x201 x207@((Curry.Module.Prelude.:<) x208 x209) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_366(x4)(x185)(x199)(x201)(x209)(x208)(st)+c_flatx2exp_case_367 x4 x185 x199 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_367(x4)(x185)(x199)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_367 x4 x185 x199 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_367")(x)++++c_flatx2exp_case_366 x4 x185 x199 x201 x209 x208 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x208)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_365(x4)(x185)(x199)(x201)(x209)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_365 x4 x185 x199 x201 x209@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_364(x4)(x185)(x201)(x199)(st)+c_flatx2exp_case_365 x4 x185 x199 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_365(x4)(x185)(x199)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_365 x4 x185 x199 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_365")(x)++++c_flatx2exp_case_364 x4 x185 x201 x199@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsCall)(Curry.Module.Prelude.T2(x185)(x201))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2exp))(x4)(st))+c_flatx2exp_case_364 x4 x185 x201 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_364(x4)(x185)(x201)(x)(st))(i)(xs)(st)+c_flatx2exp_case_364 x4 x185 x201 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_364")(x)++++c_flatx2exp_case_543 x3 x4 x6@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_542(x3)(x4)(x32)(x31)(st)+c_flatx2exp_case_543 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_543(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_543 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_543")(x)++++c_flatx2exp_case_542 x3 x4 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_541(x3)(x4)(x32)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_442(x3)(x4)(x32)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_414(x3)(x4)(x32)(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c_flatx2exp_case_414 x3 x4 x32@((Curry.Module.Prelude.:<) x160 x161) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_413(x3)(x4)(x161)(x160)(st)+c_flatx2exp_case_414 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_414(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_414 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_414")(x)++++c_flatx2exp_case_413 x3 x4 x161 x160 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x160)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_412(x3)(x4)(x161)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_412 x3 x4 x161@((Curry.Module.Prelude.:<) x162 x163) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_411(x3)(x4)(x163)(x162)(st)+c_flatx2exp_case_412 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_412(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_412 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_412")(x)++++c_flatx2exp_case_411 x3 x4 x163 x162 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x162)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_410(x3)(x4)(x163)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_410 x3 x4 x163@((Curry.Module.Prelude.:<) x164 x165) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_409(x3)(x4)(x165)(x164)(st)+c_flatx2exp_case_410 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_410(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_410 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_410")(x)++++c_flatx2exp_case_409 x3 x4 x165 x164 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x164)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_408(x3)(x4)(x165)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_408 x3 x4 x165@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_407(x4)(x3)(st)+c_flatx2exp_case_408 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_408(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_408 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_408")(x)++++c_flatx2exp_case_407 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_406(x4)(st)+c_flatx2exp_case_407 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_407(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_407 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_407")(x)++++c_flatx2exp_case_406 x4@((Curry.Module.Prelude.:<) x166 x167) st = Curry.Module.FlatCurry.C_Case(Curry.Module.FlatCurry.C_Flex)(Curry.Module.FlatCurryXML.c_flatx2exp(x166)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2branch))(x167)(st))+c_flatx2exp_case_406 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_406(x)(st))(i)(xs)(st)+c_flatx2exp_case_406 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_406")(x)++++c_flatx2exp_case_442 x3 x4 x32@((Curry.Module.Prelude.:<) x133 x134) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_441(x3)(x4)(x134)(x133)(st)+c_flatx2exp_case_442 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_442(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_442 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_442")(x)++++c_flatx2exp_case_441 x3 x4 x134 x133 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x133)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_440(x3)(x4)(x134)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_440 x3 x4 x134@((Curry.Module.Prelude.:<) x135 x136) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_439(x3)(x4)(x136)(x135)(st)+c_flatx2exp_case_440 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_440(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_440 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_440")(x)++++c_flatx2exp_case_439 x3 x4 x136 x135 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x135)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_438(x3)(x4)(x136)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_438 x3 x4 x136@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_437(x4)(x3)(st)+c_flatx2exp_case_438 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_438(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_438 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_438")(x)++++c_flatx2exp_case_437 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_436(x4)(st)+c_flatx2exp_case_437 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_437(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_437 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_437")(x)++++c_flatx2exp_case_436 x4@((Curry.Module.Prelude.:<) x137 x138) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_435(x138)(x137)(st)+c_flatx2exp_case_436 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_436(x)(st))(i)(xs)(st)+c_flatx2exp_case_436 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_436")(x)++++c_flatx2exp_case_435 x138 x137@(Curry.Module.XML.C_XElem x139 x140 x141) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_434(x138)(x140)(x141)(x139)(st)+c_flatx2exp_case_435 x138 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_435(x138)(x)(st))(i)(xs)(st)+c_flatx2exp_case_435 x138 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_435")(x)++++c_flatx2exp_case_434 x138 x140 x141 x139@((Curry.Module.Prelude.:<) x142 x143) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_433(x138)(x140)(x141)(x143)(x142)(st)+c_flatx2exp_case_434 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_434(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_434 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_434")(x)++++c_flatx2exp_case_433 x138 x140 x141 x143 x142 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x142)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_432(x138)(x140)(x141)(x143)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_432 x138 x140 x141 x143@((Curry.Module.Prelude.:<) x144 x145) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_431(x138)(x140)(x141)(x145)(x144)(st)+c_flatx2exp_case_432 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_432(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_432 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_432")(x)++++c_flatx2exp_case_431 x138 x140 x141 x145 x144 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x144)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_430(x138)(x140)(x141)(x145)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_430 x138 x140 x141 x145@((Curry.Module.Prelude.:<) x146 x147) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_429(x138)(x140)(x141)(x147)(x146)(st)+c_flatx2exp_case_430 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_430(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_430 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_430")(x)++++c_flatx2exp_case_429 x138 x140 x141 x147 x146 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x146)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_428(x138)(x140)(x141)(x147)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_428 x138 x140 x141 x147@((Curry.Module.Prelude.:<) x148 x149) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_427(x138)(x140)(x141)(x149)(x148)(st)+c_flatx2exp_case_428 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_428(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_428 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_428")(x)++++c_flatx2exp_case_427 x138 x140 x141 x149 x148 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x148)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_426(x138)(x140)(x141)(x149)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_426 x138 x140 x141 x149@((Curry.Module.Prelude.:<) x150 x151) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_425(x138)(x140)(x141)(x151)(x150)(st)+c_flatx2exp_case_426 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_426(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_426 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_426")(x)++++c_flatx2exp_case_425 x138 x140 x141 x151 x150 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x150)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_424(x138)(x140)(x141)(x151)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_424 x138 x140 x141 x151@((Curry.Module.Prelude.:<) x152 x153) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_423(x138)(x140)(x141)(x153)(x152)(st)+c_flatx2exp_case_424 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_424(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_424 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_424")(x)++++c_flatx2exp_case_423 x138 x140 x141 x153 x152 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x152)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_422(x138)(x140)(x141)(x153)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_422 x138 x140 x141 x153@((Curry.Module.Prelude.:<) x154 x155) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_421(x138)(x140)(x141)(x155)(x154)(st)+c_flatx2exp_case_422 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_422(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_422 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_422")(x)++++c_flatx2exp_case_421 x138 x140 x141 x155 x154 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x154)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_420(x138)(x140)(x141)(x155)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_420 x138 x140 x141 x155@((Curry.Module.Prelude.:<) x156 x157) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_419(x138)(x140)(x141)(x157)(x156)(st)+c_flatx2exp_case_420 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_420(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_420 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_420")(x)++++c_flatx2exp_case_419 x138 x140 x141 x157 x156 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x156)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_418(x138)(x140)(x141)(x157)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_418 x138 x140 x141 x157@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_417(x138)(x141)(x140)(st)+c_flatx2exp_case_418 x138 x140 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_418(x138)(x140)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_418 x138 x140 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_418")(x)++++c_flatx2exp_case_417 x138 x141 x140@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_416(x141)(x138)(st)+c_flatx2exp_case_417 x138 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_417(x138)(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_417 x138 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_417")(x)++++c_flatx2exp_case_416 x141 x138@((Curry.Module.Prelude.:<) x158 x159) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_415(x141)(x158)(x159)(st)+c_flatx2exp_case_416 x141 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_416(x141)(x)(st))(i)(xs)(st)+c_flatx2exp_case_416 x141 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_416")(x)++++c_flatx2exp_case_415 x141 x158 x159@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Free(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2var))(x141)(st))(Curry.Module.FlatCurryXML.c_flatx2exp(x158)(st))+c_flatx2exp_case_415 x141 x158 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_415(x141)(x158)(x)(st))(i)(xs)(st)+c_flatx2exp_case_415 x141 x158 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_415")(x)++++c_flatx2exp_case_541 x3 x4 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_540(x3)(x4)(x34)(x33)(st)+c_flatx2exp_case_541 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_541(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_541 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_541")(x)++++c_flatx2exp_case_540 x3 x4 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_539(x3)(x4)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_539 x3 x4 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_538(x3)(x4)(x36)(x35)(st)+c_flatx2exp_case_539 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_539(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_539 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_539")(x)++++c_flatx2exp_case_538 x3 x4 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_537(x3)(x4)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_537 x3 x4 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_536(x3)(x4)(x38)(x37)(st)+c_flatx2exp_case_537 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_537(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_537 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_537")(x)++++c_flatx2exp_case_536 x3 x4 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_535(x3)(x4)(x38)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_501(x3)(x4)(x38)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2exp_case_501 x3 x4 x38@((Curry.Module.Prelude.:<) x73 x74) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_500(x3)(x4)(x74)(x73)(st)+c_flatx2exp_case_501 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_501(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_501 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_501")(x)++++c_flatx2exp_case_500 x3 x4 x74 x73 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x73)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_499(x3)(x4)(x74)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_499 x3 x4 x74@((Curry.Module.Prelude.:<) x75 x76) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_498(x3)(x4)(x76)(x75)(st)+c_flatx2exp_case_499 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_499(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_499 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_499")(x)++++c_flatx2exp_case_498 x3 x4 x76 x75 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x75)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_497(x3)(x4)(x76)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_497 x3 x4 x76@((Curry.Module.Prelude.:<) x77 x78) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_496(x3)(x4)(x78)(x77)(st)+c_flatx2exp_case_497 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_497(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_497 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_497")(x)++++c_flatx2exp_case_496 x3 x4 x78 x77 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x77)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_495(x3)(x4)(x78)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_495 x3 x4 x78@((Curry.Module.Prelude.:<) x79 x80) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_494(x3)(x4)(x80)(x79)(st)+c_flatx2exp_case_495 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_495(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_495 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_495")(x)++++c_flatx2exp_case_494 x3 x4 x80 x79 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x79)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_493(x3)(x4)(x80)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_493 x3 x4 x80@((Curry.Module.Prelude.:<) x81 x82) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_492(x3)(x4)(x82)(x81)(st)+c_flatx2exp_case_493 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_493(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_493 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_493")(x)++++c_flatx2exp_case_492 x3 x4 x82 x81 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x81)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_491(x3)(x4)(x82)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_491 x3 x4 x82@((Curry.Module.Prelude.:<) x83 x84) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_490(x3)(x4)(x84)(x83)(st)+c_flatx2exp_case_491 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_491(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_491 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_491")(x)++++c_flatx2exp_case_490 x3 x4 x84 x83 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x83)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_489(x3)(x4)(x84)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_489 x3 x4 x84@((Curry.Module.Prelude.:<) x85 x86) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_488(x3)(x4)(x86)(x85)(st)+c_flatx2exp_case_489 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_489(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_489 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_489")(x)++++c_flatx2exp_case_488 x3 x4 x86 x85 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x85)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_487(x3)(x4)(x86)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_487 x3 x4 x86@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_486(x4)(x3)(st)+c_flatx2exp_case_487 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_487(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_487 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_487")(x)++++c_flatx2exp_case_486 x4 x3@((Curry.Module.Prelude.:<) x87 x88) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_485(x4)(x88)(x87)(st)+c_flatx2exp_case_486 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_486(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_486 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_486")(x)++++c_flatx2exp_case_485 x4 x88 x87@(Curry.Module.Prelude.T2 x89 x90) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_484(x4)(x88)(x90)(x89)(st)+c_flatx2exp_case_485 x4 x88 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_485(x4)(x88)(x)(st))(i)(xs)(st)+c_flatx2exp_case_485 x4 x88 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_485")(x)++++c_flatx2exp_case_484 x4 x88 x90 x89@((Curry.Module.Prelude.:<) x91 x92) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_483(x4)(x88)(x90)(x92)(x91)(st)+c_flatx2exp_case_484 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_484(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_484 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_484")(x)++++c_flatx2exp_case_483 x4 x88 x90 x92 x91 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x91)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_482(x4)(x88)(x90)(x92)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_482 x4 x88 x90 x92@((Curry.Module.Prelude.:<) x93 x94) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_481(x4)(x88)(x90)(x94)(x93)(st)+c_flatx2exp_case_482 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_482(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_482 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_482")(x)++++c_flatx2exp_case_481 x4 x88 x90 x94 x93 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x93)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_480(x4)(x88)(x90)(x94)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_480 x4 x88 x90 x94@((Curry.Module.Prelude.:<) x95 x96) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_479(x4)(x88)(x90)(x96)(x95)(st)+c_flatx2exp_case_480 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_480(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_480 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_480")(x)++++c_flatx2exp_case_479 x4 x88 x90 x96 x95 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x95)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_478(x4)(x88)(x90)(x96)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_478 x4 x88 x90 x96@((Curry.Module.Prelude.:<) x97 x98) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_477(x4)(x88)(x90)(x98)(x97)(st)+c_flatx2exp_case_478 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_478(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_478 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_478")(x)++++c_flatx2exp_case_477 x4 x88 x90 x98 x97 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x97)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_476(x4)(x88)(x90)(x98)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_476 x4 x88 x90 x98@((Curry.Module.Prelude.:<) x99 x100) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_475(x4)(x88)(x90)(x100)(x99)(st)+c_flatx2exp_case_476 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_476(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_476 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_476")(x)++++c_flatx2exp_case_475 x4 x88 x90 x100 x99 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x99)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_474(x4)(x88)(x90)(x100)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_474 x4 x88 x90 x100@((Curry.Module.Prelude.:<) x101 x102) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_473(x4)(x88)(x90)(x102)(x101)(st)+c_flatx2exp_case_474 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_474(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_474 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_474")(x)++++c_flatx2exp_case_473 x4 x88 x90 x102 x101 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x101)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_472(x4)(x88)(x90)(x102)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_472 x4 x88 x90 x102@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_471(x4)(x90)(x88)(st)+c_flatx2exp_case_472 x4 x88 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_472(x4)(x88)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_472 x4 x88 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_472")(x)++++c_flatx2exp_case_471 x4 x90 x88@((Curry.Module.Prelude.:<) x103 x104) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_470(x4)(x90)(x104)(x103)(st)+c_flatx2exp_case_471 x4 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_471(x4)(x90)(x)(st))(i)(xs)(st)+c_flatx2exp_case_471 x4 x90 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_471")(x)++++c_flatx2exp_case_470 x4 x90 x104 x103@(Curry.Module.Prelude.T2 x105 x106) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_469(x4)(x90)(x104)(x106)(x105)(st)+c_flatx2exp_case_470 x4 x90 x104 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_470(x4)(x90)(x104)(x)(st))(i)(xs)(st)+c_flatx2exp_case_470 x4 x90 x104 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_470")(x)++++c_flatx2exp_case_469 x4 x90 x104 x106 x105@((Curry.Module.Prelude.:<) x107 x108) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_468(x4)(x90)(x104)(x106)(x108)(x107)(st)+c_flatx2exp_case_469 x4 x90 x104 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_469(x4)(x90)(x104)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_469 x4 x90 x104 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_469")(x)++++c_flatx2exp_case_468 x4 x90 x104 x106 x108 x107 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x107)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_467(x4)(x90)(x104)(x106)(x108)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_467 x4 x90 x104 x106 x108@((Curry.Module.Prelude.:<) x109 x110) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_466(x4)(x90)(x104)(x106)(x110)(x109)(st)+c_flatx2exp_case_467 x4 x90 x104 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_467(x4)(x90)(x104)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_467 x4 x90 x104 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_467")(x)++++c_flatx2exp_case_466 x4 x90 x104 x106 x110 x109 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x109)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_465(x4)(x90)(x104)(x106)(x110)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_465 x4 x90 x104 x106 x110@((Curry.Module.Prelude.:<) x111 x112) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_464(x4)(x90)(x104)(x106)(x112)(x111)(st)+c_flatx2exp_case_465 x4 x90 x104 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_465(x4)(x90)(x104)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_465 x4 x90 x104 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_465")(x)++++c_flatx2exp_case_464 x4 x90 x104 x106 x112 x111 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x111)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_463(x4)(x90)(x104)(x106)(x112)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_463 x4 x90 x104 x106 x112@((Curry.Module.Prelude.:<) x113 x114) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_462(x4)(x90)(x104)(x106)(x114)(x113)(st)+c_flatx2exp_case_463 x4 x90 x104 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_463(x4)(x90)(x104)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_463 x4 x90 x104 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_463")(x)++++c_flatx2exp_case_462 x4 x90 x104 x106 x114 x113 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x113)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_461(x4)(x90)(x104)(x106)(x114)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_461 x4 x90 x104 x106 x114@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_460(x4)(x90)(x106)(x104)(st)+c_flatx2exp_case_461 x4 x90 x104 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_461(x4)(x90)(x104)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_461 x4 x90 x104 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_461")(x)++++c_flatx2exp_case_460 x4 x90 x106 x104@((Curry.Module.Prelude.:<) x115 x116) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_459(x4)(x90)(x106)(x116)(x115)(st)+c_flatx2exp_case_460 x4 x90 x106 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_460(x4)(x90)(x106)(x)(st))(i)(xs)(st)+c_flatx2exp_case_460 x4 x90 x106 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_460")(x)++++c_flatx2exp_case_459 x4 x90 x106 x116 x115@(Curry.Module.Prelude.T2 x117 x118) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_458(x4)(x90)(x106)(x116)(x118)(x117)(st)+c_flatx2exp_case_459 x4 x90 x106 x116 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_459(x4)(x90)(x106)(x116)(x)(st))(i)(xs)(st)+c_flatx2exp_case_459 x4 x90 x106 x116 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_459")(x)++++c_flatx2exp_case_458 x4 x90 x106 x116 x118 x117@((Curry.Module.Prelude.:<) x119 x120) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_457(x4)(x90)(x106)(x116)(x118)(x120)(x119)(st)+c_flatx2exp_case_458 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_458(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_458 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_458")(x)++++c_flatx2exp_case_457 x4 x90 x106 x116 x118 x120 x119 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x119)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_456(x4)(x90)(x106)(x116)(x118)(x120)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_456 x4 x90 x106 x116 x118 x120@((Curry.Module.Prelude.:<) x121 x122) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_455(x4)(x90)(x106)(x116)(x118)(x122)(x121)(st)+c_flatx2exp_case_456 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_456(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_456 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_456")(x)++++c_flatx2exp_case_455 x4 x90 x106 x116 x118 x122 x121 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x121)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_454(x4)(x90)(x106)(x116)(x118)(x122)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_454 x4 x90 x106 x116 x118 x122@((Curry.Module.Prelude.:<) x123 x124) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_453(x4)(x90)(x106)(x116)(x118)(x124)(x123)(st)+c_flatx2exp_case_454 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_454(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_454 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_454")(x)++++c_flatx2exp_case_453 x4 x90 x106 x116 x118 x124 x123 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x123)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_452(x4)(x90)(x106)(x116)(x118)(x124)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_452 x4 x90 x106 x116 x118 x124@((Curry.Module.Prelude.:<) x125 x126) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_451(x4)(x90)(x106)(x116)(x118)(x126)(x125)(st)+c_flatx2exp_case_452 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_452(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_452 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_452")(x)++++c_flatx2exp_case_451 x4 x90 x106 x116 x118 x126 x125 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x125)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_450(x4)(x90)(x106)(x116)(x118)(x126)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_450 x4 x90 x106 x116 x118 x126@((Curry.Module.Prelude.:<) x127 x128) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_449(x4)(x90)(x106)(x116)(x118)(x128)(x127)(st)+c_flatx2exp_case_450 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_450(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_450 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_450")(x)++++c_flatx2exp_case_449 x4 x90 x106 x116 x118 x128 x127 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x127)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_448(x4)(x90)(x106)(x116)(x118)(x128)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_448 x4 x90 x106 x116 x118 x128@((Curry.Module.Prelude.:<) x129 x130) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_447(x4)(x90)(x106)(x116)(x118)(x130)(x129)(st)+c_flatx2exp_case_448 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_448(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_448 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_448")(x)++++c_flatx2exp_case_447 x4 x90 x106 x116 x118 x130 x129 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x129)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_446(x4)(x90)(x106)(x116)(x118)(x130)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_446 x4 x90 x106 x116 x118 x130@((Curry.Module.Prelude.:<) x131 x132) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_445(x4)(x90)(x106)(x116)(x118)(x132)(x131)(st)+c_flatx2exp_case_446 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_446(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_446 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_446")(x)++++c_flatx2exp_case_445 x4 x90 x106 x116 x118 x132 x131 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x131)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_444(x4)(x90)(x106)(x116)(x118)(x132)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_444 x4 x90 x106 x116 x118 x132@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_443(x4)(x90)(x106)(x118)(x116)(st)+c_flatx2exp_case_444 x4 x90 x106 x116 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_444(x4)(x90)(x106)(x116)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_444 x4 x90 x106 x116 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_444")(x)++++c_flatx2exp_case_443 x4 x90 x106 x118 x116@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncPartCall(Curry.Module.Read.c_readNat(x118)(st)))(Curry.Module.Prelude.T2(x90)(x106))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2exp))(x4)(st))+c_flatx2exp_case_443 x4 x90 x106 x118 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_443(x4)(x90)(x106)(x118)(x)(st))(i)(xs)(st)+c_flatx2exp_case_443 x4 x90 x106 x118 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_443")(x)++++c_flatx2exp_case_535 x3 x4 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_534(x3)(x4)(x40)(x39)(st)+c_flatx2exp_case_535 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_535(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_535 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_535")(x)++++c_flatx2exp_case_534 x3 x4 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_533(x3)(x4)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_533 x3 x4 x40@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_532(x3)(x4)(x42)(x41)(st)+c_flatx2exp_case_533 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_533(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_533 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_533")(x)++++c_flatx2exp_case_532 x3 x4 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_531(x3)(x4)(x42)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_531 x3 x4 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_530(x3)(x4)(x44)(x43)(st)+c_flatx2exp_case_531 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_531(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_531 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_531")(x)++++c_flatx2exp_case_530 x3 x4 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_529(x3)(x4)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_529 x3 x4 x44@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_528(x4)(x3)(st)+c_flatx2exp_case_529 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_529(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_529 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_529")(x)++++c_flatx2exp_case_528 x4 x3@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_527(x4)(x46)(x45)(st)+c_flatx2exp_case_528 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_528(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_528 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_528")(x)++++c_flatx2exp_case_527 x4 x46 x45@(Curry.Module.Prelude.T2 x47 x48) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_526(x4)(x46)(x48)(x47)(st)+c_flatx2exp_case_527 x4 x46 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_527(x4)(x46)(x)(st))(i)(xs)(st)+c_flatx2exp_case_527 x4 x46 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_527")(x)++++c_flatx2exp_case_526 x4 x46 x48 x47@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_525(x4)(x46)(x48)(x50)(x49)(st)+c_flatx2exp_case_526 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_526(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_526 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_526")(x)++++c_flatx2exp_case_525 x4 x46 x48 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_524(x4)(x46)(x48)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_524 x4 x46 x48 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_523(x4)(x46)(x48)(x52)(x51)(st)+c_flatx2exp_case_524 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_524(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_524 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_524")(x)++++c_flatx2exp_case_523 x4 x46 x48 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_522(x4)(x46)(x48)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_522 x4 x46 x48 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_521(x4)(x46)(x48)(x54)(x53)(st)+c_flatx2exp_case_522 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_522(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_522 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_522")(x)++++c_flatx2exp_case_521 x4 x46 x48 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_520(x4)(x46)(x48)(x54)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_520 x4 x46 x48 x54@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_519(x4)(x46)(x48)(x56)(x55)(st)+c_flatx2exp_case_520 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_520(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_520 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_520")(x)++++c_flatx2exp_case_519 x4 x46 x48 x56 x55 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x55)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_518(x4)(x46)(x48)(x56)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_518 x4 x46 x48 x56@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_517(x4)(x46)(x48)(x58)(x57)(st)+c_flatx2exp_case_518 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_518(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_518 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_518")(x)++++c_flatx2exp_case_517 x4 x46 x48 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_516(x4)(x46)(x48)(x58)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_516 x4 x46 x48 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_515(x4)(x46)(x48)(x60)(x59)(st)+c_flatx2exp_case_516 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_516(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_516 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_516")(x)++++c_flatx2exp_case_515 x4 x46 x48 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_514(x4)(x46)(x48)(x60)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_514 x4 x46 x48 x60@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_513(x4)(x48)(x46)(st)+c_flatx2exp_case_514 x4 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_514(x4)(x46)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_514 x4 x46 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_514")(x)++++c_flatx2exp_case_513 x4 x48 x46@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_512(x4)(x48)(x62)(x61)(st)+c_flatx2exp_case_513 x4 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_513(x4)(x48)(x)(st))(i)(xs)(st)+c_flatx2exp_case_513 x4 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_513")(x)++++c_flatx2exp_case_512 x4 x48 x62 x61@(Curry.Module.Prelude.T2 x63 x64) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_511(x4)(x48)(x62)(x64)(x63)(st)+c_flatx2exp_case_512 x4 x48 x62 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_512(x4)(x48)(x62)(x)(st))(i)(xs)(st)+c_flatx2exp_case_512 x4 x48 x62 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_512")(x)++++c_flatx2exp_case_511 x4 x48 x62 x64 x63@((Curry.Module.Prelude.:<) x65 x66) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_510(x4)(x48)(x62)(x64)(x66)(x65)(st)+c_flatx2exp_case_511 x4 x48 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_511(x4)(x48)(x62)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_511 x4 x48 x62 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_511")(x)++++c_flatx2exp_case_510 x4 x48 x62 x64 x66 x65 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x65)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_509(x4)(x48)(x62)(x64)(x66)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_509 x4 x48 x62 x64 x66@((Curry.Module.Prelude.:<) x67 x68) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_508(x4)(x48)(x62)(x64)(x68)(x67)(st)+c_flatx2exp_case_509 x4 x48 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_509(x4)(x48)(x62)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_509 x4 x48 x62 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_509")(x)++++c_flatx2exp_case_508 x4 x48 x62 x64 x68 x67 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x67)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_507(x4)(x48)(x62)(x64)(x68)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_507 x4 x48 x62 x64 x68@((Curry.Module.Prelude.:<) x69 x70) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_506(x4)(x48)(x62)(x64)(x70)(x69)(st)+c_flatx2exp_case_507 x4 x48 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_507(x4)(x48)(x62)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_507 x4 x48 x62 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_507")(x)++++c_flatx2exp_case_506 x4 x48 x62 x64 x70 x69 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x69)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_505(x4)(x48)(x62)(x64)(x70)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_505 x4 x48 x62 x64 x70@((Curry.Module.Prelude.:<) x71 x72) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_504(x4)(x48)(x62)(x64)(x72)(x71)(st)+c_flatx2exp_case_505 x4 x48 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_505(x4)(x48)(x62)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_505 x4 x48 x62 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_505")(x)++++c_flatx2exp_case_504 x4 x48 x62 x64 x72 x71 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x71)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_503(x4)(x48)(x62)(x64)(x72)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_503 x4 x48 x62 x64 x72@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_502(x4)(x48)(x64)(x62)(st)+c_flatx2exp_case_503 x4 x48 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_503(x4)(x48)(x62)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_503 x4 x48 x62 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_503")(x)++++c_flatx2exp_case_502 x4 x48 x64 x62@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(Curry.Module.Prelude.T2(x48)(x64))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2exp))(x4)(st))+c_flatx2exp_case_502 x4 x48 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_502(x4)(x48)(x64)(x)(st))(i)(xs)(st)+c_flatx2exp_case_502 x4 x48 x64 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_502")(x)++++c_flatx2exp_case_562 x3 x4 x6@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_561(x3)(x4)(x12)(x11)(st)+c_flatx2exp_case_562 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_562(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_562 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_562")(x)++++c_flatx2exp_case_561 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_560(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_554(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2exp_case_554 x3 x4 x12@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_553(x3)(x4)(x18)(x17)(st)+c_flatx2exp_case_554 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_554(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_554 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_554")(x)++++c_flatx2exp_case_553 x3 x4 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_552(x3)(x4)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_552 x3 x4 x18@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_551(x4)(x3)(st)+c_flatx2exp_case_552 x3 x4 x18@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_550(x3)(x4)(x23)(x22)(st)+c_flatx2exp_case_552 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_552(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_552 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_552")(x)++++c_flatx2exp_case_550 x3 x4 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_549(x3)(x4)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_549 x3 x4 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_548(x3)(x4)(x25)(x24)(st)+c_flatx2exp_case_549 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_549(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_549 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_549")(x)++++c_flatx2exp_case_548 x3 x4 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_547(x3)(x4)(x25)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_547 x3 x4 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_546(x3)(x4)(x27)(x26)(st)+c_flatx2exp_case_547 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_547(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_547 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_547")(x)++++c_flatx2exp_case_546 x3 x4 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_545(x3)(x4)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_545 x3 x4 x27@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_544(x4)(x3)(st)+c_flatx2exp_case_545 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_545(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_545 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_545")(x)++++c_flatx2exp_case_544 x4 x3@Curry.Module.Prelude.List st = let {x28 = Curry.Module.FlatCurryXML.c_flatx2let(x4)(st)} in Curry.Module.FlatCurry.C_Let(Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP6'35bindings(x28)(st))(Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP7'35exp(x28)(st))+c_flatx2exp_case_544 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_544(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_544 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_544")(x)++++c_flatx2exp_case_551 x4 x3@Curry.Module.Prelude.List st = let {x19 = Curry.Module.FlatCurryXML.c_flatx2let(x4)(st)} in Curry.Module.FlatCurry.C_Let(Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP3'35bindings(x19)(st))(Curry.Module.FlatCurryXML.c_flatx2exp'46_'35selFP4'35exp(x19)(st))+c_flatx2exp_case_551 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_551(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_551 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_551")(x)++++c_flatx2exp_case_560 x3 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_559(x3)(x4)(x14)(x13)(st)+c_flatx2exp_case_560 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_560(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_560 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_560")(x)++++c_flatx2exp_case_559 x3 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_558(x3)(x4)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_558 x3 x4 x14@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_557(x4)(x3)(st)+c_flatx2exp_case_558 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_558(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_558 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_558")(x)++++c_flatx2exp_case_557 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_556(x4)(st)+c_flatx2exp_case_557 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_557(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_557 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_557")(x)++++c_flatx2exp_case_556 x4@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_555(x15)(x16)(st)+c_flatx2exp_case_556 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_556(x)(st))(i)(xs)(st)+c_flatx2exp_case_556 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_556")(x)++++c_flatx2exp_case_555 x15 x16@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Lit(Curry.Module.FlatCurryXML.c_flatx2lit(x15)(st))+c_flatx2exp_case_555 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_555(x15)(x)(st))(i)(xs)(st)+c_flatx2exp_case_555 x15 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_555")(x)++++c_flatx2exp_case_568 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_567(x3)(x4)(x8)(x7)(st)+c_flatx2exp_case_568 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_568(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_568 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_568")(x)++++c_flatx2exp_case_567 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_566(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_566 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2exp_case_565(x3)(x4)(x10)(x9)(st)+c_flatx2exp_case_566 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_566(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_566 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_566")(x)++++c_flatx2exp_case_565 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2exp_case_564(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2exp_case_564 x3 x4 x10@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2exp_case_563(x4)(x3)(st)+c_flatx2exp_case_564 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_564(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_564 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_564")(x)++++c_flatx2exp_case_563 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Var(Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st))+c_flatx2exp_case_563 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2exp_case_563(x4)(x)(st))(i)(xs)(st)+c_flatx2exp_case_563 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2exp_case_563")(x)++++c_flatx2var_case_578 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2var_case_577(x3)(x4)(x6)(x5)(st)+c_flatx2var_case_578 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var_case_578(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2var_case_578 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var_case_578")(x)++++c_flatx2var_case_577 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2var_case_576(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2var_case_576 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2var_case_575(x3)(x4)(x8)(x7)(st)+c_flatx2var_case_576 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var_case_576(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2var_case_576 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var_case_576")(x)++++c_flatx2var_case_575 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2var_case_574(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2var_case_574 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2var_case_573(x3)(x4)(x10)(x9)(st)+c_flatx2var_case_574 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var_case_574(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2var_case_574 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var_case_574")(x)++++c_flatx2var_case_573 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2var_case_572(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2var_case_572 x3 x4 x10@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2var_case_571(x4)(x3)(st)+c_flatx2var_case_572 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var_case_572(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2var_case_572 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var_case_572")(x)++++c_flatx2var_case_571 x4 x3@Curry.Module.Prelude.List st = Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st)+c_flatx2var_case_571 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2var_case_571(x4)(x)(st))(i)(xs)(st)+c_flatx2var_case_571 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2var_case_571")(x)++++c_flatx2FunBody_case_627 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_626(x3)(x4)(x6)(x5)(st)+c_flatx2FunBody_case_627 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_627(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_627 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_627")(x)++++c_flatx2FunBody_case_626 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_625(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_609(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c_flatx2FunBody_case_609 x3 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_608(x3)(x4)(x22)(x21)(st)+c_flatx2FunBody_case_609 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_609(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_609 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_609")(x)++++c_flatx2FunBody_case_608 x3 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_607(x3)(x4)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_607 x3 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_606(x3)(x4)(x24)(x23)(st)+c_flatx2FunBody_case_607 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_607(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_607 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_607")(x)++++c_flatx2FunBody_case_606 x3 x4 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_605(x3)(x4)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_605 x3 x4 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_604(x3)(x4)(x26)(x25)(st)+c_flatx2FunBody_case_605 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_605(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_605 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_605")(x)++++c_flatx2FunBody_case_604 x3 x4 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_603(x3)(x4)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_603 x3 x4 x26@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_602(x4)(x3)(st)+c_flatx2FunBody_case_603 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_603(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_603 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_603")(x)++++c_flatx2FunBody_case_602 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_601(x4)(st)+c_flatx2FunBody_case_602 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_602(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_602 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_602")(x)++++c_flatx2FunBody_case_601 x4@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_600(x28)(x27)(st)+c_flatx2FunBody_case_601 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_601(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_601 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_601")(x)++++c_flatx2FunBody_case_600 x28 x27@(Curry.Module.XML.C_XElem x29 x30 x31) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_599(x28)(x30)(x31)(x29)(st)+c_flatx2FunBody_case_600 x28 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_600(x28)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_600 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_600")(x)++++c_flatx2FunBody_case_599 x28 x30 x31 x29@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_598(x28)(x30)(x31)(x33)(x32)(st)+c_flatx2FunBody_case_599 x28 x30 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_599(x28)(x30)(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_599 x28 x30 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_599")(x)++++c_flatx2FunBody_case_598 x28 x30 x31 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_597(x28)(x30)(x31)(x33)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_597 x28 x30 x31 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_596(x28)(x30)(x31)(x35)(x34)(st)+c_flatx2FunBody_case_597 x28 x30 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_597(x28)(x30)(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_597 x28 x30 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_597")(x)++++c_flatx2FunBody_case_596 x28 x30 x31 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_595(x28)(x30)(x31)(x35)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_595 x28 x30 x31 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_594(x28)(x30)(x31)(x37)(x36)(st)+c_flatx2FunBody_case_595 x28 x30 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_595(x28)(x30)(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_595 x28 x30 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_595")(x)++++c_flatx2FunBody_case_594 x28 x30 x31 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_593(x28)(x30)(x31)(x37)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_593 x28 x30 x31 x37@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_592(x28)(x31)(x30)(st)+c_flatx2FunBody_case_593 x28 x30 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_593(x28)(x30)(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_593 x28 x30 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_593")(x)++++c_flatx2FunBody_case_592 x28 x31 x30@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_591(x31)(x28)(st)+c_flatx2FunBody_case_592 x28 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_592(x28)(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_592 x28 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_592")(x)++++c_flatx2FunBody_case_591 x31 x28@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_590(x31)(x39)(x38)(st)+c_flatx2FunBody_case_591 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_591(x31)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_591 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_591")(x)++++c_flatx2FunBody_case_590 x31 x39 x38@(Curry.Module.XML.C_XElem x40 x41 x42) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_589(x31)(x39)(x41)(x42)(x40)(st)+c_flatx2FunBody_case_590 x31 x39 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_590(x31)(x39)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_590 x31 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_590")(x)++++c_flatx2FunBody_case_589 x31 x39 x41 x42 x40@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_588(x31)(x39)(x41)(x42)(x44)(x43)(st)+c_flatx2FunBody_case_589 x31 x39 x41 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_589(x31)(x39)(x41)(x42)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_589 x31 x39 x41 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_589")(x)++++c_flatx2FunBody_case_588 x31 x39 x41 x42 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_587(x31)(x39)(x41)(x42)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_587 x31 x39 x41 x42 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_586(x31)(x39)(x41)(x42)(x46)(x45)(st)+c_flatx2FunBody_case_587 x31 x39 x41 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_587(x31)(x39)(x41)(x42)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_587 x31 x39 x41 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_587")(x)++++c_flatx2FunBody_case_586 x31 x39 x41 x42 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_585(x31)(x39)(x41)(x42)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_585 x31 x39 x41 x42 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_584(x31)(x39)(x41)(x42)(x48)(x47)(st)+c_flatx2FunBody_case_585 x31 x39 x41 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_585(x31)(x39)(x41)(x42)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_585 x31 x39 x41 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_585")(x)++++c_flatx2FunBody_case_584 x31 x39 x41 x42 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_583(x31)(x39)(x41)(x42)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_583 x31 x39 x41 x42 x48@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_582(x31)(x39)(x42)(x41)(st)+c_flatx2FunBody_case_583 x31 x39 x41 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_583(x31)(x39)(x41)(x42)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_583 x31 x39 x41 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_583")(x)++++c_flatx2FunBody_case_582 x31 x39 x42 x41@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_581(x31)(x39)(x42)(st)+c_flatx2FunBody_case_582 x31 x39 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_582(x31)(x39)(x42)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_582 x31 x39 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_582")(x)++++c_flatx2FunBody_case_581 x31 x39 x42@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_580(x31)(x39)(x49)(x50)(st)+c_flatx2FunBody_case_581 x31 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_581(x31)(x39)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_581 x31 x39 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_581")(x)++++c_flatx2FunBody_case_580 x31 x39 x49 x50@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_579(x31)(x49)(x39)(st)+c_flatx2FunBody_case_580 x31 x39 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_580(x31)(x39)(x49)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_580 x31 x39 x49 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_580")(x)++++c_flatx2FunBody_case_579 x31 x49 x39@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Rule(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2var))(x31)(st))(Curry.Module.FlatCurryXML.c_flatx2exp(x49)(st))+c_flatx2FunBody_case_579 x31 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_579(x31)(x49)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_579 x31 x49 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_579")(x)++++c_flatx2FunBody_case_625 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_624(x3)(x4)(x8)(x7)(st)+c_flatx2FunBody_case_625 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_625(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_625 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_625")(x)++++c_flatx2FunBody_case_624 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_623(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_623 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_622(x3)(x4)(x10)(x9)(st)+c_flatx2FunBody_case_623 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_623(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_623 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_623")(x)++++c_flatx2FunBody_case_622 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_621(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_621 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_620(x3)(x4)(x12)(x11)(st)+c_flatx2FunBody_case_621 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_621(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_621 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_621")(x)++++c_flatx2FunBody_case_620 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_619(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_619 x3 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_618(x3)(x4)(x14)(x13)(st)+c_flatx2FunBody_case_619 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_619(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_619 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_619")(x)++++c_flatx2FunBody_case_618 x3 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_617(x3)(x4)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_617 x3 x4 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_616(x3)(x4)(x16)(x15)(st)+c_flatx2FunBody_case_617 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_617(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_617 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_617")(x)++++c_flatx2FunBody_case_616 x3 x4 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_615(x3)(x4)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_615 x3 x4 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_614(x3)(x4)(x18)(x17)(st)+c_flatx2FunBody_case_615 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_615(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_615 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_615")(x)++++c_flatx2FunBody_case_614 x3 x4 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_613(x3)(x4)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_613 x3 x4 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_612(x3)(x4)(x20)(x19)(st)+c_flatx2FunBody_case_613 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_613(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_613 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_613")(x)++++c_flatx2FunBody_case_612 x3 x4 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody_case_611(x3)(x4)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2FunBody_case_611 x3 x4 x20@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2FunBody_case_610(x4)(x3)(st)+c_flatx2FunBody_case_611 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_611(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_611 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_611")(x)++++c_flatx2FunBody_case_610 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_External(Curry.Module.XML.c_textOfXml(x4)(st))+c_flatx2FunBody_case_610 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2FunBody_case_610(x4)(x)(st))(i)(xs)(st)+c_flatx2FunBody_case_610 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2FunBody_case_610")(x)++++c_flatx2typedecl'46_'35lambda10_case_637 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_636(x3)(x4)(x6)(x5)(st)+c_flatx2typedecl'46_'35lambda10_case_637 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_637(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_637 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_637")(x)++++c_flatx2typedecl'46_'35lambda10_case_636 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_635(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda10_case_635 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_634(x3)(x4)(x8)(x7)(st)+c_flatx2typedecl'46_'35lambda10_case_635 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_635(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_635 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_635")(x)++++c_flatx2typedecl'46_'35lambda10_case_634 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_633(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda10_case_633 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_632(x3)(x4)(x10)(x9)(st)+c_flatx2typedecl'46_'35lambda10_case_633 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_633(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_633 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_633")(x)++++c_flatx2typedecl'46_'35lambda10_case_632 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_631(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda10_case_631 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_630(x3)(x4)(x12)(x11)(st)+c_flatx2typedecl'46_'35lambda10_case_631 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_631(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_631 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_631")(x)++++c_flatx2typedecl'46_'35lambda10_case_630 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_629(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda10_case_629 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_628(x4)(x3)(st)+c_flatx2typedecl'46_'35lambda10_case_629 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_629(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_629 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_629")(x)++++c_flatx2typedecl'46_'35lambda10_case_628 x4 x3@Curry.Module.Prelude.List st = Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st)+c_flatx2typedecl'46_'35lambda10_case_628 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10_case_628(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda10_case_628 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda10_case_628")(x)++++c_flatx2typedecl'46_'35lambda9_case_687 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_686(x3)(x4)(x6)(x5)(st)+c_flatx2typedecl'46_'35lambda9_case_687 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_687(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_687 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_687")(x)++++c_flatx2typedecl'46_'35lambda9_case_686 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_685(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_685 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_684(x3)(x4)(x8)(x7)(st)+c_flatx2typedecl'46_'35lambda9_case_685 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_685(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_685 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_685")(x)++++c_flatx2typedecl'46_'35lambda9_case_684 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_683(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_683 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_682(x3)(x4)(x10)(x9)(st)+c_flatx2typedecl'46_'35lambda9_case_683 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_683(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_683 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_683")(x)++++c_flatx2typedecl'46_'35lambda9_case_682 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_681(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_681 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_680(x3)(x4)(x12)(x11)(st)+c_flatx2typedecl'46_'35lambda9_case_681 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_681(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_681 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_681")(x)++++c_flatx2typedecl'46_'35lambda9_case_680 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_679(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_679 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_678(x4)(x3)(st)+c_flatx2typedecl'46_'35lambda9_case_679 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_679(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_679 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_679")(x)++++c_flatx2typedecl'46_'35lambda9_case_678 x4 x3@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_677(x4)(x14)(x13)(st)+c_flatx2typedecl'46_'35lambda9_case_678 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_678(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_678 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_678")(x)++++c_flatx2typedecl'46_'35lambda9_case_677 x4 x14 x13@(Curry.Module.Prelude.T2 x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_676(x4)(x14)(x16)(x15)(st)+c_flatx2typedecl'46_'35lambda9_case_677 x4 x14 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_677(x4)(x14)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_677 x4 x14 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_677")(x)++++c_flatx2typedecl'46_'35lambda9_case_676 x4 x14 x16 x15@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_675(x4)(x14)(x16)(x18)(x17)(st)+c_flatx2typedecl'46_'35lambda9_case_676 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_676(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_676 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_676")(x)++++c_flatx2typedecl'46_'35lambda9_case_675 x4 x14 x16 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_674(x4)(x14)(x16)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_674 x4 x14 x16 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_673(x4)(x14)(x16)(x20)(x19)(st)+c_flatx2typedecl'46_'35lambda9_case_674 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_674(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_674 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_674")(x)++++c_flatx2typedecl'46_'35lambda9_case_673 x4 x14 x16 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_672(x4)(x14)(x16)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_672 x4 x14 x16 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_671(x4)(x14)(x16)(x22)(x21)(st)+c_flatx2typedecl'46_'35lambda9_case_672 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_672(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_672 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_672")(x)++++c_flatx2typedecl'46_'35lambda9_case_671 x4 x14 x16 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_670(x4)(x14)(x16)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_670 x4 x14 x16 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_669(x4)(x14)(x16)(x24)(x23)(st)+c_flatx2typedecl'46_'35lambda9_case_670 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_670(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_670 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_670")(x)++++c_flatx2typedecl'46_'35lambda9_case_669 x4 x14 x16 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_668(x4)(x14)(x16)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_668 x4 x14 x16 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_667(x4)(x14)(x16)(x26)(x25)(st)+c_flatx2typedecl'46_'35lambda9_case_668 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_668(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_668 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_668")(x)++++c_flatx2typedecl'46_'35lambda9_case_667 x4 x14 x16 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_666(x4)(x14)(x16)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_666 x4 x14 x16 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_665(x4)(x14)(x16)(x28)(x27)(st)+c_flatx2typedecl'46_'35lambda9_case_666 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_666(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_666 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_666")(x)++++c_flatx2typedecl'46_'35lambda9_case_665 x4 x14 x16 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_664(x4)(x14)(x16)(x28)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_664 x4 x14 x16 x28@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_663(x4)(x16)(x14)(st)+c_flatx2typedecl'46_'35lambda9_case_664 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_664(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_664 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_664")(x)++++c_flatx2typedecl'46_'35lambda9_case_663 x4 x16 x14@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_662(x4)(x16)(x30)(x29)(st)+c_flatx2typedecl'46_'35lambda9_case_663 x4 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_663(x4)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_663 x4 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_663")(x)++++c_flatx2typedecl'46_'35lambda9_case_662 x4 x16 x30 x29@(Curry.Module.Prelude.T2 x31 x32) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_661(x4)(x16)(x30)(x32)(x31)(st)+c_flatx2typedecl'46_'35lambda9_case_662 x4 x16 x30 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_662(x4)(x16)(x30)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_662 x4 x16 x30 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_662")(x)++++c_flatx2typedecl'46_'35lambda9_case_661 x4 x16 x30 x32 x31@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_660(x4)(x16)(x30)(x32)(x34)(x33)(st)+c_flatx2typedecl'46_'35lambda9_case_661 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_661(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_661 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_661")(x)++++c_flatx2typedecl'46_'35lambda9_case_660 x4 x16 x30 x32 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_659(x4)(x16)(x30)(x32)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_659 x4 x16 x30 x32 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_658(x4)(x16)(x30)(x32)(x36)(x35)(st)+c_flatx2typedecl'46_'35lambda9_case_659 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_659(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_659 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_659")(x)++++c_flatx2typedecl'46_'35lambda9_case_658 x4 x16 x30 x32 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_657(x4)(x16)(x30)(x32)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_657 x4 x16 x30 x32 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_656(x4)(x16)(x30)(x32)(x38)(x37)(st)+c_flatx2typedecl'46_'35lambda9_case_657 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_657(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_657 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_657")(x)++++c_flatx2typedecl'46_'35lambda9_case_656 x4 x16 x30 x32 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_655(x4)(x16)(x30)(x32)(x38)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_655 x4 x16 x30 x32 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_654(x4)(x16)(x30)(x32)(x40)(x39)(st)+c_flatx2typedecl'46_'35lambda9_case_655 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_655(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_655 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_655")(x)++++c_flatx2typedecl'46_'35lambda9_case_654 x4 x16 x30 x32 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_653(x4)(x16)(x30)(x32)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_653 x4 x16 x30 x32 x40@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_652(x4)(x16)(x32)(x30)(st)+c_flatx2typedecl'46_'35lambda9_case_653 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_653(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_653 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_653")(x)++++c_flatx2typedecl'46_'35lambda9_case_652 x4 x16 x32 x30@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_651(x4)(x16)(x32)(x42)(x41)(st)+c_flatx2typedecl'46_'35lambda9_case_652 x4 x16 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_652(x4)(x16)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_652 x4 x16 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_652")(x)++++c_flatx2typedecl'46_'35lambda9_case_651 x4 x16 x32 x42 x41@(Curry.Module.Prelude.T2 x43 x44) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_650(x4)(x16)(x32)(x42)(x44)(x43)(st)+c_flatx2typedecl'46_'35lambda9_case_651 x4 x16 x32 x42 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_651(x4)(x16)(x32)(x42)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_651 x4 x16 x32 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_651")(x)++++c_flatx2typedecl'46_'35lambda9_case_650 x4 x16 x32 x42 x44 x43@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_649(x4)(x16)(x32)(x42)(x44)(x46)(x45)(st)+c_flatx2typedecl'46_'35lambda9_case_650 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_650(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_650 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_650")(x)++++c_flatx2typedecl'46_'35lambda9_case_649 x4 x16 x32 x42 x44 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_648(x4)(x16)(x32)(x42)(x44)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_648 x4 x16 x32 x42 x44 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_647(x4)(x16)(x32)(x42)(x44)(x48)(x47)(st)+c_flatx2typedecl'46_'35lambda9_case_648 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_648(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_648 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_648")(x)++++c_flatx2typedecl'46_'35lambda9_case_647 x4 x16 x32 x42 x44 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_646(x4)(x16)(x32)(x42)(x44)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_646 x4 x16 x32 x42 x44 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_645(x4)(x16)(x32)(x42)(x44)(x50)(x49)(st)+c_flatx2typedecl'46_'35lambda9_case_646 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_646(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_646 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_646")(x)++++c_flatx2typedecl'46_'35lambda9_case_645 x4 x16 x32 x42 x44 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_644(x4)(x16)(x32)(x42)(x44)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_644 x4 x16 x32 x42 x44 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_643(x4)(x16)(x32)(x42)(x44)(x52)(x51)(st)+c_flatx2typedecl'46_'35lambda9_case_644 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_644(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_644 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_644")(x)++++c_flatx2typedecl'46_'35lambda9_case_643 x4 x16 x32 x42 x44 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_642(x4)(x16)(x32)(x42)(x44)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_642 x4 x16 x32 x42 x44 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_641(x4)(x16)(x32)(x42)(x44)(x54)(x53)(st)+c_flatx2typedecl'46_'35lambda9_case_642 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_642(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_642 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_642")(x)++++c_flatx2typedecl'46_'35lambda9_case_641 x4 x16 x32 x42 x44 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_640(x4)(x16)(x32)(x42)(x44)(x54)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda9_case_640 x4 x16 x32 x42 x44 x54@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_639(x4)(x16)(x32)(x44)(x42)(st)+c_flatx2typedecl'46_'35lambda9_case_640 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_640(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_640 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_640")(x)++++c_flatx2typedecl'46_'35lambda9_case_639 x4 x16 x32 x44 x42@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_638(x4)(x16)(x32)(x44)(x55)(x56)(st)+c_flatx2typedecl'46_'35lambda9_case_639 x4 x16 x32 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_639(x4)(x16)(x32)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_639 x4 x16 x32 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_639")(x)++++c_flatx2typedecl'46_'35lambda9_case_638 x4 x16 x32 x44 x55 x56@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Cons(Curry.Module.Prelude.T2(x16)(x32))(Curry.Module.Read.c_readNat(x44)(st))(Curry.Module.FlatCurryXML.c_xvis2vis(x55)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2texp))(x4)(st))+c_flatx2typedecl'46_'35lambda9_case_638 x4 x16 x32 x44 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9_case_638(x4)(x16)(x32)(x44)(x55)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda9_case_638 x4 x16 x32 x44 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda9_case_638")(x)++++c_flatx2typedecl'46_'35lambda8_case_697 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_696(x3)(x4)(x6)(x5)(st)+c_flatx2typedecl'46_'35lambda8_case_697 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_697(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_697 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_697")(x)++++c_flatx2typedecl'46_'35lambda8_case_696 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_695(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda8_case_695 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_694(x3)(x4)(x8)(x7)(st)+c_flatx2typedecl'46_'35lambda8_case_695 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_695(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_695 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_695")(x)++++c_flatx2typedecl'46_'35lambda8_case_694 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_693(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda8_case_693 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_692(x3)(x4)(x10)(x9)(st)+c_flatx2typedecl'46_'35lambda8_case_693 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_693(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_693 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_693")(x)++++c_flatx2typedecl'46_'35lambda8_case_692 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_691(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda8_case_691 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_690(x3)(x4)(x12)(x11)(st)+c_flatx2typedecl'46_'35lambda8_case_691 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_691(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_691 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_691")(x)++++c_flatx2typedecl'46_'35lambda8_case_690 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_689(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl'46_'35lambda8_case_689 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_688(x4)(x3)(st)+c_flatx2typedecl'46_'35lambda8_case_689 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_689(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_689 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_689")(x)++++c_flatx2typedecl'46_'35lambda8_case_688 x4 x3@Curry.Module.Prelude.List st = Curry.Module.Read.c_readNat(Curry.Module.XML.c_textOfXml(x4)(st))(st)+c_flatx2typedecl'46_'35lambda8_case_688 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8_case_688(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl'46_'35lambda8_case_688 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl._#lambda8_case_688")(x)++++c_flatx2typedecl_case_802 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_801(x3)(x4)(x6)(x5)(st)+c_flatx2typedecl_case_802 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_802(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_802 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_802")(x)++++c_flatx2typedecl_case_801 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_800(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_800 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_799(x3)(x4)(x8)(x7)(st)+c_flatx2typedecl_case_800 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_800(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_800 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_800")(x)++++c_flatx2typedecl_case_799 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_798(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_798 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_797(x3)(x4)(x10)(x9)(st)+c_flatx2typedecl_case_798 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_798(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_798 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_798")(x)++++c_flatx2typedecl_case_797 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_796(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_796 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_795(x3)(x4)(x12)(x11)(st)+c_flatx2typedecl_case_796 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_796(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_796 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_796")(x)++++c_flatx2typedecl_case_795 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_794(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_794 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_793(x4)(x3)(st)+c_flatx2typedecl_case_794 x3 x4 x12@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_749(x3)(x4)(x61)(x60)(st)+c_flatx2typedecl_case_794 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_794(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_794 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_794")(x)++++c_flatx2typedecl_case_749 x3 x4 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_748(x3)(x4)(x61)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_748 x3 x4 x61@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_747(x3)(x4)(x63)(x62)(st)+c_flatx2typedecl_case_748 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_748(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_748 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_748")(x)++++c_flatx2typedecl_case_747 x3 x4 x63 x62 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x62)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_746(x3)(x4)(x63)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_746 x3 x4 x63@((Curry.Module.Prelude.:<) x64 x65) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_745(x3)(x4)(x65)(x64)(st)+c_flatx2typedecl_case_746 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_746(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_746 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_746")(x)++++c_flatx2typedecl_case_745 x3 x4 x65 x64 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x64)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_744(x3)(x4)(x65)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_744 x3 x4 x65@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_743(x4)(x3)(st)+c_flatx2typedecl_case_744 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_744(x3)(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_744 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_744")(x)++++c_flatx2typedecl_case_743 x4 x3@((Curry.Module.Prelude.:<) x66 x67) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_742(x4)(x67)(x66)(st)+c_flatx2typedecl_case_743 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_743(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_743 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_743")(x)++++c_flatx2typedecl_case_742 x4 x67 x66@(Curry.Module.Prelude.T2 x68 x69) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_741(x4)(x67)(x69)(x68)(st)+c_flatx2typedecl_case_742 x4 x67 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_742(x4)(x67)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_742 x4 x67 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_742")(x)++++c_flatx2typedecl_case_741 x4 x67 x69 x68@((Curry.Module.Prelude.:<) x70 x71) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_740(x4)(x67)(x69)(x71)(x70)(st)+c_flatx2typedecl_case_741 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_741(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_741 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_741")(x)++++c_flatx2typedecl_case_740 x4 x67 x69 x71 x70 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x70)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_739(x4)(x67)(x69)(x71)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_739 x4 x67 x69 x71@((Curry.Module.Prelude.:<) x72 x73) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_738(x4)(x67)(x69)(x73)(x72)(st)+c_flatx2typedecl_case_739 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_739(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_739 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_739")(x)++++c_flatx2typedecl_case_738 x4 x67 x69 x73 x72 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x72)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_737(x4)(x67)(x69)(x73)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_737 x4 x67 x69 x73@((Curry.Module.Prelude.:<) x74 x75) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_736(x4)(x67)(x69)(x75)(x74)(st)+c_flatx2typedecl_case_737 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_737(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_737 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_737")(x)++++c_flatx2typedecl_case_736 x4 x67 x69 x75 x74 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x74)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_735(x4)(x67)(x69)(x75)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_735 x4 x67 x69 x75@((Curry.Module.Prelude.:<) x76 x77) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_734(x4)(x67)(x69)(x77)(x76)(st)+c_flatx2typedecl_case_735 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_735(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_735 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_735")(x)++++c_flatx2typedecl_case_734 x4 x67 x69 x77 x76 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x76)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_733(x4)(x67)(x69)(x77)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_733 x4 x67 x69 x77@((Curry.Module.Prelude.:<) x78 x79) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_732(x4)(x67)(x69)(x79)(x78)(st)+c_flatx2typedecl_case_733 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_733(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_733 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_733")(x)++++c_flatx2typedecl_case_732 x4 x67 x69 x79 x78 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x78)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_731(x4)(x67)(x69)(x79)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_731 x4 x67 x69 x79@((Curry.Module.Prelude.:<) x80 x81) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_730(x4)(x67)(x69)(x81)(x80)(st)+c_flatx2typedecl_case_731 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_731(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_731 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_731")(x)++++c_flatx2typedecl_case_730 x4 x67 x69 x81 x80 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x80)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_729(x4)(x67)(x69)(x81)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_729 x4 x67 x69 x81@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_728(x4)(x69)(x67)(st)+c_flatx2typedecl_case_729 x4 x67 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_729(x4)(x67)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_729 x4 x67 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_729")(x)++++c_flatx2typedecl_case_728 x4 x69 x67@((Curry.Module.Prelude.:<) x82 x83) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_727(x4)(x69)(x83)(x82)(st)+c_flatx2typedecl_case_728 x4 x69 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_728(x4)(x69)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_728 x4 x69 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_728")(x)++++c_flatx2typedecl_case_727 x4 x69 x83 x82@(Curry.Module.Prelude.T2 x84 x85) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_726(x4)(x69)(x83)(x85)(x84)(st)+c_flatx2typedecl_case_727 x4 x69 x83 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_727(x4)(x69)(x83)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_727 x4 x69 x83 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_727")(x)++++c_flatx2typedecl_case_726 x4 x69 x83 x85 x84@((Curry.Module.Prelude.:<) x86 x87) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_725(x4)(x69)(x83)(x85)(x87)(x86)(st)+c_flatx2typedecl_case_726 x4 x69 x83 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_726(x4)(x69)(x83)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_726 x4 x69 x83 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_726")(x)++++c_flatx2typedecl_case_725 x4 x69 x83 x85 x87 x86 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x86)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_724(x4)(x69)(x83)(x85)(x87)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_724 x4 x69 x83 x85 x87@((Curry.Module.Prelude.:<) x88 x89) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_723(x4)(x69)(x83)(x85)(x89)(x88)(st)+c_flatx2typedecl_case_724 x4 x69 x83 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_724(x4)(x69)(x83)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_724 x4 x69 x83 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_724")(x)++++c_flatx2typedecl_case_723 x4 x69 x83 x85 x89 x88 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x88)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_722(x4)(x69)(x83)(x85)(x89)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_722 x4 x69 x83 x85 x89@((Curry.Module.Prelude.:<) x90 x91) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_721(x4)(x69)(x83)(x85)(x91)(x90)(st)+c_flatx2typedecl_case_722 x4 x69 x83 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_722(x4)(x69)(x83)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_722 x4 x69 x83 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_722")(x)++++c_flatx2typedecl_case_721 x4 x69 x83 x85 x91 x90 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x90)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_720(x4)(x69)(x83)(x85)(x91)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_720 x4 x69 x83 x85 x91@((Curry.Module.Prelude.:<) x92 x93) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_719(x4)(x69)(x83)(x85)(x93)(x92)(st)+c_flatx2typedecl_case_720 x4 x69 x83 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_720(x4)(x69)(x83)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_720 x4 x69 x83 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_720")(x)++++c_flatx2typedecl_case_719 x4 x69 x83 x85 x93 x92 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x92)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_718(x4)(x69)(x83)(x85)(x93)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_718 x4 x69 x83 x85 x93@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_717(x4)(x69)(x85)(x83)(st)+c_flatx2typedecl_case_718 x4 x69 x83 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_718(x4)(x69)(x83)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_718 x4 x69 x83 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_718")(x)++++c_flatx2typedecl_case_717 x4 x69 x85 x83@((Curry.Module.Prelude.:<) x94 x95) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_716(x4)(x69)(x85)(x94)(x95)(st)+c_flatx2typedecl_case_717 x4 x69 x85 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_717(x4)(x69)(x85)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_717 x4 x69 x85 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_717")(x)++++c_flatx2typedecl_case_716 x4 x69 x85 x94 x95@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_715(x69)(x85)(x94)(x4)(st)+c_flatx2typedecl_case_716 x4 x69 x85 x94 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_716(x4)(x69)(x85)(x94)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_716 x4 x69 x85 x94 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_716")(x)++++c_flatx2typedecl_case_715 x69 x85 x94 x4@((Curry.Module.Prelude.:<) x96 x97) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_714(x69)(x85)(x94)(x97)(x96)(st)+c_flatx2typedecl_case_715 x69 x85 x94 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_715(x69)(x85)(x94)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_715 x69 x85 x94 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_715")(x)++++c_flatx2typedecl_case_714 x69 x85 x94 x97 x96@(Curry.Module.XML.C_XElem x98 x99 x100) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_713(x69)(x85)(x94)(x97)(x99)(x100)(x98)(st)+c_flatx2typedecl_case_714 x69 x85 x94 x97 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_714(x69)(x85)(x94)(x97)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_714 x69 x85 x94 x97 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_714")(x)++++c_flatx2typedecl_case_713 x69 x85 x94 x97 x99 x100 x98@((Curry.Module.Prelude.:<) x101 x102) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_712(x69)(x85)(x94)(x97)(x99)(x100)(x102)(x101)(st)+c_flatx2typedecl_case_713 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_713(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_713 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_713")(x)++++c_flatx2typedecl_case_712 x69 x85 x94 x97 x99 x100 x102 x101 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x101)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_711(x69)(x85)(x94)(x97)(x99)(x100)(x102)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_711 x69 x85 x94 x97 x99 x100 x102@((Curry.Module.Prelude.:<) x103 x104) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_710(x69)(x85)(x94)(x97)(x99)(x100)(x104)(x103)(st)+c_flatx2typedecl_case_711 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_711(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_711 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_711")(x)++++c_flatx2typedecl_case_710 x69 x85 x94 x97 x99 x100 x104 x103 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x103)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_709(x69)(x85)(x94)(x97)(x99)(x100)(x104)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_709 x69 x85 x94 x97 x99 x100 x104@((Curry.Module.Prelude.:<) x105 x106) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_708(x69)(x85)(x94)(x97)(x99)(x100)(x106)(x105)(st)+c_flatx2typedecl_case_709 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_709(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_709 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_709")(x)++++c_flatx2typedecl_case_708 x69 x85 x94 x97 x99 x100 x106 x105 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x105)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_707(x69)(x85)(x94)(x97)(x99)(x100)(x106)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_707 x69 x85 x94 x97 x99 x100 x106@((Curry.Module.Prelude.:<) x107 x108) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_706(x69)(x85)(x94)(x97)(x99)(x100)(x108)(x107)(st)+c_flatx2typedecl_case_707 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_707(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_707 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_707")(x)++++c_flatx2typedecl_case_706 x69 x85 x94 x97 x99 x100 x108 x107 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x107)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_705(x69)(x85)(x94)(x97)(x99)(x100)(x108)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_705 x69 x85 x94 x97 x99 x100 x108@((Curry.Module.Prelude.:<) x109 x110) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_704(x69)(x85)(x94)(x97)(x99)(x100)(x110)(x109)(st)+c_flatx2typedecl_case_705 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_705(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_705 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_705")(x)++++c_flatx2typedecl_case_704 x69 x85 x94 x97 x99 x100 x110 x109 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x109)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_703(x69)(x85)(x94)(x97)(x99)(x100)(x110)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_703 x69 x85 x94 x97 x99 x100 x110@((Curry.Module.Prelude.:<) x111 x112) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_702(x69)(x85)(x94)(x97)(x99)(x100)(x112)(x111)(st)+c_flatx2typedecl_case_703 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_703(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_703 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_703")(x)++++c_flatx2typedecl_case_702 x69 x85 x94 x97 x99 x100 x112 x111 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x111)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_701(x69)(x85)(x94)(x97)(x99)(x100)(x112)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_701 x69 x85 x94 x97 x99 x100 x112@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_700(x69)(x85)(x94)(x97)(x100)(x99)(st)+c_flatx2typedecl_case_701 x69 x85 x94 x97 x99 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_701(x69)(x85)(x94)(x97)(x99)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_701 x69 x85 x94 x97 x99 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_701")(x)++++c_flatx2typedecl_case_700 x69 x85 x94 x97 x100 x99@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_699(x69)(x85)(x94)(x100)(x97)(st)+c_flatx2typedecl_case_700 x69 x85 x94 x97 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_700(x69)(x85)(x94)(x97)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_700 x69 x85 x94 x97 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_700")(x)++++c_flatx2typedecl_case_699 x69 x85 x94 x100 x97@((Curry.Module.Prelude.:<) x113 x114) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_698(x69)(x85)(x94)(x100)(x113)(x114)(st)+c_flatx2typedecl_case_699 x69 x85 x94 x100 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_699(x69)(x85)(x94)(x100)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_699 x69 x85 x94 x100 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_699")(x)++++c_flatx2typedecl_case_698 x69 x85 x94 x100 x113 x114@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_TypeSyn(Curry.Module.Prelude.T2(x69)(x85))(Curry.Module.FlatCurryXML.c_xvis2vis(x94)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda10))(x100)(st))(Curry.Module.FlatCurryXML.c_flatx2texp(x113)(st))+c_flatx2typedecl_case_698 x69 x85 x94 x100 x113 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_698(x69)(x85)(x94)(x100)(x113)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_698 x69 x85 x94 x100 x113 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_698")(x)++++c_flatx2typedecl_case_793 x4 x3@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_792(x4)(x14)(x13)(st)+c_flatx2typedecl_case_793 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_793(x4)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_793 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_793")(x)++++c_flatx2typedecl_case_792 x4 x14 x13@(Curry.Module.Prelude.T2 x15 x16) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_791(x4)(x14)(x16)(x15)(st)+c_flatx2typedecl_case_792 x4 x14 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_792(x4)(x14)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_792 x4 x14 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_792")(x)++++c_flatx2typedecl_case_791 x4 x14 x16 x15@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_790(x4)(x14)(x16)(x18)(x17)(st)+c_flatx2typedecl_case_791 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_791(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_791 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_791")(x)++++c_flatx2typedecl_case_790 x4 x14 x16 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_789(x4)(x14)(x16)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_789 x4 x14 x16 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_788(x4)(x14)(x16)(x20)(x19)(st)+c_flatx2typedecl_case_789 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_789(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_789 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_789")(x)++++c_flatx2typedecl_case_788 x4 x14 x16 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_787(x4)(x14)(x16)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_787 x4 x14 x16 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_786(x4)(x14)(x16)(x22)(x21)(st)+c_flatx2typedecl_case_787 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_787(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_787 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_787")(x)++++c_flatx2typedecl_case_786 x4 x14 x16 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_785(x4)(x14)(x16)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_785 x4 x14 x16 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_784(x4)(x14)(x16)(x24)(x23)(st)+c_flatx2typedecl_case_785 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_785(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_785 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_785")(x)++++c_flatx2typedecl_case_784 x4 x14 x16 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_783(x4)(x14)(x16)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_783 x4 x14 x16 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_782(x4)(x14)(x16)(x26)(x25)(st)+c_flatx2typedecl_case_783 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_783(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_783 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_783")(x)++++c_flatx2typedecl_case_782 x4 x14 x16 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_781(x4)(x14)(x16)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_781 x4 x14 x16 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_780(x4)(x14)(x16)(x28)(x27)(st)+c_flatx2typedecl_case_781 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_781(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_781 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_781")(x)++++c_flatx2typedecl_case_780 x4 x14 x16 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_779(x4)(x14)(x16)(x28)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_779 x4 x14 x16 x28@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_778(x4)(x16)(x14)(st)+c_flatx2typedecl_case_779 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_779(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_779 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_779")(x)++++c_flatx2typedecl_case_778 x4 x16 x14@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_777(x4)(x16)(x30)(x29)(st)+c_flatx2typedecl_case_778 x4 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_778(x4)(x16)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_778 x4 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_778")(x)++++c_flatx2typedecl_case_777 x4 x16 x30 x29@(Curry.Module.Prelude.T2 x31 x32) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_776(x4)(x16)(x30)(x32)(x31)(st)+c_flatx2typedecl_case_777 x4 x16 x30 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_777(x4)(x16)(x30)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_777 x4 x16 x30 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_777")(x)++++c_flatx2typedecl_case_776 x4 x16 x30 x32 x31@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_775(x4)(x16)(x30)(x32)(x34)(x33)(st)+c_flatx2typedecl_case_776 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_776(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_776 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_776")(x)++++c_flatx2typedecl_case_775 x4 x16 x30 x32 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_774(x4)(x16)(x30)(x32)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_774 x4 x16 x30 x32 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_773(x4)(x16)(x30)(x32)(x36)(x35)(st)+c_flatx2typedecl_case_774 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_774(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_774 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_774")(x)++++c_flatx2typedecl_case_773 x4 x16 x30 x32 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_772(x4)(x16)(x30)(x32)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_772 x4 x16 x30 x32 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_771(x4)(x16)(x30)(x32)(x38)(x37)(st)+c_flatx2typedecl_case_772 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_772(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_772 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_772")(x)++++c_flatx2typedecl_case_771 x4 x16 x30 x32 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_770(x4)(x16)(x30)(x32)(x38)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_770 x4 x16 x30 x32 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_769(x4)(x16)(x30)(x32)(x40)(x39)(st)+c_flatx2typedecl_case_770 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_770(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_770 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_770")(x)++++c_flatx2typedecl_case_769 x4 x16 x30 x32 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_768(x4)(x16)(x30)(x32)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_768 x4 x16 x30 x32 x40@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_767(x4)(x16)(x32)(x30)(st)+c_flatx2typedecl_case_768 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_768(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_768 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_768")(x)++++c_flatx2typedecl_case_767 x4 x16 x32 x30@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_766(x4)(x16)(x32)(x41)(x42)(st)+c_flatx2typedecl_case_767 x4 x16 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_767(x4)(x16)(x32)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_767 x4 x16 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_767")(x)++++c_flatx2typedecl_case_766 x4 x16 x32 x41 x42@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_765(x16)(x32)(x41)(x4)(st)+c_flatx2typedecl_case_766 x4 x16 x32 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_766(x4)(x16)(x32)(x41)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_766 x4 x16 x32 x41 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_766")(x)++++c_flatx2typedecl_case_765 x16 x32 x41 x4@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_764(x16)(x32)(x41)(x44)(x43)(st)+c_flatx2typedecl_case_765 x16 x32 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_765(x16)(x32)(x41)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_765 x16 x32 x41 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_765")(x)++++c_flatx2typedecl_case_764 x16 x32 x41 x44 x43@(Curry.Module.XML.C_XElem x45 x46 x47) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_763(x16)(x32)(x41)(x44)(x46)(x47)(x45)(st)+c_flatx2typedecl_case_764 x16 x32 x41 x44 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_764(x16)(x32)(x41)(x44)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_764 x16 x32 x41 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_764")(x)++++c_flatx2typedecl_case_763 x16 x32 x41 x44 x46 x47 x45@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_762(x16)(x32)(x41)(x44)(x46)(x47)(x49)(x48)(st)+c_flatx2typedecl_case_763 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_763(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_763 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_763")(x)++++c_flatx2typedecl_case_762 x16 x32 x41 x44 x46 x47 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_761(x16)(x32)(x41)(x44)(x46)(x47)(x49)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_761 x16 x32 x41 x44 x46 x47 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_760(x16)(x32)(x41)(x44)(x46)(x47)(x51)(x50)(st)+c_flatx2typedecl_case_761 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_761(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_761 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_761")(x)++++c_flatx2typedecl_case_760 x16 x32 x41 x44 x46 x47 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_759(x16)(x32)(x41)(x44)(x46)(x47)(x51)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_759 x16 x32 x41 x44 x46 x47 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_758(x16)(x32)(x41)(x44)(x46)(x47)(x53)(x52)(st)+c_flatx2typedecl_case_759 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_759(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_759 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_759")(x)++++c_flatx2typedecl_case_758 x16 x32 x41 x44 x46 x47 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_757(x16)(x32)(x41)(x44)(x46)(x47)(x53)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_757 x16 x32 x41 x44 x46 x47 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_756(x16)(x32)(x41)(x44)(x46)(x47)(x55)(x54)(st)+c_flatx2typedecl_case_757 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_757(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_757 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_757")(x)++++c_flatx2typedecl_case_756 x16 x32 x41 x44 x46 x47 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_755(x16)(x32)(x41)(x44)(x46)(x47)(x55)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_755 x16 x32 x41 x44 x46 x47 x55@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_754(x16)(x32)(x41)(x44)(x46)(x47)(x57)(x56)(st)+c_flatx2typedecl_case_755 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_755(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_755 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_755")(x)++++c_flatx2typedecl_case_754 x16 x32 x41 x44 x46 x47 x57 x56 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x56)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_753(x16)(x32)(x41)(x44)(x46)(x47)(x57)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_753 x16 x32 x41 x44 x46 x47 x57@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_752(x16)(x32)(x41)(x44)(x46)(x47)(x59)(x58)(st)+c_flatx2typedecl_case_753 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_753(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_753 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_753")(x)++++c_flatx2typedecl_case_752 x16 x32 x41 x44 x46 x47 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_flatx2typedecl_case_751(x16)(x32)(x41)(x44)(x46)(x47)(x59)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_flatx2typedecl_case_751 x16 x32 x41 x44 x46 x47 x59@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_flatx2typedecl_case_750(x16)(x32)(x41)(x44)(x47)(x46)(st)+c_flatx2typedecl_case_751 x16 x32 x41 x44 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_751(x16)(x32)(x41)(x44)(x46)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_751 x16 x32 x41 x44 x46 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_751")(x)++++c_flatx2typedecl_case_750 x16 x32 x41 x44 x47 x46@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Type(Curry.Module.Prelude.T2(x16)(x32))(Curry.Module.FlatCurryXML.c_xvis2vis(x41)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda8))(x47)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2typedecl'46_'35lambda9))(x44)(st))+c_flatx2typedecl_case_750 x16 x32 x41 x44 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_flatx2typedecl_case_750(x16)(x32)(x41)(x44)(x47)(x)(st))(i)(xs)(st)+c_flatx2typedecl_case_750 x16 x32 x41 x44 x47 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.flatx2typedecl_case_750")(x)++++c_xml2FlatCurry'46_'35lambda7_case_861 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_860(x3)(x4)(x6)(x5)(st)+c_xml2FlatCurry'46_'35lambda7_case_861 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_861(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_861 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_861")(x)++++c_xml2FlatCurry'46_'35lambda7_case_860 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_859(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_859 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_858(x3)(x4)(x8)(x7)(st)+c_xml2FlatCurry'46_'35lambda7_case_859 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_859(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_859 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_859")(x)++++c_xml2FlatCurry'46_'35lambda7_case_858 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_857(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_857 x3 x4 x8@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_856(x4)(x3)(st)+c_xml2FlatCurry'46_'35lambda7_case_857 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_857(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_857 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_857")(x)++++c_xml2FlatCurry'46_'35lambda7_case_856 x4 x3@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_855(x4)(x10)(x9)(st)+c_xml2FlatCurry'46_'35lambda7_case_856 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_856(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_856 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_856")(x)++++c_xml2FlatCurry'46_'35lambda7_case_855 x4 x10 x9@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_854(x4)(x10)(x12)(x11)(st)+c_xml2FlatCurry'46_'35lambda7_case_855 x4 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_855(x4)(x10)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_855 x4 x10 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_855")(x)++++c_xml2FlatCurry'46_'35lambda7_case_854 x4 x10 x12 x11@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_853(x4)(x10)(x12)(x14)(x13)(st)+c_xml2FlatCurry'46_'35lambda7_case_854 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_854(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_854 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_854")(x)++++c_xml2FlatCurry'46_'35lambda7_case_853 x4 x10 x12 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_852(x4)(x10)(x12)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_852 x4 x10 x12 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_851(x4)(x10)(x12)(x16)(x15)(st)+c_xml2FlatCurry'46_'35lambda7_case_852 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_852(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_852 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_852")(x)++++c_xml2FlatCurry'46_'35lambda7_case_851 x4 x10 x12 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_850(x4)(x10)(x12)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_850 x4 x10 x12 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_849(x4)(x10)(x12)(x18)(x17)(st)+c_xml2FlatCurry'46_'35lambda7_case_850 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_850(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_850 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_850")(x)++++c_xml2FlatCurry'46_'35lambda7_case_849 x4 x10 x12 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_848(x4)(x10)(x12)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_848 x4 x10 x12 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_847(x4)(x10)(x12)(x20)(x19)(st)+c_xml2FlatCurry'46_'35lambda7_case_848 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_848(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_848 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_848")(x)++++c_xml2FlatCurry'46_'35lambda7_case_847 x4 x10 x12 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_846(x4)(x10)(x12)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_846 x4 x10 x12 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_845(x4)(x10)(x12)(x22)(x21)(st)+c_xml2FlatCurry'46_'35lambda7_case_846 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_846(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_846 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_846")(x)++++c_xml2FlatCurry'46_'35lambda7_case_845 x4 x10 x12 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_844(x4)(x10)(x12)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_844 x4 x10 x12 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_843(x4)(x10)(x12)(x24)(x23)(st)+c_xml2FlatCurry'46_'35lambda7_case_844 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_844(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_844 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_844")(x)++++c_xml2FlatCurry'46_'35lambda7_case_843 x4 x10 x12 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_842(x4)(x10)(x12)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_842 x4 x10 x12 x24@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_841(x4)(x12)(x10)(st)+c_xml2FlatCurry'46_'35lambda7_case_842 x4 x10 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_842(x4)(x10)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_842 x4 x10 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_842")(x)++++c_xml2FlatCurry'46_'35lambda7_case_841 x4 x12 x10@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_840(x4)(x12)(x26)(x25)(st)+c_xml2FlatCurry'46_'35lambda7_case_841 x4 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_841(x4)(x12)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_841 x4 x12 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_841")(x)++++c_xml2FlatCurry'46_'35lambda7_case_840 x4 x12 x26 x25@(Curry.Module.Prelude.T2 x27 x28) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_839(x4)(x12)(x26)(x28)(x27)(st)+c_xml2FlatCurry'46_'35lambda7_case_840 x4 x12 x26 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_840(x4)(x12)(x26)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_840 x4 x12 x26 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_840")(x)++++c_xml2FlatCurry'46_'35lambda7_case_839 x4 x12 x26 x28 x27@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_838(x4)(x12)(x26)(x28)(x30)(x29)(st)+c_xml2FlatCurry'46_'35lambda7_case_839 x4 x12 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_839(x4)(x12)(x26)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_839 x4 x12 x26 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_839")(x)++++c_xml2FlatCurry'46_'35lambda7_case_838 x4 x12 x26 x28 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_837(x4)(x12)(x26)(x28)(x30)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_837 x4 x12 x26 x28 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_836(x4)(x12)(x26)(x28)(x32)(x31)(st)+c_xml2FlatCurry'46_'35lambda7_case_837 x4 x12 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_837(x4)(x12)(x26)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_837 x4 x12 x26 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_837")(x)++++c_xml2FlatCurry'46_'35lambda7_case_836 x4 x12 x26 x28 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_835(x4)(x12)(x26)(x28)(x32)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_835 x4 x12 x26 x28 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_834(x4)(x12)(x26)(x28)(x34)(x33)(st)+c_xml2FlatCurry'46_'35lambda7_case_835 x4 x12 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_835(x4)(x12)(x26)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_835 x4 x12 x26 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_835")(x)++++c_xml2FlatCurry'46_'35lambda7_case_834 x4 x12 x26 x28 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_833(x4)(x12)(x26)(x28)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_833 x4 x12 x26 x28 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_832(x4)(x12)(x26)(x28)(x36)(x35)(st)+c_xml2FlatCurry'46_'35lambda7_case_833 x4 x12 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_833(x4)(x12)(x26)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_833 x4 x12 x26 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_833")(x)++++c_xml2FlatCurry'46_'35lambda7_case_832 x4 x12 x26 x28 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_831(x4)(x12)(x26)(x28)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_831 x4 x12 x26 x28 x36@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_830(x4)(x12)(x28)(x26)(st)+c_xml2FlatCurry'46_'35lambda7_case_831 x4 x12 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_831(x4)(x12)(x26)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_831 x4 x12 x26 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_831")(x)++++c_xml2FlatCurry'46_'35lambda7_case_830 x4 x12 x28 x26@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_829(x4)(x12)(x28)(x38)(x37)(st)+c_xml2FlatCurry'46_'35lambda7_case_830 x4 x12 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_830(x4)(x12)(x28)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_830 x4 x12 x28 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_830")(x)++++c_xml2FlatCurry'46_'35lambda7_case_829 x4 x12 x28 x38 x37@(Curry.Module.Prelude.T2 x39 x40) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_828(x4)(x12)(x28)(x38)(x40)(x39)(st)+c_xml2FlatCurry'46_'35lambda7_case_829 x4 x12 x28 x38 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_829(x4)(x12)(x28)(x38)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_829 x4 x12 x28 x38 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_829")(x)++++c_xml2FlatCurry'46_'35lambda7_case_828 x4 x12 x28 x38 x40 x39@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_827(x4)(x12)(x28)(x38)(x40)(x42)(x41)(st)+c_xml2FlatCurry'46_'35lambda7_case_828 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_828(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_828 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_828")(x)++++c_xml2FlatCurry'46_'35lambda7_case_827 x4 x12 x28 x38 x40 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_826(x4)(x12)(x28)(x38)(x40)(x42)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_826 x4 x12 x28 x38 x40 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_825(x4)(x12)(x28)(x38)(x40)(x44)(x43)(st)+c_xml2FlatCurry'46_'35lambda7_case_826 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_826(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_826 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_826")(x)++++c_xml2FlatCurry'46_'35lambda7_case_825 x4 x12 x28 x38 x40 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_824(x4)(x12)(x28)(x38)(x40)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_824 x4 x12 x28 x38 x40 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_823(x4)(x12)(x28)(x38)(x40)(x46)(x45)(st)+c_xml2FlatCurry'46_'35lambda7_case_824 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_824(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_824 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_824")(x)++++c_xml2FlatCurry'46_'35lambda7_case_823 x4 x12 x28 x38 x40 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_822(x4)(x12)(x28)(x38)(x40)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_822 x4 x12 x28 x38 x40 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_821(x4)(x12)(x28)(x38)(x40)(x48)(x47)(st)+c_xml2FlatCurry'46_'35lambda7_case_822 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_822(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_822 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_822")(x)++++c_xml2FlatCurry'46_'35lambda7_case_821 x4 x12 x28 x38 x40 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_820(x4)(x12)(x28)(x38)(x40)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_820 x4 x12 x28 x38 x40 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_819(x4)(x12)(x28)(x38)(x40)(x50)(x49)(st)+c_xml2FlatCurry'46_'35lambda7_case_820 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_820(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_820 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_820")(x)++++c_xml2FlatCurry'46_'35lambda7_case_819 x4 x12 x28 x38 x40 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_818(x4)(x12)(x28)(x38)(x40)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_818 x4 x12 x28 x38 x40 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_817(x4)(x12)(x28)(x38)(x40)(x52)(x51)(st)+c_xml2FlatCurry'46_'35lambda7_case_818 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_818(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_818 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_818")(x)++++c_xml2FlatCurry'46_'35lambda7_case_817 x4 x12 x28 x38 x40 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_816(x4)(x12)(x28)(x38)(x40)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_816 x4 x12 x28 x38 x40 x52@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_815(x4)(x12)(x28)(x40)(x38)(st)+c_xml2FlatCurry'46_'35lambda7_case_816 x4 x12 x28 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_816(x4)(x12)(x28)(x38)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_816 x4 x12 x28 x38 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_816")(x)++++c_xml2FlatCurry'46_'35lambda7_case_815 x4 x12 x28 x40 x38@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_814(x4)(x12)(x28)(x40)(x54)(x53)(st)+c_xml2FlatCurry'46_'35lambda7_case_815 x4 x12 x28 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_815(x4)(x12)(x28)(x40)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_815 x4 x12 x28 x40 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_815")(x)++++c_xml2FlatCurry'46_'35lambda7_case_814 x4 x12 x28 x40 x54 x53@(Curry.Module.Prelude.T2 x55 x56) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_813(x4)(x12)(x28)(x40)(x54)(x56)(x55)(st)+c_xml2FlatCurry'46_'35lambda7_case_814 x4 x12 x28 x40 x54 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_814(x4)(x12)(x28)(x40)(x54)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_814 x4 x12 x28 x40 x54 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_814")(x)++++c_xml2FlatCurry'46_'35lambda7_case_813 x4 x12 x28 x40 x54 x56 x55@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_812(x4)(x12)(x28)(x40)(x54)(x56)(x58)(x57)(st)+c_xml2FlatCurry'46_'35lambda7_case_813 x4 x12 x28 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_813(x4)(x12)(x28)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_813 x4 x12 x28 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_813")(x)++++c_xml2FlatCurry'46_'35lambda7_case_812 x4 x12 x28 x40 x54 x56 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_811(x4)(x12)(x28)(x40)(x54)(x56)(x58)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_811 x4 x12 x28 x40 x54 x56 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_810(x4)(x12)(x28)(x40)(x54)(x56)(x60)(x59)(st)+c_xml2FlatCurry'46_'35lambda7_case_811 x4 x12 x28 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_811(x4)(x12)(x28)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_811 x4 x12 x28 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_811")(x)++++c_xml2FlatCurry'46_'35lambda7_case_810 x4 x12 x28 x40 x54 x56 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_809(x4)(x12)(x28)(x40)(x54)(x56)(x60)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_809 x4 x12 x28 x40 x54 x56 x60@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_808(x4)(x12)(x28)(x40)(x54)(x56)(x62)(x61)(st)+c_xml2FlatCurry'46_'35lambda7_case_809 x4 x12 x28 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_809(x4)(x12)(x28)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_809 x4 x12 x28 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_809")(x)++++c_xml2FlatCurry'46_'35lambda7_case_808 x4 x12 x28 x40 x54 x56 x62 x61 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x61)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_807(x4)(x12)(x28)(x40)(x54)(x56)(x62)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_807 x4 x12 x28 x40 x54 x56 x62@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_806(x4)(x12)(x28)(x40)(x54)(x56)(x64)(x63)(st)+c_xml2FlatCurry'46_'35lambda7_case_807 x4 x12 x28 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_807(x4)(x12)(x28)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_807 x4 x12 x28 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_807")(x)++++c_xml2FlatCurry'46_'35lambda7_case_806 x4 x12 x28 x40 x54 x56 x64 x63 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x63)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_805(x4)(x12)(x28)(x40)(x54)(x56)(x64)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda7_case_805 x4 x12 x28 x40 x54 x56 x64@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_804(x4)(x12)(x28)(x40)(x56)(x54)(st)+c_xml2FlatCurry'46_'35lambda7_case_805 x4 x12 x28 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_805(x4)(x12)(x28)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_805 x4 x12 x28 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_805")(x)++++c_xml2FlatCurry'46_'35lambda7_case_804 x4 x12 x28 x40 x56 x54@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_803(x12)(x28)(x40)(x56)(x4)(st)+c_xml2FlatCurry'46_'35lambda7_case_804 x4 x12 x28 x40 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_804(x4)(x12)(x28)(x40)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_804 x4 x12 x28 x40 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_804")(x)++++c_xml2FlatCurry'46_'35lambda7_case_803 x12 x28 x40 x56 x4@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Op(Curry.Module.Prelude.T2(x12)(x28))(Curry.Module.FlatCurryXML.c_flatx2Fixity(x40)(st))(Curry.Module.Read.c_readNat(x56)(st))+c_xml2FlatCurry'46_'35lambda7_case_803 x12 x28 x40 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7_case_803(x12)(x28)(x40)(x56)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda7_case_803 x12 x28 x40 x56 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda7_case_803")(x)++++c_xml2FlatCurry'46_'35lambda6_case_914 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_913(x3)(x4)(x6)(x5)(st)+c_xml2FlatCurry'46_'35lambda6_case_914 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_914(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_914 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_914")(x)++++c_xml2FlatCurry'46_'35lambda6_case_913 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_912(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_912 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_911(x3)(x4)(x8)(x7)(st)+c_xml2FlatCurry'46_'35lambda6_case_912 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_912(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_912 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_912")(x)++++c_xml2FlatCurry'46_'35lambda6_case_911 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_910(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_910 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_909(x3)(x4)(x10)(x9)(st)+c_xml2FlatCurry'46_'35lambda6_case_910 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_910(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_910 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_910")(x)++++c_xml2FlatCurry'46_'35lambda6_case_909 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_908(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_908 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_907(x3)(x4)(x12)(x11)(st)+c_xml2FlatCurry'46_'35lambda6_case_908 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_908(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_908 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_908")(x)++++c_xml2FlatCurry'46_'35lambda6_case_907 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_906(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_906 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_905(x4)(x3)(st)+c_xml2FlatCurry'46_'35lambda6_case_906 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_906(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_906 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_906")(x)++++c_xml2FlatCurry'46_'35lambda6_case_905 x4 x3@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_904(x4)(x14)(x13)(st)+c_xml2FlatCurry'46_'35lambda6_case_905 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_905(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_905 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_905")(x)++++c_xml2FlatCurry'46_'35lambda6_case_904 x4 x14 x13@(Curry.Module.Prelude.T2 x15 x16) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_903(x4)(x14)(x16)(x15)(st)+c_xml2FlatCurry'46_'35lambda6_case_904 x4 x14 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_904(x4)(x14)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_904 x4 x14 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_904")(x)++++c_xml2FlatCurry'46_'35lambda6_case_903 x4 x14 x16 x15@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_902(x4)(x14)(x16)(x18)(x17)(st)+c_xml2FlatCurry'46_'35lambda6_case_903 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_903(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_903 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_903")(x)++++c_xml2FlatCurry'46_'35lambda6_case_902 x4 x14 x16 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_901(x4)(x14)(x16)(x18)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_901 x4 x14 x16 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_900(x4)(x14)(x16)(x20)(x19)(st)+c_xml2FlatCurry'46_'35lambda6_case_901 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_901(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_901 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_901")(x)++++c_xml2FlatCurry'46_'35lambda6_case_900 x4 x14 x16 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_899(x4)(x14)(x16)(x20)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_899 x4 x14 x16 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_898(x4)(x14)(x16)(x22)(x21)(st)+c_xml2FlatCurry'46_'35lambda6_case_899 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_899(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_899 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_899")(x)++++c_xml2FlatCurry'46_'35lambda6_case_898 x4 x14 x16 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_897(x4)(x14)(x16)(x22)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_897 x4 x14 x16 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_896(x4)(x14)(x16)(x24)(x23)(st)+c_xml2FlatCurry'46_'35lambda6_case_897 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_897(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_897 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_897")(x)++++c_xml2FlatCurry'46_'35lambda6_case_896 x4 x14 x16 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_895(x4)(x14)(x16)(x24)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_895 x4 x14 x16 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_894(x4)(x14)(x16)(x26)(x25)(st)+c_xml2FlatCurry'46_'35lambda6_case_895 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_895(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_895 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_895")(x)++++c_xml2FlatCurry'46_'35lambda6_case_894 x4 x14 x16 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_893(x4)(x14)(x16)(x26)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_893 x4 x14 x16 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_892(x4)(x14)(x16)(x28)(x27)(st)+c_xml2FlatCurry'46_'35lambda6_case_893 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_893(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_893 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_893")(x)++++c_xml2FlatCurry'46_'35lambda6_case_892 x4 x14 x16 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_891(x4)(x14)(x16)(x28)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_891 x4 x14 x16 x28@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_890(x4)(x16)(x14)(st)+c_xml2FlatCurry'46_'35lambda6_case_891 x4 x14 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_891(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_891 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_891")(x)++++c_xml2FlatCurry'46_'35lambda6_case_890 x4 x16 x14@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_889(x4)(x16)(x30)(x29)(st)+c_xml2FlatCurry'46_'35lambda6_case_890 x4 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_890(x4)(x16)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_890 x4 x16 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_890")(x)++++c_xml2FlatCurry'46_'35lambda6_case_889 x4 x16 x30 x29@(Curry.Module.Prelude.T2 x31 x32) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_888(x4)(x16)(x30)(x32)(x31)(st)+c_xml2FlatCurry'46_'35lambda6_case_889 x4 x16 x30 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_889(x4)(x16)(x30)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_889 x4 x16 x30 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_889")(x)++++c_xml2FlatCurry'46_'35lambda6_case_888 x4 x16 x30 x32 x31@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_887(x4)(x16)(x30)(x32)(x34)(x33)(st)+c_xml2FlatCurry'46_'35lambda6_case_888 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_888(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_888 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_888")(x)++++c_xml2FlatCurry'46_'35lambda6_case_887 x4 x16 x30 x32 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_886(x4)(x16)(x30)(x32)(x34)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_886 x4 x16 x30 x32 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_885(x4)(x16)(x30)(x32)(x36)(x35)(st)+c_xml2FlatCurry'46_'35lambda6_case_886 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_886(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_886 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_886")(x)++++c_xml2FlatCurry'46_'35lambda6_case_885 x4 x16 x30 x32 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_884(x4)(x16)(x30)(x32)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_884 x4 x16 x30 x32 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_883(x4)(x16)(x30)(x32)(x38)(x37)(st)+c_xml2FlatCurry'46_'35lambda6_case_884 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_884(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_884 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_884")(x)++++c_xml2FlatCurry'46_'35lambda6_case_883 x4 x16 x30 x32 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_882(x4)(x16)(x30)(x32)(x38)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_882 x4 x16 x30 x32 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_881(x4)(x16)(x30)(x32)(x40)(x39)(st)+c_xml2FlatCurry'46_'35lambda6_case_882 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_882(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_882 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_882")(x)++++c_xml2FlatCurry'46_'35lambda6_case_881 x4 x16 x30 x32 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_880(x4)(x16)(x30)(x32)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_880 x4 x16 x30 x32 x40@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_879(x4)(x16)(x32)(x30)(st)+c_xml2FlatCurry'46_'35lambda6_case_880 x4 x16 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_880(x4)(x16)(x30)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_880 x4 x16 x30 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_880")(x)++++c_xml2FlatCurry'46_'35lambda6_case_879 x4 x16 x32 x30@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_878(x4)(x16)(x32)(x42)(x41)(st)+c_xml2FlatCurry'46_'35lambda6_case_879 x4 x16 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_879(x4)(x16)(x32)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_879 x4 x16 x32 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_879")(x)++++c_xml2FlatCurry'46_'35lambda6_case_878 x4 x16 x32 x42 x41@(Curry.Module.Prelude.T2 x43 x44) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_877(x4)(x16)(x32)(x42)(x44)(x43)(st)+c_xml2FlatCurry'46_'35lambda6_case_878 x4 x16 x32 x42 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_878(x4)(x16)(x32)(x42)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_878 x4 x16 x32 x42 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_878")(x)++++c_xml2FlatCurry'46_'35lambda6_case_877 x4 x16 x32 x42 x44 x43@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_876(x4)(x16)(x32)(x42)(x44)(x46)(x45)(st)+c_xml2FlatCurry'46_'35lambda6_case_877 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_877(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_877 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_877")(x)++++c_xml2FlatCurry'46_'35lambda6_case_876 x4 x16 x32 x42 x44 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_875(x4)(x16)(x32)(x42)(x44)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_875 x4 x16 x32 x42 x44 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_874(x4)(x16)(x32)(x42)(x44)(x48)(x47)(st)+c_xml2FlatCurry'46_'35lambda6_case_875 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_875(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_875 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_875")(x)++++c_xml2FlatCurry'46_'35lambda6_case_874 x4 x16 x32 x42 x44 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_873(x4)(x16)(x32)(x42)(x44)(x48)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_873 x4 x16 x32 x42 x44 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_872(x4)(x16)(x32)(x42)(x44)(x50)(x49)(st)+c_xml2FlatCurry'46_'35lambda6_case_873 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_873(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_873 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_873")(x)++++c_xml2FlatCurry'46_'35lambda6_case_872 x4 x16 x32 x42 x44 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_871(x4)(x16)(x32)(x42)(x44)(x50)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_871 x4 x16 x32 x42 x44 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_870(x4)(x16)(x32)(x42)(x44)(x52)(x51)(st)+c_xml2FlatCurry'46_'35lambda6_case_871 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_871(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_871 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_871")(x)++++c_xml2FlatCurry'46_'35lambda6_case_870 x4 x16 x32 x42 x44 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_869(x4)(x16)(x32)(x42)(x44)(x52)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_869 x4 x16 x32 x42 x44 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_868(x4)(x16)(x32)(x42)(x44)(x54)(x53)(st)+c_xml2FlatCurry'46_'35lambda6_case_869 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_869(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_869 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_869")(x)++++c_xml2FlatCurry'46_'35lambda6_case_868 x4 x16 x32 x42 x44 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_867(x4)(x16)(x32)(x42)(x44)(x54)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda6_case_867 x4 x16 x32 x42 x44 x54@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_866(x4)(x16)(x32)(x44)(x42)(st)+c_xml2FlatCurry'46_'35lambda6_case_867 x4 x16 x32 x42 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_867(x4)(x16)(x32)(x42)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_867 x4 x16 x32 x42 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_867")(x)++++c_xml2FlatCurry'46_'35lambda6_case_866 x4 x16 x32 x44 x42@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_865(x4)(x16)(x32)(x44)(x55)(x56)(st)+c_xml2FlatCurry'46_'35lambda6_case_866 x4 x16 x32 x44 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_866(x4)(x16)(x32)(x44)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_866 x4 x16 x32 x44 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_866")(x)++++c_xml2FlatCurry'46_'35lambda6_case_865 x4 x16 x32 x44 x55 x56@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_864(x16)(x32)(x44)(x55)(x4)(st)+c_xml2FlatCurry'46_'35lambda6_case_865 x4 x16 x32 x44 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_865(x4)(x16)(x32)(x44)(x55)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_865 x4 x16 x32 x44 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_865")(x)++++c_xml2FlatCurry'46_'35lambda6_case_864 x16 x32 x44 x55 x4@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_863(x16)(x32)(x44)(x55)(x57)(x58)(st)+c_xml2FlatCurry'46_'35lambda6_case_864 x16 x32 x44 x55 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_864(x16)(x32)(x44)(x55)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_864 x16 x32 x44 x55 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_864")(x)++++c_xml2FlatCurry'46_'35lambda6_case_863 x16 x32 x44 x55 x57 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_862(x16)(x32)(x44)(x55)(x57)(x59)(x60)(st)+c_xml2FlatCurry'46_'35lambda6_case_863 x16 x32 x44 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_863(x16)(x32)(x44)(x55)(x57)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_863 x16 x32 x44 x55 x57 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_863")(x)++++c_xml2FlatCurry'46_'35lambda6_case_862 x16 x32 x44 x55 x57 x59 x60@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Func(Curry.Module.Prelude.T2(x16)(x32))(Curry.Module.Read.c_readNat(x44)(st))(Curry.Module.FlatCurryXML.c_xvis2vis(x55)(st))(Curry.Module.FlatCurryXML.c_flatx2texp(x57)(st))(Curry.Module.FlatCurryXML.c_flatx2FunBody(x59)(st))+c_xml2FlatCurry'46_'35lambda6_case_862 x16 x32 x44 x55 x57 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6_case_862(x16)(x32)(x44)(x55)(x57)(x59)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda6_case_862 x16 x32 x44 x55 x57 x59 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda6_case_862")(x)++++c_xml2FlatCurry'46_'35lambda5_case_928 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_927(x3)(x4)(x6)(x5)(st)+c_xml2FlatCurry'46_'35lambda5_case_928 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_928(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_928 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_928")(x)++++c_xml2FlatCurry'46_'35lambda5_case_927 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_926(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_926 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_925(x3)(x4)(x8)(x7)(st)+c_xml2FlatCurry'46_'35lambda5_case_926 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_926(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_926 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_926")(x)++++c_xml2FlatCurry'46_'35lambda5_case_925 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_924(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_924 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_923(x3)(x4)(x10)(x9)(st)+c_xml2FlatCurry'46_'35lambda5_case_924 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_924(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_924 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_924")(x)++++c_xml2FlatCurry'46_'35lambda5_case_923 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_922(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_922 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_921(x3)(x4)(x12)(x11)(st)+c_xml2FlatCurry'46_'35lambda5_case_922 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_922(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_922 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_922")(x)++++c_xml2FlatCurry'46_'35lambda5_case_921 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_920(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_920 x3 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_919(x3)(x4)(x14)(x13)(st)+c_xml2FlatCurry'46_'35lambda5_case_920 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_920(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_920 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_920")(x)++++c_xml2FlatCurry'46_'35lambda5_case_919 x3 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_918(x3)(x4)(x14)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_918 x3 x4 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_917(x3)(x4)(x16)(x15)(st)+c_xml2FlatCurry'46_'35lambda5_case_918 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_918(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_918 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_918")(x)++++c_xml2FlatCurry'46_'35lambda5_case_917 x3 x4 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_916(x3)(x4)(x16)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry'46_'35lambda5_case_916 x3 x4 x16@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_915(x4)(x3)(st)+c_xml2FlatCurry'46_'35lambda5_case_916 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_916(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_916 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_916")(x)++++c_xml2FlatCurry'46_'35lambda5_case_915 x4 x3@Curry.Module.Prelude.List st = Curry.Module.XML.c_textOfXml(x4)(st)+c_xml2FlatCurry'46_'35lambda5_case_915 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5_case_915(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry'46_'35lambda5_case_915 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry._#lambda5_case_915")(x)++++c_xml2FlatCurry_case_1029 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1028(x3)(x4)(x6)(x5)(st)+c_xml2FlatCurry_case_1029 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1029(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1029 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1029")(x)++++c_xml2FlatCurry_case_1028 x3 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1027(x3)(x4)(x6)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1027 x3 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1026(x3)(x4)(x8)(x7)(st)+c_xml2FlatCurry_case_1027 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1027(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1027 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1027")(x)++++c_xml2FlatCurry_case_1026 x3 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1025(x3)(x4)(x8)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1025 x3 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1024(x3)(x4)(x10)(x9)(st)+c_xml2FlatCurry_case_1025 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1025(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1025 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1025")(x)++++c_xml2FlatCurry_case_1024 x3 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1023(x3)(x4)(x10)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1023 x3 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1022(x3)(x4)(x12)(x11)(st)+c_xml2FlatCurry_case_1023 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1023(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1023 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1023")(x)++++c_xml2FlatCurry_case_1022 x3 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1021(x3)(x4)(x12)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1021 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1020(x4)(x3)(st)+c_xml2FlatCurry_case_1021 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1021(x3)(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1021 x3 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1021")(x)++++c_xml2FlatCurry_case_1020 x4 x3@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1019(x4)(st)+c_xml2FlatCurry_case_1020 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1020(x4)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1020 x4 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1020")(x)++++c_xml2FlatCurry_case_1019 x4@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1018(x14)(x13)(st)+c_xml2FlatCurry_case_1019 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1019(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1019 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1019")(x)++++c_xml2FlatCurry_case_1018 x14 x13@(Curry.Module.XML.C_XElem x15 x16 x17) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1017(x14)(x16)(x17)(x15)(st)+c_xml2FlatCurry_case_1018 x14 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1018(x14)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1018 x14 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1018")(x)++++c_xml2FlatCurry_case_1017 x14 x16 x17 x15@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1016(x14)(x16)(x17)(x19)(x18)(st)+c_xml2FlatCurry_case_1017 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1017(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1017 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1017")(x)++++c_xml2FlatCurry_case_1016 x14 x16 x17 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1015(x14)(x16)(x17)(x19)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1015 x14 x16 x17 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1014(x14)(x16)(x17)(x21)(x20)(st)+c_xml2FlatCurry_case_1015 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1015(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1015 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1015")(x)++++c_xml2FlatCurry_case_1014 x14 x16 x17 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1013(x14)(x16)(x17)(x21)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1013 x14 x16 x17 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1012(x14)(x16)(x17)(x23)(x22)(st)+c_xml2FlatCurry_case_1013 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1013(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1013 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1013")(x)++++c_xml2FlatCurry_case_1012 x14 x16 x17 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1011(x14)(x16)(x17)(x23)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1011 x14 x16 x17 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1010(x14)(x16)(x17)(x25)(x24)(st)+c_xml2FlatCurry_case_1011 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1011(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1011 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1011")(x)++++c_xml2FlatCurry_case_1010 x14 x16 x17 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1009(x14)(x16)(x17)(x25)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1009 x14 x16 x17 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1008(x14)(x16)(x17)(x27)(x26)(st)+c_xml2FlatCurry_case_1009 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1009(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1009 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1009")(x)++++c_xml2FlatCurry_case_1008 x14 x16 x17 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1007(x14)(x16)(x17)(x27)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1007 x14 x16 x17 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1006(x14)(x16)(x17)(x29)(x28)(st)+c_xml2FlatCurry_case_1007 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1007(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1007 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1007")(x)++++c_xml2FlatCurry_case_1006 x14 x16 x17 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1005(x14)(x16)(x17)(x29)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_1005 x14 x16 x17 x29@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1004(x14)(x17)(x16)(st)+c_xml2FlatCurry_case_1005 x14 x16 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1005(x14)(x16)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1005 x14 x16 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1005")(x)++++c_xml2FlatCurry_case_1004 x14 x17 x16@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1003(x17)(x14)(st)+c_xml2FlatCurry_case_1004 x14 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1004(x14)(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1004 x14 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1004")(x)++++c_xml2FlatCurry_case_1003 x17 x14@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1002(x17)(x31)(x30)(st)+c_xml2FlatCurry_case_1003 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1003(x17)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1003 x17 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1003")(x)++++c_xml2FlatCurry_case_1002 x17 x31 x30@(Curry.Module.XML.C_XElem x32 x33 x34) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1001(x17)(x31)(x33)(x34)(x32)(st)+c_xml2FlatCurry_case_1002 x17 x31 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1002(x17)(x31)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1002 x17 x31 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1002")(x)++++c_xml2FlatCurry_case_1001 x17 x31 x33 x34 x32@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1000(x17)(x31)(x33)(x34)(x36)(x35)(st)+c_xml2FlatCurry_case_1001 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_1001(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_1001 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_1001")(x)++++c_xml2FlatCurry_case_1000 x17 x31 x33 x34 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_999(x17)(x31)(x33)(x34)(x36)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_999 x17 x31 x33 x34 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_998(x17)(x31)(x33)(x34)(x38)(x37)(st)+c_xml2FlatCurry_case_999 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_999(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_999 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_999")(x)++++c_xml2FlatCurry_case_998 x17 x31 x33 x34 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_997(x17)(x31)(x33)(x34)(x38)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_997 x17 x31 x33 x34 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_996(x17)(x31)(x33)(x34)(x40)(x39)(st)+c_xml2FlatCurry_case_997 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_997(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_997 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_997")(x)++++c_xml2FlatCurry_case_996 x17 x31 x33 x34 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_995(x17)(x31)(x33)(x34)(x40)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_995 x17 x31 x33 x34 x40@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_994(x17)(x31)(x33)(x34)(x42)(x41)(st)+c_xml2FlatCurry_case_995 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_995(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_995 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_995")(x)++++c_xml2FlatCurry_case_994 x17 x31 x33 x34 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_993(x17)(x31)(x33)(x34)(x42)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_993 x17 x31 x33 x34 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_992(x17)(x31)(x33)(x34)(x44)(x43)(st)+c_xml2FlatCurry_case_993 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_993(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_993 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_993")(x)++++c_xml2FlatCurry_case_992 x17 x31 x33 x34 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_991(x17)(x31)(x33)(x34)(x44)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_991 x17 x31 x33 x34 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_990(x17)(x31)(x33)(x34)(x46)(x45)(st)+c_xml2FlatCurry_case_991 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_991(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_991 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_991")(x)++++c_xml2FlatCurry_case_990 x17 x31 x33 x34 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_989(x17)(x31)(x33)(x34)(x46)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_989 x17 x31 x33 x34 x46@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_988(x17)(x31)(x34)(x33)(st)+c_xml2FlatCurry_case_989 x17 x31 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_989(x17)(x31)(x33)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_989 x17 x31 x33 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_989")(x)++++c_xml2FlatCurry_case_988 x17 x31 x34 x33@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_987(x17)(x34)(x31)(st)+c_xml2FlatCurry_case_988 x17 x31 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_988(x17)(x31)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_988 x17 x31 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_988")(x)++++c_xml2FlatCurry_case_987 x17 x34 x31@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_986(x17)(x34)(x48)(x47)(st)+c_xml2FlatCurry_case_987 x17 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_987(x17)(x34)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_987 x17 x34 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_987")(x)++++c_xml2FlatCurry_case_986 x17 x34 x48 x47@(Curry.Module.XML.C_XElem x49 x50 x51) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_985(x17)(x34)(x48)(x50)(x51)(x49)(st)+c_xml2FlatCurry_case_986 x17 x34 x48 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_986(x17)(x34)(x48)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_986 x17 x34 x48 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_986")(x)++++c_xml2FlatCurry_case_985 x17 x34 x48 x50 x51 x49@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_984(x17)(x34)(x48)(x50)(x51)(x53)(x52)(st)+c_xml2FlatCurry_case_985 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_985(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_985 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_985")(x)++++c_xml2FlatCurry_case_984 x17 x34 x48 x50 x51 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_983(x17)(x34)(x48)(x50)(x51)(x53)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_983 x17 x34 x48 x50 x51 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_982(x17)(x34)(x48)(x50)(x51)(x55)(x54)(st)+c_xml2FlatCurry_case_983 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_983(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_983 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_983")(x)++++c_xml2FlatCurry_case_982 x17 x34 x48 x50 x51 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_981(x17)(x34)(x48)(x50)(x51)(x55)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_981 x17 x34 x48 x50 x51 x55@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_980(x17)(x34)(x48)(x50)(x51)(x57)(x56)(st)+c_xml2FlatCurry_case_981 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_981(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_981 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_981")(x)++++c_xml2FlatCurry_case_980 x17 x34 x48 x50 x51 x57 x56 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x56)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_979(x17)(x34)(x48)(x50)(x51)(x57)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_979 x17 x34 x48 x50 x51 x57@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_978(x17)(x34)(x48)(x50)(x51)(x59)(x58)(st)+c_xml2FlatCurry_case_979 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_979(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_979 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_979")(x)++++c_xml2FlatCurry_case_978 x17 x34 x48 x50 x51 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_977(x17)(x34)(x48)(x50)(x51)(x59)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_977 x17 x34 x48 x50 x51 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_976(x17)(x34)(x48)(x50)(x51)(x61)(x60)(st)+c_xml2FlatCurry_case_977 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_977(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_977 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_977")(x)++++c_xml2FlatCurry_case_976 x17 x34 x48 x50 x51 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_975(x17)(x34)(x48)(x50)(x51)(x61)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_975 x17 x34 x48 x50 x51 x61@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_974(x17)(x34)(x48)(x51)(x50)(st)+c_xml2FlatCurry_case_975 x17 x34 x48 x50 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_975(x17)(x34)(x48)(x50)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_975 x17 x34 x48 x50 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_975")(x)++++c_xml2FlatCurry_case_974 x17 x34 x48 x51 x50@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_973(x17)(x34)(x51)(x48)(st)+c_xml2FlatCurry_case_974 x17 x34 x48 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_974(x17)(x34)(x48)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_974 x17 x34 x48 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_974")(x)++++c_xml2FlatCurry_case_973 x17 x34 x51 x48@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_972(x17)(x34)(x51)(x63)(x62)(st)+c_xml2FlatCurry_case_973 x17 x34 x51 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_973(x17)(x34)(x51)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_973 x17 x34 x51 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_973")(x)++++c_xml2FlatCurry_case_972 x17 x34 x51 x63 x62@(Curry.Module.XML.C_XElem x64 x65 x66) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_971(x17)(x34)(x51)(x63)(x65)(x66)(x64)(st)+c_xml2FlatCurry_case_972 x17 x34 x51 x63 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_972(x17)(x34)(x51)(x63)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_972 x17 x34 x51 x63 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_972")(x)++++c_xml2FlatCurry_case_971 x17 x34 x51 x63 x65 x66 x64@((Curry.Module.Prelude.:<) x67 x68) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_970(x17)(x34)(x51)(x63)(x65)(x66)(x68)(x67)(st)+c_xml2FlatCurry_case_971 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_971(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_971 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_971")(x)++++c_xml2FlatCurry_case_970 x17 x34 x51 x63 x65 x66 x68 x67 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x67)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_969(x17)(x34)(x51)(x63)(x65)(x66)(x68)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_969 x17 x34 x51 x63 x65 x66 x68@((Curry.Module.Prelude.:<) x69 x70) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_968(x17)(x34)(x51)(x63)(x65)(x66)(x70)(x69)(st)+c_xml2FlatCurry_case_969 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_969(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_969 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_969")(x)++++c_xml2FlatCurry_case_968 x17 x34 x51 x63 x65 x66 x70 x69 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x69)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_967(x17)(x34)(x51)(x63)(x65)(x66)(x70)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_967 x17 x34 x51 x63 x65 x66 x70@((Curry.Module.Prelude.:<) x71 x72) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_966(x17)(x34)(x51)(x63)(x65)(x66)(x72)(x71)(st)+c_xml2FlatCurry_case_967 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_967(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_967 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_967")(x)++++c_xml2FlatCurry_case_966 x17 x34 x51 x63 x65 x66 x72 x71 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x71)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_965(x17)(x34)(x51)(x63)(x65)(x66)(x72)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_965 x17 x34 x51 x63 x65 x66 x72@((Curry.Module.Prelude.:<) x73 x74) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_964(x17)(x34)(x51)(x63)(x65)(x66)(x74)(x73)(st)+c_xml2FlatCurry_case_965 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_965(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_965 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_965")(x)++++c_xml2FlatCurry_case_964 x17 x34 x51 x63 x65 x66 x74 x73 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x73)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_963(x17)(x34)(x51)(x63)(x65)(x66)(x74)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_963 x17 x34 x51 x63 x65 x66 x74@((Curry.Module.Prelude.:<) x75 x76) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_962(x17)(x34)(x51)(x63)(x65)(x66)(x76)(x75)(st)+c_xml2FlatCurry_case_963 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_963(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_963 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_963")(x)++++c_xml2FlatCurry_case_962 x17 x34 x51 x63 x65 x66 x76 x75 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x75)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_961(x17)(x34)(x51)(x63)(x65)(x66)(x76)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_961 x17 x34 x51 x63 x65 x66 x76@((Curry.Module.Prelude.:<) x77 x78) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_960(x17)(x34)(x51)(x63)(x65)(x66)(x78)(x77)(st)+c_xml2FlatCurry_case_961 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_961(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_961 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_961")(x)++++c_xml2FlatCurry_case_960 x17 x34 x51 x63 x65 x66 x78 x77 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x77)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_959(x17)(x34)(x51)(x63)(x65)(x66)(x78)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_959 x17 x34 x51 x63 x65 x66 x78@((Curry.Module.Prelude.:<) x79 x80) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_958(x17)(x34)(x51)(x63)(x65)(x66)(x80)(x79)(st)+c_xml2FlatCurry_case_959 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_959(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_959 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_959")(x)++++c_xml2FlatCurry_case_958 x17 x34 x51 x63 x65 x66 x80 x79 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x79)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_957(x17)(x34)(x51)(x63)(x65)(x66)(x80)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_957 x17 x34 x51 x63 x65 x66 x80@((Curry.Module.Prelude.:<) x81 x82) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_956(x17)(x34)(x51)(x63)(x65)(x66)(x82)(x81)(st)+c_xml2FlatCurry_case_957 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_957(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_957 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_957")(x)++++c_xml2FlatCurry_case_956 x17 x34 x51 x63 x65 x66 x82 x81 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x81)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_955(x17)(x34)(x51)(x63)(x65)(x66)(x82)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_955 x17 x34 x51 x63 x65 x66 x82@((Curry.Module.Prelude.:<) x83 x84) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_954(x17)(x34)(x51)(x63)(x65)(x66)(x84)(x83)(st)+c_xml2FlatCurry_case_955 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_955(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_955 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_955")(x)++++c_xml2FlatCurry_case_954 x17 x34 x51 x63 x65 x66 x84 x83 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x83)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_953(x17)(x34)(x51)(x63)(x65)(x66)(x84)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_953 x17 x34 x51 x63 x65 x66 x84@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_952(x17)(x34)(x51)(x63)(x66)(x65)(st)+c_xml2FlatCurry_case_953 x17 x34 x51 x63 x65 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_953(x17)(x34)(x51)(x63)(x65)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_953 x17 x34 x51 x63 x65 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_953")(x)++++c_xml2FlatCurry_case_952 x17 x34 x51 x63 x66 x65@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_951(x17)(x34)(x51)(x66)(x63)(st)+c_xml2FlatCurry_case_952 x17 x34 x51 x63 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_952(x17)(x34)(x51)(x63)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_952 x17 x34 x51 x63 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_952")(x)++++c_xml2FlatCurry_case_951 x17 x34 x51 x66 x63@((Curry.Module.Prelude.:<) x85 x86) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_950(x17)(x34)(x51)(x66)(x86)(x85)(st)+c_xml2FlatCurry_case_951 x17 x34 x51 x66 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_951(x17)(x34)(x51)(x66)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_951 x17 x34 x51 x66 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_951")(x)++++c_xml2FlatCurry_case_950 x17 x34 x51 x66 x86 x85@(Curry.Module.XML.C_XElem x87 x88 x89) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_949(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x87)(st)+c_xml2FlatCurry_case_950 x17 x34 x51 x66 x86 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_950(x17)(x34)(x51)(x66)(x86)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_950 x17 x34 x51 x66 x86 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_950")(x)++++c_xml2FlatCurry_case_949 x17 x34 x51 x66 x86 x88 x89 x87@((Curry.Module.Prelude.:<) x90 x91) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_948(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x91)(x90)(st)+c_xml2FlatCurry_case_949 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_949(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_949 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_949")(x)++++c_xml2FlatCurry_case_948 x17 x34 x51 x66 x86 x88 x89 x91 x90 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x90)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_947(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x91)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_947 x17 x34 x51 x66 x86 x88 x89 x91@((Curry.Module.Prelude.:<) x92 x93) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_946(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x93)(x92)(st)+c_xml2FlatCurry_case_947 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_947(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_947 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_947")(x)++++c_xml2FlatCurry_case_946 x17 x34 x51 x66 x86 x88 x89 x93 x92 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x92)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_945(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x93)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_945 x17 x34 x51 x66 x86 x88 x89 x93@((Curry.Module.Prelude.:<) x94 x95) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_944(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x95)(x94)(st)+c_xml2FlatCurry_case_945 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_945(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_945 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_945")(x)++++c_xml2FlatCurry_case_944 x17 x34 x51 x66 x86 x88 x89 x95 x94 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x94)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_943(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x95)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_943 x17 x34 x51 x66 x86 x88 x89 x95@((Curry.Module.Prelude.:<) x96 x97) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_942(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x97)(x96)(st)+c_xml2FlatCurry_case_943 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_943(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_943 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_943")(x)++++c_xml2FlatCurry_case_942 x17 x34 x51 x66 x86 x88 x89 x97 x96 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x96)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_941(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x97)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_941 x17 x34 x51 x66 x86 x88 x89 x97@((Curry.Module.Prelude.:<) x98 x99) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_940(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x99)(x98)(st)+c_xml2FlatCurry_case_941 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_941(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_941 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_941")(x)++++c_xml2FlatCurry_case_940 x17 x34 x51 x66 x86 x88 x89 x99 x98 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x98)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_939(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x99)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_939 x17 x34 x51 x66 x86 x88 x89 x99@((Curry.Module.Prelude.:<) x100 x101) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_938(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x101)(x100)(st)+c_xml2FlatCurry_case_939 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_939(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_939 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_939")(x)++++c_xml2FlatCurry_case_938 x17 x34 x51 x66 x86 x88 x89 x101 x100 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x100)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_937(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x101)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_937 x17 x34 x51 x66 x86 x88 x89 x101@((Curry.Module.Prelude.:<) x102 x103) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_936(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x103)(x102)(st)+c_xml2FlatCurry_case_937 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_937(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_937 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_937")(x)++++c_xml2FlatCurry_case_936 x17 x34 x51 x66 x86 x88 x89 x103 x102 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x102)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_935(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x103)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_935 x17 x34 x51 x66 x86 x88 x89 x103@((Curry.Module.Prelude.:<) x104 x105) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_934(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x105)(x104)(st)+c_xml2FlatCurry_case_935 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_935(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_935 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_935")(x)++++c_xml2FlatCurry_case_934 x17 x34 x51 x66 x86 x88 x89 x105 x104 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x104)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_933(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x105)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_933 x17 x34 x51 x66 x86 x88 x89 x105@((Curry.Module.Prelude.:<) x106 x107) st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_932(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x107)(x106)(st)+c_xml2FlatCurry_case_933 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_933(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_933 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_933")(x)++++c_xml2FlatCurry_case_932 x17 x34 x51 x66 x86 x88 x89 x107 x106 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x106)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_931(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x107)(st))(Curry.Module.Prelude.c_failed(st))(st)++++c_xml2FlatCurry_case_931 x17 x34 x51 x66 x86 x88 x89 x107@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_930(x17)(x34)(x51)(x66)(x86)(x89)(x88)(st)+c_xml2FlatCurry_case_931 x17 x34 x51 x66 x86 x88 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_931(x17)(x34)(x51)(x66)(x86)(x88)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_931 x17 x34 x51 x66 x86 x88 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_931")(x)++++c_xml2FlatCurry_case_930 x17 x34 x51 x66 x86 x89 x88@Curry.Module.Prelude.List st = Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_929(x17)(x34)(x51)(x66)(x89)(x86)(st)+c_xml2FlatCurry_case_930 x17 x34 x51 x66 x86 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_930(x17)(x34)(x51)(x66)(x86)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_930 x17 x34 x51 x66 x86 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_930")(x)++++c_xml2FlatCurry_case_929 x17 x34 x51 x66 x89 x86@Curry.Module.Prelude.List st = Curry.Module.FlatCurry.C_Prog(Curry.Module.XML.c_textOfXml(x17)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda5))(x34)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_flatx2typedecl))(x51)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda6))(x66)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xml2FlatCurry'46_'35lambda7))(x89)(st))+c_xml2FlatCurry_case_929 x17 x34 x51 x66 x89 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xml2FlatCurry_case_929(x17)(x34)(x51)(x66)(x89)(x)(st))(i)(xs)(st)+c_xml2FlatCurry_case_929 x17 x34 x51 x66 x89 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xml2FlatCurry_case_929")(x)++++c_xmlShowBranch_case_1030 x3 x2@(Curry.Module.FlatCurry.C_Pattern x4 x5) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x4)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowVar))(x5)(st)))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x3)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowBranch_case_1030 x3 x2@(Curry.Module.FlatCurry.C_LPattern x6) st = Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowLit(x6)(st))(Curry.Module.Prelude.List))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryXML.c_xmlShowExpr(x3)(st))(Curry.Module.Prelude.List)))(st)+c_xmlShowBranch_case_1030 x3 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowBranch_case_1030(x3)(x)(st))(i)(xs)(st)+c_xmlShowBranch_case_1030 x3 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowBranch_case_1030")(x)++++c_xmlShowExpr_case_1031 x13 x14@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))+c_xmlShowExpr_case_1031 x13 x14@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))+c_xmlShowExpr_case_1031 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowExpr_case_1031(x13)(x)(st))(i)(xs)(st)+c_xmlShowExpr_case_1031 x13 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowExpr_case_1031")(x)++++c_xmlShowExpr_case_1032 x5 x6 x4@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x5)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowExpr))(x6)(st))+c_xmlShowExpr_case_1032 x5 x6 x4@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x5)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowExpr))(x6)(st))+c_xmlShowExpr_case_1032 x5 x6 x4@(Curry.Module.FlatCurry.C_FuncPartCall x7) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.c_show(x7)(st)))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowExpr))(x6)(st))+c_xmlShowExpr_case_1032 x5 x6 x4@(Curry.Module.FlatCurry.C_ConsPartCall x8) st = Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatCurryXML.c_qname2xmlattrs(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.c_show(x8)(st)))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatCurryXML.c_xmlShowExpr))(x6)(st))+c_xmlShowExpr_case_1032 x5 x6 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatCurryXML.c_xmlShowExpr_case_1032(x5)(x6)(x)(st))(i)(xs)(st)+c_xmlShowExpr_case_1032 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatCurryXML.xmlShowExpr_case_1032")(x)++
+ dist/build/Curry/Module/FlexRigid.hs view
@@ -0,0 +1,175 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlexRigid (module Curry.Module.FlexRigid) where++import Curry.RunTimeSystem+import Curry.Module.FlatCurry+import Curry.Module.Prelude++++-- begin included++++-- end included++data C_FlexRigidResult = C_UnknownFR+  | C_ConflictFR+  | C_KnownFlex+  | C_KnownRigid+  | C_FlexRigidResultFail Curry.RunTimeSystem.C_Exceptions+  | C_FlexRigidResultOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.FlexRigid.C_FlexRigidResult)++instance BaseCurry Curry.Module.FlexRigid.C_FlexRigidResult where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.FlexRigid.C_FlexRigidResultOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.FlexRigid.C_UnknownFR,Curry.Module.FlexRigid.C_ConflictFR,Curry.Module.FlexRigid.C_KnownFlex,Curry.Module.FlexRigid.C_KnownRigid]))(0)++  failed  = Curry.Module.FlexRigid.C_FlexRigidResultFail++  branching  = Curry.Module.FlexRigid.C_FlexRigidResultOr++  consKind (Curry.Module.FlexRigid.C_FlexRigidResultOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.FlexRigid.C_FlexRigidResultFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.FlexRigid.C_FlexRigidResultFail x) = x++  orRef (Curry.Module.FlexRigid.C_FlexRigidResultOr x _) = x++  branches (Curry.Module.FlexRigid.C_FlexRigidResultOr _ x) = x++++++instance Curry Curry.Module.FlexRigid.C_FlexRigidResult where+  strEq Curry.Module.FlexRigid.C_UnknownFR Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlexRigid.C_ConflictFR Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlexRigid.C_KnownFlex Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.FlexRigid.C_KnownRigid Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.FlexRigid.C_UnknownFR Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlexRigid.C_ConflictFR Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlexRigid.C_KnownFlex Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.Prelude.C_True+  eq Curry.Module.FlexRigid.C_KnownRigid Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.FlexRigid.C_UnknownFR+  propagate f Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.FlexRigid.C_ConflictFR+  propagate f Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.FlexRigid.C_KnownFlex+  propagate f Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.FlexRigid.C_KnownRigid++  foldCurry f c Curry.Module.FlexRigid.C_UnknownFR st = c+  foldCurry f c Curry.Module.FlexRigid.C_ConflictFR st = c+  foldCurry f c Curry.Module.FlexRigid.C_KnownFlex st = c+  foldCurry f c Curry.Module.FlexRigid.C_KnownRigid st = c++  typeName _ = "FlexRigidResult"++  showQ _ Curry.Module.FlexRigid.C_UnknownFR = Prelude.showString("FlexRigid.UnknownFR")+  showQ _ Curry.Module.FlexRigid.C_ConflictFR = Prelude.showString("FlexRigid.ConflictFR")+  showQ _ Curry.Module.FlexRigid.C_KnownFlex = Prelude.showString("FlexRigid.KnownFlex")+  showQ _ Curry.Module.FlexRigid.C_KnownRigid = Prelude.showString("FlexRigid.KnownRigid")+  showQ _ (Curry.Module.FlexRigid.C_FlexRigidResultOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.FlexRigid.C_FlexRigidResult where+  showsPrec _ Curry.Module.FlexRigid.C_UnknownFR = Prelude.showString("UnknownFR")+  showsPrec _ Curry.Module.FlexRigid.C_ConflictFR = Prelude.showString("ConflictFR")+  showsPrec _ Curry.Module.FlexRigid.C_KnownFlex = Prelude.showString("KnownFlex")+  showsPrec _ Curry.Module.FlexRigid.C_KnownRigid = Prelude.showString("KnownRigid")+  showsPrec _ (Curry.Module.FlexRigid.C_FlexRigidResultOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.FlexRigid.C_FlexRigidResult where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlexRigid.C_UnknownFR)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlexRigid")("UnknownFR")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlexRigid.C_ConflictFR)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlexRigid")("ConflictFR")(r)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlexRigid.C_KnownFlex)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlexRigid")("KnownFlex")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.FlexRigid.C_KnownRigid)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("FlexRigid")("KnownRigid")(r)])(r))))++++++c_getFlexRigid :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlexRigid.C_FlexRigidResult+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Var x2) st = Curry.Module.FlexRigid.C_UnknownFR+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.FlexRigid.C_UnknownFR+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlexRigid.c_joinCaseTypes))(Curry.Module.FlexRigid.C_UnknownFR)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlexRigid.c_getFlexRigid))(x6)(st))(st)+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Let x7 x8) st = Curry.Module.FlexRigid.c_getFlexRigid(x8)(st)+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Free x9 x10) st = Curry.Module.FlexRigid.c_getFlexRigid(x10)(st)+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Or x11 x12) st = Curry.Module.FlexRigid.c_joinCaseTypes(Curry.Module.FlexRigid.c_getFlexRigid(x11)(st))(Curry.Module.FlexRigid.c_getFlexRigid(x12)(st))(st)+c_getFlexRigid x1@(Curry.Module.FlatCurry.C_Case x13 x14 x15) st = Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlexRigid.c_joinCaseTypes))(Curry.Module.FlexRigid.c_getFlexRigid_case_4(x13)(Curry.Module.Prelude.op_61_61(x13)(Curry.Module.FlatCurry.C_Flex)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlexRigid.c_getFlexRigid))((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlexRigid.c_getFlexRigid'46_'35lambda2))(x15)(st)))(st))(st)+c_getFlexRigid (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_getFlexRigid(x)(st))(i)(xs)(st)+c_getFlexRigid x st = Curry.RunTimeSystem.patternFail("FlexRigid.getFlexRigid")(x)++++c_getFlexRigid'46_'35lambda2 :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_getFlexRigid'46_'35lambda2 x1@(Curry.Module.FlatCurry.C_Branch x2 x3) st = x3+c_getFlexRigid'46_'35lambda2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_getFlexRigid'46_'35lambda2(x)(st))(i)(xs)(st)+c_getFlexRigid'46_'35lambda2 x st = Curry.RunTimeSystem.patternFail("FlexRigid.getFlexRigid._#lambda2")(x)++++c_joinCaseTypes :: Curry.Module.FlexRigid.C_FlexRigidResult -> Curry.Module.FlexRigid.C_FlexRigidResult -> Curry.RunTimeSystem.State -> Curry.Module.FlexRigid.C_FlexRigidResult+c_joinCaseTypes x1@Curry.Module.FlexRigid.C_ConflictFR x2 st = Curry.Module.FlexRigid.c_joinCaseTypes_case_3(x2)(st)+c_joinCaseTypes x1@Curry.Module.FlexRigid.C_UnknownFR x2 st = Curry.Module.FlexRigid.c_joinCaseTypes_case_2(x2)(st)+c_joinCaseTypes x1@Curry.Module.FlexRigid.C_KnownFlex x2 st = Curry.Module.FlexRigid.c_joinCaseTypes_case_1(x2)(st)+c_joinCaseTypes x1@Curry.Module.FlexRigid.C_KnownRigid x2 st = Curry.Module.FlexRigid.c_joinCaseTypes_case_0(x2)(st)+c_joinCaseTypes (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_joinCaseTypes(x)(x2)(st))(i)(xs)(st)+c_joinCaseTypes x x2 st = Curry.RunTimeSystem.patternFail("FlexRigid.joinCaseTypes")(x)++++c_joinCaseTypes_case_0 x2@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_0 x2@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.FlexRigid.C_KnownRigid+c_joinCaseTypes_case_0 x2@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_0 x2@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.FlexRigid.C_KnownRigid+c_joinCaseTypes_case_0 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_joinCaseTypes_case_0(x)(st))(i)(xs)(st)+c_joinCaseTypes_case_0 x st = Curry.RunTimeSystem.patternFail("FlexRigid.joinCaseTypes_case_0")(x)++++c_joinCaseTypes_case_1 x2@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_1 x2@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.FlexRigid.C_KnownFlex+c_joinCaseTypes_case_1 x2@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.FlexRigid.C_KnownFlex+c_joinCaseTypes_case_1 x2@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_1 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_joinCaseTypes_case_1(x)(st))(i)(xs)(st)+c_joinCaseTypes_case_1 x st = Curry.RunTimeSystem.patternFail("FlexRigid.joinCaseTypes_case_1")(x)++++c_joinCaseTypes_case_2 x2@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_2 x2@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.FlexRigid.C_UnknownFR+c_joinCaseTypes_case_2 x2@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.FlexRigid.C_KnownFlex+c_joinCaseTypes_case_2 x2@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.FlexRigid.C_KnownRigid+c_joinCaseTypes_case_2 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_joinCaseTypes_case_2(x)(st))(i)(xs)(st)+c_joinCaseTypes_case_2 x st = Curry.RunTimeSystem.patternFail("FlexRigid.joinCaseTypes_case_2")(x)++++c_joinCaseTypes_case_3 x2@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_3 x2@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_3 x2@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_3 x2@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.FlexRigid.C_ConflictFR+c_joinCaseTypes_case_3 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_joinCaseTypes_case_3(x)(st))(i)(xs)(st)+c_joinCaseTypes_case_3 x st = Curry.RunTimeSystem.patternFail("FlexRigid.joinCaseTypes_case_3")(x)++++c_getFlexRigid_case_4 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.FlexRigid.C_KnownFlex+c_getFlexRigid_case_4 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.FlexRigid.C_KnownRigid+c_getFlexRigid_case_4 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlexRigid.c_getFlexRigid_case_4(x13)(x)(st))(i)(xs)(st)+c_getFlexRigid_case_4 x13 x st = Curry.RunTimeSystem.patternFail("FlexRigid.getFlexRigid_case_4")(x)++
+ dist/build/Curry/Module/PrettyFlat.hs view
@@ -0,0 +1,1124 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.PrettyFlat (module Curry.Module.PrettyFlat) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Pretty+import Curry.Module.StyledText+import Curry.Module.System++++-- begin included++++-- end included++type C_Precs = Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)++c_prelude :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prelude st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))++++c_arrow :: Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_arrow st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))(st))(st)++++c_bar :: Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_bar st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_char(Curry.Module.Prelude.C_Char('|'))(st))(st)++++c_dcolon :: Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_dcolon st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(st))(st)++++c_precFillEncloseSep :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Pretty.C_Doc -> Curry.Module.Pretty.C_Doc -> Curry.Module.Pretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_precFillEncloseSep x1 x2 x3 x4 x5 x6 st = Curry.Module.Pretty.c_fillEncloseSep(Curry.Module.PrettyFlat.c_precFillEncloseSep'46pre'4611(x1)(x2)(x3)(st))(Curry.Module.PrettyFlat.c_precFillEncloseSep'46pre'4611(x1)(x2)(x4)(st))(x5)(x6)(st)++++c_precFillEncloseSep'46pre'4611 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_precFillEncloseSep'46pre'4611 x1 x2 x3 st = Curry.Module.PrettyFlat.c_precFillEncloseSep'46pre'4611_case_90(x1)(x2)(x3)(Curry.Module.Prelude.op_60(x1)(x2)(st))(st)++++c_isInfixName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isInfixName x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))(Curry.Module.PrettyFlat.c_infixIDs(st))))(st))(x3)(st)+c_isInfixName (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_isInfixName(x)(st))(i)(xs)(st)+c_isInfixName x st = Curry.RunTimeSystem.patternFail("PrettyFlat.isInfixName")(x)++++c_infixIDs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))))))))))))))))))))++++c_isTupleName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTupleName x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.PrettyFlat.c_prelude(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)))(st))(st)+c_isTupleName (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_isTupleName(x)(st))(i)(xs)(st)+c_isTupleName x st = Curry.RunTimeSystem.patternFail("PrettyFlat.isTupleName")(x)++++c_showStyledProg :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showStyledProg st = Curry.Module.PrettyFlat.c_prettyProg(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))(st)++++c_prettyProg :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_prettyProg x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_pretty(x1)))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_progDoc))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_updProgExps(st))(Curry.Module.PrettyFlat.c_elimApp(st))(st))(st))(st)++++c_prettyTypeExpr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_prettyTypeExpr x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_False)))(st)++++c_prettyTypes :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_prettyTypes x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))(Curry.Module.PrettyFlat.c_typesDoc(x1)(st))(st)++++c_prettyOps :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_prettyOps st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_opsDoc))(st)++++c_showProg :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showProg st = Curry.Module.Prelude.op_46(Curry.Module.StyledText.c_plainText(st))(Curry.Module.PrettyFlat.c_showStyledProg(st))(st)++++c_printStyledProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_printStyledProg x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurry(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.StyledText.c_printStyledText(st))(Curry.Module.PrettyFlat.c_showStyledProg(st))(st))(st)++++c_mainPrint :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_mainPrint st = Curry.Module.Prelude.op_62_62_61(Curry.Module.System.c_getArgs(st))(Curry.Module.Prelude.c_mapIO_(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_printProg))(st))(st)++++c_printProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_printProg x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurryFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_putStrLn))(Curry.Module.PrettyFlat.c_showProg(st))(st))(st)++++c_keyword :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_keyword st = Curry.Module.Prelude.op_46(Curry.Module.StyledText.c_magentaDoc(st))(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_text))(st)++++c_consname :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_consname st = Curry.Module.Prelude.op_46(Curry.Module.StyledText.c_greenDoc(st))(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_text))(st)++++c_operator :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_operator st = Curry.Module.StyledText.c_blueDoc(st)++++c_literal :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_literal st = Curry.Module.StyledText.c_cyanDoc(st)++++c_marked :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_marked st = Curry.Module.Prelude.op_46(Curry.Module.StyledText.c_bgYellowDoc(st))(Curry.Module.StyledText.c_boldDoc(st))(st)++++c_block :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_block st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_group))(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))(st)++++c_def :: Curry.Module.Pretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_def x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_block(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Pretty.op_60_62(x1)(Curry.Module.PrettyFlat.c_def_case_89(x2)(Curry.Module.Prelude.c_null(x2)(st))(st))(st))(st))(x3)(st))(st)++++c_app :: Curry.Module.Pretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_app x1 x2 st = Curry.Module.PrettyFlat.c_app_case_88(x1)(x2)(Curry.Module.Prelude.c_null(x2)(st))(st)++++c_layout :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_layout st = Curry.Module.Prelude.op_46(Curry.Module.Pretty.c_align(st))(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Pretty.c_combine(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_linesep(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(st))))))(st)++++c_qname :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_qname x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.PrettyFlat.c_qname_case_87(x1)(x2)(x3)(x4)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(Curry.Module.PrettyFlat.c_isTupleName(x2)(st))(st))(st)+c_qname x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname(x1)(x)(st))(i)(xs)(st)+c_qname x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname")(x)++++c_qname'46txt'4665 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_qname'46txt'4665 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.PrettyFlat.c_qname'46txt'4665_case_82(x2)(x3)(Curry.Module.Char.c_isUpper(x2)(st))(st)+c_qname'46txt'4665 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname'46txt'4665(x)(st))(i)(xs)(st)+c_qname'46txt'4665 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname.txt.65")(x)++++c_correctName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_correctName x1 st = let {x2 = Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_not))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))(st))(x1)(st)} in Curry.Module.PrettyFlat.c_correctName_case_81(x2)(st)++++op_60_36_62_62 :: Curry.Module.Pretty.C_Doc -> Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+op_60_36_62_62 x1 x2 st = Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(x1)(st))(Curry.Module.Pretty.c_line(st))(st))(x2)(st)++++c_progDoc :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_progDoc x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.PrettyFlat.op_60_36_62_62(Curry.Module.PrettyFlat.op_60_36_62_62(Curry.Module.PrettyFlat.op_60_36_62_62(Curry.Module.PrettyFlat.op_60_36_62_62(Curry.Module.PrettyFlat.c_moduleHeaderDoc(x2)(Curry.Module.PrettyFlat.c_exportedNames(x2)(x1)(st))(st))(Curry.Module.PrettyFlat.c_impsDoc(x3)(st))(st))(Curry.Module.PrettyFlat.c_opsDoc(x6)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_typesDoc(x2)(st))(x4)(st))(st))(Curry.Module.PrettyFlat.c_funcsDoc(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_precs(st))(x6)(st))(x2)(x5)(st))(st)+c_progDoc (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_progDoc(x)(st))(i)(xs)(st)+c_progDoc x st = Curry.RunTimeSystem.patternFail("PrettyFlat.progDoc")(x)++++c_precs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int))+c_precs st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_precs'46_'35lambda3)))++++c_precs'46_'35lambda3 :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int+c_precs'46_'35lambda3 x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.Prelude.T2(x2)(x4)+c_precs'46_'35lambda3 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_precs'46_'35lambda3(x)(st))(i)(xs)(st)+c_precs'46_'35lambda3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.precs._#lambda3")(x)++++c_exportedNames :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc+c_exportedNames x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_exportedNames'46typeExpDoc'4689(x1)))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(Curry.Module.FlatCurry.C_Public)))(Curry.Module.FlatCurryGoodies.c_typeVisibility(st))(st))(x5)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_qname(x1)))(Curry.Module.FlatCurryGoodies.c_funcName(st))(st))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(Curry.Module.FlatCurry.C_Public)))(Curry.Module.FlatCurryGoodies.c_funcVisibility(st))(st))(x6)(st))(st))(st)+c_exportedNames x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_exportedNames(x1)(x)(st))(i)(xs)(st)+c_exportedNames x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.exportedNames")(x)++++c_exportedNames'46typeExpDoc'4689 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_exportedNames'46typeExpDoc'4689 x1 x2 st = Curry.Module.Pretty.op_60_62(Curry.Module.PrettyFlat.c_qname(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_typeName(st))(x2)(st))(st))(Curry.Module.PrettyFlat.c_exportedNames'46typeExpDoc'4689_case_79(x2)(Curry.Module.Prelude.c_null(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(Curry.Module.FlatCurry.C_Public)))(Curry.Module.FlatCurryGoodies.c_consVisibility(st))(st))(Curry.Module.FlatCurryGoodies.c_trType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.PrettyFlat.c_exportedNames'46typeExpDoc'4689'46_'35lambda4))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))(Curry.Module.PrettyFlat.c_exportedNames'46typeExpDoc'4689'46_'35lambda5))(x2)(st))(st))(st))(st))(st)++++c_exportedNames'46typeExpDoc'4689'46_'35lambda4 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl+c_exportedNames'46typeExpDoc'4689'46_'35lambda4 x1 x2 x3 x4 st = x4++++c_exportedNames'46typeExpDoc'4689'46_'35lambda5 :: (Curry t1) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_exportedNames'46typeExpDoc'4689'46_'35lambda5 x1 x2 x3 x4 st = Curry.Module.Prelude.List++++c_moduleHeaderDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_moduleHeaderDoc x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consname(st))(x1)(st))(st))(st))(Curry.Module.PrettyFlat.c_exportsDoc(x2)(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(st))(st)++++c_exportsDoc :: (Curry.Module.Prelude.List Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_exportsDoc x1 st = Curry.Module.Pretty.c_group(Curry.Module.Pretty.c_nest(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Pretty.c_lparen(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_fillSep(st))(Curry.Module.Pretty.c_punctuate(Curry.Module.Pretty.c_comma(st))(x1)(st))(st))(st))(st))(st))(Curry.Module.Pretty.c_rparen(st))(st))(st))(st)++++c_impsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_impsDoc x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_vcat(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.PrettyFlat.c_consname(st))(st))(x1)(st))(st)++++c_opsDoc :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_opsDoc x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_vcat(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_opDoc))(x1)(st))(st)++++c_opDoc :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_opDoc x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.PrettyFlat.c_opDoc_case_78(x3)(x4)(x2)(st)+c_opDoc (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_opDoc(x)(st))(i)(xs)(st)+c_opDoc x st = Curry.RunTimeSystem.patternFail("PrettyFlat.opDoc")(x)++++c_opDoc'46fixDoc'46114 :: Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_opDoc'46fixDoc'46114 x1@Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.Pretty.c_empty(st)+c_opDoc'46fixDoc'46114 x1@Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))(st)+c_opDoc'46fixDoc'46114 x1@Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))(st)+c_opDoc'46fixDoc'46114 (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_opDoc'46fixDoc'46114(x)(st))(i)(xs)(st)+c_opDoc'46fixDoc'46114 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.opDoc.fixDoc.114")(x)++++c_typesDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_typesDoc x1 st = Curry.Module.Prelude.op_46(Curry.Module.Pretty.c_vcat(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeDoc(x1)))))(st)++++c_typeDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_typeDoc x1 x2@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) st = Curry.Module.PrettyFlat.c_def(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.PrettyFlat.c_qname(x1)(x3)(st))(st))(x5)(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consDeclsDoc(x1)(st))(x6)(st))(st)+c_typeDoc x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = Curry.Module.PrettyFlat.c_def(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(st))(Curry.Module.PrettyFlat.c_qname(x1)(x7)(st))(st))(x9)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_equals(st))(st))(st))(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_False)(x10)(st))(st))(st)+c_typeDoc x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeDoc(x1)(x)(st))(i)(xs)(st)+c_typeDoc x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeDoc")(x)++++c_varDoc :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_varDoc st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_text))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_show))(st))(st)++++c_tvarDoc :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_tvarDoc x1 st = Curry.Module.PrettyFlat.c_tvarDoc_case_76(x1)(Curry.Module.Prelude.op_62(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(st))(st)++++c_consDeclsDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_consDeclsDoc x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_fillEncloseSep(Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_equals(st))(st))(Curry.Module.Pretty.c_space(st))(st))(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.op_60_62(Curry.Module.PrettyFlat.c_bar(st))(Curry.Module.Pretty.c_space(st))(st))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Pretty.op_60_62))(Curry.Module.Pretty.c_space(st))))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_consDeclDoc(x1)))(st))))(st)++++c_consDeclDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_consDeclDoc x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = Curry.Module.PrettyFlat.c_app(Curry.Module.PrettyFlat.c_qname(x1)(x3)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_True)))(x6)(st))(st)+c_consDeclDoc x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_consDeclDoc(x1)(x)(st))(i)(xs)(st)+c_consDeclDoc x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.consDeclDoc")(x)++++c_typeExprDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_typeExprDoc x1 x2 x3@(Curry.Module.FlatCurry.C_TVar x4) st = Curry.Module.PrettyFlat.c_tvarDoc(x4)(st)+c_typeExprDoc x1 x2 x3@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.PrettyFlat.c_typeExprDoc_case_74(x1)(x2)(x5)(x6)(Curry.Module.Prelude.c_null(x6)(st))(st)+c_typeExprDoc x1 x2 x3@(Curry.Module.FlatCurry.C_FuncType x7 x8) st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x2)(st))(Curry.Module.Pretty.c_fillEncloseSep(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.c_space(st))(Curry.Module.PrettyFlat.c_arrow(st))(st))(Curry.Module.Pretty.c_space(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_True)))(Curry.Module.FlatCurryGoodies.c_argTypes(x3)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_False)(Curry.Module.FlatCurryGoodies.c_resultType(x3)(st))(st))(Curry.Module.Prelude.List))(st))(st))(st)+c_typeExprDoc x1 x2 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeExprDoc(x1)(x2)(x)(st))(i)(xs)(st)+c_typeExprDoc x1 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeExprDoc")(x)++++c_par :: Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Pretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_par x1@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_parens(st)+c_par x1@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)+c_par (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_par(x)(st))(i)(xs)(st)+c_par x st = Curry.RunTimeSystem.patternFail("PrettyFlat.par")(x)++++c_funcsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_funcsDoc x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_vcat(st))(Curry.Module.Pretty.c_punctuate(Curry.Module.Pretty.c_line(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_funcDoc(x1)(x2)))(x3)(st))(st))(st)++++c_funcDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_funcDoc x1 x2 x3@(Curry.Module.FlatCurry.C_Func x4 x5 x6 x7 x8) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.PrettyFlat.c_funcTypeDeclDoc(x2)(x4)(x7)(st))(st))(Curry.Module.PrettyFlat.c_ruleDoc(x1)(x2)(x4)(x8)(st))(st)+c_funcDoc x1 x2 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_funcDoc(x1)(x2)(x)(st))(i)(xs)(st)+c_funcDoc x1 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.funcDoc")(x)++++c_funcTypeDeclDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_funcTypeDeclDoc x1 x2 x3 st = Curry.Module.PrettyFlat.c_def(Curry.Module.PrettyFlat.c_qname(x1)(x2)(st))(Curry.Module.Prelude.List)(Curry.Module.PrettyFlat.c_funcTypeDoc(x1)(Curry.Module.FlatCurryGoodies.c_argTypes(x3)(st))(Curry.Module.FlatCurryGoodies.c_resultType(x3)(st))(st))(st)++++c_funcTypeDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_funcTypeDoc x1 x2 x3 st = Curry.Module.Pretty.c_fillEncloseSep(Curry.Module.Pretty.op_60_62(Curry.Module.PrettyFlat.c_dcolon(st))(Curry.Module.Pretty.c_space(st))(st))(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.op_60_62(Curry.Module.PrettyFlat.c_arrow(st))(Curry.Module.Pretty.c_space(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Pretty.op_60_62))(Curry.Module.Pretty.c_space(st))))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_True)))(st))(Curry.Module.Prelude.op_43_43(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st))(st))(st)++++c_ruleDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_ruleDoc x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Rule x5 x6) st = Curry.Module.PrettyFlat.c_def(Curry.Module.PrettyFlat.c_qname(x2)(x3)(st))(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Pretty.c_equals(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x2)(Curry.Module.Prelude.C_False)(x6)(st))(st))(st))(st)+c_ruleDoc x1 x2 x3 x4@(Curry.Module.FlatCurry.C_External x7) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.PrettyFlat.c_qname(x2)(x3)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(st))(st)+c_ruleDoc x1 x2 x3 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_ruleDoc(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_ruleDoc x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.ruleDoc")(x)++++c_expDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc x1 x2 x3 x4 x5 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_maybe(Curry.Module.PrettyFlat.c_expDoc2(x1)(Curry.Module.Prelude.C_Zero)(x3)(x4)(x5)(st))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_expDoc'46_'35lambda6(x3)(x1)))(Curry.Module.PrettyFlat.c_toList(x5)(st))(st))(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_expDoc'46_'35lambda7))(Curry.Module.PrettyFlat.c_toString(x5)(st))(st)++++c_expDoc'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc'46_'35lambda6 x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_list(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x1)(Curry.Module.Prelude.C_False)))(x3)(st))(st)++++c_expDoc'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc'46_'35lambda7 x1 st = Curry.Module.PrettyFlat.c_expDoc'46_'35lambda7_case_70(x1)(Curry.Module.Prelude.c_null(x1)(st))(st)++++c_expDoc2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_varDoc(st))(x6)(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.PrettyFlat.c_litDoc(x7)(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = let {x11 = Curry.Module.PrettyFlat.c_expDoc2_case_64(x4)(st)} in let {x14 = Curry.Module.PrettyFlat.c_expDoc2_case_65(x1)(x9)(Curry.Module.Prelude.c_lookup(x9)(x1)(st))(st)} in Curry.Module.PrettyFlat.c_expDoc2_case_69(x1)(x2)(x3)(x4)(x8)(x9)(x10)(x11)(x14)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.FlatCurry.C_FuncCall)(st))(Curry.Module.Prelude.op_61_61(x9)(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Let x16 x17) st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x4)(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_letBindsDoc(x1)(x3)(st))(x16)(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(st))(st))(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x17)(st))(st))(st))(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Free x18 x19) st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x4)(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_fillSep(st))(Curry.Module.Pretty.c_punctuate(Curry.Module.Pretty.c_comma(st))(Curry.Module.Prelude.c_map(Curry.Module.PrettyFlat.c_varDoc(st))(x18)(st))(st))(st))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(st))(st))(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x19)(st))(st))(st))(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Or x20 x21) st = Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(x4)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(st)+c_expDoc2 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Case x22 x23 x24) st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x4)(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Pretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_36_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Pretty.op_60_62(Curry.Module.PrettyFlat.c_caseTypeDoc(x22)(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x23)(st))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List)))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_layout(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_branchDoc(x1)(x3)))(x24)(st))(st))(st))(st))(st)+c_expDoc2 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_expDoc2 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2")(x)++++c_expDoc2'46_'35selFP3'35lbr :: (Curry.Module.Prelude.T2 Curry.Module.Pretty.C_Doc Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc2'46_'35selFP3'35lbr x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_expDoc2'46_'35selFP3'35lbr (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2'46_'35selFP3'35lbr(x)(st))(i)(xs)(st)+c_expDoc2'46_'35selFP3'35lbr x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2._#selFP3#lbr")(x)++++c_expDoc2'46_'35selFP4'35rbr :: (Curry.Module.Prelude.T2 Curry.Module.Pretty.C_Doc Curry.Module.Pretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_expDoc2'46_'35selFP4'35rbr x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_expDoc2'46_'35selFP4'35rbr (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2'46_'35selFP4'35rbr(x)(st))(i)(xs)(st)+c_expDoc2'46_'35selFP4'35rbr x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2._#selFP4#rbr")(x)++++c_branchDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_branchDoc x1 x2 x3@(Curry.Module.FlatCurry.C_Branch x4 x5) st = Curry.Module.PrettyFlat.c_def(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.PrettyFlat.c_patternDoc(x2)(x4)(st))(st))(Curry.Module.PrettyFlat.c_arrow(st))(st))(Curry.Module.Prelude.List)(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x2)(Curry.Module.Prelude.C_False)(x5)(st))(st))(st)+c_branchDoc x1 x2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_branchDoc(x1)(x2)(x)(st))(i)(xs)(st)+c_branchDoc x1 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.branchDoc")(x)++++c_caseTypeDoc :: Curry.Module.FlatCurry.C_CaseType -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_caseTypeDoc x1@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.Pretty.c_empty(st)+c_caseTypeDoc x1@Curry.Module.FlatCurry.C_Flex st = Curry.Module.Pretty.c_empty(st)+c_caseTypeDoc (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_caseTypeDoc(x)(st))(i)(xs)(st)+c_caseTypeDoc x st = Curry.RunTimeSystem.patternFail("PrettyFlat.caseTypeDoc")(x)++++c_patternDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_patternDoc x1 x2@(Curry.Module.FlatCurry.C_Pattern x3 x4) st = Curry.Module.PrettyFlat.c_patternDoc_case_63(x1)(x3)(x4)(Curry.Module.Prelude.c_null(x4)(st))(st)+c_patternDoc x1 x2@(Curry.Module.FlatCurry.C_LPattern x5) st = Curry.Module.PrettyFlat.c_litDoc(x5)(st)+c_patternDoc x1 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_patternDoc(x1)(x)(st))(i)(xs)(st)+c_patternDoc x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.patternDoc")(x)++++c_letBindsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc)+c_letBindsDoc x1 x2 st = Curry.Module.Prelude.op_46(Curry.Module.PrettyFlat.c_layout(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_letBindDoc(x1)(x2)))))(st)++++c_letBindDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_letBindDoc x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_varDoc(st))(x4)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_equals(st))(st))(st))(st))(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x2)(Curry.Module.Prelude.C_False)(x5)(st))(st)+c_letBindDoc x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_letBindDoc(x1)(x2)(x)(st))(i)(xs)(st)+c_letBindDoc x1 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.letBindDoc")(x)++++c_litDoc :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Pretty.C_Doc+c_litDoc x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_literal(st))(Curry.Module.Pretty.c_int(x2)(st))(st)+c_litDoc x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_literal(st))(Curry.Module.Pretty.c_float(x3)(st))(st)+c_litDoc x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_literal(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_squotes(st))(Curry.Module.Pretty.c_text(Curry.Module.PrettyFlat.c_quoteChar(x4)(st))(st))(st))(st)+c_litDoc (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_litDoc(x)(st))(i)(xs)(st)+c_litDoc x st = Curry.RunTimeSystem.patternFail("PrettyFlat.litDoc")(x)++++c_quoteChar :: Curry.Module.Prelude.C_Char -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_quoteChar x1 st = Curry.Module.Prelude.c_maybe((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.c_lookup(x1)(Curry.Module.PrettyFlat.c_specialChars(st))(st))(st)++++c_specialChars :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Char (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_specialChars st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))))++++c_toString :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_toString x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.PrettyFlat.c_toString_case_59(x3)(x4)(x2)(st)+c_toString x1@(Curry.Module.FlatCurry.C_Var x58) st = Curry.Module.Prelude.C_Nothing+c_toString x1@(Curry.Module.FlatCurry.C_Lit x59) st = Curry.Module.Prelude.C_Nothing+c_toString x1@(Curry.Module.FlatCurry.C_Let x60 x61) st = Curry.Module.Prelude.C_Nothing+c_toString x1@(Curry.Module.FlatCurry.C_Free x62 x63) st = Curry.Module.Prelude.C_Nothing+c_toString x1@(Curry.Module.FlatCurry.C_Or x64 x65) st = Curry.Module.Prelude.C_Nothing+c_toString x1@(Curry.Module.FlatCurry.C_Case x66 x67 x68) st = Curry.Module.Prelude.C_Nothing+c_toString (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString(x)(st))(i)(xs)(st)+c_toString x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString")(x)++++c_toList :: Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr)+c_toList x1@(Curry.Module.FlatCurry.C_Comb x2 x3 x4) st = Curry.Module.PrettyFlat.c_toList_case_29(x3)(x4)(x2)(st)+c_toList x1@(Curry.Module.FlatCurry.C_Var x41) st = Curry.Module.Prelude.C_Nothing+c_toList x1@(Curry.Module.FlatCurry.C_Lit x42) st = Curry.Module.Prelude.C_Nothing+c_toList x1@(Curry.Module.FlatCurry.C_Let x43 x44) st = Curry.Module.Prelude.C_Nothing+c_toList x1@(Curry.Module.FlatCurry.C_Free x45 x46) st = Curry.Module.Prelude.C_Nothing+c_toList x1@(Curry.Module.FlatCurry.C_Or x47 x48) st = Curry.Module.Prelude.C_Nothing+c_toList x1@(Curry.Module.FlatCurry.C_Case x49 x50 x51) st = Curry.Module.Prelude.C_Nothing+c_toList (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList(x)(st))(i)(xs)(st)+c_toList x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList")(x)++++c_elimApp :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr)+c_elimApp st = Curry.Module.FlatCurryGoodies.c_updCombs(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))(Curry.Module.PrettyFlat.c_elimApp'46elim'46276))(st)++++c_elimApp'46extend'46276 :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_elimApp'46extend'46276 x1@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) x2 st = Curry.Module.FlatCurry.C_Comb(x3)(x4)(Curry.Module.Prelude.op_43_43(x5)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st))+c_elimApp'46extend'46276 (Curry.Module.FlatCurry.C_ExprOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_elimApp'46extend'46276(x)(x2)(st))(i)(xs)(st)+c_elimApp'46extend'46276 x x2 st = Curry.RunTimeSystem.patternFail("PrettyFlat.elimApp.extend.276")(x)++++c_elimApp'46elim'46276 :: Curry.Module.FlatCurry.C_CombType -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_elimApp'46elim'46276 x1 x2 x3 st = Curry.Module.PrettyFlat.c_elimApp'46elim'46276_case_1(x1)(x2)(x3)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.FlatCurry.C_FuncCall)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(Curry.Module.Prelude.c_head(x3)(st))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.FlatCurryGoodies.c_combName(Curry.Module.Prelude.c_head(x3)(st))(st))(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st))(st))(st))(st))(st)++++c_elimApp'46elim'46276_case_1 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_elimApp'46extend'46276(Curry.Module.Prelude.c_head(x3)(st))(Curry.Module.Prelude.op_33_33(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)+c_elimApp'46elim'46276_case_1 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_elimApp'46elim'46276_case_0(x1)(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_elimApp'46elim'46276_case_1 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_elimApp'46elim'46276_case_1(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_elimApp'46elim'46276_case_1 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.elimApp.elim.276_case_1")(x)++++c_elimApp'46elim'46276_case_0 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.FlatCurry.C_Comb(x1)(x2)(x3)+c_elimApp'46elim'46276_case_0 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_elimApp'46elim'46276_case_0(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_elimApp'46elim'46276_case_0 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.elimApp.elim.276_case_0")(x)++++c_toList_case_29 x3 x4 x2@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.PrettyFlat.c_toList_case_28(x4)(x3)(st)+c_toList_case_29 x3 x4 x2@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.Prelude.C_Nothing+c_toList_case_29 x3 x4 x2@(Curry.Module.FlatCurry.C_FuncPartCall x39) st = Curry.Module.Prelude.C_Nothing+c_toList_case_29 x3 x4 x2@(Curry.Module.FlatCurry.C_ConsPartCall x40) st = Curry.Module.Prelude.C_Nothing+c_toList_case_29 x3 x4 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_29(x3)(x4)(x)(st))(i)(xs)(st)+c_toList_case_29 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_29")(x)++++c_toList_case_28 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.PrettyFlat.c_toList_case_27(x4)(x6)(x5)(st)+c_toList_case_28 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_28(x4)(x)(st))(i)(xs)(st)+c_toList_case_28 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_28")(x)++++c_toList_case_27 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.PrettyFlat.c_toList_case_26(x4)(x6)(x7)(x8)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(st)+c_toList_case_27 x4 x6 x5@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_27 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_27(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_27 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_27")(x)++++c_toList_case_26 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_25(x4)(x6)(x8)(st)+c_toList_case_26 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_26 x4 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_26(x4)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_toList_case_26 x4 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_26")(x)++++c_toList_case_25 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.PrettyFlat.c_toList_case_24(x4)(x6)(x9)(x10)(Curry.Module.Prelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(st)+c_toList_case_25 x4 x6 x8@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_25 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_25(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_25 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_25")(x)++++c_toList_case_24 x4 x6 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_23(x4)(x6)(x10)(st)+c_toList_case_24 x4 x6 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_24 x4 x6 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_24(x4)(x6)(x9)(x10)(x)(st))(i)(xs)(st)+c_toList_case_24 x4 x6 x9 x10 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_24")(x)++++c_toList_case_23 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.PrettyFlat.c_toList_case_22(x4)(x6)(x11)(x12)(Curry.Module.Prelude.op_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_toList_case_23 x4 x6 x10@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_23 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_23(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_23 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_23")(x)++++c_toList_case_22 x4 x6 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_21(x4)(x6)(x12)(st)+c_toList_case_22 x4 x6 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_22 x4 x6 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_22(x4)(x6)(x11)(x12)(x)(st))(i)(xs)(st)+c_toList_case_22 x4 x6 x11 x12 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_22")(x)++++c_toList_case_21 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.PrettyFlat.c_toList_case_20(x4)(x6)(x13)(x14)(Curry.Module.Prelude.op_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(st)+c_toList_case_21 x4 x6 x12@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_21 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_21(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_21 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_21")(x)++++c_toList_case_20 x4 x6 x13 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_19(x4)(x6)(x14)(st)+c_toList_case_20 x4 x6 x13 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_20 x4 x6 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_20(x4)(x6)(x13)(x14)(x)(st))(i)(xs)(st)+c_toList_case_20 x4 x6 x13 x14 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_20")(x)++++c_toList_case_19 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.PrettyFlat.c_toList_case_18(x4)(x6)(x15)(x16)(Curry.Module.Prelude.op_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(st)+c_toList_case_19 x4 x6 x14@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_19 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_19(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_19 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_19")(x)++++c_toList_case_18 x4 x6 x15 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_17(x4)(x6)(x16)(st)+c_toList_case_18 x4 x6 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_18 x4 x6 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_18(x4)(x6)(x15)(x16)(x)(st))(i)(xs)(st)+c_toList_case_18 x4 x6 x15 x16 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_18")(x)++++c_toList_case_17 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.PrettyFlat.c_toList_case_16(x4)(x6)(x17)(x18)(Curry.Module.Prelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(st)+c_toList_case_17 x4 x6 x16@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_17 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_17(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_17 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_17")(x)++++c_toList_case_16 x4 x6 x17 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_15(x4)(x6)(x18)(st)+c_toList_case_16 x4 x6 x17 x18 x19@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_16 x4 x6 x17 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_16(x4)(x6)(x17)(x18)(x)(st))(i)(xs)(st)+c_toList_case_16 x4 x6 x17 x18 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_16")(x)++++c_toList_case_15 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.PrettyFlat.c_toList_case_14(x4)(x6)(x19)(x20)(Curry.Module.Prelude.op_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_toList_case_15 x4 x6 x18@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_15 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_15(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_15 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_15")(x)++++c_toList_case_14 x4 x6 x19 x20 x21@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_13(x4)(x6)(x20)(st)+c_toList_case_14 x4 x6 x19 x20 x21@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_14 x4 x6 x19 x20 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_14(x4)(x6)(x19)(x20)(x)(st))(i)(xs)(st)+c_toList_case_14 x4 x6 x19 x20 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_14")(x)++++c_toList_case_13 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toList_case_12(x4)(x6)(st)+c_toList_case_13 x4 x6 x20@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.Prelude.C_Nothing+c_toList_case_13 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_13(x4)(x6)(x)(st))(i)(xs)(st)+c_toList_case_13 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_13")(x)++++c_toList_case_12 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.PrettyFlat.c_toList_case_11(x4)(x21)(x22)(Curry.Module.Prelude.op_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(st)+c_toList_case_12 x4 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_12 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_12(x4)(x)(st))(i)(xs)(st)+c_toList_case_12 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_12")(x)++++c_toList_case_11 x4 x21 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_10(x4)(x22)(st)+c_toList_case_11 x4 x21 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_toList_case_6(x4)(x21)(x22)(Curry.Module.Prelude.op_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(st)+c_toList_case_11 x4 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_11(x4)(x21)(x22)(x)(st))(i)(xs)(st)+c_toList_case_11 x4 x21 x22 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_11")(x)++++c_toList_case_6 x4 x21 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_5(x4)(x22)(st)+c_toList_case_6 x4 x21 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_6 x4 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_6(x4)(x21)(x22)(x)(st))(i)(xs)(st)+c_toList_case_6 x4 x21 x22 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_6")(x)++++c_toList_case_5 x4 x22@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toList_case_4(x4)(st)+c_toList_case_5 x4 x22@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.Prelude.C_Nothing+c_toList_case_5 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_5(x4)(x)(st))(i)(xs)(st)+c_toList_case_5 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_5")(x)++++c_toList_case_4 x4@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.PrettyFlat.c_toList_case_3(x29)(x30)(st)+c_toList_case_4 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_4(x)(st))(i)(xs)(st)+c_toList_case_4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_4")(x)++++c_toList_case_3 x29 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.PrettyFlat.c_toList_case_2(x29)(x31)(x32)(st)+c_toList_case_3 x29 x30@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_3 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_3(x29)(x)(st))(i)(xs)(st)+c_toList_case_3 x29 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_3")(x)++++c_toList_case_2 x29 x31 x32@Curry.Module.Prelude.List st = Curry.Module.Maybe.op_62_62_45(Curry.Module.PrettyFlat.c_toList(x31)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x29)))(st))(st)+c_toList_case_2 x29 x31 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.Prelude.C_Nothing+c_toList_case_2 x29 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_2(x29)(x31)(x)(st))(i)(xs)(st)+c_toList_case_2 x29 x31 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_2")(x)++++c_toList_case_10 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.PrettyFlat.c_toList_case_9(x4)(x23)(x24)(Curry.Module.Prelude.op_61_61(x23)(Curry.Module.Prelude.C_Char(']'))(st))(st)+c_toList_case_10 x4 x22@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toList_case_10 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_10(x4)(x)(st))(i)(xs)(st)+c_toList_case_10 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_10")(x)++++c_toList_case_9 x4 x23 x24 x25@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toList_case_8(x4)(x24)(st)+c_toList_case_9 x4 x23 x24 x25@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toList_case_9 x4 x23 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_9(x4)(x23)(x24)(x)(st))(i)(xs)(st)+c_toList_case_9 x4 x23 x24 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_9")(x)++++c_toList_case_8 x4 x24@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toList_case_7(x4)(st)+c_toList_case_8 x4 x24@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.Prelude.C_Nothing+c_toList_case_8 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_8(x4)(x)(st))(i)(xs)(st)+c_toList_case_8 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_8")(x)++++c_toList_case_7 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List)+c_toList_case_7 x4@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.Prelude.C_Nothing+c_toList_case_7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toList_case_7(x)(st))(i)(xs)(st)+c_toList_case_7 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toList_case_7")(x)++++c_toString_case_59 x3 x4 x2@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.PrettyFlat.c_toString_case_58(x4)(x3)(st)+c_toString_case_59 x3 x4 x2@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.Prelude.C_Nothing+c_toString_case_59 x3 x4 x2@(Curry.Module.FlatCurry.C_FuncPartCall x56) st = Curry.Module.Prelude.C_Nothing+c_toString_case_59 x3 x4 x2@(Curry.Module.FlatCurry.C_ConsPartCall x57) st = Curry.Module.Prelude.C_Nothing+c_toString_case_59 x3 x4 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_59(x3)(x4)(x)(st))(i)(xs)(st)+c_toString_case_59 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_59")(x)++++c_toString_case_58 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.PrettyFlat.c_toString_case_57(x4)(x6)(x5)(st)+c_toString_case_58 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_58(x4)(x)(st))(i)(xs)(st)+c_toString_case_58 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_58")(x)++++c_toString_case_57 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.PrettyFlat.c_toString_case_56(x4)(x6)(x7)(x8)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(st)+c_toString_case_57 x4 x6 x5@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_57 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_57(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_57 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_57")(x)++++c_toString_case_56 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_55(x4)(x6)(x8)(st)+c_toString_case_56 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_56 x4 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_56(x4)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_toString_case_56 x4 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_56")(x)++++c_toString_case_55 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.PrettyFlat.c_toString_case_54(x4)(x6)(x9)(x10)(Curry.Module.Prelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(st)+c_toString_case_55 x4 x6 x8@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_55 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_55(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_55 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_55")(x)++++c_toString_case_54 x4 x6 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_53(x4)(x6)(x10)(st)+c_toString_case_54 x4 x6 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_54 x4 x6 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_54(x4)(x6)(x9)(x10)(x)(st))(i)(xs)(st)+c_toString_case_54 x4 x6 x9 x10 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_54")(x)++++c_toString_case_53 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.PrettyFlat.c_toString_case_52(x4)(x6)(x11)(x12)(Curry.Module.Prelude.op_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_toString_case_53 x4 x6 x10@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_53 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_53(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_53 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_53")(x)++++c_toString_case_52 x4 x6 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_51(x4)(x6)(x12)(st)+c_toString_case_52 x4 x6 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_52 x4 x6 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_52(x4)(x6)(x11)(x12)(x)(st))(i)(xs)(st)+c_toString_case_52 x4 x6 x11 x12 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_52")(x)++++c_toString_case_51 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.PrettyFlat.c_toString_case_50(x4)(x6)(x13)(x14)(Curry.Module.Prelude.op_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(st)+c_toString_case_51 x4 x6 x12@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_51 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_51(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_51 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_51")(x)++++c_toString_case_50 x4 x6 x13 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_49(x4)(x6)(x14)(st)+c_toString_case_50 x4 x6 x13 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_50 x4 x6 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_50(x4)(x6)(x13)(x14)(x)(st))(i)(xs)(st)+c_toString_case_50 x4 x6 x13 x14 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_50")(x)++++c_toString_case_49 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.PrettyFlat.c_toString_case_48(x4)(x6)(x15)(x16)(Curry.Module.Prelude.op_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(st)+c_toString_case_49 x4 x6 x14@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_49 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_49(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_49 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_49")(x)++++c_toString_case_48 x4 x6 x15 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_47(x4)(x6)(x16)(st)+c_toString_case_48 x4 x6 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_48 x4 x6 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_48(x4)(x6)(x15)(x16)(x)(st))(i)(xs)(st)+c_toString_case_48 x4 x6 x15 x16 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_48")(x)++++c_toString_case_47 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.PrettyFlat.c_toString_case_46(x4)(x6)(x17)(x18)(Curry.Module.Prelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(st)+c_toString_case_47 x4 x6 x16@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_47 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_47(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_47 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_47")(x)++++c_toString_case_46 x4 x6 x17 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_45(x4)(x6)(x18)(st)+c_toString_case_46 x4 x6 x17 x18 x19@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_46 x4 x6 x17 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_46(x4)(x6)(x17)(x18)(x)(st))(i)(xs)(st)+c_toString_case_46 x4 x6 x17 x18 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_46")(x)++++c_toString_case_45 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.PrettyFlat.c_toString_case_44(x4)(x6)(x19)(x20)(Curry.Module.Prelude.op_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(st)+c_toString_case_45 x4 x6 x18@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_45 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_45(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_45 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_45")(x)++++c_toString_case_44 x4 x6 x19 x20 x21@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_43(x4)(x6)(x20)(st)+c_toString_case_44 x4 x6 x19 x20 x21@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_44 x4 x6 x19 x20 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_44(x4)(x6)(x19)(x20)(x)(st))(i)(xs)(st)+c_toString_case_44 x4 x6 x19 x20 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_44")(x)++++c_toString_case_43 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toString_case_42(x4)(x6)(st)+c_toString_case_43 x4 x6 x20@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.Prelude.C_Nothing+c_toString_case_43 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_43(x4)(x6)(x)(st))(i)(xs)(st)+c_toString_case_43 x4 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_43")(x)++++c_toString_case_42 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.PrettyFlat.c_toString_case_41(x4)(x21)(x22)(Curry.Module.Prelude.op_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(st)+c_toString_case_42 x4 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_42 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_42(x4)(x)(st))(i)(xs)(st)+c_toString_case_42 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_42")(x)++++c_toString_case_41 x4 x21 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_40(x4)(x22)(st)+c_toString_case_41 x4 x21 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_toString_case_36(x4)(x21)(x22)(Curry.Module.Prelude.op_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(st)+c_toString_case_41 x4 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_41(x4)(x21)(x22)(x)(st))(i)(xs)(st)+c_toString_case_41 x4 x21 x22 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_41")(x)++++c_toString_case_36 x4 x21 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_35(x4)(x22)(st)+c_toString_case_36 x4 x21 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_36 x4 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_36(x4)(x21)(x22)(x)(st))(i)(xs)(st)+c_toString_case_36 x4 x21 x22 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_36")(x)++++c_toString_case_35 x4 x22@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toString_case_34(x4)(st)+c_toString_case_35 x4 x22@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.Prelude.C_Nothing+c_toString_case_35 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_35(x4)(x)(st))(i)(xs)(st)+c_toString_case_35 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_35")(x)++++c_toString_case_34 x4@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.PrettyFlat.c_toString_case_33(x30)(x29)(st)+c_toString_case_34 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_34(x)(st))(i)(xs)(st)+c_toString_case_34 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_34")(x)++++c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Lit x31) st = Curry.Module.PrettyFlat.c_toString_case_32(x30)(x31)(st)+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Var x39) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Comb x40 x41 x42) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Let x43 x44) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Free x45 x46) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Or x47 x48) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 x29@(Curry.Module.FlatCurry.C_Case x49 x50 x51) st = Curry.Module.Prelude.C_Nothing+c_toString_case_33 x30 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_33(x30)(x)(st))(i)(xs)(st)+c_toString_case_33 x30 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_33")(x)++++c_toString_case_32 x30 x31@(Curry.Module.FlatCurry.C_Charc x32) st = Curry.Module.PrettyFlat.c_toString_case_31(x32)(x30)(st)+c_toString_case_32 x30 x31@(Curry.Module.FlatCurry.C_Intc x37) st = Curry.Module.Prelude.C_Nothing+c_toString_case_32 x30 x31@(Curry.Module.FlatCurry.C_Floatc x38) st = Curry.Module.Prelude.C_Nothing+c_toString_case_32 x30 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_32(x30)(x)(st))(i)(xs)(st)+c_toString_case_32 x30 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_32")(x)++++c_toString_case_31 x32 x30@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.PrettyFlat.c_toString_case_30(x32)(x33)(x34)(st)+c_toString_case_31 x32 x30@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_31 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_31(x32)(x)(st))(i)(xs)(st)+c_toString_case_31 x32 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_31")(x)++++c_toString_case_30 x32 x33 x34@Curry.Module.Prelude.List st = Curry.Module.Maybe.op_62_62_45(Curry.Module.PrettyFlat.c_toString(x33)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(Curry.Module.PrettyFlat.c_quoteChar(x32)(st))))(st))(st)+c_toString_case_30 x32 x33 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.Prelude.C_Nothing+c_toString_case_30 x32 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_30(x32)(x33)(x)(st))(i)(xs)(st)+c_toString_case_30 x32 x33 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_30")(x)++++c_toString_case_40 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.PrettyFlat.c_toString_case_39(x4)(x23)(x24)(Curry.Module.Prelude.op_61_61(x23)(Curry.Module.Prelude.C_Char(']'))(st))(st)+c_toString_case_40 x4 x22@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Nothing+c_toString_case_40 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_40(x4)(x)(st))(i)(xs)(st)+c_toString_case_40 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_40")(x)++++c_toString_case_39 x4 x23 x24 x25@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_toString_case_38(x4)(x24)(st)+c_toString_case_39 x4 x23 x24 x25@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Nothing+c_toString_case_39 x4 x23 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_39(x4)(x23)(x24)(x)(st))(i)(xs)(st)+c_toString_case_39 x4 x23 x24 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_39")(x)++++c_toString_case_38 x4 x24@Curry.Module.Prelude.List st = Curry.Module.PrettyFlat.c_toString_case_37(x4)(st)+c_toString_case_38 x4 x24@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.Prelude.C_Nothing+c_toString_case_38 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_38(x4)(x)(st))(i)(xs)(st)+c_toString_case_38 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_38")(x)++++c_toString_case_37 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List)+c_toString_case_37 x4@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.Prelude.C_Nothing+c_toString_case_37 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_toString_case_37(x)(st))(i)(xs)(st)+c_toString_case_37 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.toString_case_37")(x)++++c_patternDoc_case_63 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_qname(x1)(x3)(st)+c_patternDoc_case_63 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_patternDoc_case_62(x1)(x3)(x4)(Curry.Module.PrettyFlat.c_isTupleName(x3)(st))(st)+c_patternDoc_case_63 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_patternDoc_case_63(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_patternDoc_case_63 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.patternDoc_case_63")(x)++++c_patternDoc_case_62 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_tupled(st))(Curry.Module.Prelude.c_map(Curry.Module.PrettyFlat.c_varDoc(st))(x4)(st))(st)+c_patternDoc_case_62 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_patternDoc_case_61(x1)(x3)(x4)(Curry.Module.Prelude.op_38_38(Curry.Module.PrettyFlat.c_isInfixName(x3)(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x4)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_patternDoc_case_62 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_patternDoc_case_62(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_patternDoc_case_62 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.patternDoc_case_62")(x)++++c_patternDoc_case_61 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_varDoc(st))(Curry.Module.Prelude.op_33_33(x4)(Curry.Module.Prelude.C_Zero)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text(Curry.Module.Prelude.c_snd(x3)(st))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_varDoc(st))(Curry.Module.Prelude.op_33_33(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)+c_patternDoc_case_61 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_patternDoc_case_60(x1)(x3)(x4)(Curry.Module.Prelude.c_otherwise(st))(st)+c_patternDoc_case_61 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_patternDoc_case_61(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_patternDoc_case_61 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.patternDoc_case_61")(x)++++c_patternDoc_case_60 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.PrettyFlat.c_qname(x1)(x3)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_hsep(st))(Curry.Module.Prelude.c_map(Curry.Module.PrettyFlat.c_varDoc(st))(x4)(st))(st))(st)+c_patternDoc_case_60 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_patternDoc_case_60(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_patternDoc_case_60 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.patternDoc_case_60")(x)++++c_expDoc2_case_64 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(Curry.Module.Pretty.c_lparen(st))(Curry.Module.Pretty.c_rparen(st))+c_expDoc2_case_64 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.c_empty(st))+c_expDoc2_case_64 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_64(x)(st))(i)(xs)(st)+c_expDoc2_case_64 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_64")(x)++++c_expDoc2_case_65 x1 x9 x10@(Curry.Module.Prelude.C_Just x15) st = x15+c_expDoc2_case_65 x1 x9 x10@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.C_Zero+c_expDoc2_case_65 x1 x9 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_65(x1)(x9)(x)(st))(i)(xs)(st)+c_expDoc2_case_65 x1 x9 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_65")(x)++++c_expDoc2_case_69 x1 x2 x3 x4 x8 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x4)(st))(Curry.Module.PrettyFlat.c_app(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.op_33_33(x10)(Curry.Module.Prelude.C_Zero)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.op_33_33(x10)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.List))(st))(st)+c_expDoc2_case_69 x1 x2 x3 x4 x8 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_expDoc2_case_68(x1)(x2)(x3)(x4)(x8)(x9)(x10)(x11)(x14)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x8)(Curry.Module.FlatCurry.C_ConsCall)(st))(Curry.Module.PrettyFlat.c_isTupleName(x9)(st))(st))(st)+c_expDoc2_case_69 x1 x2 x3 x4 x8 x9 x10 x11 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_69(x1)(x2)(x3)(x4)(x8)(x9)(x10)(x11)(x14)(x)(st))(i)(xs)(st)+c_expDoc2_case_69 x1 x2 x3 x4 x8 x9 x10 x11 x14 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_69")(x)++++c_expDoc2_case_68 x1 x2 x3 x4 x8 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_tupled(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)))(x10)(st))(st)+c_expDoc2_case_68 x1 x2 x3 x4 x8 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_expDoc2_case_67(x1)(x2)(x3)(x4)(x9)(x10)(x11)(x14)(Curry.Module.Prelude.op_38_38(Curry.Module.PrettyFlat.c_isInfixName(x9)(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x10)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_expDoc2_case_68 x1 x2 x3 x4 x8 x9 x10 x11 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_68(x1)(x2)(x3)(x4)(x8)(x9)(x10)(x11)(x14)(x)(st))(i)(xs)(st)+c_expDoc2_case_68 x1 x2 x3 x4 x8 x9 x10 x11 x14 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_68")(x)++++c_expDoc2_case_67 x1 x2 x3 x4 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Pretty.c_align(st))(Curry.Module.PrettyFlat.c_precFillEncloseSep(x14)(x2)(Curry.Module.PrettyFlat.c_expDoc2'46_'35selFP3'35lbr(x11)(st))(Curry.Module.PrettyFlat.c_expDoc2'46_'35selFP4'35rbr(x11)(st))(Curry.Module.Pretty.c_empty(st))((Curry.Module.Prelude.:<)(Curry.Module.PrettyFlat.c_expDoc(x1)(x14)(x3)(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.op_33_33(x10)(Curry.Module.Prelude.C_Zero)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.c_space(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text(Curry.Module.Prelude.c_snd(x9)(st))(st))(st))(st))(Curry.Module.Pretty.c_space(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.PrettyFlat.c_expDoc(x1)(x14)(x3)(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.op_33_33(x10)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.List))))(st))(st)+c_expDoc2_case_67 x1 x2 x3 x4 x9 x10 x11 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_expDoc2_case_66(x1)(x3)(x4)(x9)(x10)(Curry.Module.Prelude.c_otherwise(st))(st)+c_expDoc2_case_67 x1 x2 x3 x4 x9 x10 x11 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_67(x1)(x2)(x3)(x4)(x9)(x10)(x11)(x14)(x)(st))(i)(xs)(st)+c_expDoc2_case_67 x1 x2 x3 x4 x9 x10 x11 x14 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_67")(x)++++c_expDoc2_case_66 x1 x3 x4 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_null(x10)(st))(st))(x4)(st))(st))(Curry.Module.PrettyFlat.c_app(Curry.Module.PrettyFlat.c_qname(x3)(x9)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_expDoc(x1)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_True)))(x10)(st))(st))(st)+c_expDoc2_case_66 x1 x3 x4 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc2_case_66(x1)(x3)(x4)(x9)(x10)(x)(st))(i)(xs)(st)+c_expDoc2_case_66 x1 x3 x4 x9 x10 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc2_case_66")(x)++++c_expDoc'46_'35lambda7_case_70 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consname(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st)+c_expDoc'46_'35lambda7_case_70 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_literal(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_dquotes(st))(Curry.Module.Pretty.c_text(x1)(st))(st))(st)+c_expDoc'46_'35lambda7_case_70 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_expDoc'46_'35lambda7_case_70(x1)(x)(st))(i)(xs)(st)+c_expDoc'46_'35lambda7_case_70 x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.expDoc._#lambda7_case_70")(x)++++c_typeExprDoc_case_74 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_qname(x1)(x5)(st)+c_typeExprDoc_case_74 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_typeExprDoc_case_73(x1)(x2)(x5)(x6)(Curry.Module.Prelude.op_61_61(x5)(Curry.Module.Prelude.T2(Curry.Module.PrettyFlat.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(st))(st)+c_typeExprDoc_case_74 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeExprDoc_case_74(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_typeExprDoc_case_74 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeExprDoc_case_74")(x)++++c_typeExprDoc_case_73 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_brackets(st))(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.c_head(x6)(st))(st))(st)+c_typeExprDoc_case_73 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_typeExprDoc_case_72(x1)(x2)(x5)(x6)(Curry.Module.PrettyFlat.c_isTupleName(x5)(st))(st)+c_typeExprDoc_case_73 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeExprDoc_case_73(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_typeExprDoc_case_73 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeExprDoc_case_73")(x)++++c_typeExprDoc_case_72 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_tupled(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_False)))(x6)(st))(st)+c_typeExprDoc_case_72 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_typeExprDoc_case_71(x1)(x2)(x5)(x6)(Curry.Module.Prelude.c_otherwise(st))(st)+c_typeExprDoc_case_72 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeExprDoc_case_72(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_typeExprDoc_case_72 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeExprDoc_case_72")(x)++++c_typeExprDoc_case_71 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.PrettyFlat.c_par(x2)(st))(Curry.Module.PrettyFlat.c_app(Curry.Module.PrettyFlat.c_qname(x1)(x5)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.PrettyFlat.c_typeExprDoc(x1)(Curry.Module.Prelude.C_True)))(x6)(st))(st))(st)+c_typeExprDoc_case_71 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_typeExprDoc_case_71(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_typeExprDoc_case_71 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.typeExprDoc_case_71")(x)++++c_tvarDoc_case_76 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_text(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_tvarDoc_case_76 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_tvarDoc_case_75(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_tvarDoc_case_76 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_tvarDoc_case_76(x1)(x)(st))(i)(xs)(st)+c_tvarDoc_case_76 x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.tvarDoc_case_76")(x)++++c_tvarDoc_case_75 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x1)(st))(st))(Curry.Module.Prelude.List))(st)+c_tvarDoc_case_75 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_tvarDoc_case_75(x1)(x)(st))(i)(xs)(st)+c_tvarDoc_case_75 x1 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.tvarDoc_case_75")(x)++++c_opDoc_case_78 x3 x4 x2@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.op_60_43_62(st))(Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_keyword(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))(st))(Curry.Module.PrettyFlat.c_opDoc'46fixDoc'46114(x3)(st))(st))(st))(Curry.Module.Pretty.c_int(x4)(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text(Curry.Module.PrettyFlat.c_opDoc_case_77(x2)(x6)(Curry.Module.PrettyFlat.c_isInfixName(x2)(st))(st))(st))(st))(st)+c_opDoc_case_78 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_opDoc_case_78(x3)(x4)(x)(st))(i)(xs)(st)+c_opDoc_case_78 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.opDoc_case_78")(x)++++c_opDoc_case_77 x2 x6 x7@Curry.Module.Prelude.C_True st = x6+c_opDoc_case_77 x2 x6 x7@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.List))(st))+c_opDoc_case_77 x2 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_opDoc_case_77(x2)(x6)(x)(st))(i)(xs)(st)+c_opDoc_case_77 x2 x6 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.opDoc_case_77")(x)++++c_exportedNames'46typeExpDoc'4689_case_79 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_empty(st)+c_exportedNames'46typeExpDoc'4689_case_79 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Pretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))(st)+c_exportedNames'46typeExpDoc'4689_case_79 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_exportedNames'46typeExpDoc'4689_case_79(x2)(x)(st))(i)(xs)(st)+c_exportedNames'46typeExpDoc'4689_case_79 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.exportedNames.typeExpDoc.89_case_79")(x)++++c_correctName_case_81 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.PrettyFlat.c_correctName_case_80(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('_'))(st))(st)+c_correctName_case_81 x2@Curry.Module.Prelude.List st = x2+c_correctName_case_81 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_correctName_case_81(x)(st))(i)(xs)(st)+c_correctName_case_81 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.correctName_case_81")(x)++++c_correctName_case_80 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = x4+c_correctName_case_80 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = x2+c_correctName_case_80 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_correctName_case_80(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_correctName_case_80 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.correctName_case_80")(x)++++c_qname'46txt'4665_case_82 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consname(st))((Curry.Module.Prelude.:<)(x2)(x3))(st)+c_qname'46txt'4665_case_82 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Pretty.c_text((Curry.Module.Prelude.:<)(x2)(x3))(st)+c_qname'46txt'4665_case_82 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname'46txt'4665_case_82(x2)(x3)(x)(st))(i)(xs)(st)+c_qname'46txt'4665_case_82 x2 x3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname.txt.65_case_82")(x)++++c_qname_case_87 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text(x4)(st))(st)+c_qname_case_87 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_qname_case_86(x1)(x2)(x3)(x4)(Curry.Module.PrettyFlat.c_isInfixName(x2)(st))(st)+c_qname_case_87 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname_case_87(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_qname_case_87 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname_case_87")(x)++++c_qname_case_86 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_qname_case_85(x1)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(x1)(st))(st)+c_qname_case_86 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.PrettyFlat.c_qname_case_84(x1)(x3)(x4)(Curry.Module.Prelude.c_otherwise(st))(st)+c_qname_case_86 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname_case_86(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_qname_case_86 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname_case_86")(x)++++c_qname_case_84 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_qname_case_83(x1)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(x1)(st))(st)+c_qname_case_84 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname_case_84(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_qname_case_84 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname_case_84")(x)++++c_qname_case_83 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.PrettyFlat.c_qname'46txt'4665(Curry.Module.PrettyFlat.c_correctName(x4)(st))(st)+c_qname_case_83 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consname(st))(x3)(st))(Curry.Module.Pretty.c_dot(st))(st))(Curry.Module.PrettyFlat.c_qname'46txt'4665(x4)(st))(st)+c_qname_case_83 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname_case_83(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_qname_case_83 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname_case_83")(x)++++c_qname_case_85 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_parens(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.c_text(x4)(st))(st))(st)+c_qname_case_85 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_parens(st))(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_operator(st))(Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.op_60_62(Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_consname(st))(x3)(st))(Curry.Module.Pretty.c_dot(st))(st))(Curry.Module.PrettyFlat.c_qname'46txt'4665(x4)(st))(st))(st))(st)+c_qname_case_85 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_qname_case_85(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_qname_case_85 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.qname_case_85")(x)++++c_app_case_88 x1 x2 x3@Curry.Module.Prelude.C_True st = x1+c_app_case_88 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_apply(Curry.Module.PrettyFlat.c_block(st))(Curry.Module.Pretty.c_fillEncloseSep(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.c_empty(st))(Curry.Module.Pretty.c_space(st))((Curry.Module.Prelude.:<)(x1)(x2))(st))(st)+c_app_case_88 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_app_case_88(x1)(x2)(x)(st))(i)(xs)(st)+c_app_case_88 x1 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.app_case_88")(x)++++c_def_case_89 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_empty(st)+c_def_case_89 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Pretty.op_60_62(Curry.Module.Pretty.c_space(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_align(st))(Curry.Module.Prelude.c_apply(Curry.Module.Pretty.c_fillSep(st))(Curry.Module.Prelude.c_map(Curry.Module.PrettyFlat.c_varDoc(st))(x2)(st))(st))(st))(st)+c_def_case_89 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_def_case_89(x2)(x)(st))(i)(xs)(st)+c_def_case_89 x2 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.def_case_89")(x)++++c_precFillEncloseSep'46pre'4611_case_90 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Pretty.c_empty(st)+c_precFillEncloseSep'46pre'4611_case_90 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = x3+c_precFillEncloseSep'46pre'4611_case_90 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.PrettyFlat.c_precFillEncloseSep'46pre'4611_case_90(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_precFillEncloseSep'46pre'4611_case_90 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("PrettyFlat.precFillEncloseSep.pre.11_case_90")(x)++
+ dist/build/Curry/Module/XML.hs view
@@ -0,0 +1,1233 @@+{-# OPTIONS -cpp  #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.XML (module Curry.Module.XML) where++import Curry.RunTimeSystem+import Curry.Module.Char+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.Read++++-- begin included++++-- end included++data C_XmlExp = C_XText (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_XElem (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)+  | C_XmlExpFail Curry.RunTimeSystem.C_Exceptions+  | C_XmlExpOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.XML.C_XmlExp)++data C_Encoding = C_StandardEnc+  | C_Iso88591Enc+  | C_EncodingFail Curry.RunTimeSystem.C_Exceptions+  | C_EncodingOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.XML.C_Encoding)++data C_XmlDocParams = C_Enc Curry.Module.XML.C_Encoding+  | C_DtdUrl (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+  | C_XmlDocParamsFail Curry.RunTimeSystem.C_Exceptions+  | C_XmlDocParamsOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.XML.C_XmlDocParams)++instance BaseCurry Curry.Module.XML.C_XmlExp where+  nf f (Curry.Module.XML.C_XText x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.XML.C_XText(v1))(state1))(x1)(state0)+  nf f (Curry.Module.XML.C_XElem x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.XML.C_XElem(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.XML.C_XText x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.XML.C_XText(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.XML.C_XElem x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.XML.C_XElem(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.XML.C_XmlExpOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.XML.C_XText(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.XML.C_XElem(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(3)++  failed  = Curry.Module.XML.C_XmlExpFail++  branching  = Curry.Module.XML.C_XmlExpOr++  consKind (Curry.Module.XML.C_XmlExpOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.XML.C_XmlExpFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.XML.C_XmlExpFail x) = x++  orRef (Curry.Module.XML.C_XmlExpOr x _) = x++  branches (Curry.Module.XML.C_XmlExpOr _ x) = x++++++instance BaseCurry Curry.Module.XML.C_Encoding where+  nf f x st = f(x)(st)++  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.XML.C_EncodingOr(Curry.RunTimeSystem.mkRef(r)(0)(i))([Curry.Module.XML.C_StandardEnc,Curry.Module.XML.C_Iso88591Enc]))(0)++  failed  = Curry.Module.XML.C_EncodingFail++  branching  = Curry.Module.XML.C_EncodingOr++  consKind (Curry.Module.XML.C_EncodingOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.XML.C_EncodingFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.XML.C_EncodingFail x) = x++  orRef (Curry.Module.XML.C_EncodingOr x _) = x++  branches (Curry.Module.XML.C_EncodingOr _ x) = x++++++instance BaseCurry Curry.Module.XML.C_XmlDocParams where+  nf f (Curry.Module.XML.C_Enc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.XML.C_Enc(v1))(state1))(x1)(state0)+  nf f (Curry.Module.XML.C_DtdUrl x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.XML.C_DtdUrl(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.XML.C_Enc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.XML.C_Enc(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.XML.C_DtdUrl x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.XML.C_DtdUrl(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.XML.C_XmlDocParamsOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.XML.C_Enc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.XML.C_DtdUrl(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.XML.C_XmlDocParamsFail++  branching  = Curry.Module.XML.C_XmlDocParamsOr++  consKind (Curry.Module.XML.C_XmlDocParamsOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.XML.C_XmlDocParamsFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.XML.C_XmlDocParamsFail x) = x++  orRef (Curry.Module.XML.C_XmlDocParamsOr x _) = x++  branches (Curry.Module.XML.C_XmlDocParamsOr _ x) = x++++++instance Curry Curry.Module.XML.C_XmlExp where+  strEq (Curry.Module.XML.C_XText x1) (Curry.Module.XML.C_XText y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.XML.C_XElem x1 x2 x3) (Curry.Module.XML.C_XElem y1 y2 y3) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.XML.C_XText x1) (Curry.Module.XML.C_XText y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.XML.C_XElem x1 x2 x3) (Curry.Module.XML.C_XElem y1 y2 y3) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.genEq(x3)(y3)(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.XML.C_XText x1) st = Curry.Module.XML.C_XText(f((0::Int))(x1)(st))+  propagate f (Curry.Module.XML.C_XElem x1 x2 x3) st = Curry.Module.XML.C_XElem(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.XML.C_XText x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.XML.C_XElem x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "XmlExp"++  showQ d (Curry.Module.XML.C_XText x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XML.XText "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.XML.C_XElem x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XML.XElem "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))))))+++  showQ _ (Curry.Module.XML.C_XmlExpOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.XML.C_Encoding where+  strEq Curry.Module.XML.C_StandardEnc Curry.Module.XML.C_StandardEnc st = Curry.Module.Prelude.strEqSuccess+  strEq Curry.Module.XML.C_Iso88591Enc Curry.Module.XML.C_Iso88591Enc st = Curry.Module.Prelude.strEqSuccess+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq Curry.Module.XML.C_StandardEnc Curry.Module.XML.C_StandardEnc st = Curry.Module.Prelude.C_True+  eq Curry.Module.XML.C_Iso88591Enc Curry.Module.XML.C_Iso88591Enc st = Curry.Module.Prelude.C_True+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f Curry.Module.XML.C_StandardEnc st = Curry.Module.XML.C_StandardEnc+  propagate f Curry.Module.XML.C_Iso88591Enc st = Curry.Module.XML.C_Iso88591Enc++  foldCurry f c Curry.Module.XML.C_StandardEnc st = c+  foldCurry f c Curry.Module.XML.C_Iso88591Enc st = c++  typeName _ = "Encoding"++  showQ _ Curry.Module.XML.C_StandardEnc = Prelude.showString("XML.StandardEnc")+  showQ _ Curry.Module.XML.C_Iso88591Enc = Prelude.showString("XML.Iso88591Enc")+  showQ _ (Curry.Module.XML.C_EncodingOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.XML.C_XmlDocParams where+  strEq (Curry.Module.XML.C_Enc x1) (Curry.Module.XML.C_Enc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.XML.C_DtdUrl x1) (Curry.Module.XML.C_DtdUrl y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.XML.C_Enc x1) (Curry.Module.XML.C_Enc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.XML.C_DtdUrl x1) (Curry.Module.XML.C_DtdUrl y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.XML.C_Enc x1) st = Curry.Module.XML.C_Enc(f((0::Int))(x1)(st))+  propagate f (Curry.Module.XML.C_DtdUrl x1) st = Curry.Module.XML.C_DtdUrl(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.XML.C_Enc x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.XML.C_DtdUrl x1) st = f(x1)(c)(st)++  typeName _ = "XmlDocParams"++  showQ d (Curry.Module.XML.C_Enc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XML.Enc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.XML.C_DtdUrl x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XML.DtdUrl "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.XML.C_XmlDocParamsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.XML.C_XmlExp where+  showsPrec d (Curry.Module.XML.C_XText x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XText "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.XML.C_XElem x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("XElem "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))))))+++  showsPrec _ (Curry.Module.XML.C_XmlExpOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.XML.C_Encoding where+  showsPrec _ Curry.Module.XML.C_StandardEnc = Prelude.showString("StandardEnc")+  showsPrec _ Curry.Module.XML.C_Iso88591Enc = Prelude.showString("Iso88591Enc")+  showsPrec _ (Curry.Module.XML.C_EncodingOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.XML.C_XmlDocParams where+  showsPrec d (Curry.Module.XML.C_Enc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Enc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.XML.C_DtdUrl x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("DtdUrl "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.XML.C_XmlDocParamsOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.XML.C_XmlExp where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.XML.C_XText(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("XText")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.XML.C_XElem(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("XElem")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))++++++instance Read Curry.Module.XML.C_Encoding where+  readsPrec d r = (Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.XML.C_StandardEnc)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("StandardEnc")(r)])(r))(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.XML.C_Iso88591Enc)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("Iso88591Enc")(r)])(r))++++++instance Read Curry.Module.XML.C_XmlDocParams where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.XML.C_Enc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("Enc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.XML.C_DtdUrl(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("XML")("DtdUrl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))++++++c_encoding2Attribute :: Curry.Module.XML.C_Encoding -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_encoding2Attribute x1@Curry.Module.XML.C_StandardEnc st = Curry.Module.Prelude.List+c_encoding2Attribute x1@Curry.Module.XML.C_Iso88591Enc st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('8'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('8'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('5'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('9'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))+c_encoding2Attribute (Curry.Module.XML.C_EncodingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_encoding2Attribute(x)(st))(i)(xs)(st)+c_encoding2Attribute x st = Curry.RunTimeSystem.patternFail("XML.encoding2Attribute")(x)++++c_encoding2EncFunc :: Curry.Module.XML.C_Encoding -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_encoding2EncFunc x1@Curry.Module.XML.C_StandardEnc st = Curry.Module.Prelude.pf(Curry.Module.XML.c_standardEncoding)+c_encoding2EncFunc x1@Curry.Module.XML.C_Iso88591Enc st = Curry.Module.Prelude.pf(Curry.Module.XML.c_iso88591Encoding)+c_encoding2EncFunc (Curry.Module.XML.C_EncodingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_encoding2EncFunc(x)(st))(i)(xs)(st)+c_encoding2EncFunc x st = Curry.RunTimeSystem.patternFail("XML.encoding2EncFunc")(x)++++c_standardEncoding :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_standardEncoding x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_standardEncoding x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_standardEncoding_case_68(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('<'))(st))(st)+c_standardEncoding (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding(x)(st))(i)(xs)(st)+c_standardEncoding x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding")(x)++++c_iso88591Encoding :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_iso88591Encoding x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_iso88591Encoding x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_iso88591Encoding_case_60(x2)(x3)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(Curry.Module.Prelude.c_ord(x2)(st))(st))(Curry.Module.XML.c_iso88591list(st))(st))(st)+c_iso88591Encoding (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_iso88591Encoding(x)(st))(i)(xs)(st)+c_iso88591Encoding x st = Curry.RunTimeSystem.patternFail("XML.iso88591Encoding")(x)++++c_iso88591list :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_iso88591list st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))++++c_lookupEncoding :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_Encoding+c_lookupEncoding x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_lookupEncoding_case_59(x3)(x2)(st)+c_lookupEncoding x1@Curry.Module.Prelude.List st = Curry.Module.XML.C_StandardEnc+c_lookupEncoding (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_lookupEncoding(x)(st))(i)(xs)(st)+c_lookupEncoding x st = Curry.RunTimeSystem.patternFail("XML.lookupEncoding")(x)++++c_lookupDtdUrl :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lookupDtdUrl x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_lookupDtdUrl_case_58(x3)(x2)(st)+c_lookupDtdUrl (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_lookupDtdUrl(x)(st))(i)(xs)(st)+c_lookupDtdUrl x st = Curry.RunTimeSystem.patternFail("XML.lookupDtdUrl")(x)++++c_hasDtdUrl :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_hasDtdUrl x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_hasDtdUrl x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_hasDtdUrl_case_57(x3)(x2)(st)+c_hasDtdUrl (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_hasDtdUrl(x)(st))(i)(xs)(st)+c_hasDtdUrl x st = Curry.RunTimeSystem.patternFail("XML.hasDtdUrl")(x)++++c_xtxt :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xtxt x1 st = Curry.Module.XML.C_XText(x1)++++c_xml :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xml x1 x2 st = Curry.Module.XML.C_XElem(x1)(Curry.Module.Prelude.List)(x2)++++c_writeXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeXmlFile x1 x2 st = Curry.Module.XML.c_writeXmlFileWithParams(x1)((Curry.Module.Prelude.:<)(Curry.Module.XML.C_Enc(Curry.Module.XML.C_StandardEnc))(Curry.Module.Prelude.List))(x2)(st)++++c_writeXmlFileWithParams :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_writeXmlFileWithParams x1 x2 x3 st = Curry.Module.Prelude.c_writeFile(x1)(Curry.Module.XML.c_showXmlDocWithParams(x2)(x3)(st))(st)++++c_showXmlDoc :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlDoc x1 st = Curry.Module.XML.c_showXmlDocWithParams(Curry.Module.Prelude.List)(x1)(st)++++c_showXmlDocWithParams :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlDocWithParams x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_encoding2Attribute(Curry.Module.XML.c_lookupEncoding(x1)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_showXmlDocWithParams_case_56(x1)(Curry.Module.XML.c_hasDtdUrl(x1)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_showXmlDocWithParams_case_55(x1)(x3)(Curry.Module.XML.c_hasDtdUrl(x1)(st))(st))(Curry.Module.XML.c_showXmlExp(Curry.Module.Prelude.C_Zero)(Curry.Module.XML.c_encoding2EncFunc(Curry.Module.XML.c_lookupEncoding(x1)(st))(st))(Curry.Module.XML.C_XElem(x3)(x4)(x5))(st))(st))(st))(st))(st))(st))(st)+c_showXmlDocWithParams x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlDocWithParams(x1)(x)(st))(i)(xs)(st)+c_showXmlDocWithParams x1 x st = Curry.RunTimeSystem.patternFail("XML.showXmlDocWithParams")(x)++++c_showXmlExp :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExp x1 x2 x3@(Curry.Module.XML.C_XText x4) st = Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_xtab(x1)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x2)(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st))(st)+c_showXmlExp x1 x2 x3@(Curry.Module.XML.C_XElem x5 x6 x7) st = Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_xtab(x1)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_showXmlOpenTag(x5)(x6)(x2)(st))(Curry.Module.XML.c_showXmlExp_case_54(x1)(x2)(x5)(x7)(Curry.Module.Prelude.op_61_61(x7)(Curry.Module.Prelude.List)(st))(st))(st))(st)+c_showXmlExp x1 x2 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp(x1)(x2)(x)(st))(i)(xs)(st)+c_showXmlExp x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp")(x)++++c_showXmlExp'46_'35selFP3'35s :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExp'46_'35selFP3'35s x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s_case_52(x3)(x2)(st)+c_showXmlExp'46_'35selFP3'35s (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s(x)(st))(i)(xs)(st)+c_showXmlExp'46_'35selFP3'35s x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp._#selFP3#s")(x)++++c_xtab :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xtab x1 st = Curry.Module.Prelude.c_take(x1)(Curry.Module.Prelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(st))(st)++++c_showXmlOpenTag :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0)) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlOpenTag x1 x2 x3 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x1)(Curry.Module.Prelude.c_concat(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.XML.c_showXmlOpenTag'46attr2string'46125(x3)))(st))(x2)(st))(st))(st))(st)++++c_showXmlOpenTag'46attr2string'46125 :: (Curry t130) => (Curry.Module.Prelude.Prim (t130 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t130) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlOpenTag'46attr2string'46125 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x1)(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(st))(st))(st)+c_showXmlOpenTag'46attr2string'46125 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlOpenTag'46attr2string'46125(x1)(x)(st))(i)(xs)(st)+c_showXmlOpenTag'46attr2string'46125 x1 x st = Curry.RunTimeSystem.patternFail("XML.showXmlOpenTag.attr2string.125")(x)++++c_showXmlExps :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExps x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.XML.c_showXmlExp(x1)(x3)))(st))(x2)(st)++++c_isXText :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isXText x1@(Curry.Module.XML.C_XText x2) st = Curry.Module.Prelude.C_True+c_isXText x1@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.Prelude.C_False+c_isXText (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_isXText(x)(st))(i)(xs)(st)+c_isXText x st = Curry.RunTimeSystem.patternFail("XML.isXText")(x)++++c_xmlUnquoteSpecials :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_xmlUnquoteSpecials x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_xmlUnquoteSpecials_case_50(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('&'))(st))(st)+c_xmlUnquoteSpecials (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecials(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecials x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecials")(x)++++c_xmlUnquoteSpecials'46_'35selFP5'35special :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials'46_'35selFP5'35special x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_xmlUnquoteSpecials'46_'35selFP5'35special (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecials'46_'35selFP5'35special(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecials'46_'35selFP5'35special x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecials._#selFP5#special")(x)++++c_xmlUnquoteSpecials'46_'35selFP6'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials'46_'35selFP6'35rest x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_xmlUnquoteSpecials'46_'35selFP6'35rest (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecials'46_'35selFP6'35rest(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecials'46_'35selFP6'35rest x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecials._#selFP6#rest")(x)++++c_xmlUnquoteSpecial :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecial x1 x2 st = Curry.Module.XML.c_xmlUnquoteSpecial_case_48(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))(st))(st)++++c_unquoteUnicode :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unquoteUnicode x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_unquoteUnicode x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_unquoteUnicode_case_35(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('#'))(st))(st)+c_unquoteUnicode (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_unquoteUnicode(x)(st))(i)(xs)(st)+c_unquoteUnicode x st = Curry.RunTimeSystem.patternFail("XML.unquoteUnicode")(x)++++c_readXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.XML.C_XmlExp+c_readXmlFile x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.XML.c_readXmlFile'46_'35lambda3(x1)))(st)++++c_readXmlFile'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.XML.C_XmlExp+c_readXmlFile'46_'35lambda3 x1 x2 st = let {x3 = Curry.Module.XML.c_parseXmlString(x2)(st)} in Curry.Module.XML.c_readXmlFile'46_'35lambda3_case_31(x1)(x3)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.List)(st))(st)++++c_readUnsafeXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.XML.C_XmlExp)+c_readUnsafeXmlFile x1 st = Curry.Module.Prelude.c_catchFail(Curry.Module.Prelude.op_62_62_61(Curry.Module.XML.c_readXmlFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(st))(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Nothing)(st))(st)++++c_showXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_showXmlFile x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.XML.c_readXmlFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_putStr))(Curry.Module.Prelude.pf(Curry.Module.XML.c_showXmlDoc))(st))(st)++++c_readFileWithXmlDocs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)+c_readFileWithXmlDocs x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Prelude.c_readFile(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.XML.c_parseXmlString))(st))(st)++++c_parseXmlString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlString x1 st = Curry.Module.Prelude.c_fst(Curry.Module.XML.c_parseXmlTokens(Curry.Module.XML.c_scanXmlString(x1)(st))(Curry.Module.Prelude.C_Nothing)(st))(st)++++c_parseXmlTokens :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)+c_parseXmlTokens x1@Curry.Module.Prelude.List x2 st = Curry.Module.XML.c_parseXmlTokens_case_29(x2)(st)+c_parseXmlTokens x1@((Curry.Module.Prelude.:<) x3 x4) x2 st = Curry.Module.XML.c_parseXmlTokens_case_28(x2)(x4)(x3)(st)+c_parseXmlTokens (Curry.Module.Prelude.ListOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens(x)(x2)(st))(i)(xs)(st)+c_parseXmlTokens x x2 st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens")(x)++++c_parseXmlTokens'46_'35selFP8'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP8'35xexps x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseXmlTokens'46_'35selFP8'35xexps (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP8'35xexps(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP8'35xexps x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP8#xexps")(x)++++c_parseXmlTokens'46_'35selFP9'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP9'35rem_xtokens x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseXmlTokens'46_'35selFP9'35rem_xtokens (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP9'35rem_xtokens(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP9'35rem_xtokens x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP9#rem_xtokens")(x)++++c_parseXmlTokens'46_'35selFP14'35xexps1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP14'35xexps1 x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseXmlTokens'46_'35selFP14'35xexps1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP14'35xexps1(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP14'35xexps1 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP14#xexps1")(x)++++c_parseXmlTokens'46_'35selFP15'35xtokens1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP15'35xtokens1 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseXmlTokens'46_'35selFP15'35xtokens1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP15'35xtokens1(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP15'35xtokens1 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP15#xtokens1")(x)++++c_parseXmlTokens'46_'35selFP12'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP12'35xexps x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseXmlTokens'46_'35selFP12'35xexps (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP12'35xexps(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP12'35xexps x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP12#xexps")(x)++++c_parseXmlTokens'46_'35selFP13'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP13'35rem_xtokens x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseXmlTokens'46_'35selFP13'35rem_xtokens (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP13'35rem_xtokens(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP13'35rem_xtokens x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP13#rem_xtokens")(x)++++c_parseXmlTokens'46_'35selFP17'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP17'35xexps x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseXmlTokens'46_'35selFP17'35xexps (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP17'35xexps(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP17'35xexps x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP17#xexps")(x)++++c_parseXmlTokens'46_'35selFP18'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP18'35rem_xtokens x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseXmlTokens'46_'35selFP18'35rem_xtokens (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP18'35rem_xtokens(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP18'35rem_xtokens x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP18#rem_xtokens")(x)++++c_parseXmlTokens'46_'35selFP20'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP20'35xexps x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseXmlTokens'46_'35selFP20'35xexps (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP20'35xexps(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP20'35xexps x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP20#xexps")(x)++++c_parseXmlTokens'46_'35selFP21'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP21'35rem_xtokens x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseXmlTokens'46_'35selFP21'35rem_xtokens (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens'46_'35selFP21'35rem_xtokens(x)(st))(i)(xs)(st)+c_parseXmlTokens'46_'35selFP21'35rem_xtokens x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens._#selFP21#rem_xtokens")(x)++++c_scanXmlString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlString x1 st = Curry.Module.XML.c_scanXmlString'46scanXml'46191(Curry.Module.Prelude.c_apply(Curry.Module.XML.c_dropBlanks(st))(x1)(st))(st)++++c_scanXmlString'46scanXml'46191 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlString'46scanXml'46191 x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_scanXmlString'46scanXml'46191 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_scanXmlString'46scanXml'46191_case_22(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('<'))(st))(st)+c_scanXmlString'46scanXml'46191 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlString'46scanXml'46191(x)(st))(i)(xs)(st)+c_scanXmlString'46scanXml'46191 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlString.scanXml.191")(x)++++c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt(x)(st))(i)(xs)(st)+c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt x st = Curry.RunTimeSystem.patternFail("XML.scanXmlString.scanXml.191._#selFP23#initxt")(x)++++c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag(x)(st))(i)(xs)(st)+c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag x st = Curry.RunTimeSystem.patternFail("XML.scanXmlString.scanXml.191._#selFP24#remtag")(x)++++c_scanXmlText :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_scanXmlText x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_scanXmlText x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_scanXmlText_case_21(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('<'))(st))(st)+c_scanXmlText (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText(x)(st))(i)(xs)(st)+c_scanXmlText x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText")(x)++++c_scanXmlText'46_'35selFP26'35txt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP26'35txt x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_scanXmlText'46_'35selFP26'35txt (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText'46_'35selFP26'35txt(x)(st))(i)(xs)(st)+c_scanXmlText'46_'35selFP26'35txt x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText._#selFP26#txt")(x)++++c_scanXmlText'46_'35selFP27'35rem :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP27'35rem x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_scanXmlText'46_'35selFP27'35rem (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText'46_'35selFP27'35rem(x)(st))(i)(xs)(st)+c_scanXmlText'46_'35selFP27'35rem x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText._#selFP27#rem")(x)++++c_scanXmlText'46_'35selFP29'35txt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP29'35txt x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_scanXmlText'46_'35selFP29'35txt (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText'46_'35selFP29'35txt(x)(st))(i)(xs)(st)+c_scanXmlText'46_'35selFP29'35txt x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText._#selFP29#txt")(x)++++c_scanXmlText'46_'35selFP30'35rem :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP30'35rem x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_scanXmlText'46_'35selFP30'35rem (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText'46_'35selFP30'35rem(x)(st))(i)(xs)(st)+c_scanXmlText'46_'35selFP30'35rem x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText._#selFP30#rem")(x)++++c_scanXmlElem :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlElem x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_scanXmlElem x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_scanXmlElem_case_17(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('!'))(st))(st)+c_scanXmlElem (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElem(x)(st))(i)(xs)(st)+c_scanXmlElem x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElem")(x)++++c_scanXmlElemName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlElemName x1 x2@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x1))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)+c_scanXmlElemName x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.XML.c_scanXmlElemName_case_13(x1)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('>'))(st))(st)+c_scanXmlElemName x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName(x1)(x)(st))(i)(xs)(st)+c_scanXmlElemName x1 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName")(x)++++c_scanXmlElemName'46_'35selFP32'35attrs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_scanXmlElemName'46_'35selFP32'35attrs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_scanXmlElemName'46_'35selFP32'35attrs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName'46_'35selFP32'35attrs(x)(st))(i)(xs)(st)+c_scanXmlElemName'46_'35selFP32'35attrs x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName._#selFP32#attrs")(x)++++c_scanXmlElemName'46_'35selFP33'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlElemName'46_'35selFP33'35rest x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_scanXmlElemName'46_'35selFP33'35rest (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName'46_'35selFP33'35rest(x)(st))(i)(xs)(st)+c_scanXmlElemName'46_'35selFP33'35rest x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName._#selFP33#rest")(x)++++c_scanXmlComment :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlComment x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_scanXmlComment x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_scanXmlComment_case_8(x2)(x3)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('-'))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))(st))(st))(st)+c_scanXmlComment (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlComment(x)(st))(i)(xs)(st)+c_scanXmlComment x st = Curry.RunTimeSystem.patternFail("XML.scanXmlComment")(x)++++c_scanXmlCData :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlCData x1 st = let {x2 = Curry.Module.XML.c_dropCData(x1)(st)} in Curry.Module.XML.c_scanXmlCData_case_7(x2)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x2)(st))(Curry.Module.Prelude.C_Char('>'))(st))(st)++++c_dropCData :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dropCData x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_dropCData x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_dropCData_case_6(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('['))(st))(st)+c_dropCData (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_dropCData(x)(st))(i)(xs)(st)+c_dropCData x st = Curry.RunTimeSystem.patternFail("XML.dropCData")(x)++++c_scanXmlProcInstr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlProcInstr x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_scanXmlProcInstr x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_scanXmlProcInstr_case_3(x2)(x3)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('?'))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x3)(st))(Curry.Module.Prelude.C_Char('>'))(st))(st))(st)+c_scanXmlProcInstr (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlProcInstr(x)(st))(i)(xs)(st)+c_scanXmlProcInstr x st = Curry.RunTimeSystem.patternFail("XML.scanXmlProcInstr")(x)++++c_parseAttrs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_parseAttrs x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_parseAttrs x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.XML.c_parseAttrs_case_2(x2)(x3)(Curry.Module.Char.c_isAlpha(x2)(st))(st)+c_parseAttrs (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs(x)(st))(i)(xs)(st)+c_parseAttrs x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs")(x)++++c_parseAttrs'46_'35selFP41'35name :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP41'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseAttrs'46_'35selFP41'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP41'35name(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP41'35name x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP41#name")(x)++++c_parseAttrs'46_'35selFP42'35rest1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP42'35rest1 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseAttrs'46_'35selFP42'35rest1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP42'35rest1(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP42'35rest1 x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP42#rest1")(x)++++c_parseAttrs'46_'35selFP39'35value :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP39'35value x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseAttrs'46_'35selFP39'35value (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP39'35value(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP39'35value x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP39#value")(x)++++c_parseAttrs'46_'35selFP40'35rest2 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP40'35rest2 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseAttrs'46_'35selFP40'35rest2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP40'35rest2(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP40'35rest2 x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP40#rest2")(x)++++c_parseAttrs'46_'35selFP37'35rem_attrs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_parseAttrs'46_'35selFP37'35rem_attrs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_parseAttrs'46_'35selFP37'35rem_attrs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP37'35rem_attrs(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP37'35rem_attrs x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP37#rem_attrs")(x)++++c_parseAttrs'46_'35selFP38'35rem_inp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP38'35rem_inp x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_parseAttrs'46_'35selFP38'35rem_inp (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs'46_'35selFP38'35rem_inp(x)(st))(i)(xs)(st)+c_parseAttrs'46_'35selFP38'35rem_inp x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs._#selFP38#rem_inp")(x)++++c_dropBlanks :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_dropBlanks st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_dropWhile(Curry.Module.Prelude.pf(Curry.Module.Char.c_isSpace)))++++c_splitAtChar :: (Curry t0) => t0 -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_splitAtChar x1 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_splitAtChar x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.XML.c_splitAtChar_case_0(x1)(x3)(x4)(Curry.Module.Prelude.op_61_61(x3)(x1)(st))(st)+c_splitAtChar x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_splitAtChar(x1)(x)(st))(i)(xs)(st)+c_splitAtChar x1 x st = Curry.RunTimeSystem.patternFail("XML.splitAtChar")(x)++++c_splitAtChar'46_'35selFP44'35first :: (Curry t231) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t231) (Curry.Module.Prelude.List t231)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t231+c_splitAtChar'46_'35selFP44'35first x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_splitAtChar'46_'35selFP44'35first (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_splitAtChar'46_'35selFP44'35first(x)(st))(i)(xs)(st)+c_splitAtChar'46_'35selFP44'35first x st = Curry.RunTimeSystem.patternFail("XML.splitAtChar._#selFP44#first")(x)++++c_splitAtChar'46_'35selFP45'35rest :: (Curry t231) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t231) (Curry.Module.Prelude.List t231)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t231+c_splitAtChar'46_'35selFP45'35rest x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_splitAtChar'46_'35selFP45'35rest (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_splitAtChar'46_'35selFP45'35rest(x)(st))(i)(xs)(st)+c_splitAtChar'46_'35selFP45'35rest x st = Curry.RunTimeSystem.patternFail("XML.splitAtChar._#selFP45#rest")(x)++++c_textOfXml :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_textOfXml x1 st = Curry.Module.Prelude.c_concat(Curry.Module.List.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_filter(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_not))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_null))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.XML.c_textOfXml'46textOfXmlItem'46255))(x1)(st))(st))(st))(st)++++c_textOfXml'46textOfXmlItem'46255 :: Curry.Module.XML.C_XmlExp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_textOfXml'46textOfXmlItem'46255 x1@(Curry.Module.XML.C_XText x2) st = x2+c_textOfXml'46textOfXmlItem'46255 x1@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.XML.c_textOfXml(x5)(st)+c_textOfXml'46textOfXmlItem'46255 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_textOfXml'46textOfXmlItem'46255(x)(st))(i)(xs)(st)+c_textOfXml'46textOfXmlItem'46255 x st = Curry.RunTimeSystem.patternFail("XML.textOfXml.textOfXmlItem.255")(x)++++c_splitAtChar_case_0 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x4)+c_splitAtChar_case_0 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.XML.c_splitAtChar(x1)(x4)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(Curry.Module.XML.c_splitAtChar'46_'35selFP44'35first(x5)(st)))(Curry.Module.XML.c_splitAtChar'46_'35selFP45'35rest(x5)(st))+c_splitAtChar_case_0 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_splitAtChar_case_0(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_splitAtChar_case_0 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("XML.splitAtChar_case_0")(x)++++c_parseAttrs_case_2 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.XML.c_splitAtChar(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(x2)(x3))(st)} in let {x7 = Curry.Module.XML.c_splitAtChar(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.c_tail(Curry.Module.XML.c_parseAttrs'46_'35selFP42'35rest1(x4)(st))(st))(st)} in let {x10 = Curry.Module.XML.c_parseAttrs(Curry.Module.Prelude.c_apply(Curry.Module.XML.c_dropBlanks(st))(Curry.Module.XML.c_parseAttrs'46_'35selFP40'35rest2(x7)(st))(st))(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.XML.c_parseAttrs'46_'35selFP41'35name(x4)(st))(Curry.Module.XML.c_xmlUnquoteSpecials(Curry.Module.XML.c_parseAttrs'46_'35selFP39'35value(x7)(st))(st)))(Curry.Module.XML.c_parseAttrs'46_'35selFP37'35rem_attrs(x10)(st)))(Curry.Module.XML.c_parseAttrs'46_'35selFP38'35rem_inp(x10)(st))+c_parseAttrs_case_2 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_parseAttrs_case_1(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_parseAttrs_case_2 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs_case_2(x2)(x3)(x)(st))(i)(xs)(st)+c_parseAttrs_case_2 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs_case_2")(x)++++c_parseAttrs_case_1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(x2)(x3))+c_parseAttrs_case_1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseAttrs_case_1(x2)(x3)(x)(st))(i)(xs)(st)+c_parseAttrs_case_1 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.parseAttrs_case_1")(x)++++c_scanXmlProcInstr_case_3 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_tail(x3)(st))(st)+c_scanXmlProcInstr_case_3 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlProcInstr(x3)(st)+c_scanXmlProcInstr_case_3 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlProcInstr_case_3(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlProcInstr_case_3 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlProcInstr_case_3")(x)++++c_dropCData_case_6 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_tail(Curry.Module.Prelude.c_dropWhile(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_47_61))(Curry.Module.Prelude.C_Char(']'))))(x3)(st))(st)+c_dropCData_case_6 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_dropCData_case_5(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('>'))(st))(st)+c_dropCData_case_6 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_dropCData_case_6(x2)(x3)(x)(st))(i)(xs)(st)+c_dropCData_case_6 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.dropCData_case_6")(x)++++c_dropCData_case_5 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)(x3)+c_dropCData_case_5 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_dropCData_case_4(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_dropCData_case_5 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_dropCData_case_5(x2)(x3)(x)(st))(i)(xs)(st)+c_dropCData_case_5 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.dropCData_case_5")(x)++++c_dropCData_case_4 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_dropCData(x3)(st)+c_dropCData_case_4 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_dropCData_case_4(x3)(x)(st))(i)(xs)(st)+c_dropCData_case_4 x3 x st = Curry.RunTimeSystem.patternFail("XML.dropCData_case_4")(x)++++c_scanXmlCData_case_7 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_tail(x2)(st))(st)+c_scanXmlCData_case_7 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlCData(x2)(st)+c_scanXmlCData_case_7 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlCData_case_7(x2)(x)(st))(i)(xs)(st)+c_scanXmlCData_case_7 x2 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlCData_case_7")(x)++++c_scanXmlComment_case_8 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))(st)+c_scanXmlComment_case_8 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlComment(x3)(st)+c_scanXmlComment_case_8 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlComment_case_8(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlComment_case_8 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlComment_case_8")(x)++++c_scanXmlElemName_case_13 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x1))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.XML.c_scanXmlString(x4)(st))+c_scanXmlElemName_case_13 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlElemName_case_12(x1)(x3)(x4)(Curry.Module.Char.c_isSpace(x3)(st))(st)+c_scanXmlElemName_case_13 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName_case_13(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_scanXmlElemName_case_13 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName_case_13")(x)++++c_scanXmlElemName_case_12 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.XML.c_parseAttrs(Curry.Module.Prelude.c_apply(Curry.Module.XML.c_dropBlanks(st))(x4)(st))(st)} in let {x6 = Curry.Module.XML.c_scanXmlElemName'46_'35selFP32'35attrs(x5)(st)} in let {x7 = Curry.Module.XML.c_scanXmlElemName'46_'35selFP33'35rest(x5)(st)} in Curry.Module.XML.c_scanXmlElemName_case_11(x1)(x6)(x7)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x7)(st))(Curry.Module.Prelude.C_Char('/'))(st))(st)+c_scanXmlElemName_case_12 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlElemName_case_10(x1)(x3)(x4)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('/'))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x4)(st))(Curry.Module.Prelude.C_Char('>'))(st))(st))(st)+c_scanXmlElemName_case_12 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName_case_12(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_scanXmlElemName_case_12 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName_case_12")(x)++++c_scanXmlElemName_case_10 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x1)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_tail(x4)(st))(st))+c_scanXmlElemName_case_10 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlElemName_case_9(x1)(x3)(x4)(Curry.Module.Prelude.c_otherwise(st))(st)+c_scanXmlElemName_case_10 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName_case_10(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_scanXmlElemName_case_10 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName_case_10")(x)++++c_scanXmlElemName_case_9 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlElemName(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st))(x4)(st)+c_scanXmlElemName_case_9 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName_case_9(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_scanXmlElemName_case_9 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName_case_9")(x)++++c_scanXmlElemName_case_11 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x1)(x6)(Curry.Module.Prelude.List))(Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(st))+c_scanXmlElemName_case_11 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x1))(x6)(Curry.Module.Prelude.List))(Curry.Module.XML.c_scanXmlString(Curry.Module.Prelude.c_tail(x7)(st))(st))+c_scanXmlElemName_case_11 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElemName_case_11(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c_scanXmlElemName_case_11 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElemName_case_11")(x)++++c_scanXmlElem_case_17 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlElem_case_16(x3)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List)))(st))(st)+c_scanXmlElem_case_17 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlElem_case_15(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('?'))(st))(st)+c_scanXmlElem_case_17 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElem_case_17(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlElem_case_17 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElem_case_17")(x)++++c_scanXmlElem_case_15 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlProcInstr(x3)(st)+c_scanXmlElem_case_15 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlElem_case_14(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_scanXmlElem_case_15 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElem_case_15(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlElem_case_15 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElem_case_15")(x)++++c_scanXmlElem_case_14 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlElemName((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(x3)(st)+c_scanXmlElem_case_14 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElem_case_14(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlElem_case_14 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElem_case_14")(x)++++c_scanXmlElem_case_16 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlComment(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))(st)+c_scanXmlElem_case_16 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlCData(x3)(st)+c_scanXmlElem_case_16 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlElem_case_16(x3)(x)(st))(i)(xs)(st)+c_scanXmlElem_case_16 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlElem_case_16")(x)++++c_scanXmlText_case_21 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(x2)(x3))+c_scanXmlText_case_21 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlText_case_20(x2)(x3)(Curry.Module.Char.c_isSpace(x2)(st))(st)+c_scanXmlText_case_21 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText_case_21(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlText_case_21 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText_case_21")(x)++++c_scanXmlText_case_20 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.XML.c_scanXmlText(Curry.Module.Prelude.c_apply(Curry.Module.XML.c_dropBlanks(st))(x3)(st))(st)} in let {x5 = Curry.Module.XML.c_scanXmlText'46_'35selFP26'35txt(x4)(st)} in Curry.Module.Prelude.T2(Curry.Module.XML.c_scanXmlText_case_19(x5)(Curry.Module.Prelude.c_null(x5)(st))(st))(Curry.Module.XML.c_scanXmlText'46_'35selFP27'35rem(x4)(st))+c_scanXmlText_case_20 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_scanXmlText_case_18(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_scanXmlText_case_20 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText_case_20(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlText_case_20 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText_case_20")(x)++++c_scanXmlText_case_18 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.XML.c_scanXmlText(x3)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x2)(Curry.Module.XML.c_scanXmlText'46_'35selFP29'35txt(x7)(st)))(Curry.Module.XML.c_scanXmlText'46_'35selFP30'35rem(x7)(st))+c_scanXmlText_case_18 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText_case_18(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlText_case_18 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText_case_18")(x)++++c_scanXmlText_case_19 x5 x6@Curry.Module.Prelude.C_True st = x5+c_scanXmlText_case_19 x5 x6@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(x5)+c_scanXmlText_case_19 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlText_case_19(x5)(x)(st))(i)(xs)(st)+c_scanXmlText_case_19 x5 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlText_case_19")(x)++++c_scanXmlString'46scanXml'46191_case_22 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_scanXmlElem(x3)(st)+c_scanXmlString'46scanXml'46191_case_22 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.XML.c_scanXmlText((Curry.Module.Prelude.:<)(x2)(x3))(st)} in (Curry.Module.Prelude.:<)(Curry.Module.XML.C_XText(Curry.Module.XML.c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt(x4)(st)))(Curry.Module.XML.c_scanXmlString'46scanXml'46191(Curry.Module.XML.c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag(x4)(st))(st))+c_scanXmlString'46scanXml'46191_case_22 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_scanXmlString'46scanXml'46191_case_22(x2)(x3)(x)(st))(i)(xs)(st)+c_scanXmlString'46scanXml'46191_case_22 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.scanXmlString.scanXml.191_case_22")(x)++++c_parseXmlTokens_case_28 x2 x4 x3@(Curry.Module.XML.C_XText x5) st = let {x6 = Curry.Module.XML.c_parseXmlTokens(x4)(x2)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XText(Curry.Module.XML.c_xmlUnquoteSpecials(x5)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP8'35xexps(x6)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP9'35rem_xtokens(x6)(st))+c_parseXmlTokens_case_28 x2 x4 x3@(Curry.Module.XML.C_XElem x9 x10 x11) st = Curry.Module.XML.c_parseXmlTokens_case_27(x2)(x4)(x10)(x11)(x9)(st)+c_parseXmlTokens_case_28 x2 x4 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_28(x2)(x4)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_28 x2 x4 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_28")(x)++++c_parseXmlTokens_case_27 x2 x4 x10 x11 x9@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.XML.c_parseXmlTokens_case_26(x2)(x4)(x10)(x11)(x12)(x13)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x12)(Curry.Module.Prelude.C_Char('<'))(st))(Curry.Module.Prelude.op_47_61(Curry.Module.Prelude.c_head(x13)(st))(Curry.Module.Prelude.C_Char('/'))(st))(st))(st)+c_parseXmlTokens_case_27 x2 x4 x10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_27(x2)(x4)(x10)(x11)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_27 x2 x4 x10 x11 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_27")(x)++++c_parseXmlTokens_case_26 x2 x4 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = let {x14 = Curry.Module.XML.c_parseXmlTokens(x4)(Curry.Module.Prelude.C_Just(x13))(st)} in let {x17 = Curry.Module.XML.c_parseXmlTokens(Curry.Module.XML.c_parseXmlTokens'46_'35selFP15'35xtokens1(x14)(st))(x2)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x13)(x10)(Curry.Module.XML.c_parseXmlTokens'46_'35selFP14'35xexps1(x14)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP12'35xexps(x17)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP13'35rem_xtokens(x17)(st))+c_parseXmlTokens_case_26 x2 x4 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_parseXmlTokens_case_25(x2)(x4)(x10)(x11)(x12)(x13)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x12)(Curry.Module.Prelude.C_Char('<'))(st))(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_head(x13)(st))(Curry.Module.Prelude.C_Char('/'))(st))(st))(st)+c_parseXmlTokens_case_26 x2 x4 x10 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_26(x2)(x4)(x10)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_26 x2 x4 x10 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_26")(x)++++c_parseXmlTokens_case_25 x2 x4 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_parseXmlTokens_case_24(x2)(x4)(x10)(x11)(x13)(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.op_61_61))(Curry.Module.Prelude.c_tail(x13)(st))))(x2)(st))(st)+c_parseXmlTokens_case_25 x2 x4 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_parseXmlTokens_case_23(x2)(x4)(x10)(x11)(x12)(x13)(Curry.Module.Prelude.c_otherwise(st))(st)+c_parseXmlTokens_case_25 x2 x4 x10 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_25(x2)(x4)(x10)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_25 x2 x4 x10 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_25")(x)++++c_parseXmlTokens_case_23 x2 x4 x10 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = let {x23 = Curry.Module.XML.c_parseXmlTokens(x4)(x2)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(x12)(x13))(x10)(x11))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP20'35xexps(x23)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP21'35rem_xtokens(x23)(st))+c_parseXmlTokens_case_23 x2 x4 x10 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_23(x2)(x4)(x10)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_23 x2 x4 x10 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_23")(x)++++c_parseXmlTokens_case_24 x2 x4 x10 x11 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x4)+c_parseXmlTokens_case_24 x2 x4 x10 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.XML.c_parseXmlTokens(x4)(x2)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x13)(x10)(x11))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP17'35xexps(x20)(st)))(Curry.Module.XML.c_parseXmlTokens'46_'35selFP18'35rem_xtokens(x20)(st))+c_parseXmlTokens_case_24 x2 x4 x10 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_24(x2)(x4)(x10)(x11)(x13)(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_24 x2 x4 x10 x11 x13 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_24")(x)++++c_parseXmlTokens_case_29 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_parseXmlTokens_case_29 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_parseXmlTokens_case_29(x)(st))(i)(xs)(st)+c_parseXmlTokens_case_29 x st = Curry.RunTimeSystem.patternFail("XML.parseXmlTokens_case_29")(x)++++c_readXmlFile'46_'35lambda3_case_31 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(st))(st))(st)+c_readXmlFile'46_'35lambda3_case_31 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_readXmlFile'46_'35lambda3_case_30(x1)(x3)(Curry.Module.Prelude.op_47_61(Curry.Module.Prelude.c_tail(x3)(st))(Curry.Module.Prelude.List)(st))(st)+c_readXmlFile'46_'35lambda3_case_31 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_readXmlFile'46_'35lambda3_case_31(x1)(x3)(x)(st))(i)(xs)(st)+c_readXmlFile'46_'35lambda3_case_31 x1 x3 x st = Curry.RunTimeSystem.patternFail("XML.readXmlFile._#lambda3_case_31")(x)++++c_readXmlFile'46_'35lambda3_case_30 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(st))(st))(st)+c_readXmlFile'46_'35lambda3_case_30 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.c_head(x3)(st))(st)+c_readXmlFile'46_'35lambda3_case_30 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_readXmlFile'46_'35lambda3_case_30(x1)(x3)(x)(st))(i)(xs)(st)+c_readXmlFile'46_'35lambda3_case_30 x1 x3 x st = Curry.RunTimeSystem.patternFail("XML.readXmlFile._#lambda3_case_30")(x)++++c_unquoteUnicode_case_35 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.XML.c_unquoteUnicode_case_34(x3)(st)+c_unquoteUnicode_case_35 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_unquoteUnicode_case_32(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_unquoteUnicode_case_35 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_unquoteUnicode_case_35(x2)(x3)(x)(st))(i)(xs)(st)+c_unquoteUnicode_case_35 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.unquoteUnicode_case_35")(x)++++c_unquoteUnicode_case_32 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(x2)(x3))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(st))+c_unquoteUnicode_case_32 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_unquoteUnicode_case_32(x2)(x3)(x)(st))(i)(xs)(st)+c_unquoteUnicode_case_32 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.unquoteUnicode_case_32")(x)++++c_unquoteUnicode_case_34 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.XML.c_unquoteUnicode_case_33(x3)(x4)(x5)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('x'))(st))(st)+c_unquoteUnicode_case_34 x3@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Read.c_readInt(x3)(st))(st))(Curry.Module.Prelude.List)+c_unquoteUnicode_case_34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_unquoteUnicode_case_34(x)(st))(i)(xs)(st)+c_unquoteUnicode_case_34 x st = Curry.RunTimeSystem.patternFail("XML.unquoteUnicode_case_34")(x)++++c_unquoteUnicode_case_33 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Read.c_readHex(x5)(st))(st))(Curry.Module.Prelude.List)+c_unquoteUnicode_case_33 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Read.c_readInt(x3)(st))(st))(Curry.Module.Prelude.List)+c_unquoteUnicode_case_33 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_unquoteUnicode_case_33(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_unquoteUnicode_case_33 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("XML.unquoteUnicode_case_33")(x)++++c_xmlUnquoteSpecial_case_48 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_48 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_47(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))(st))(st)+c_xmlUnquoteSpecial_case_48 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_48(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_48 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_48")(x)++++c_xmlUnquoteSpecial_case_47 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_47 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_46(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List))))(st))(st)+c_xmlUnquoteSpecial_case_47 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_47(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_47 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_47")(x)++++c_xmlUnquoteSpecial_case_46 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_46 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_45(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_46 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_46(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_46 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_46")(x)++++c_xmlUnquoteSpecial_case_45 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_45 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_44(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_45 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_45(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_45 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_45")(x)++++c_xmlUnquoteSpecial_case_44 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_44 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_43(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_44 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_44(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_44 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_44")(x)++++c_xmlUnquoteSpecial_case_43 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_43 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_42(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_43 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_43(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_43 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_43")(x)++++c_xmlUnquoteSpecial_case_42 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_42 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_41(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_42 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_42(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_42 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_42")(x)++++c_xmlUnquoteSpecial_case_41 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_41 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_40(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_41 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_41(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_41 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_41")(x)++++c_xmlUnquoteSpecial_case_40 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_40 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_39(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_40 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_40(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_40 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_40")(x)++++c_xmlUnquoteSpecial_case_39 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_39 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_38(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(st)+c_xmlUnquoteSpecial_case_39 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_39(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_39 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_39")(x)++++c_xmlUnquoteSpecial_case_38 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_38 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_37(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))(st))(st)+c_xmlUnquoteSpecial_case_38 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_38(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_38 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_38")(x)++++c_xmlUnquoteSpecial_case_37 x1 x2 x3@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))+c_xmlUnquoteSpecial_case_37 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecial_case_36(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_xmlUnquoteSpecial_case_37 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_37(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_37 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_37")(x)++++c_xmlUnquoteSpecial_case_36 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_unquoteUnicode(x1)(st))(Curry.Module.XML.c_xmlUnquoteSpecials(x2)(st))(st)+c_xmlUnquoteSpecial_case_36 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecial_case_36(x1)(x2)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecial_case_36 x1 x2 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecial_case_36")(x)++++c_xmlUnquoteSpecials_case_50 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.XML.c_splitAtChar(Curry.Module.Prelude.C_Char(';'))(x3)(st)} in Curry.Module.XML.c_xmlUnquoteSpecial(Curry.Module.XML.c_xmlUnquoteSpecials'46_'35selFP5'35special(x4)(st))(Curry.Module.XML.c_xmlUnquoteSpecials'46_'35selFP6'35rest(x4)(st))(st)+c_xmlUnquoteSpecials_case_50 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_xmlUnquoteSpecials_case_49(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_xmlUnquoteSpecials_case_50 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecials_case_50(x2)(x3)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecials_case_50 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecials_case_50")(x)++++c_xmlUnquoteSpecials_case_49 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.XML.c_xmlUnquoteSpecials(x3)(st))+c_xmlUnquoteSpecials_case_49 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_xmlUnquoteSpecials_case_49(x2)(x3)(x)(st))(i)(xs)(st)+c_xmlUnquoteSpecials_case_49 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.xmlUnquoteSpecials_case_49")(x)++++c_showXmlExp'46_'35selFP3'35s_case_52 x3 x2@(Curry.Module.XML.C_XText x4) st = Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s_case_51(x4)(x3)(st)+c_showXmlExp'46_'35selFP3'35s_case_52 x3 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s_case_52(x3)(x)(st))(i)(xs)(st)+c_showXmlExp'46_'35selFP3'35s_case_52 x3 x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp._#selFP3#s_case_52")(x)++++c_showXmlExp'46_'35selFP3'35s_case_51 x4 x3@Curry.Module.Prelude.List st = x4+c_showXmlExp'46_'35selFP3'35s_case_51 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s_case_51(x4)(x)(st))(i)(xs)(st)+c_showXmlExp'46_'35selFP3'35s_case_51 x4 x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp._#selFP3#s_case_51")(x)++++c_showXmlExp_case_54 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))+c_showXmlExp_case_54 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_showXmlExp_case_53(x1)(x2)(x5)(x7)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_length(x7)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.XML.c_isXText(Curry.Module.Prelude.c_head(x7)(st))(st))(st))(st)+c_showXmlExp_case_54 x1 x2 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp_case_54(x1)(x2)(x5)(x7)(x)(st))(i)(xs)(st)+c_showXmlExp_case_54 x1 x2 x5 x7 x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp_case_54")(x)++++c_showXmlExp_case_53 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(x2)(Curry.Module.XML.c_showXmlExp'46_'35selFP3'35s(x7)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st))(st))(st))(st)+c_showXmlExp_case_53 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_showXmlExps(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(x7)(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_xtab(x1)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st))(st))(st))(st))(st)+c_showXmlExp_case_53 x1 x2 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlExp_case_53(x1)(x2)(x5)(x7)(x)(st))(i)(xs)(st)+c_showXmlExp_case_53 x1 x2 x5 x7 x st = Curry.RunTimeSystem.patternFail("XML.showXmlExp_case_53")(x)++++c_showXmlDocWithParams_case_55 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.Prelude.op_43_43(x3)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_lookupDtdUrl(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(st))(st))(st))(st)+c_showXmlDocWithParams_case_55 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_showXmlDocWithParams_case_55 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlDocWithParams_case_55(x1)(x3)(x)(st))(i)(xs)(st)+c_showXmlDocWithParams_case_55 x1 x3 x st = Curry.RunTimeSystem.patternFail("XML.showXmlDocWithParams_case_55")(x)++++c_showXmlDocWithParams_case_56 x1 x2@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))(Curry.Module.Prelude.List))+c_showXmlDocWithParams_case_56 x1 x2@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))+c_showXmlDocWithParams_case_56 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_showXmlDocWithParams_case_56(x1)(x)(st))(i)(xs)(st)+c_showXmlDocWithParams_case_56 x1 x st = Curry.RunTimeSystem.patternFail("XML.showXmlDocWithParams_case_56")(x)++++c_hasDtdUrl_case_57 x3 x2@(Curry.Module.XML.C_DtdUrl x4) st = Curry.Module.Prelude.C_True+c_hasDtdUrl_case_57 x3 x2@(Curry.Module.XML.C_Enc x5) st = Curry.Module.XML.c_hasDtdUrl(x3)(st)+c_hasDtdUrl_case_57 x3 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_hasDtdUrl_case_57(x3)(x)(st))(i)(xs)(st)+c_hasDtdUrl_case_57 x3 x st = Curry.RunTimeSystem.patternFail("XML.hasDtdUrl_case_57")(x)++++c_lookupDtdUrl_case_58 x3 x2@(Curry.Module.XML.C_Enc x4) st = Curry.Module.XML.c_lookupDtdUrl(x3)(st)+c_lookupDtdUrl_case_58 x3 x2@(Curry.Module.XML.C_DtdUrl x5) st = x5+c_lookupDtdUrl_case_58 x3 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_lookupDtdUrl_case_58(x3)(x)(st))(i)(xs)(st)+c_lookupDtdUrl_case_58 x3 x st = Curry.RunTimeSystem.patternFail("XML.lookupDtdUrl_case_58")(x)++++c_lookupEncoding_case_59 x3 x2@(Curry.Module.XML.C_Enc x4) st = x4+c_lookupEncoding_case_59 x3 x2@(Curry.Module.XML.C_DtdUrl x5) st = Curry.Module.XML.c_lookupEncoding(x3)(st)+c_lookupEncoding_case_59 x3 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_lookupEncoding_case_59(x3)(x)(st))(i)(xs)(st)+c_lookupEncoding_case_59 x3 x st = Curry.RunTimeSystem.patternFail("XML.lookupEncoding_case_59")(x)++++c_iso88591Encoding_case_60 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.XML.c_iso88591Encoding(x3)(st))+c_iso88591Encoding_case_60 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43(Curry.Module.XML.c_standardEncoding((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st))(Curry.Module.XML.c_iso88591Encoding(x3)(st))(st)+c_iso88591Encoding_case_60 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_iso88591Encoding_case_60(x2)(x3)(x)(st))(i)(xs)(st)+c_iso88591Encoding_case_60 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.iso88591Encoding_case_60")(x)++++c_standardEncoding_case_68 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))(Curry.Module.XML.c_standardEncoding(x3)(st))(st)+c_standardEncoding_case_68 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_67(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('>'))(st))(st)+c_standardEncoding_case_68 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_68(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_68 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_68")(x)++++c_standardEncoding_case_67 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))(Curry.Module.XML.c_standardEncoding(x3)(st))(st)+c_standardEncoding_case_67 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_66(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('&'))(st))(st)+c_standardEncoding_case_67 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_67(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_67 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_67")(x)++++c_standardEncoding_case_66 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))))))(Curry.Module.XML.c_standardEncoding(x3)(st))(st)+c_standardEncoding_case_66 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_65(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\"'))(st))(st)+c_standardEncoding_case_66 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_66(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_66 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_66")(x)++++c_standardEncoding_case_65 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))))(Curry.Module.XML.c_standardEncoding(x3)(st))(st)+c_standardEncoding_case_65 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_64(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\''))(st))(st)+c_standardEncoding_case_65 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_65(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_65 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_65")(x)++++c_standardEncoding_case_64 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))))(Curry.Module.XML.c_standardEncoding(x3)(st))(st)+c_standardEncoding_case_64 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_63(x2)(x3)(Curry.Module.Prelude.op_60(Curry.Module.Prelude.c_ord(x2)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(st))(st)+c_standardEncoding_case_64 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_64(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_64 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_64")(x)++++c_standardEncoding_case_63 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_ord(x2)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(Curry.Module.XML.c_standardEncoding(x3)(st))(st))(st))(st)+c_standardEncoding_case_63 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_62(x2)(x3)(Curry.Module.Prelude.op_62(Curry.Module.Prelude.c_ord(x2)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st))(st)+c_standardEncoding_case_63 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_63(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_63 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_63")(x)++++c_standardEncoding_case_62 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_ord(x2)(st))(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(Curry.Module.XML.c_standardEncoding(x3)(st))(st))(st))(st)+c_standardEncoding_case_62 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.XML.c_standardEncoding_case_61(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_standardEncoding_case_62 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_62(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_62 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_62")(x)++++c_standardEncoding_case_61 x2 x3 x4@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.XML.c_standardEncoding(x3)(st))+c_standardEncoding_case_61 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.XML.c_standardEncoding_case_61(x2)(x3)(x)(st))(i)(xs)(st)+c_standardEncoding_case_61 x2 x3 x st = Curry.RunTimeSystem.patternFail("XML.standardEncoding_case_61")(x)++
src/Curry/Compiler/Config.hs view
@@ -14,7 +14,7 @@ import Monad  import Curry.Compiler.SafeCalls-import Curry.FlatCurry.Type (readFlat)+import Curry.FlatCurry.Type (readFlat,Prog) import Curry.Compiler.Names import Curry.Compiler.KicsSubdir import Curry.Files.CymakePath@@ -24,13 +24,13 @@ getOptions = do    (opts,state) <- readConfig   args <- getArgs-  cupath <- getEnv "CURRYPATH"+  currypath <- getEnv "CURRYPATH"   let parsed = parseOptions opts args   parsedOpts <- either usage return parsed   let addFiledir = case takeDirectory (filename opts) of "" -> id; dir -> (dir:)       newOpts    = parsedOpts{userlibpath= addFiledir $                                              userlibpath parsedOpts -                                             ++ splitPath cupath}+                                             ++ splitPath currypath}   return (newOpts,state)      @@ -282,9 +282,7 @@   writeFile (kicsrc home)     (wLibPath++wPM++wEval++wTime ++wRTS)   where-    wLibPath  = setting 1 (\o-> toPathList $ case userlibpath o of-                            ".":path -> path-                            path     -> path)+    wLibPath  = setting 1 (\o-> toPathList $ tail $ userlibpath o)     wPM       = setting 2 (show . pm)     wEval     = setting 3 (show . eval)     wTime     = inState 4 (show . time)@@ -355,16 +353,14 @@                    ex<-doesModuleExist fn                    if ex then getModuleModTime fn else return (TOD 0 0)) +safeReadFlat :: Options -> String -> Safe IO Prog safeReadFlat opts s = do-    safeIO $ print s-    safeIO $ print $ libpath opts     fs <- safeIO (findFileInPath s (libpath opts))-    safeIO $ print 12     fn <- warning s (cmdLibpath opts) fs     mprog <- safeIO $ readFlat fn     maybe (fail $ "file not found: "++fn) return mprog    -warning fn path [] = fail ("file "++fn++" not found in path "++path)+warning fn path [] = fail ("module "++fn++" not found in path "++path) warning _ _  (f:fs) = do   mapM_ (safeIO . putStrLn)          (map (\f' -> "further file found (but ignored) "++f'
src/Curry/Compiler/CurryToHaskell.hs view
@@ -156,9 +156,12 @@  generateHaskellFiles opts (globals,prog,interfaces,auxNames) = do   let typeMapping = makeTypeMap (prog:interfaces)-      modules = transform typeMapping auxNames opts prog+      modules = addGlobalDefs opts globals $+                  transform typeMapping auxNames opts prog   put 3 opts "generating Haskell"-  mapM  (writeProgram opts) (addGlobalDefs opts globals modules)+  mapM (writeProgram opts{target=if executable opts then Nothing +                                                    else target opts})+       modules   return (haskellFiles opts (progName prog))  writeProgram opts (fn,unqualified,prog) = do@@ -230,8 +233,6 @@      -- the module names are:     funcName = modName name--    mainModuleName = "Main"      -- the file names of these modules are:     funcFileName = funcHsName (filename opts)
src/Curry/Compiler/KicsSubdir.hs view
@@ -82,8 +82,8 @@  destination :: Bool -> Maybe String -> String -> String destination _     (Just t) _        = t-destination True  _        filename = inKicsSubdir filename -destination False _        filename = inModuleSubdir (inKicsSubdir filename)+destination False _        filename = inKicsSubdir filename +destination True  _        filename = inModuleSubdir (inKicsSubdir filename)  --write a file to curry subdirectory @@ -126,7 +126,7 @@    if any isPathSeparator fn       then findFile fn      else do-       let fs = nubBy equalFilePath $ map (</>fn) path+       let fs = nubBy equalFilePath $ map (</> fn) path        founds <- mapM findFile fs        return (nubBy equalFilePath $ concat founds)
+ src/kicsi.hs view
@@ -0,0 +1,382 @@+module Main where++import Maybe+import Data.List+import Data.Char+import System hiding (getEnv)+import System.IO+import System.Directory (doesFileExist)+import Control.Monad (unless,when)+import System.FilePath+import System.Console.Readline++import Curry.Files.KiCSPath++import Curry.Compiler.Config+import Curry.Compiler.CurryToHaskell+import Curry.Compiler.SafeCalls+import Curry.Compiler.Names+import Curry.Compiler.ShowFlatCurry++import Curry.FlatCurry.Type+import Curry.FlatCurry.Goodies++allFiles = map snd . files+loadedFiles = map snd . filter fst . files++separate s = concat . intersperse s . filter (not . null)++welcome = + ["         _               _           _            _"+ ,"        /\\_\\            /\\ \\       /\\ \\          / /\\"+ ,"       / / /  _         \\ \\ \\     /  \\ \\        / /  \\"+ ,"      / / /  /\\_\\       /\\ \\_\\   / /\\ \\ \\      / / /\\ \\__"+ ,"     / / /__/ / /      / /\\/_/  / / /\\ \\ \\    / / /\\ \\___\\"+ ,"    / /\\_____/ /      / / /    / / /  \\ \\_\\   \\ \\ \\ \\/___/"+ ,"   / /\\_______/      / / /    / / /    \\/_/    \\ \\ \\"+ ,"  / / /\\ \\ \\        / / /    / / /         _    \\ \\ \\  The"+ ," / / /  \\ \\ \\   ___/ / /__  / / /________ /_/\\__/ / /  Kiel"+ ,"/ / /    \\ \\ \\ /\\__\\/_/___\\/ / /_________\\\\ \\/___/ /  Curry"+ ,"\\/_/      \\_\\_\\\\/_________/\\/____________/ \\_____\\/  System"+ ,"","Version "++kicsVersion,""]+ ++compileCall CTC     = "kics -make "+compileCall OrBased = "kics -or -make "++compileModule file choiceMode = system (compileCall choiceMode++file)++-------------------------------------+-- read history from file+-------------------------------------++historyFile = "kicsi.hist"++readHistory :: IO ()+readHistory = do +  exHist <- doesFileExist historyFile+  unless (not exHist) +         (readFile historyFile >>=  addLineToHistory 1 . lines)+  where+    addLineToHistory _ [] = return ()+    addLineToHistory n (s@(':':_):xs) = addHistory s >> addLineToHistory n xs+    addLineToHistory n (s:xs)         = +      addHistory ("{-"++show n++"-} "++s) >>+      addLineToHistory (n+1) xs++main = do +  readHistory+  home <- getEnv "HOME"+  (options,state) <- getOptions+  mapM_ (safe . put 1 options) welcome+  let files = case filename options of+               "" -> ["Prelude"] +               fn -> [fn]+  load files state options++interactive state opts = do+  mline <- readline (separate "," (loadedFiles state) ++"> ")+  case mline of+    Just line -> addHistory line >>+                 interactiveMenue (words line) state opts+    Nothing   -> return ()++interactiveMenue [] state opts = interactive state opts+interactiveMenue (cmd:cmds) state opts = +  case map toLower cmd of+    ":load" -> load cmds state opts +    ":l"    -> load cmds state opts +    ":add"  -> load (allFiles state++cmds) state opts +    ":a"    -> load (allFiles state++cmds) state opts +    ":set"  -> setMenue cmds state opts+    ":reload" -> load (allFiles state) state opts+    ":r"      -> load (allFiles state) state opts+    ":type" -> getType (unwords cmds) state opts+    ":t"    -> getType (unwords cmds) state opts+    ":quit" -> return ()+    ":q"    -> return ()+    ":help" -> help state opts+    ":h"    -> help state opts+    ":?"    -> help state opts+    ":info" -> info cmds (loadedFiles state) state opts+    ":i"    -> info cmds (loadedFiles state) state opts+    ":save" -> writeConfig opts state >> interactive state opts+    ":s"    -> writeConfig opts state >> interactive state opts+    ':':'!':c -> safe (safeSystem False (unwords (c:cmds))) >> interactive state opts+    ':':_   -> putStrLn "unknown command, type :? for help" >> +               interactive state opts+    _       -> requestExpr state opts (unwords (cmd:cmds))++setMenue [] state opts = do  +  putStrLn "options"+  putStrLn "-------"+  putStrLn $ "search mode:          " ++ (show (pm opts))+  putStrLn $ "timing:               " ++ onOff (time state)+  putStrLn $ "debug:                " ++ onOff (debug opts) +                                      ++ maybe "" (" -- "++) (debugger opts)+  putStrLn $ "evaluation mode:      " ++ evalMode (eval opts)+  putStrLn $ "verbosity level:      " ++ show (verbosity opts)+  putStrLn $ "recompilation:        " ++ if force opts then "always (+f)" +                                                       else "only if older (-f)"  +  putStrLn "\npaths and commands"+  putStrLn "------------------"+  putStrLn   $ "command line options:    " ++ cmdLineArgs state+  putStrLn   $ "run time settings:       " ++ rts state+  putStrLn   $ "ghc compiler options:    " ++ ghcOpts opts+  putStrLn   $ "paths to user libraries: " +  mapM_ putPath (tail $ userlibpath opts)+  interactive state opts+   where+    putPath p = putStr "                      " >> putStrLn p++setMenue (opt:vals) state opts = do+  case map (map toLower) (opt:vals) of+   ["or"] -> load (allFiles state) state opts{cm=OrBased}+   ["ctc"] -> load (allFiles state) state opts{cm=CTC}+   ["depth","first"] -> interactive state (newSm opts DF)+   ["df"] -> interactive state (newSm opts DF)+   ["breadth","first"] -> interactive state (newSm opts BF)+   ["bf"] -> interactive state (newSm opts BF)+   ["all","solutions"] -> interactive state (newPm opts (All DF))+   ["all"] -> interactive state (newPm opts (All DF))+   ["first","solution"] -> interactive state (newPm opts (First DF))+   ["first"]            -> interactive state (newPm opts (First DF))+   ["interactive"] -> interactive state (newPm opts (Interactive DF))+   ["i"] -> interactive state (newPm opts (Interactive DF))+   ["search","tree"] -> interactive state opts{pm=ST}+   ["st"] -> interactive state opts{pm=ST}+   ["path",path] -> let (thisDir:oldPath)=userlibpath opts+     in interactive state opts{userlibpath=thisDir:path:oldPath}+   ["verbosity",i] | all isDigit i -> interactive state opts{verbosity=read i}+   ["v",i] | all isDigit i -> interactive state opts{verbosity=read i}+   ("command":_) -> interactive state{cmdLineArgs=unwords vals} opts+   ("cmd":_) -> interactive state{cmdLineArgs=unwords vals} opts+   ("rts":_) -> interactive state{rts=' ':unwords vals++" "} opts+   ("rts+":_)-> interactive state{rts=rts state++' ':unwords vals++" "} opts+   ("ghc":_) -> interactive state opts{ghcOpts=' ':unwords vals++" "}+   ("ghc+":_) -> interactive state +                   opts{ghcOpts=ghcOpts opts++' ':unwords vals++" "}+   ["debugger",debugTool] -> interactive state +                     opts{debugger=Just (head vals)}+   ['+':'+':setting] -> longSetting True  state opts setting+   ['-':'-':setting] -> longSetting False state opts setting+   (('+':s):sets) -> shortSettings True  state opts (concat (s:sets))+   (('-':s):sets) -> shortSettings False state opts (concat (s:sets))+   _ -> putStrLn ("invalid setting. Example \":set breadth first\" to " +++                  "set search strategy to breadth first") >> +        interactive state opts++longSetting flag state opts "debug"     = +  interactive state opts{debug=flag,doNotUseInterface=flag}+longSetting flag state opts "time"      = do+  warn state{time=flag} opts +  interactive state{time=flag} opts+longSetting flag state opts "eval"      = do+  warn state opts{eval=flag}+  interactive state opts{eval=flag}+longSetting flag state opts "make"      = interactive state opts{make=flag}+longSetting flag state opts "force"     = interactive state opts{force=flag}+longSetting _    state opts _           = putStrLn "invalid setting." >> interactive state opts++shortSettings _    state opts [] = do+  warn state opts+  interactive state opts+shortSettings flag state opts ('t':settings) = do+  putStrLn $ "setting time " ++ onOff flag +  shortSettings flag state{time=flag} opts settings +shortSettings flag state opts ('-':settings) = +  shortSettings False state opts settings +shortSettings flag state opts ('+':settings) = +  shortSettings True  state opts settings +shortSettings flag state opts (c:settings) = do+    o <- newOpts c+    shortSettings flag state o settings +  where+    newOpts 'd' = putStrLn ("setting debbug " ++ onOff flag) >>+                  return opts{debug=flag,doNotUseInterface=flag}+    newOpts 'e' = putStrLn ("setting evaluation mode to " ++ evalMode flag) >>+                  return opts{eval=flag}+    newOpts 'm' = putStrLn ("setting make " ++ onOff flag) >>+                  return opts{make=flag}+    newOpts 'f' = putStrLn ("setting recompilation to " ++ forceMode flag) >>+                  return opts{force=flag}+    newOpts c   = putStrLn ("unknown short option: "++show c) >>+                  putStrLn ("  (long options are set with \"++\" and \"--\", e.g.,\ +                            \ \":set ++time\"") >>+                  return opts++onOff True  = "on"+onOff False = "off" +evalMode True  = "interpreted (+e)"+evalMode False = "compiled (-e)"+forceMode True  = "always (+f)"+forceMode False = "only if older (-f)"++warn state opts = +  when (time state && eval opts) +       (putStrLn "warning: for benchmarking you should use +t together with -e")+++help state opts = do+  mapM_ putStrLn  +    [":load              load a (number of) file(s)"+    ,":set <option>      set a KiCSi <option>"+    ,":set               see current KiCSi options"+    ,":reload            reload current files" +    ,":type <expression> show type of <expression>"+    ,":quit              leave KiCSi"+    ,":help              this message"+    ,":!                 system command"]+  interactive state opts+  +info _ [] state opts = interactive state opts+info x (f:fs) state opts = do +  safe (do +	p <- safeReadFlat opts (f++".fint")+	safeIO (putStrLn (showFlatProg p))+        safeIO (putStrLn ""))+  info x fs state opts++newSm opts@Opts{pm=All _} x = opts{pm=All x}+newSm opts@Opts{pm=Interactive _} x = opts{pm=Interactive x}+newSm opts@Opts{pm=ST} x = opts{pm=Interactive x}++newPm opts@Opts{pm=ST} x = opts{pm=x}+newPm opts@Opts{pm=All x}   (Interactive _) = opts{pm=Interactive x}+newPm opts@Opts{pm=Interactive x} (All _)   = opts{pm=All x}+newPm opts@Opts{pm=All x}         (First _) = opts{pm=First x}+newPm opts@Opts{pm=Interactive x} (First _) = opts{pm=First x}+newPm opts@Opts{pm=First x} (Interactive _) = opts{pm=Interactive x}+newPm opts@Opts{pm=First x} (All _)         = opts{pm=All x}+newPm opts _ = opts++getType :: String -> State -> Options -> IO ()+getType expr state opts = do +   t <- safe $ do+          requestFile <- genReqModule (loadedFiles state) expr+          cymake opts{filename=requestFile}+          p <- safeReadFlat opts reqModuleFile+          let (f:_) = filter ((==mainExpr) . snd . funcName) (progFuncs p)+          return (funcType f)+   maybe (return ()) (putStrLn . showCurryType snd False) t+   interactive state opts+               +load [] state opts = interactive state opts+load xs state opts = do+  done <- startCompilations opts{executable=False} fs+  interactive state{files=map (isLoaded done) (nub fs)} opts+  where+    fs = map baseName xs+    isLoaded done f = (elem f done,f)++                  +toMode _ ["or"]  = OrBased+toMode _ ["ctc"] = CTC+toMode m _ = m++mainExpr = "expression"+++requestExpr state opts line = do +  safe $ do+    let ls = loadedFiles state+        mainMod = if null ls then "Prelude" else head ls+    --safeSystem (verbosity opts >= 5) +    --           ("rm -f request Request.fcy "++reqMod ++".o ") +    requestFile <- genReqModule (loadedFiles state) line+    let compileOpts = (opts{executable=True,filename=requestFile,+                            mainFunc=mainExpr,+                            mainModule = mainMod,+                            make=True})  +    startCompilation compileOpts+    let call = timing state (requestCall state opts)+    when (not (eval opts))+         (safeSystem (verbosity opts >= 3) +                     (ghcCall opts{target=Just (inKicsSubdir "request"),+                                   filename=inKicsSubdir "Main.hs"}))+    when (verbosity opts >= 2 || not (eval opts))+         (put 1 opts ("starting evaluation of "++line))+    safeSystem (verbosity opts >= 3) call+    when (debug opts) $ do+      if debugger opts == Nothing +       then do+         safeSystem (verbosity opts >= 5) (stricthsCall compileOpts{make=True})+         safeSystem (verbosity opts >= 5) +                    (ghcCall opts{make=True,ghcOpts=ghcOpts opts++" -O2 ", +                                  filename="StrictRequest"})+         safeSystem (verbosity opts >= 5) +                    (ghcCall opts{make=False,eval=True, +                                  ghcOpts=ghcOpts opts++" -e "++mainExpr++" ",+                                  filename="StrictRequest"})+       else do+         safeSystem (verbosity opts >= 5) +                    (mkStrictCall compileOpts{filename=inKicsSubdir reqModuleName,+                                              make=True})+         genDebugModule opts{mainModule=mainMod} (loadedFiles state) line+         safeSystem (verbosity opts >= 5) +                    (ghcCall opts{target=Just (inKicsSubdir "debug"),+                                  debug=False,+                                  make=True,ghcOpts=ghcOpts opts++" -O2 ", +                                  filename=inKicsSubdir debugModuleName})+         safeSystem (verbosity opts >= 5) +                    (inKicsSubdir "debug")+ +  interactive state opts++-- in ghc 6.10 we cannot combine make with "-e"+-- In order to avoid link errors we somehow need +-- to start make before calling "-e", but it is not yet clear+-- how to avoid generating a binary.+requestCall state opts@Opts{eval=True} = +  ghcCall opts{make=False,+               ghcOpts=ghcOpts opts++ " +RTS "++ rts state ++ " -RTS -e main ",+               filename=inKicsSubdir "Main.hs"}+requestCall state _ = (inKicsSubdir "request"++" "++cmdLineArgs state++" +RTS "++rts state)++reqModuleName = "Request"+reqModuleFile = replaceExtension (inKicsSubdir reqModuleName) ".fcy"++genReqModule fs line = do+  let filename = destination False Nothing (replaceExtension reqModuleName ".curry")+  safeIO (writeKicsFile filename (imports fs++"\n\n"++mainExpr++" = "++ line))+  return filename+   +  ++timing (State{time=True}) s = "time "++s+timing _ s = s+++unqualMain s = examine (groupBy (\x y->isExtAlpha x && isExtAlpha y) s)+  where+    examine (_:".":"main":xs) = examine xs+    examine ("main":_) = True+    examine (_:xs) = examine xs+    examine [] = False++isExtAlpha '_' = True+isExtAlpha '\'' = True+isExtAlpha c = isDigit c || isAlpha c++reqMod = modName reqModuleName++imports :: [String] -> String+imports = concatMap ("\nimport "++) ++------------------------------+-- triggering the debug tool+------------------------------++debugModuleName = "debug.hs"+genDebugModule Opts{debugger=Just tool,mainModule=mod} fs line = do+  let filename   = destination False Nothing debugModuleName+      modImports = imports $ "Debugger.DebugMonad":+                          ("Debugger.Tools."++tool++"."++"Monad"):+                          map mkStrictName ((reqModuleName++" as S"):fs)+      modCont = modImports +++        "\n\nmain = do\n\+        \  run (S.strict_"++mainExpr++") \""++mod++"\""+  safeIO (writeKicsFile filename modCont)+           +         +
+ src/lib/Curry/Module/.curry/AbstractCurry.acy view
@@ -0,0 +1,31 @@+CurryProg "AbstractCurry"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CType ("AbstractCurry","CurryProg") Public [] [CCons ("AbstractCurry","CurryProg") 5 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","String") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","COpDecl") []]]],+  CTypeSyn ("AbstractCurry","QName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CVisibility") Public [] [CCons ("AbstractCurry","Public") 0 Public [],CCons ("AbstractCurry","Private") 0 Public []],+  CTypeSyn ("AbstractCurry","CTVarIName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CTypeDecl") Public [] [CCons ("AbstractCurry","CType") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTVarIName") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CConsDecl") []]],CCons ("AbstractCurry","CTypeSyn") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTVarIName") []],CTCons ("AbstractCurry","CTypeExpr") []]],+  CType ("AbstractCurry","CConsDecl") Public [] [CCons ("AbstractCurry","CCons") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]]],+  CType ("AbstractCurry","CTypeExpr") Public [] [CCons ("AbstractCurry","CTVar") 1 Public [CTCons ("AbstractCurry","CTVarIName") []],CCons ("AbstractCurry","CFuncType") 2 Public [CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CTypeExpr") []],CCons ("AbstractCurry","CTCons") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]]],+  CType ("AbstractCurry","COpDecl") Public [] [CCons ("AbstractCurry","COp") 3 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CFixity") [],CTCons ("Prelude","Int") []]],+  CType ("AbstractCurry","CFixity") Public [] [CCons ("AbstractCurry","CInfixOp") 0 Public [],CCons ("AbstractCurry","CInfixlOp") 0 Public [],CCons ("AbstractCurry","CInfixrOp") 0 Public []],+  CTypeSyn ("AbstractCurry","CVarIName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CFuncDecl") Public [] [CCons ("AbstractCurry","CFunc") 5 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CRules") []],CCons ("AbstractCurry","CmtFunc") 6 Public [CTCons ("Prelude","String") [],CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CRules") []]],+  CType ("AbstractCurry","CRules") Public [] [CCons ("AbstractCurry","CRules") 2 Public [CTCons ("AbstractCurry","CEvalAnnot") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CRule") []]],CCons ("AbstractCurry","CExternal") 1 Public [CTCons ("Prelude","String") []]],+  CType ("AbstractCurry","CEvalAnnot") Public [] [CCons ("AbstractCurry","CFlex") 0 Public [],CCons ("AbstractCurry","CRigid") 0 Public [],CCons ("AbstractCurry","CChoice") 0 Public []],+  CType ("AbstractCurry","CRule") Public [] [CCons ("AbstractCurry","CRule") 3 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []],CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]]],+  CType ("AbstractCurry","CLocalDecl") Public [] [CCons ("AbstractCurry","CLocalFunc") 1 Public [CTCons ("AbstractCurry","CFuncDecl") []],CCons ("AbstractCurry","CLocalPat") 3 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]],CCons ("AbstractCurry","CLocalVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []]],+  CType ("AbstractCurry","CExpr") Public [] [CCons ("AbstractCurry","CVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []],CCons ("AbstractCurry","CLit") 1 Public [CTCons ("AbstractCurry","CLiteral") []],CCons ("AbstractCurry","CSymbol") 1 Public [CTCons ("AbstractCurry","QName") []],CCons ("AbstractCurry","CApply") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CLambda") 2 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CLetDecl") 2 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CDoExpr") 1 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CStatement") []]],CCons ("AbstractCurry","CListComp") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CStatement") []]],CCons ("AbstractCurry","CCase") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CBranchExpr") []]]],+  CType ("AbstractCurry","CStatement") Public [] [CCons ("AbstractCurry","CSExpr") 1 Public [CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CSPat") 2 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CSLet") 1 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]]],+  CType ("AbstractCurry","CPattern") Public [] [CCons ("AbstractCurry","CPVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []],CCons ("AbstractCurry","CPLit") 1 Public [CTCons ("AbstractCurry","CLiteral") []],CCons ("AbstractCurry","CPComb") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]],CCons ("AbstractCurry","CPAs") 2 Public [CTCons ("AbstractCurry","CVarIName") [],CTCons ("AbstractCurry","CPattern") []],CCons ("AbstractCurry","CPFuncComb") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]]],+  CType ("AbstractCurry","CBranchExpr") Public [] [CCons ("AbstractCurry","CBranch") 2 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") []]],+  CType ("AbstractCurry","CLiteral") Public [] [CCons ("AbstractCurry","CIntc") 1 Public [CTCons ("Prelude","Int") []],CCons ("AbstractCurry","CFloatc") 1 Public [CTCons ("Prelude","Float") []],CCons ("AbstractCurry","CCharc") 1 Public [CTCons ("Prelude","Char") []]]]+ [CFunc ("AbstractCurry","abstractCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurry","readAbstractCurryFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"exacy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"filename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exacy"))) (CApply (CSymbol ("AbstractCurry","readExistingACY")) (CVar (0,"filename")))) (CDoExpr [CSLet [CLocalPat (CPVar (2,"subdirfilename")) (CApply (CSymbol ("Distribution","inCurrySubdir")) (CVar (0,"filename"))) []],CSPat (CPVar (3,"exdiracy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (2,"subdirfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"exdiracy"))) (CApply (CSymbol ("AbstractCurry","readExistingACY")) (CVar (2,"subdirfilename")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))]))])] [CLocalFunc (CFunc ("AbstractCurry","readExistingACY") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTVar (0,"a")])) (CRules CFlex [CRule [CPVar (1,"fname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (1,"fname"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("ReadShowTerm","readUnqualifiedTerm")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CVar (2,"filecontents"))))])] []]))]]),+  CFunc ("AbstractCurry","readCurry") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurry","readCurryWithParseOptions")) (CVar (0,"prog"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("AbstractCurry","readCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (2,"existsCurry"))) (CVar (3,"existsLCurry")))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","ACY"))) (CVar (1,"options"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CSExpr (CApply (CSymbol ("AbstractCurry","readAbstractCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("AbstractCurry","readUntypedCurry") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurry","readUntypedCurryWithParseOptions")) (CVar (0,"prog"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("AbstractCurry","readUntypedCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (2,"existsCurry"))) (CVar (3,"existsLCurry")))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","UACY"))) (CVar (1,"options"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CSymbol ("AbstractCurry","readAbstractCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("AbstractCurry","untypedAbstractCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("AbstractCurry","writeAbstractCurryFile") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("AbstractCurry","CurryProg") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"prog"))))] []])]+ []
+ src/lib/Curry/Module/.curry/AbstractCurry.cy view
@@ -0,0 +1,44 @@+Module "AbstractCurry"+Nothing+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (19,1) "Directory" False Nothing (Just (Importing (19,17) [(Import (Ident "doesFileExist" 0))])))+,(ImportDecl (20,1) "ReadShowTerm" False Nothing Nothing)+,(ImportDecl (21,1) "Distribution" False Nothing Nothing)+,(ImportDecl (22,1) "FileGoodies" False Nothing (Just (Importing (22,19) [(Import (Ident "stripSuffix" 0))])))+,(DataDecl (37,1) (Ident "CurryProg" 0) [] [(ConstrDecl (37,18) [] (Ident "CurryProg" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "COpDecl" 0)) []))])])+,(TypeDecl (44,1) (Ident "QName" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(DataDecl (49,1) (Ident "CVisibility" 0) [] [(ConstrDecl (49,20) [] (Ident "Public" 0) []),(ConstrDecl (50,20) [] (Ident "Private" 0) [])])+,(TypeDecl (57,1) (Ident "CTVarIName" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(DataDecl (80,1) (Ident "CTypeDecl" 0) [] [(ConstrDecl (80,18) [] (Ident "CType" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CVisibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CTVarIName" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "CConsDecl" 0)) []))]),(ConstrDecl (81,18) [] (Ident "CTypeSyn" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CVisibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CTVarIName" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) [])])])+,(DataDecl (87,1) (Ident "CConsDecl" 0) [] [(ConstrDecl (87,18) [] (Ident "CCons" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CVisibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []))])])+,(DataDecl (98,1) (Ident "CTypeExpr" 0) [] [(ConstrDecl (99,5) [] (Ident "CTVar" 0) [(ConstructorType (QualIdent Nothing (Ident "CTVarIName" 0)) [])]),(ConstrDecl (100,5) [] (Ident "CFuncType" 0) [(ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) [])]),(ConstrDecl (101,5) [] (Ident "CTCons" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []))])])+,(DataDecl (109,1) (Ident "COpDecl" 0) [] [(ConstrDecl (109,16) [] (Ident "COp" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CFixity" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])])+,(DataDecl (111,1) (Ident "CFixity" 0) [] [(ConstrDecl (111,16) [] (Ident "CInfixOp" 0) []),(ConstrDecl (112,16) [] (Ident "CInfixlOp" 0) []),(ConstrDecl (113,16) [] (Ident "CInfixrOp" 0) [])])+,(TypeDecl (120,1) (Ident "CVarIName" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(DataDecl (147,1) (Ident "CFuncDecl" 0) [] [(ConstrDecl (147,18) [] (Ident "CFunc" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CVisibility" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CRules" 0)) [])]),(ConstrDecl (148,18) [] (Ident "CmtFunc" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CVisibility" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CRules" 0)) [])])])+,(DataDecl (155,1) (Ident "CRules" 0) [] [(ConstrDecl (155,15) [] (Ident "CRules" 0) [(ConstructorType (QualIdent Nothing (Ident "CEvalAnnot" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CRule" 0)) []))]),(ConstrDecl (156,15) [] (Ident "CExternal" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(DataDecl (161,1) (Ident "CEvalAnnot" 0) [] [(ConstrDecl (161,19) [] (Ident "CFlex" 0) []),(ConstrDecl (161,27) [] (Ident "CRigid" 0) []),(ConstrDecl (161,36) [] (Ident "CChoice" 0) [])])+,(DataDecl (167,1) (Ident "CRule" 0) [] [(ConstrDecl (167,14) [] (Ident "CRule" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) [])),(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])])),(ListType (ConstructorType (QualIdent Nothing (Ident "CLocalDecl" 0)) []))])])+,(DataDecl (170,1) (Ident "CLocalDecl" 0) [] [(ConstrDecl (171,6) [] (Ident "CLocalFunc" 0) [(ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) [])]),(ConstrDecl (172,6) [] (Ident "CLocalPat" 0) [(ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CLocalDecl" 0)) []))]),(ConstrDecl (173,6) [] (Ident "CLocalVar" 0) [(ConstructorType (QualIdent Nothing (Ident "CVarIName" 0)) [])])])+,(DataDecl (177,1) (Ident "CExpr" 0) [] [(ConstrDecl (178,4) [] (Ident "CVar" 0) [(ConstructorType (QualIdent Nothing (Ident "CVarIName" 0)) [])]),(ConstrDecl (179,4) [] (Ident "CLit" 0) [(ConstructorType (QualIdent Nothing (Ident "CLiteral" 0)) [])]),(ConstrDecl (180,4) [] (Ident "CSymbol" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]),(ConstrDecl (181,4) [] (Ident "CApply" 0) [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]),(ConstrDecl (182,4) [] (Ident "CLambda" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]),(ConstrDecl (183,4) [] (Ident "CLetDecl" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CLocalDecl" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]),(ConstrDecl (184,4) [] (Ident "CDoExpr" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CStatement" 0)) []))]),(ConstrDecl (185,4) [] (Ident "CListComp" 0) [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CStatement" 0)) []))]),(ConstrDecl (186,4) [] (Ident "CCase" 0) [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CBranchExpr" 0)) []))])])+,(DataDecl (191,1) (Ident "CStatement" 0) [] [(ConstrDecl (191,19) [] (Ident "CSExpr" 0) [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]),(ConstrDecl (192,19) [] (Ident "CSPat" 0) [(ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]),(ConstrDecl (193,19) [] (Ident "CSLet" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CLocalDecl" 0)) []))])])+,(DataDecl (197,1) (Ident "CPattern" 0) [] [(ConstrDecl (198,4) [] (Ident "CPVar" 0) [(ConstructorType (QualIdent Nothing (Ident "CVarIName" 0)) [])]),(ConstrDecl (199,4) [] (Ident "CPLit" 0) [(ConstructorType (QualIdent Nothing (Ident "CLiteral" 0)) [])]),(ConstrDecl (200,4) [] (Ident "CPComb" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []))]),(ConstrDecl (202,4) [] (Ident "CPAs" 0) [(ConstructorType (QualIdent Nothing (Ident "CVarIName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) [])]),(ConstrDecl (203,4) [] (Ident "CPFuncComb" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []))])])+,(DataDecl (207,1) (Ident "CBranchExpr" 0) [] [(ConstrDecl (207,20) [] (Ident "CBranch" 0) [(ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])])])+,(DataDecl (212,1) (Ident "CLiteral" 0) [] [(ConstrDecl (212,17) [] (Ident "CIntc" 0) [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]),(ConstrDecl (213,17) [] (Ident "CFloatc" 0) [(ConstructorType (QualIdent Nothing (Ident "Float" 0)) [])]),(ConstrDecl (214,17) [] (Ident "CCharc" 0) [(ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])])])+,(TypeSig (223,1) [(Ident "readCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) [])])))+,(FunctionDecl (224,1) (Ident "readCurry" 0) [(Equation (224,1) (FunLhs (Ident "readCurry" 0) [(VariablePattern (Ident "prog" 2))]) (SimpleRhs (224,18) (Apply (Apply (Variable (QualIdent (Just "AbstractCurry") (Ident "readCurryWithParseOptions" 0))) (Variable (QualIdent Nothing (Ident "prog" 2)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setQuiet" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))))) []))])+,(TypeSig (232,1) [(Ident "readUntypedCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) [])])))+,(FunctionDecl (233,1) (Ident "readUntypedCurry" 0) [(Equation (233,1) (FunLhs (Ident "readUntypedCurry" 0) [(VariablePattern (Ident "prog" 4))]) (SimpleRhs (234,3) (Apply (Apply (Variable (QualIdent (Just "AbstractCurry") (Ident "readUntypedCurryWithParseOptions" 0))) (Variable (QualIdent Nothing (Ident "prog" 4)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setQuiet" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))))) []))])+,(TypeSig (243,1) [(Ident "readCurryWithParseOptions" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) [])]))))+,(FunctionDecl (244,1) (Ident "readCurryWithParseOptions" 0) [(Equation (244,1) (FunLhs (Ident "readCurryWithParseOptions" 0) [(VariablePattern (Ident "progname" 6)),(VariablePattern (Ident "options" 6))]) (SimpleRhs (244,46) (Do [(StmtBind (VariablePattern (Ident "existsCurry" 8)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 6))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".curry")))))),(StmtBind (VariablePattern (Ident "existsLCurry" 9)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 6))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry")))))),(StmtExpr (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "existsCurry" 8))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Variable (QualIdent Nothing (Ident "existsLCurry" 9)))) (Apply (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "ACY" 0)))) (Variable (QualIdent Nothing (Ident "options" 6)))) (Variable (QualIdent Nothing (Ident "progname" 6)))) (Variable (QualIdent (Just "Prelude") (Ident "done" 0))))),(StmtBind (VariablePattern (Ident "filename" 10)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "findFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 6))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".acy"))))))] (Apply (Variable (QualIdent (Just "AbstractCurry") (Ident "readAbstractCurryFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 10))))) []))])+,(TypeSig (256,1) [(Ident "readUntypedCurryWithParseOptions" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) [])]))))+,(FunctionDecl (257,1) (Ident "readUntypedCurryWithParseOptions" 0) [(Equation (257,1) (FunLhs (Ident "readUntypedCurryWithParseOptions" 0) [(VariablePattern (Ident "progname" 11)),(VariablePattern (Ident "options" 11))]) (SimpleRhs (257,53) (Do [(StmtBind (VariablePattern (Ident "existsCurry" 13)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 11))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".curry")))))),(StmtBind (VariablePattern (Ident "existsLCurry" 14)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 11))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry")))))),(StmtExpr (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "existsCurry" 13))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Variable (QualIdent Nothing (Ident "existsLCurry" 14)))) (Apply (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "UACY" 0)))) (Variable (QualIdent Nothing (Ident "options" 11)))) (Variable (QualIdent Nothing (Ident "progname" 11)))) (Variable (QualIdent (Just "Prelude") (Ident "done" 0))))),(StmtBind (VariablePattern (Ident "filename" 15)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "findFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 11))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".uacy"))))))] (Apply (Variable (QualIdent (Just "AbstractCurry") (Ident "readAbstractCurryFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 15))))) []))])+,(TypeSig (269,1) [(Ident "abstractCurryFileName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (270,1) (Ident "abstractCurryFileName" 0) [(Equation (270,1) (FunLhs (Ident "abstractCurryFileName" 0) [(VariablePattern (Ident "prog" 16))]) (SimpleRhs (270,30) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "prog" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".acy"))))) []))])+,(TypeSig (275,1) [(Ident "untypedAbstractCurryFileName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (276,1) (Ident "untypedAbstractCurryFileName" 0) [(Equation (276,1) (FunLhs (Ident "untypedAbstractCurryFileName" 0) [(VariablePattern (Ident "prog" 18))]) (SimpleRhs (276,37) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "prog" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".uacy"))))) []))])+,(TypeSig (285,1) [(Ident "readAbstractCurryFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) [])])))+,(FunctionDecl (286,1) (Ident "readAbstractCurryFile" 0) [(Equation (286,1) (FunLhs (Ident "readAbstractCurryFile" 0) [(VariablePattern (Ident "filename" 20))]) (SimpleRhs (286,34) (Do [(StmtBind (VariablePattern (Ident "exacy" 25)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "filename" 20)))))] (IfThenElse (Variable (QualIdent Nothing (Ident "exacy" 25))) (Apply (Variable (QualIdent Nothing (Ident "readExistingACY" 21))) (Variable (QualIdent Nothing (Ident "filename" 20)))) (Do [(StmtDecl [(PatternDecl (290,16) (VariablePattern (Ident "subdirfilename" 26)) (SimpleRhs (290,33) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Variable (QualIdent Nothing (Ident "filename" 20)))) []))]),(StmtBind (VariablePattern (Ident "exdiracy" 28)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "subdirfilename" 26)))))] (IfThenElse (Variable (QualIdent Nothing (Ident "exdiracy" 28))) (Apply (Variable (QualIdent Nothing (Ident "readExistingACY" 21))) (Variable (QualIdent Nothing (Ident "subdirfilename" 26)))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Paren (InfixApply (Literal (String "EXISTENCE ERROR: AbstractCurry file '")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "filename" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "' does not exist")))))))))) [(FunctionDecl (297,4) (Ident "readExistingACY" 21) [(Equation (297,4) (FunLhs (Ident "readExistingACY" 21) [(VariablePattern (Ident "fname" 22))]) (SimpleRhs (297,28) (Do [(StmtBind (VariablePattern (Ident "filecontents" 24)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "fname" 22)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "readUnqualifiedTerm" 0))) (List [(Literal (String "AbstractCurry")),(Literal (String "Prelude"))])) (Variable (QualIdent Nothing (Ident "filecontents" 24))))))) []))])]))])+,(TypeSig (305,1) [(Ident "writeAbstractCurryFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (306,1) (Ident "writeAbstractCurryFile" 0) [(Equation (306,1) (FunLhs (Ident "writeAbstractCurryFile" 0) [(VariablePattern (Ident "file" 29)),(VariablePattern (Ident "prog" 29))]) (SimpleRhs (306,36) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "writeFile" 0))) (Variable (QualIdent Nothing (Ident "file" 29)))) (Paren (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "showTerm" 0))) (Variable (QualIdent Nothing (Ident "prog" 29)))))) []))])+]
+ src/lib/Curry/Module/.curry/AbstractCurry.efc view
@@ -0,0 +1,1 @@+Prog "AbstractCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ((Nothing,Nothing,"AbstractCurry","QName")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]),TypeSyn ((Nothing,Nothing,"AbstractCurry","CTVarIName")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]),TypeSyn ((Nothing,Nothing,"AbstractCurry","CVarIName")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]),Type ((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,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") [])))))),"AbstractCurry","CurryProg")) Public [] [Cons ((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,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") [])))))),"AbstractCurry","CurryProg")) 5 Public [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,"AbstractCurry","CTypeDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","COpDecl")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CVisibility")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Private")) 0 Public []],Type ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) Public [] [Cons ((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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CType")) 4 Public [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,"AbstractCurry","CVisibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CConsDecl")) []]],Cons ((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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CTypeSyn")) 4 Public [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,"AbstractCurry","CVisibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []]],Type ((Nothing,Nothing,"AbstractCurry","CConsDecl")) Public [] [Cons ((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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []))))),"AbstractCurry","CCons")) 4 Public [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","Int")) [],TCons ((Nothing,Nothing,"AbstractCurry","CVisibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) 1 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CFuncType")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []],Cons ((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,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CTCons")) 2 Public [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,"AbstractCurry","CTypeExpr")) []]]],Type ((Nothing,Nothing,"AbstractCurry","COpDecl")) Public [] [Cons ((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,"AbstractCurry","CFixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") [])))),"AbstractCurry","COp")) 3 Public [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,"AbstractCurry","CFixity")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]],Type ((Nothing,Nothing,"AbstractCurry","CFixity")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixOp")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixlOp")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixrOp")) 0 Public []],Type ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) Public [] [Cons ((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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) 5 Public [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","Int")) [],TCons ((Nothing,Nothing,"AbstractCurry","CVisibility")) [],TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CRules")) []],Cons ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []))))))),"AbstractCurry","CmtFunc")) 6 Public [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")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"AbstractCurry","CVisibility")) [],TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CRules")) []]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRules") []))),"AbstractCurry","CRules")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRules") []))),"AbstractCurry","CRules")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CEvalAnnot")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CRule")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRules") [])),"AbstractCurry","CExternal")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CEvalAnnot")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CFlex")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CRigid")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CChoice")) 0 Public []],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRule") [])))),"AbstractCurry","CRule")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRule") [])))),"AbstractCurry","CRule")) 3 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CLocalDecl")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CLocalDecl")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])),"AbstractCurry","CLocalFunc")) 1 Public [TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])))),"AbstractCurry","CLocalPat")) 3 Public [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CLocalDecl")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])),"AbstractCurry","CLocalVar")) 1 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]],Type ((Nothing,Nothing,"AbstractCurry","CExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) 1 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) 1 Public [TCons ((Nothing,Nothing,"AbstractCurry","CLiteral")) []],Cons ((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,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) 1 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CLocalDecl")) []],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CStatement")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CStatement")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CBranchExpr")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CStatement")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") [])),"AbstractCurry","CSExpr")) 1 Public [TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []))),"AbstractCurry","CSPat")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") [])),"AbstractCurry","CSLet")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CLocalDecl")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CPattern")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) 1 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPLit")) 1 Public [TCons ((Nothing,Nothing,"AbstractCurry","CLiteral")) []],Cons ((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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) 2 Public [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,"AbstractCurry","CPattern")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) 2 Public [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []],Cons ((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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPFuncComb")) 2 Public [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,"AbstractCurry","CPattern")) []]]],Type ((Nothing,Nothing,"AbstractCurry","CBranchExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []))),"AbstractCurry","CBranch")) 2 Public [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []]],Type ((Nothing,Nothing,"AbstractCurry","CLiteral")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CIntc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CFloatc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Float")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Char")) []]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"AbstractCurry","readCurryWithParseOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readUntypedCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"AbstractCurry","readUntypedCurryWithParseOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"AbstractCurry","readCurryWithParseOptions")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])))),"AbstractCurry","readCurryWithParseOptions._#lambda2")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])))),"AbstractCurry","readCurryWithParseOptions._#lambda2")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))))),"AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)),Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))))),"AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","||")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","ACY")) [],Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","done")) [])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readAbstractCurryFile")) [Var ((Just (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,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"AbstractCurry","readUntypedCurryWithParseOptions")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])))),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])))),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))))),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)),Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))))),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","||")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","UACY")) [],Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","done")) [])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readAbstractCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurry","abstractCurryFileName")) 1 Public (FuncType (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","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurry","untypedAbstractCurryFileName")) 1 Public (FuncType (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","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])),"AbstractCurry","readAbstractCurryFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []]))),"AbstractCurry","readAbstractCurryFile._#lambda9")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"AbstractCurry","readAbstractCurryFile.readExistingACY.21")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"AbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 1])),"AbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 1])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 1))),"ReadShowTerm","readUnqualifiedTerm")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]],Var ((Just (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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2]))),"AbstractCurry","readAbstractCurryFile._#lambda9")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 2]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])),"AbstractCurry","readAbstractCurryFile.readExistingACY.21")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],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") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])))),"AbstractCurry","readAbstractCurryFile._#lambda9._#lambda10")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])))),"AbstractCurry","readAbstractCurryFile._#lambda9._#lambda10")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 3])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])),"AbstractCurry","readAbstractCurryFile.readExistingACY.21")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])),"Prelude","error")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'X'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"AbstractCurry","writeAbstractCurryFile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []),2)] (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"ReadShowTerm","showTerm")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []),2))]]))] []
+ src/lib/Curry/Module/.curry/AbstractCurry.fcy view
@@ -0,0 +1,1 @@+Prog "AbstractCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("AbstractCurry","QName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("AbstractCurry","CTVarIName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("AbstractCurry","CVarIName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),Type ("AbstractCurry","CurryProg") Public [] [Cons ("AbstractCurry","CurryProg") 5 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","COpDecl") []]]],Type ("AbstractCurry","CVisibility") Public [] [Cons ("AbstractCurry","Public") 0 Public [],Cons ("AbstractCurry","Private") 0 Public []],Type ("AbstractCurry","CTypeDecl") Public [] [Cons ("AbstractCurry","CType") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CConsDecl") []]],Cons ("AbstractCurry","CTypeSyn") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("AbstractCurry","CTypeExpr") []]],Type ("AbstractCurry","CConsDecl") Public [] [Cons ("AbstractCurry","CCons") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]]],Type ("AbstractCurry","CTypeExpr") Public [] [Cons ("AbstractCurry","CTVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CFuncType") 2 Public [TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CTypeExpr") []],Cons ("AbstractCurry","CTCons") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]]],Type ("AbstractCurry","COpDecl") Public [] [Cons ("AbstractCurry","COp") 3 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CFixity") [],TCons ("Prelude","Int") []]],Type ("AbstractCurry","CFixity") Public [] [Cons ("AbstractCurry","CInfixOp") 0 Public [],Cons ("AbstractCurry","CInfixlOp") 0 Public [],Cons ("AbstractCurry","CInfixrOp") 0 Public []],Type ("AbstractCurry","CFuncDecl") Public [] [Cons ("AbstractCurry","CFunc") 5 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CRules") []],Cons ("AbstractCurry","CmtFunc") 6 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CRules") []]],Type ("AbstractCurry","CRules") Public [] [Cons ("AbstractCurry","CRules") 2 Public [TCons ("AbstractCurry","CEvalAnnot") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CRule") []]],Cons ("AbstractCurry","CExternal") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("AbstractCurry","CEvalAnnot") Public [] [Cons ("AbstractCurry","CFlex") 0 Public [],Cons ("AbstractCurry","CRigid") 0 Public [],Cons ("AbstractCurry","CChoice") 0 Public []],Type ("AbstractCurry","CRule") Public [] [Cons ("AbstractCurry","CRule") 3 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]]],Type ("AbstractCurry","CLocalDecl") Public [] [Cons ("AbstractCurry","CLocalFunc") 1 Public [TCons ("AbstractCurry","CFuncDecl") []],Cons ("AbstractCurry","CLocalPat") 3 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]],Cons ("AbstractCurry","CLocalVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]],Type ("AbstractCurry","CExpr") Public [] [Cons ("AbstractCurry","CVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CLit") 1 Public [TCons ("AbstractCurry","CLiteral") []],Cons ("AbstractCurry","CSymbol") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CApply") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CLambda") 2 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CLetDecl") 2 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CDoExpr") 1 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CStatement") []]],Cons ("AbstractCurry","CListComp") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CStatement") []]],Cons ("AbstractCurry","CCase") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CBranchExpr") []]]],Type ("AbstractCurry","CStatement") Public [] [Cons ("AbstractCurry","CSExpr") 1 Public [TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CSPat") 2 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CSLet") 1 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]]],Type ("AbstractCurry","CPattern") Public [] [Cons ("AbstractCurry","CPVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CPLit") 1 Public [TCons ("AbstractCurry","CLiteral") []],Cons ("AbstractCurry","CPComb") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]],Cons ("AbstractCurry","CPAs") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CPattern") []],Cons ("AbstractCurry","CPFuncComb") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]]],Type ("AbstractCurry","CBranchExpr") Public [] [Cons ("AbstractCurry","CBranch") 2 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") []]],Type ("AbstractCurry","CLiteral") Public [] [Cons ("AbstractCurry","CIntc") 1 Public [TCons ("Prelude","Int") []],Cons ("AbstractCurry","CFloatc") 1 Public [TCons ("Prelude","Float") []],Cons ("AbstractCurry","CCharc") 1 Public [TCons ("Prelude","Char") []]]] [Func ("AbstractCurry","readCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [1] (Comb FuncCall ("AbstractCurry","readCurryWithParseOptions") [Var 1,Comb FuncCall ("Distribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Distribution","defaultParams") []]])),Func ("AbstractCurry","readUntypedCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [1] (Comb FuncCall ("AbstractCurry","readUntypedCurryWithParseOptions") [Var 1,Comb FuncCall ("Distribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Distribution","defaultParams") []]])),Func ("AbstractCurry","readCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readCurryWithParseOptions._#lambda2") [Var 2,Var 1]])),Func ("AbstractCurry","readCurryWithParseOptions._#lambda2") 3 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") [Var 3,Var 1,Var 2]])),Func ("AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude",">>") [Case  Rigid (Comb FuncCall ("Prelude","||") [Var 1,Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Distribution","callFrontendWithParams") [Comb ConsCall ("Distribution","ACY") [],Var 2,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","done") [])],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","findFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []]])),Func ("AbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [1] (Comb FuncCall ("AbstractCurry","readAbstractCurryFile") [Var 1])),Func ("AbstractCurry","readUntypedCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5") [Var 2,Var 1]])),Func ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5") 3 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") [Var 3,Var 1,Var 2]])),Func ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude",">>") [Case  Rigid (Comb FuncCall ("Prelude","||") [Var 1,Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Distribution","callFrontendWithParams") [Comb ConsCall ("Distribution","UACY") [],Var 2,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","done") [])],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","findFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb (FuncPartCall 1) ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") []]])),Func ("AbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [1] (Comb FuncCall ("AbstractCurry","readAbstractCurryFile") [Var 1])),Func ("AbstractCurry","abstractCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Distribution","inCurrySubdir") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FileGoodies","stripSuffix") [],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("AbstractCurry","untypedAbstractCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Distribution","inCurrySubdir") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FileGoodies","stripSuffix") [],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("AbstractCurry","readAbstractCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 1],Comb (FuncPartCall 1) ("AbstractCurry","readAbstractCurryFile._#lambda9") [Var 1]])),Func ("AbstractCurry","readAbstractCurryFile.readExistingACY.21") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("AbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") []])),Func ("AbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 1])) (Rule [1] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("ReadShowTerm","readUnqualifiedTerm") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("AbstractCurry","readAbstractCurryFile._#lambda9") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TVar 2]))) (Rule [1,2] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 1]),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Distribution","inCurrySubdir") [Var 1])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 3],Comb (FuncPartCall 1) ("AbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") [Var 1,Var 3]]))])),Func ("AbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TVar 3])))) (Rule [1,2,3] (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'N'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]])])),Func ("AbstractCurry","writeAbstractCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CurryProg") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("ReadShowTerm","showTerm") [Var 2]]))] []
+ src/lib/Curry/Module/.curry/AbstractCurry.fint view
@@ -0,0 +1,1 @@+Prog "AbstractCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("AbstractCurry","QName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("AbstractCurry","CTVarIName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("AbstractCurry","CVarIName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),Type ("AbstractCurry","CurryProg") Public [] [Cons ("AbstractCurry","CurryProg") 5 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","COpDecl") []]]],Type ("AbstractCurry","CVisibility") Public [] [Cons ("AbstractCurry","Public") 0 Public [],Cons ("AbstractCurry","Private") 0 Public []],Type ("AbstractCurry","CTypeDecl") Public [] [Cons ("AbstractCurry","CType") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CConsDecl") []]],Cons ("AbstractCurry","CTypeSyn") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("AbstractCurry","CTypeExpr") []]],Type ("AbstractCurry","CConsDecl") Public [] [Cons ("AbstractCurry","CCons") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]]],Type ("AbstractCurry","CTypeExpr") Public [] [Cons ("AbstractCurry","CTVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CFuncType") 2 Public [TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CTypeExpr") []],Cons ("AbstractCurry","CTCons") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]]],Type ("AbstractCurry","COpDecl") Public [] [Cons ("AbstractCurry","COp") 3 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CFixity") [],TCons ("Prelude","Int") []]],Type ("AbstractCurry","CFixity") Public [] [Cons ("AbstractCurry","CInfixOp") 0 Public [],Cons ("AbstractCurry","CInfixlOp") 0 Public [],Cons ("AbstractCurry","CInfixrOp") 0 Public []],Type ("AbstractCurry","CFuncDecl") Public [] [Cons ("AbstractCurry","CFunc") 5 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CRules") []],Cons ("AbstractCurry","CmtFunc") 6 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("AbstractCurry","CVisibility") [],TCons ("AbstractCurry","CTypeExpr") [],TCons ("AbstractCurry","CRules") []]],Type ("AbstractCurry","CRules") Public [] [Cons ("AbstractCurry","CRules") 2 Public [TCons ("AbstractCurry","CEvalAnnot") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CRule") []]],Cons ("AbstractCurry","CExternal") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("AbstractCurry","CEvalAnnot") Public [] [Cons ("AbstractCurry","CFlex") 0 Public [],Cons ("AbstractCurry","CRigid") 0 Public [],Cons ("AbstractCurry","CChoice") 0 Public []],Type ("AbstractCurry","CRule") Public [] [Cons ("AbstractCurry","CRule") 3 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]]],Type ("AbstractCurry","CLocalDecl") Public [] [Cons ("AbstractCurry","CLocalFunc") 1 Public [TCons ("AbstractCurry","CFuncDecl") []],Cons ("AbstractCurry","CLocalPat") 3 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]],Cons ("AbstractCurry","CLocalVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]],Type ("AbstractCurry","CExpr") Public [] [Cons ("AbstractCurry","CVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CLit") 1 Public [TCons ("AbstractCurry","CLiteral") []],Cons ("AbstractCurry","CSymbol") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CApply") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CLambda") 2 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CLetDecl") 2 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CDoExpr") 1 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CStatement") []]],Cons ("AbstractCurry","CListComp") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CStatement") []]],Cons ("AbstractCurry","CCase") 2 Public [TCons ("AbstractCurry","CExpr") [],TCons ("Prelude","[]") [TCons ("AbstractCurry","CBranchExpr") []]]],Type ("AbstractCurry","CStatement") Public [] [Cons ("AbstractCurry","CSExpr") 1 Public [TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CSPat") 2 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") []],Cons ("AbstractCurry","CSLet") 1 Public [TCons ("Prelude","[]") [TCons ("AbstractCurry","CLocalDecl") []]]],Type ("AbstractCurry","CPattern") Public [] [Cons ("AbstractCurry","CPVar") 1 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("AbstractCurry","CPLit") 1 Public [TCons ("AbstractCurry","CLiteral") []],Cons ("AbstractCurry","CPComb") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]],Cons ("AbstractCurry","CPAs") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("AbstractCurry","CPattern") []],Cons ("AbstractCurry","CPFuncComb") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]]],Type ("AbstractCurry","CBranchExpr") Public [] [Cons ("AbstractCurry","CBranch") 2 Public [TCons ("AbstractCurry","CPattern") [],TCons ("AbstractCurry","CExpr") []]],Type ("AbstractCurry","CLiteral") Public [] [Cons ("AbstractCurry","CIntc") 1 Public [TCons ("Prelude","Int") []],Cons ("AbstractCurry","CFloatc") 1 Public [TCons ("Prelude","Float") []],Cons ("AbstractCurry","CCharc") 1 Public [TCons ("Prelude","Char") []]]] [Func ("AbstractCurry","readCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [] (Var 0)),Func ("AbstractCurry","readUntypedCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [] (Var 0)),Func ("AbstractCurry","readCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))) (Rule [] (Var 0)),Func ("AbstractCurry","readUntypedCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))) (Rule [] (Var 0)),Func ("AbstractCurry","abstractCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurry","untypedAbstractCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurry","readAbstractCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])) (Rule [] (Var 0)),Func ("AbstractCurry","writeAbstractCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CurryProg") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/AbstractCurry.uacy view
@@ -0,0 +1,31 @@+CurryProg "AbstractCurry"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CType ("AbstractCurry","CurryProg") Public [] [CCons ("AbstractCurry","CurryProg") 5 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","String") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","COpDecl") []]]],+  CTypeSyn ("AbstractCurry","QName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CVisibility") Public [] [CCons ("AbstractCurry","Public") 0 Public [],CCons ("AbstractCurry","Private") 0 Public []],+  CTypeSyn ("AbstractCurry","CTVarIName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CTypeDecl") Public [] [CCons ("AbstractCurry","CType") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTVarIName") []],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CConsDecl") []]],CCons ("AbstractCurry","CTypeSyn") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTVarIName") []],CTCons ("AbstractCurry","CTypeExpr") []]],+  CType ("AbstractCurry","CConsDecl") Public [] [CCons ("AbstractCurry","CCons") 4 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]]],+  CType ("AbstractCurry","CTypeExpr") Public [] [CCons ("AbstractCurry","CTVar") 1 Public [CTCons ("AbstractCurry","CTVarIName") []],CCons ("AbstractCurry","CFuncType") 2 Public [CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CTypeExpr") []],CCons ("AbstractCurry","CTCons") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]]],+  CType ("AbstractCurry","COpDecl") Public [] [CCons ("AbstractCurry","COp") 3 Public [CTCons ("AbstractCurry","QName") [],CTCons ("AbstractCurry","CFixity") [],CTCons ("Prelude","Int") []]],+  CType ("AbstractCurry","CFixity") Public [] [CCons ("AbstractCurry","CInfixOp") 0 Public [],CCons ("AbstractCurry","CInfixlOp") 0 Public [],CCons ("AbstractCurry","CInfixrOp") 0 Public []],+  CTypeSyn ("AbstractCurry","CVarIName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","String") []]),+  CType ("AbstractCurry","CFuncDecl") Public [] [CCons ("AbstractCurry","CFunc") 5 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CRules") []],CCons ("AbstractCurry","CmtFunc") 6 Public [CTCons ("Prelude","String") [],CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("AbstractCurry","CVisibility") [],CTCons ("AbstractCurry","CTypeExpr") [],CTCons ("AbstractCurry","CRules") []]],+  CType ("AbstractCurry","CRules") Public [] [CCons ("AbstractCurry","CRules") 2 Public [CTCons ("AbstractCurry","CEvalAnnot") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CRule") []]],CCons ("AbstractCurry","CExternal") 1 Public [CTCons ("Prelude","String") []]],+  CType ("AbstractCurry","CEvalAnnot") Public [] [CCons ("AbstractCurry","CFlex") 0 Public [],CCons ("AbstractCurry","CRigid") 0 Public [],CCons ("AbstractCurry","CChoice") 0 Public []],+  CType ("AbstractCurry","CRule") Public [] [CCons ("AbstractCurry","CRule") 3 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []],CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]]],+  CType ("AbstractCurry","CLocalDecl") Public [] [CCons ("AbstractCurry","CLocalFunc") 1 Public [CTCons ("AbstractCurry","CFuncDecl") []],CCons ("AbstractCurry","CLocalPat") 3 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]],CCons ("AbstractCurry","CLocalVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []]],+  CType ("AbstractCurry","CExpr") Public [] [CCons ("AbstractCurry","CVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []],CCons ("AbstractCurry","CLit") 1 Public [CTCons ("AbstractCurry","CLiteral") []],CCons ("AbstractCurry","CSymbol") 1 Public [CTCons ("AbstractCurry","QName") []],CCons ("AbstractCurry","CApply") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CLambda") 2 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CLetDecl") 2 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CDoExpr") 1 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CStatement") []]],CCons ("AbstractCurry","CListComp") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CStatement") []]],CCons ("AbstractCurry","CCase") 2 Public [CTCons ("AbstractCurry","CExpr") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CBranchExpr") []]]],+  CType ("AbstractCurry","CStatement") Public [] [CCons ("AbstractCurry","CSExpr") 1 Public [CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CSPat") 2 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") []],CCons ("AbstractCurry","CSLet") 1 Public [CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CLocalDecl") []]]],+  CType ("AbstractCurry","CPattern") Public [] [CCons ("AbstractCurry","CPVar") 1 Public [CTCons ("AbstractCurry","CVarIName") []],CCons ("AbstractCurry","CPLit") 1 Public [CTCons ("AbstractCurry","CLiteral") []],CCons ("AbstractCurry","CPComb") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]],CCons ("AbstractCurry","CPAs") 2 Public [CTCons ("AbstractCurry","CVarIName") [],CTCons ("AbstractCurry","CPattern") []],CCons ("AbstractCurry","CPFuncComb") 2 Public [CTCons ("AbstractCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]]],+  CType ("AbstractCurry","CBranchExpr") Public [] [CCons ("AbstractCurry","CBranch") 2 Public [CTCons ("AbstractCurry","CPattern") [],CTCons ("AbstractCurry","CExpr") []]],+  CType ("AbstractCurry","CLiteral") Public [] [CCons ("AbstractCurry","CIntc") 1 Public [CTCons ("Prelude","Int") []],CCons ("AbstractCurry","CFloatc") 1 Public [CTCons ("Prelude","Float") []],CCons ("AbstractCurry","CCharc") 1 Public [CTCons ("Prelude","Char") []]]]+ [CFunc ("AbstractCurry","abstractCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurry","readAbstractCurryFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"exacy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"filename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exacy"))) (CApply (CSymbol ("AbstractCurry","readExistingACY")) (CVar (0,"filename")))) (CDoExpr [CSLet [CLocalPat (CPVar (2,"subdirfilename")) (CApply (CSymbol ("Distribution","inCurrySubdir")) (CVar (0,"filename"))) []],CSPat (CPVar (3,"exdiracy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (2,"subdirfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"exdiracy"))) (CApply (CSymbol ("AbstractCurry","readExistingACY")) (CVar (2,"subdirfilename")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))]))])] [CLocalFunc (CFunc ("AbstractCurry","readExistingACY") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"fname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (1,"fname"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("ReadShowTerm","readUnqualifiedTerm")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CVar (2,"filecontents"))))])] []]))]]),+  CFunc ("AbstractCurry","readCurry") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurry","readCurryWithParseOptions")) (CVar (0,"prog"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("AbstractCurry","readCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (2,"existsCurry"))) (CVar (3,"existsLCurry")))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","ACY"))) (CVar (1,"options"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CSExpr (CApply (CSymbol ("AbstractCurry","readAbstractCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("AbstractCurry","readUntypedCurry") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurry","readUntypedCurryWithParseOptions")) (CVar (0,"prog"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("AbstractCurry","readUntypedCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("AbstractCurry","CurryProg") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (2,"existsCurry"))) (CVar (3,"existsLCurry")))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","UACY"))) (CVar (1,"options"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CSymbol ("AbstractCurry","readAbstractCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("AbstractCurry","untypedAbstractCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("AbstractCurry","writeAbstractCurryFile") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("AbstractCurry","CurryProg") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"prog"))))] []])]+ []
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.acy view
@@ -0,0 +1,79 @@+CurryProg "AbstractCurryPrinter"+ ["Prelude","AbstractCurry","List","Read","Char","FiniteMap","Sort","Maybe"]+ [CTypeSyn ("AbstractCurryPrinter","NameFM") Private [] (CTCons ("FiniteMap","FM") [CTCons ("Prelude","String") [],CTCons ("Prelude","()") []]),+  CTypeSyn ("AbstractCurryPrinter","Options") Private [] (CTCons ("Prelude","(,)") [CTCons ("AbstractCurryPrinter","NameFM") [],CTCons ("Prelude","String") []])]+ [CFunc ("AbstractCurryPrinter","addName") 2 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CFuncType (CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []]) (CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"n")],CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_")],CPVar (6,"fm")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FiniteMap","addToFM")) (CVar (6,"fm"))) (CVar (1,"n"))) (CSymbol ("Prelude","()")))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (7,"_"),CPComb ("Prelude","(,)") [CPVar (8,"_"),CPVar (9,"n")],CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")],CPVar (14,"fm")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FiniteMap","addToFM")) (CVar (14,"fm"))) (CVar (9,"n"))) (CSymbol ("Prelude","()")))] []]),+  CFunc ("AbstractCurryPrinter","applicationHead") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("AbstractCurry","CExpr") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (1,"func"),CPVar (2,"_")]) (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (1,"func"))),CBranch (CPVar (3,"_")) (CVar (0,"expr"))])] []]),+  CFunc ("AbstractCurryPrinter","combineMap") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") [],CPVar (1,"_")] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (2,"f"),CPComb ("Prelude",":") [CPVar (3,"x"),CPVar (4,"xs")],CPVar (5,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (2,"f")) (CVar (3,"x")))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CVar (2,"f"))) (CVar (4,"xs"))) (CVar (5,"s"))))] []]),+  CFunc ("AbstractCurryPrinter","defaultOptions") 0 Private (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("FiniteMap","emptyFM")) (CSymbol ("AbstractCurryPrinter","lessString")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","dropTags") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"x"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPLit (CCharc '"')) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("AbstractCurryPrinter","dropTags"))) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","tail"))) (CApply (CApply (CSymbol ("Prelude","dropWhile")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (2,"x0"))) (CLit (CCharc '"'))))) (CVar (1,"xs"))))),CBranch (CPLit (CCharc '>')) (CVar (1,"xs")),CBranch (CPVar (3,"_")) (CApply (CSymbol ("AbstractCurryPrinter","dropTags")) (CVar (1,"xs")))])] []]),+  CFunc ("AbstractCurryPrinter","funcComment") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","unlines"))) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","map")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CVar (0,"x0")))))) (CSymbol ("Prelude","lines"))))] []]),+  CFunc ("AbstractCurryPrinter","infixIDs") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","isAsPattern") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"p")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"p")) [CBranch (CPComb ("AbstractCurry","CPAs") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isAtom") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CVar") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CLit") [CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")]]) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","not"))) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (4,"name")))),CBranch (CPVar (5,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isCFuncType") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"t")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"t")) [CBranch (CPComb ("AbstractCurry","CFuncType") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isCharPattern") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"p")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"p")) [CBranch (CPComb ("AbstractCurry","CPLit") [CPComb ("AbstractCurry","CCharc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isClosedList") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")]],CPVar (3,"_")],CPVar (4,"tail")]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("AbstractCurryPrinter","isClosedList")) (CVar (4,"tail"))))),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (5,"mod"),CPVar (6,"name")]]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),CBranch (CPVar (7,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isClosedPatternList") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"_"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (1,"xs")))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPVar (3,"_"),CPVar (4,"p")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (4,"p")))] []]),+  CFunc ("AbstractCurryPrinter","isClosedStringPattern") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"x"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isCharPattern")) (CVar (0,"x")))) (CApply (CSymbol ("AbstractCurryPrinter","isClosedStringPattern")) (CVar (1,"xs"))))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("AbstractCurryPrinter","isInfixOpName") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","all")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"x0"))) (CSymbol ("AbstractCurryPrinter","infixIDs")))))] []]),+  CFunc ("AbstractCurryPrinter","isSimpleExpr") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CVar") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CLit") [CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")]]) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","not"))) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (4,"name")))),CBranch (CPComb ("AbstractCurry","CApply") [CPVar (5,"f"),CPVar (6,"_")]) (CCase (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (5,"f"))) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPVar (7,"name")]]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (7,"name")))))),CBranch (CPVar (8,"_")) (CSymbol ("Prelude","False"))]),CBranch (CPVar (9,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isStringList") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("AbstractCurry","CApply") [CPVar (3,"head"),CPVar (4,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"head")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (5,"_"),CPComb ("AbstractCurry","CLit") [CPComb ("AbstractCurry","CCharc") [CPVar (6,"_")]]]) (CApply (CSymbol ("AbstractCurryPrinter","isStringList")) (CVar (4,"tail"))),CBranch (CPVar (7,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isTuple") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"x"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"x"))) (CLit (CCharc '(')))) (CApply (CSymbol ("AbstractCurryPrinter","p1_isTuple")) (CVar (1,"xs"))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","p1_isTuple") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPVar (2,"z"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"z"))) (CLit (CCharc ')')))] [],CRule [CPComb ("Prelude",":") [CPVar (3,"z1"),CPComb ("Prelude",":") [CPVar (4,"z2"),CPVar (5,"zs")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"z1"))) (CLit (CCharc ',')))) (CApply (CSymbol ("AbstractCurryPrinter","p1_isTuple")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"z2"))) (CVar (5,"zs")))))] []]))]]),+  CFunc ("AbstractCurryPrinter","isUntyped") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"typeexpr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"typeexpr")) [CBranch (CPComb ("AbstractCurry","CTCons") [CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]"))))))))))),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","lessString") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") []))) (CRules CFlex [CRule [CPVar (0,"s1"),CPVar (1,"s2")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Prelude","LT"))) (CApply (CApply (CSymbol ("Sort","cmpString")) (CVar (0,"s1"))) (CVar (1,"s2"))))] []]),+  CFunc ("AbstractCurryPrinter","maybeShowBrackets") 2 Private (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","nameFM") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []]) (CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("AbstractCurryPrinter","addName"))) (CApply (CSymbol ("FiniteMap","emptyFM")) (CSymbol ("AbstractCurryPrinter","lessString"))))] []]),+  CFunc ("AbstractCurryPrinter","prefixInter") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"xs"),CPVar (2,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","concat"))) (CApply (CApply (CSymbol ("List","intersperse")) (CVar (2,"s"))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))) (CVar (1,"xs")))))] []]),+  CFunc ("AbstractCurryPrinter","prefixMap") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"xs"),CPVar (2,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("Prelude","++")) (CVar (2,"s")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))) (CVar (1,"xs"))))] []]),+  CFunc ("AbstractCurryPrinter","showApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CCase (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (1,"appl"))) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (2,"name")]) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbolApplication")) (CVar (0,"opts"))) (CVar (2,"name"))) (CVar (1,"appl"))),CBranch (CPVar (3,"_")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))])] []]),+  CFunc ("AbstractCurryPrinter","showAsPatternList") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPAs") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"p")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (2,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("AbstractCurryPrinter","showBlock") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"text")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CSymbol ("Prelude","/=")) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","lines")) (CVar (0,"text")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("AbstractCurryPrinter","showBoxedExpr") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"expr")] [(CApply (CSymbol ("AbstractCurryPrinter","isSimpleExpr")) (CVar (1,"expr")),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showBranchExpr") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CBranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CBranch") [CPVar (1,"pattern"),CPVar (2,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (1,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr")))))] []]),+  CFunc ("AbstractCurryPrinter","showCCharc") 1 Private (CFuncType (CTCons ("AbstractCurry","CLiteral") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCharc") [CPVar (0,"c")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\r')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\\')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showCharListApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPComb ("AbstractCurry","CLit") [CPVar (2,"c")]],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CVar (2,"c"))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CVar (2,"c")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCharListApplication")) (CVar (0,"opts"))) (CVar (3,"tail"))))])] []]),+  CFunc ("AbstractCurryPrinter","showCmtFunc") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"cmt"),CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"typeexpr"),CPComb ("AbstractCurry","CRules") [CPVar (7,"evalannot"),CPVar (8,"rules")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","funcComment")) (CVar (1,"cmt")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"evalannot"))) (CSymbol ("AbstractCurry","CFlex")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showEvalAnnot")) (CVar (7,"evalannot")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isUntyped")) (CVar (6,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (6,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (9,"funcIsInfixOp"))) (CVar (11,"rulePrints"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CApply (CSymbol ("AbstractCurryPrinter","showRule")) (CVar (0,"opts")))) (CVar (8,"rules"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CVar (3,"name")))))))))] [CLocalPat (CPVar (9,"funcIsInfixOp")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (3,"name"))) [],CLocalPat (CPVar (10,"bolName")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (9,"funcIsInfixOp"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (3,"name"))) [],CLocalPat (CPVar (11,"rulePrints")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","concat"))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("AbstractCurryPrinter","insertName"))) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","span")) (CLambda [CPVar (12,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (12,"x0"))) (CLit (CCharc ' ')))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","tail"))) (CApply (CSymbol ("AbstractCurryPrinter","showRule")) (CVar (0,"opts"))))))) (CVar (8,"rules"))))) [],CLocalFunc (CFunc ("AbstractCurryPrinter","insertName") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (13,"fstArg"),CPVar (14,"rest")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (13,"fstArg"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CVar (14,"rest")))))] []]))],CRule [CPVar (13,"_"),CPVar (14,"cmt"),CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (15,"_"),CPVar (16,"name")],CPVar (17,"_"),CPVar (18,"_"),CPVar (19,"typeexpr"),CPComb ("AbstractCurry","CExternal") [CPVar (20,"_")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","funcComment")) (CVar (14,"cmt")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (19,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"bolName"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))))))))))))))] [CLocalPat (CPVar (21,"bolName")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (16,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (16,"name"))) []]]),+  CFunc ("AbstractCurryPrinter","showConsDecl") 1 Private (CFuncType (CTCons ("AbstractCurry","CConsDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCons") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"typelist")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CVar (4,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showConsListApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPVar (2,"head")],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head"))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showConsListApplication")) (CVar (0,"opts"))) (CVar (3,"tail")))))])] []]),+  CFunc ("AbstractCurryPrinter","showCrhs") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("Prelude","(,)") [CPVar (1,"cond"),CPVar (2,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"cond")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr"))))))] []]),+  CFunc ("AbstractCurryPrinter","showCrhsList") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (1,"opts"),CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPVar (2,"g"),CPVar (3,"r")],CPVar (4,"cs")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cs"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"g"))) (CApply (CSymbol ("AbstractCurry","CSymbol")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (1,"opts"))) (CVar (3,"r")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showCrhs")) (CVar (1,"opts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"g"))) (CVar (3,"r")))) (CVar (4,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showEvalAnnot") 1 Private (CFuncType (CTCons ("AbstractCurry","CEvalAnnot") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFlex") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CRigid") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("AbstractCurry","CChoice") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showExports") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"types"),CPVar (1,"funcs")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"publicTypes")) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicType"))) (CVar (0,"types"))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"withCons"),CPVar (4,"withoutCons")]) (CApply (CApply (CSymbol ("List","partition")) (CSymbol ("AbstractCurryPrinter","allPublicCons"))) (CVar (2,"publicTypes"))) []] (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (5,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"x0"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("AbstractCurryPrinter","getTypeName")))) (CVar (3,"withCons")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurryPrinter","getTypeName"))) (CVar (4,"withoutCons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurryPrinter","getFuncName"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicFunc"))) (CVar (1,"funcs")))))))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicType") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPVar (2,"_"),CPVar (3,"visibility"),CPVar (4,"_"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"visibility"))) (CSymbol ("AbstractCurry","Public")))] [],CRule [CPComb ("AbstractCurry","CTypeSyn") [CPVar (6,"_"),CPVar (7,"visibility"),CPVar (8,"_"),CPVar (9,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicFunc") 1 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"visibility"),CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"visibility"))) (CSymbol ("AbstractCurry","Public")))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (7,"_"),CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"visibility"),CPVar (11,"_"),CPVar (12,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","getTypeName") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"name"))] [],CRule [CPComb ("AbstractCurry","CTypeSyn") [CPComb ("Prelude","(,)") [CPVar (7,"_"),CPVar (8,"name")],CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_")]] [(CSymbol ("Prelude","success"),CVar (8,"name"))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","allPublicCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicCons"))) (CVar (5,"c"))))) (CApply (CSymbol ("Prelude","length")) (CVar (5,"c"))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CConsDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCons") [CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"visibility"),CPVar (9,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []]))]])),CLocalFunc (CFunc ("AbstractCurryPrinter","getFuncName") 1 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"name"))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (8,"_"),CPComb ("Prelude","(,)") [CPVar (9,"_"),CPVar (10,"name")],CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_")]] [(CSymbol ("Prelude","success"),CVar (10,"name"))] []]))]]),+  CFunc ("AbstractCurryPrinter","showExpr") 0 Public (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CSymbol ("AbstractCurryPrinter","defaultOptions")))] []]),+  CFunc ("AbstractCurryPrinter","showExprOpt") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("AbstractCurry","CVar") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (2,"name")))] [],CRule [CPVar (3,"_"),CPComb ("AbstractCurry","CLit") [CPVar (4,"lit")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showLiteral")) (CVar (4,"lit")))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CSymbol") [CPVar (6,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CApply (CSymbol ("Prelude","snd")) (CVar (6,"name"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (5,"opts"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (5,"opts"))) (CVar (6,"name"))))] [],CRule [CPVar (7,"opts"),CPComb ("AbstractCurry","CApply") [CPVar (8,"func"),CPVar (9,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showApplication")) (CVar (7,"opts"))) (CApply (CApply (CSymbol ("AbstractCurry","CApply")) (CVar (8,"func"))) (CVar (9,"arg"))))] [],CRule [CPVar (10,"opts"),CPComb ("AbstractCurry","CLambda") [CPVar (11,"patts"),CPVar (12,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambdaOrSection")) (CVar (10,"opts"))) (CVar (11,"patts"))) (CVar (12,"expr")))] [],CRule [CPVar (13,"opts"),CPComb ("AbstractCurry","CLetDecl") [CPVar (14,"localdecls"),CPVar (15,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (13,"opts")))) (CVar (14,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (13,"opts"))) (CVar (15,"expr")))))))] [],CRule [CPVar (16,"opts"),CPComb ("AbstractCurry","CDoExpr") [CPVar (17,"stmts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showStatement")) (CVar (16,"opts")))) (CVar (17,"stmts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPVar (18,"opts"),CPComb ("AbstractCurry","CListComp") [CPVar (19,"expr"),CPVar (20,"stmts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (18,"opts"))) (CVar (19,"expr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showStatement")) (CVar (18,"opts")))) (CVar (20,"stmts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPVar (21,"opts"),CPComb ("AbstractCurry","CCase") [CPVar (22,"expr"),CPVar (23,"branches")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (21,"opts"))) (CVar (22,"expr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showBranchExpr")) (CVar (21,"opts")))) (CVar (23,"branches"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showFixity") 1 Private (CFuncType (CTCons ("AbstractCurry","CFixity") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CInfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("AbstractCurry","CInfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("AbstractCurry","CInfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showFuncDecl") 0 Public (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CSymbol ("AbstractCurryPrinter","defaultOptions")))] []]),+  CFunc ("AbstractCurryPrinter","showFuncDeclOpt") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CmtFunc") [CPVar (1,"cmt"),CPVar (2,"qname"),CPVar (3,"ar"),CPVar (4,"vis"),CPVar (5,"typeexpr"),CPVar (6,"rules")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCmtFunc")) (CVar (0,"opts"))) (CVar (1,"cmt"))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("AbstractCurry","CFunc")) (CVar (2,"qname"))) (CVar (3,"ar"))) (CVar (4,"vis"))) (CVar (5,"typeexpr"))) (CVar (6,"rules"))))] [],CRule [CPVar (7,"opts"),CPAs (13,"cfunc") (CPComb ("AbstractCurry","CFunc") [CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCmtFunc")) (CVar (7,"opts"))) (CSymbol ("Prelude","[]"))) (CVar (13,"cfunc")))] []]),+  CFunc ("AbstractCurryPrinter","showITEApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPVar (1,"_")],CPVar (2,"condExpr")],CPVar (3,"thenExpr")],CPVar (4,"elseExpr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"condExpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (3,"thenExpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (4,"elseExpr"))))))))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CApply") [CPAs (10,"e") (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (6,"_"),CPVar (7,"_")],CPVar (8,"_")],CPVar (9,"_")]),CPVar (11,"e'")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showITEApplication")) (CVar (5,"opts"))) (CVar (10,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (5,"opts"))) (CVar (11,"e'"))))))] []]),+  CFunc ("AbstractCurryPrinter","showIdentifier") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","elem"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("AbstractCurryPrinter","showImport") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"imp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (0,"imp"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CVar (0,"imp")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showImports") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"imports")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showImport"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (1,"x0"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CVar (0,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"imports"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showInfixApplication") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"infixop"),CPComb ("AbstractCurry","CApply") [CPVar (2,"func"),CPVar (3,"arg2")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"func")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (4,"_"),CPVar (5,"arg1")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (5,"arg1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (0,"opts"))) (CVar (1,"infixop")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg2"))))))),CBranch (CPVar (6,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (0,"opts"))) (CVar (1,"infixop")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg2"))))))])] []]),+  CFunc ("AbstractCurryPrinter","showLambda") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"patts"),CPVar (2,"expr")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (1,"patts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr"))))))] []]),+  CFunc ("AbstractCurryPrinter","showLambdaOrSection") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CPattern") []]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"patts"),CPVar (2,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (1,"patts")) [CBranch (CPComb ("Prelude",":") [CPComb ("AbstractCurry","CPVar") [CPVar (3,"pvar")],CPComb ("Prelude","[]") []]) (CCase (CVar (2,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (4,"_"),CPVar (5,"name")]],CPVar (6,"lexpr")],CPComb ("AbstractCurry","CVar") [CPVar (7,"var")]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (5,"name")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isAtom")) (CVar (6,"lexpr")))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (7,"var")))) (CVar (6,"lexpr")))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"pvar"))) (CVar (7,"var")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (6,"lexpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"lexpr"))) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (3,"pvar"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (7,"var"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))),CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (8,"_"),CPVar (9,"name")]],CPComb ("AbstractCurry","CVar") [CPVar (10,"var")]],CPVar (11,"rexpr")]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (9,"name")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"pvar"))) (CVar (10,"var")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isAtom")) (CVar (11,"rexpr")))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (10,"var")))) (CVar (11,"rexpr"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (9,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (11,"rexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))),CBranch (CPVar (12,"_")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))]),CBranch (CPVar (13,"_")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))])] []]),+  CFunc ("AbstractCurryPrinter","showListApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CApply (CSymbol ("AbstractCurryPrinter","isStringList")) (CVar (1,"appl")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCharListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isClosedList")) (CVar (1,"appl")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showConsListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showLiteral") 1 Private (CFuncType (CTCons ("AbstractCurry","CLiteral") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CIntc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("AbstractCurry","CFloatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("AbstractCurry","CCharc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CApply (CSymbol ("AbstractCurry","CCharc")) (CVar (2,"c"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showLocalDecl") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CLocalDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CLocalFunc") [CPVar (1,"funcdecl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showLocalFuncDecl")) (CVar (0,"opts"))) (CVar (1,"funcdecl")))] [],CRule [CPVar (2,"opts"),CPComb ("AbstractCurry","CLocalPat") [CPVar (3,"pattern"),CPVar (4,"expr"),CPVar (5,"localdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (3,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (2,"opts"))) (CVar (4,"expr")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (5,"localdecls")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (2,"opts")))) (CVar (5,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPVar (6,"_"),CPComb ("AbstractCurry","CLocalVar") [CPVar (7,"index")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CSymbol ("AbstractCurry","CPVar")) (CVar (7,"index"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showLocalFuncDecl") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CVar (0,"opts")))] []]),+  CFunc ("AbstractCurryPrinter","showOpDecl") 1 Private (CFuncType (CTCons ("AbstractCurry","COpDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","COp") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"fixity"),CPVar (3,"precedence")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showFixity")) (CVar (2,"fixity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"precedence")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (1,"name")))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showOpDecls") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","COpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"opdecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showOpDecl"))) (CVar (0,"opdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"opdecls"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showPatListElems") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"x"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (0,"x")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (1,"xs"))))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"v")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CSymbol ("AbstractCurry","CPVar")) (CVar (2,"v"))))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPVar (3,"name"),CPVar (4,"p")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CApply (CSymbol ("AbstractCurry","CPAs")) (CVar (3,"name"))) (CVar (4,"p"))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showPattern") 1 Public (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPVar") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (1,"name")))] [],CRule [CPComb ("AbstractCurry","CPLit") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showLiteral")) (CVar (2,"lit")))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CVar (4,"name"))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (5,"mod"),CPVar (6,"name")],CPComb ("Prelude",":") [CPVar (7,"p"),CPVar (8,"ps")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))),CApply (CSymbol ("AbstractCurryPrinter","showPreludeCons")) (CApply (CApply (CSymbol ("AbstractCurry","CPComb")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (5,"mod"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"p"))) (CVar (8,"ps"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"p"))) (CVar (8,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPComb ("Prelude","(,)") [CPVar (9,"_"),CPVar (10,"name")],CPVar (11,"pat")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (10,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (11,"pat")))))] [],CRule [CPComb ("AbstractCurry","CPFuncComb") [CPVar (12,"qname"),CPVar (13,"pats")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CApply (CSymbol ("AbstractCurry","CPComb")) (CVar (12,"qname"))) (CVar (13,"pats"))))] []]),+  CFunc ("AbstractCurryPrinter","showPatternList") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"p")] [(CApply (CSymbol ("AbstractCurryPrinter","isClosedStringPattern")) (CVar (0,"p")),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (1,"x0"))) (CLit (CCharc '\''))))) (CApply (CSymbol ("Prelude","concat")) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (0,"p")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isAsPattern")) (CVar (0,"p")),CApply (CSymbol ("AbstractCurryPrinter","showAsPatternList")) (CVar (0,"p"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showPreludeCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"p")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))),CApply (CSymbol ("AbstractCurryPrinter","showPatternList")) (CVar (0,"p"))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (2,"name")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (3,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (3,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalPat (CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")],CPVar (3,"pattlist")]) (CVar (0,"p")) []]]),+  CFunc ("AbstractCurryPrinter","showPreludeTypeCons") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"typelist")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"typelist")))) (CApply (CApply (CSymbol ("AbstractCurry","CTCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (1,"typelist"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (0,"name")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CVar (1,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CVar (1,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showProg") 1 Public (CFuncType (CTCons ("AbstractCurry","CurryProg") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CurryProg") [CPVar (0,"m"),CPVar (1,"imports"),CPVar (2,"typedecls"),CPVar (3,"funcdecls"),CPVar (4,"opdecls")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (5,"exports")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExports")) (CVar (2,"typedecls"))) (CVar (3,"funcdecls"))) []] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"m"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"exports"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"exports"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showImports")) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showOpDecls")) (CVar (4,"opdecls")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeDecls")) (CVar (2,"typedecls")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("AbstractCurryPrinter","nameFM")) (CVar (3,"funcdecls")))) (CVar (0,"m"))))) (CVar (3,"funcdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showRule") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CRule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CRule") [CPVar (1,"pattlist"),CPVar (2,"crhslist"),CPVar (3,"localdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (1,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCrhsList")) (CVar (0,"opts"))) (CVar (2,"crhslist")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (3,"localdecls")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (0,"opts")))) (CVar (3,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("AbstractCurryPrinter","showSimpleApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CCase (CVar (1,"appl")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (2,"func"),CPVar (3,"arg")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (2,"func")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg"))))),CBranch (CPVar (4,"_")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (1,"appl")))])] []]),+  CFunc ("AbstractCurryPrinter","showSimpleListApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPVar (2,"head")],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"tail")))))])] [],CRule [CPVar (6,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (7,"_"),CPVar (8,"str")]],CPVar (9,"tail")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (6,"opts"))) (CVar (9,"tail")))) (CVar (8,"str")))] []]),+  CFunc ("AbstractCurryPrinter","showStatement") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CStatement") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CSExpr") [CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr")))] [],CRule [CPVar (2,"opts"),CPComb ("AbstractCurry","CSPat") [CPVar (3,"pattern"),CPVar (4,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (3,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (2,"opts"))) (CVar (4,"expr")))))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CSLet") [CPVar (6,"localdecls")]] [(CSymbol ("Prelude","success"),CCase (CVar (6,"localdecls")) [CBranch (CPComb ("Prelude",":") [CPVar (7,"decl"),CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (5,"opts"))) (CVar (7,"decl")))),CBranch (CPVar (8,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (5,"opts")))) (CVar (6,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))])] []]),+  CFunc ("AbstractCurryPrinter","showSymbol") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"fm"),CPVar (1,"thisModule")],CPComb ("Prelude","(,)") [CPVar (2,"thatModule"),CPVar (3,"symName")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"thisModule"))) (CVar (2,"thatModule")),CVar (3,"symName")),(CApply (CSymbol ("Maybe","isJust")) (CApply (CApply (CSymbol ("FiniteMap","lookupFM")) (CVar (0,"fm"))) (CVar (3,"symName"))),CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"thatModule"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))) (CVar (3,"symName")))),(CSymbol ("Prelude","otherwise"),CVar (3,"symName"))] []]),+  CFunc ("AbstractCurryPrinter","showSymbolApplication") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")],CPVar (3,"appl")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showListApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showITEApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (2,"name")),CApply (CApply (CSymbol ("AbstractCurryPrinter","showTupleApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (3,"appl")))] []]),+  CFunc ("AbstractCurryPrinter","showTupleApplication") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("FiniteMap","FM") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","()") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","p_showTuple")) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","p_showTuple") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPVar (2,"_")],CPVar (3,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (3,"arg")))] [],CRule [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (4,"e1"),CPVar (5,"e2")],CPVar (6,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","p_showTuple")) (CApply (CApply (CSymbol ("AbstractCurry","CApply")) (CVar (4,"e1"))) (CVar (5,"e2"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (6,"arg")))))] []]))]]),+  CFunc ("AbstractCurryPrinter","showTypeCons") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"name"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (1,"name"))] [],CRule [CPVar (2,"mod"),CPVar (3,"name"),CPComb ("Prelude",":") [CPVar (4,"t"),CPVar (5,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showPreludeTypeCons")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"t"))) (CVar (5,"ts")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"t"))) (CVar (5,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeDecl") 1 Public (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CTypeSyn") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"_"),CPVar (3,"indexlist"),CPVar (4,"typeexpr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurry","CTVar"))) (CVar (3,"indexlist")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (4,"typeexpr")))))))] [],CRule [CPComb ("AbstractCurry","CType") [CPComb ("Prelude","(,)") [CPVar (5,"_"),CPVar (6,"name")],CPVar (7,"_"),CPVar (8,"indexlist"),CPVar (9,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurry","CTVar"))) (CVar (8,"indexlist")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showConsDecl"))) (CVar (9,"consdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeDecls") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"typedecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showTypeDecl"))) (CVar (0,"typedecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"typedecls"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeExpr") 2 Public (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("AbstractCurry","CTypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("AbstractCurry","CTVar") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showTypeVar")) (CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (2,"name"))))] [],CRule [CPVar (3,"nested"),CPComb ("AbstractCurry","CFuncType") [CPVar (4,"domain"),CPVar (5,"range")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","maybeShowBrackets")) (CVar (3,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CApply (CSymbol ("AbstractCurryPrinter","isCFuncType")) (CVar (4,"domain")))) (CVar (4,"domain")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (5,"range"))))))] [],CRule [CPVar (6,"nested"),CPComb ("AbstractCurry","CTCons") [CPComb ("Prelude","(,)") [CPVar (7,"mod"),CPVar (8,"name")],CPVar (9,"typelist")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("AbstractCurryPrinter","maybeShowBrackets")) (CApply (CApply (CSymbol ("Prelude","&&")) (CVar (6,"nested"))) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (9,"typelist")))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeCons")) (CVar (7,"mod"))) (CVar (8,"name"))) (CVar (9,"typelist"))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeVar") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc 'a')))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("Char","isDigit"))) (CVar (1,"cs")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))))] []])]+ []
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.cy view
@@ -0,0 +1,147 @@+Module "AbstractCurryPrinter"+(Just (Exporting (12,28) [(Export (QualIdent Nothing (Ident "showProg" 0))),(Export (QualIdent Nothing (Ident "showTypeDecls" 0))),(Export (QualIdent Nothing (Ident "showTypeDecl" 0))),(Export (QualIdent Nothing (Ident "showTypeExpr" 0))),(Export (QualIdent Nothing (Ident "showFuncDecl" 0))),(Export (QualIdent Nothing (Ident "showExpr" 0))),(Export (QualIdent Nothing (Ident "showPattern" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (19,1) "AbstractCurry" False Nothing Nothing)+,(ImportDecl (20,1) "List" False Nothing Nothing)+,(ImportDecl (21,1) "Read" False Nothing (Just (Importing (21,12) [(Import (Ident "readNat" 0))])))+,(ImportDecl (22,1) "Char" False Nothing (Just (Importing (22,12) [(Import (Ident "isDigit" 0))])))+,(ImportDecl (23,1) "FiniteMap" False Nothing Nothing)+,(ImportDecl (24,1) "Sort" False Nothing (Just (Importing (24,13) [(Import (Ident "cmpString" 0))])))+,(ImportDecl (25,1) "Maybe" False Nothing (Just (Importing (25,14) [(Import (Ident "isJust" 0))])))+,(TypeDecl (49,1) (Ident "NameFM" 0) [] (ConstructorType (QualIdent Nothing (Ident "FM" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(TupleType [])]))+,(TypeDecl (50,1) (Ident "Options" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "NameFM" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(TypeSig (37,1) [(Ident "showProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CurryProg" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (38,1) (Ident "showProg" 0) [(Equation (38,1) (FunLhs (Ident "showProg" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CurryProg" 0)) [(VariablePattern (Ident "m" 2)),(VariablePattern (Ident "imports" 2)),(VariablePattern (Ident "typedecls" 2)),(VariablePattern (Ident "funcdecls" 2)),(VariablePattern (Ident "opdecls" 2))]))]) (SimpleRhs (39,3) (Let [(PatternDecl (39,7) (VariablePattern (Ident "exports" 4)) (SimpleRhs (39,17) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExports" 0))) (Variable (QualIdent Nothing (Ident "typedecls" 2)))) (Variable (QualIdent Nothing (Ident "funcdecls" 2)))) []))] (InfixApply (Literal (String "module ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "m" 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "exports" 4))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ""))) (Literal (String "")) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "exports" 4))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " where\n\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showImports" 0))) (Variable (QualIdent Nothing (Ident "imports" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showOpDecls" 0))) (Variable (QualIdent Nothing (Ident "opdecls" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeDecls" 0))) (Variable (QualIdent Nothing (Ident "typedecls" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixInter" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showFuncDeclOpt" 0))) (Tuple [(Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "nameFM" 0))) (Variable (QualIdent Nothing (Ident "funcdecls" 2)))),(Variable (QualIdent Nothing (Ident "m" 2)))])))) (Variable (QualIdent Nothing (Ident "funcdecls" 2)))) (Literal (String "\n\n"))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n"))))))))))) []))])+,(TypeSig (53,1) [(Ident "defaultOptions" 0)] (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []))+,(FunctionDecl (54,1) (Ident "defaultOptions" 0) [(Equation (54,1) (FunLhs (Ident "defaultOptions" 0) []) (SimpleRhs (54,18) (Tuple [(Apply (Variable (QualIdent (Just "FiniteMap") (Ident "emptyFM" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "lessString" 0)))),(Literal (String ""))]) []))])+,(TypeSig (57,1) [(Ident "showExports" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (58,1) (Ident "showExports" 0) [(Equation (58,1) (FunLhs (Ident "showExports" 0) [(VariablePattern (Ident "types" 8)),(VariablePattern (Ident "funcs" 8))]) (SimpleRhs (59,3) (Let [(PatternDecl (59,7) (VariablePattern (Ident "publicTypes" 70)) (SimpleRhs (59,21) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Variable (QualIdent Nothing (Ident "isPublicType" 9)))) (Variable (QualIdent Nothing (Ident "types" 8)))) [])),(PatternDecl (60,7) (TuplePattern [(VariablePattern (Ident "withCons" 70)),(VariablePattern (Ident "withoutCons" 70))]) (SimpleRhs (60,33) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "partition" 0))) (Variable (QualIdent Nothing (Ident "allPublicCons" 9)))) (Variable (QualIdent Nothing (Ident "publicTypes" 70)))) []))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ", "))) (Paren (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "(..)"))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "getTypeName" 9)))))) (Variable (QualIdent Nothing (Ident "withCons" 70)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "getTypeName" 9)))) (Variable (QualIdent Nothing (Ident "withoutCons" 70)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "getFuncName" 9)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Variable (QualIdent Nothing (Ident "isPublicFunc" 9)))) (Variable (QualIdent Nothing (Ident "funcs" 8))))))))))))) [(TypeSig (68,5) [(Ident "isPublicType" 9)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))),(FunctionDecl (69,5) (Ident "isPublicType" 9) [(Equation (69,5) (FunLhs (Ident "isPublicType" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CType" 0)) [(VariablePattern (Ident "_" 11)),(VariablePattern (Ident "visibility" 10)),(VariablePattern (Ident "_" 12)),(VariablePattern (Ident "_" 13))]))]) (SimpleRhs (69,45) (InfixApply (Variable (QualIdent Nothing (Ident "visibility" 10))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "Public" 0)))) [])),(Equation (70,5) (FunLhs (Ident "isPublicType" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTypeSyn" 0)) [(VariablePattern (Ident "_" 16)),(VariablePattern (Ident "visibility" 15)),(VariablePattern (Ident "_" 17)),(VariablePattern (Ident "_" 18))]))]) (SimpleRhs (70,48) (InfixApply (Variable (QualIdent Nothing (Ident "visibility" 15))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "Public" 0)))) []))]),(TypeSig (72,5) [(Ident "isPublicFunc" 9)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))),(FunctionDecl (73,5) (Ident "isPublicFunc" 9) [(Equation (73,5) (FunLhs (Ident "isPublicFunc" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(VariablePattern (Ident "_" 21)),(VariablePattern (Ident "_" 22)),(VariablePattern (Ident "visibility" 20)),(VariablePattern (Ident "_" 23)),(VariablePattern (Ident "_" 24))]))]) (SimpleRhs (73,47) (InfixApply (Variable (QualIdent Nothing (Ident "visibility" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "Public" 0)))) [])),(Equation (74,5) (FunLhs (Ident "isPublicFunc" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CmtFunc" 0)) [(VariablePattern (Ident "_" 27)),(VariablePattern (Ident "_" 28)),(VariablePattern (Ident "_" 29)),(VariablePattern (Ident "visibility" 26)),(VariablePattern (Ident "_" 30)),(VariablePattern (Ident "_" 31))]))]) (SimpleRhs (74,51) (InfixApply (Variable (QualIdent Nothing (Ident "visibility" 26))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "Public" 0)))) []))]),(TypeSig (76,5) [(Ident "getTypeName" 9)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))),(FunctionDecl (77,5) (Ident "getTypeName" 9) [(Equation (77,5) (FunLhs (Ident "getTypeName" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CType" 0)) [(TuplePattern [(VariablePattern (Ident "_" 34)),(VariablePattern (Ident "name" 33))]),(VariablePattern (Ident "_" 35)),(VariablePattern (Ident "_" 36)),(VariablePattern (Ident "_" 37))]))]) (SimpleRhs (77,42) (Variable (QualIdent Nothing (Ident "name" 33))) [])),(Equation (78,5) (FunLhs (Ident "getTypeName" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTypeSyn" 0)) [(TuplePattern [(VariablePattern (Ident "_" 40)),(VariablePattern (Ident "name" 39))]),(VariablePattern (Ident "_" 41)),(VariablePattern (Ident "_" 42)),(VariablePattern (Ident "_" 43))]))]) (SimpleRhs (78,45) (Variable (QualIdent Nothing (Ident "name" 39))) []))]),(TypeSig (80,5) [(Ident "allPublicCons" 9)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))),(FunctionDecl (81,5) (Ident "allPublicCons" 9) [(Equation (81,5) (FunLhs (Ident "allPublicCons" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CType" 0)) [(VariablePattern (Ident "_" 46)),(VariablePattern (Ident "_" 47)),(VariablePattern (Ident "_" 48)),(VariablePattern (Ident "c" 45))]))]) (SimpleRhs (81,37) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Variable (QualIdent Nothing (Ident "isPublicCons" 49)))) (Variable (QualIdent Nothing (Ident "c" 45)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "c" 45))))) [(TypeSig (83,9) [(Ident "isPublicCons" 49)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))),(FunctionDecl (84,9) (Ident "isPublicCons" 49) [(Equation (84,9) (FunLhs (Ident "isPublicCons" 49) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCons" 0)) [(VariablePattern (Ident "_" 51)),(VariablePattern (Ident "_" 52)),(VariablePattern (Ident "visibility" 50)),(VariablePattern (Ident "_" 53))]))]) (SimpleRhs (84,49) (InfixApply (Variable (QualIdent Nothing (Ident "visibility" 50))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "Public" 0)))) []))])]))]),(TypeSig (86,5) [(Ident "getFuncName" 9)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))),(FunctionDecl (87,5) (Ident "getFuncName" 9) [(Equation (87,5) (FunLhs (Ident "getFuncName" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(TuplePattern [(VariablePattern (Ident "_" 56)),(VariablePattern (Ident "name" 55))]),(VariablePattern (Ident "_" 57)),(VariablePattern (Ident "_" 58)),(VariablePattern (Ident "_" 59)),(VariablePattern (Ident "_" 60))]))]) (SimpleRhs (87,44) (Variable (QualIdent Nothing (Ident "name" 55))) [])),(Equation (88,5) (FunLhs (Ident "getFuncName" 9) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CmtFunc" 0)) [(VariablePattern (Ident "_" 63)),(TuplePattern [(VariablePattern (Ident "_" 64)),(VariablePattern (Ident "name" 62))]),(VariablePattern (Ident "_" 65)),(VariablePattern (Ident "_" 66)),(VariablePattern (Ident "_" 67)),(VariablePattern (Ident "_" 68))]))]) (SimpleRhs (88,48) (Variable (QualIdent Nothing (Ident "name" 62))) []))])]))])+,(TypeSig (91,1) [(Ident "showImports" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (92,1) (Ident "showImports" 0) [(Equation (92,1) (FunLhs (Ident "showImports" 0) [(VariablePattern (Ident "imports" 73))]) (SimpleRhs (93,3) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixInter" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showImport" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (String "Prelude")))) (Variable (QualIdent Nothing (Ident "imports" 73)))))) (Literal (String "\n"))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "imports" 73))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [(Literal (String "Prelude"))])) (Literal (String "")) (Literal (String "\n\n"))))) []))])+,(TypeSig (96,1) [(Ident "showImport" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (97,1) (Ident "showImport" 0) [(Equation (97,1) (FunLhs (Ident "showImport" 0) [(VariablePattern (Ident "imp" 75))]) (SimpleRhs (97,18) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "imp" 75))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (String "Prelude"))) (InfixApply (Literal (String "import ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "imp" 75)))) (Literal (String ""))) []))])+,(TypeSig (99,1) [(Ident "showOpDecls" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "COpDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (100,1) (Ident "showOpDecls" 0) [(Equation (100,1) (FunLhs (Ident "showOpDecls" 0) [(VariablePattern (Ident "opdecls" 77))]) (SimpleRhs (101,3) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixInter" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showOpDecl" 0)))) (Variable (QualIdent Nothing (Ident "opdecls" 77)))) (Literal (String "\n"))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "opdecls" 77))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "")) (Literal (String "\n\n"))))) []))])+,(TypeSig (104,1) [(Ident "showOpDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "COpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (105,1) (Ident "showOpDecl" 0) [(Equation (105,1) (FunLhs (Ident "showOpDecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "COp" 0)) [(TuplePattern [(VariablePattern (Ident "_" 80)),(VariablePattern (Ident "name" 79))]),(VariablePattern (Ident "fixity" 79)),(VariablePattern (Ident "precedence" 79))]))]) (SimpleRhs (106,3) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showFixity" 0))) (Variable (QualIdent Nothing (Ident "fixity" 79)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "precedence" 79)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (IfThenElse (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 79)))) (Variable (QualIdent Nothing (Ident "name" 79))) (InfixApply (Literal (Char '`')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 79))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "`"))))))))) []))])+,(TypeSig (109,1) [(Ident "showFixity" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFixity" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (110,1) (Ident "showFixity" 0) [(Equation (110,1) (FunLhs (Ident "showFixity" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CInfixOp" 0)) [])]) (SimpleRhs (110,24) (Literal (String "infix")) [])),(Equation (111,1) (FunLhs (Ident "showFixity" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CInfixlOp" 0)) [])]) (SimpleRhs (111,24) (Literal (String "infixl")) [])),(Equation (112,1) (FunLhs (Ident "showFixity" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CInfixrOp" 0)) [])]) (SimpleRhs (112,24) (Literal (String "infixr")) []))])+,(TypeSig (115,1) [(Ident "showTypeDecls" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (116,1) (Ident "showTypeDecls" 0) [(Equation (116,1) (FunLhs (Ident "showTypeDecls" 0) [(VariablePattern (Ident "typedecls" 88))]) (SimpleRhs (117,3) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixInter" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeDecl" 0)))) (Variable (QualIdent Nothing (Ident "typedecls" 88)))) (Literal (String "\n\n"))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "typedecls" 88))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "")) (Literal (String "\n\n"))))) []))])+,(TypeSig (121,1) [(Ident "showTypeDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (122,1) (Ident "showTypeDecl" 0) [(Equation (122,1) (FunLhs (Ident "showTypeDecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTypeSyn" 0)) [(TuplePattern [(VariablePattern (Ident "_" 91)),(VariablePattern (Ident "name" 90))]),(VariablePattern (Ident "_" 92)),(VariablePattern (Ident "indexlist" 90)),(VariablePattern (Ident "typeexpr" 90))]))]) (SimpleRhs (123,6) (InfixApply (Literal (String "type ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 90))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "CTVar" 0)))) (Variable (QualIdent Nothing (Ident "indexlist" 90)))))) (Literal (String " ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " = ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "typeexpr" 90)))))))) [])),(Equation (126,1) (FunLhs (Ident "showTypeDecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CType" 0)) [(TuplePattern [(VariablePattern (Ident "_" 95)),(VariablePattern (Ident "name" 94))]),(VariablePattern (Ident "_" 96)),(VariablePattern (Ident "indexlist" 94)),(VariablePattern (Ident "consdecls" 94))]))]) (SimpleRhs (127,6) (InfixApply (Literal (String "data ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 94))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "CTVar" 0)))) (Variable (QualIdent Nothing (Ident "indexlist" 94)))))) (Literal (String " ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (InfixApply (Literal (String "= ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showConsDecl" 0)))) (Variable (QualIdent Nothing (Ident "consdecls" 94)))) (Literal (String "\n| "))))))))))) []))])+,(TypeSig (131,1) [(Ident "showConsDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (132,1) (Ident "showConsDecl" 0) [(Equation (132,1) (FunLhs (Ident "showConsDecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCons" 0)) [(TuplePattern [(VariablePattern (Ident "_" 99)),(VariablePattern (Ident "name" 98))]),(VariablePattern (Ident "_" 100)),(VariablePattern (Ident "_" 101)),(VariablePattern (Ident "typelist" 98))]))]) (SimpleRhs (133,6) (InfixApply (Variable (QualIdent Nothing (Ident "name" 98))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Variable (QualIdent Nothing (Ident "typelist" 98)))) (Literal (String " "))))) []))])+,(TypeSig (138,1) [(Ident "showTypeExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (139,1) (Ident "showTypeExpr" 0) [(Equation (139,1) (FunLhs (Ident "showTypeExpr" 0) [(VariablePattern (Ident "_" 104)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTVar" 0)) [(TuplePattern [(VariablePattern (Ident "_" 105)),(VariablePattern (Ident "name" 103))])]))]) (SimpleRhs (139,35) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeVar" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showIdentifier" 0))) (Variable (QualIdent Nothing (Ident "name" 103)))))) [])),(Equation (140,1) (FunLhs (Ident "showTypeExpr" 0) [(VariablePattern (Ident "nested" 107)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFuncType" 0)) [(VariablePattern (Ident "domain" 107)),(VariablePattern (Ident "range" 107))]))]) (SimpleRhs (141,4) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "maybeShowBrackets" 0))) (Variable (QualIdent Nothing (Ident "nested" 107)))) (Paren (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isCFuncType" 0))) (Variable (QualIdent Nothing (Ident "domain" 107)))))) (Variable (QualIdent Nothing (Ident "domain" 107)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "range" 107)))))))) [])),(Equation (144,1) (FunLhs (Ident "showTypeExpr" 0) [(VariablePattern (Ident "nested" 109)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTCons" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 109)),(VariablePattern (Ident "name" 109))]),(VariablePattern (Ident "typelist" 109))]))]) (GuardedRhs [(CondExpr (145,4) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 109))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 109))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "untyped")))) (Literal (String "-"))),(CondExpr (146,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "maybeShowBrackets" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "nested" 109))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "typelist" 109))))))))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeCons" 0))) (Variable (QualIdent Nothing (Ident "mod" 109)))) (Variable (QualIdent Nothing (Ident "name" 109)))) (Variable (QualIdent Nothing (Ident "typelist" 109)))))))] []))])+,(FunctionDecl (150,1) (Ident "showTypeVar" 0) [(Equation (150,1) (FunLhs (Ident "showTypeVar" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 111)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 111))))]) (SimpleRhs (151,3) (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 111))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char 'a'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "cs" 111)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "all" 0))) (Variable (QualIdent (Just "Char") (Ident "isDigit" 0)))) (Variable (QualIdent Nothing (Ident "cs" 111)))))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 111))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Literal (Char '_')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 111))))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 111))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 111))))) []))])+,(TypeSig (157,1) [(Ident "showIdentifier" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (158,1) (Ident "showIdentifier" 0) [(Equation (158,1) (FunLhs (Ident "showIdentifier" 0) []) (SimpleRhs (158,18) (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "flip" 0))) (Variable (QualIdent (Just "Prelude") (Ident "elem" 0)))) (Literal (String "<>")))))) []))])+,(FunctionDecl (160,1) (Ident "isCFuncType" 0) [(Equation (160,1) (FunLhs (Ident "isCFuncType" 0) [(VariablePattern (Ident "t" 115))]) (SimpleRhs (160,17) (Case (Variable (QualIdent Nothing (Ident "t" 115))) [(Alt (161,19) (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFuncType" 0)) [(VariablePattern (Ident "_" 118)),(VariablePattern (Ident "_" 119))]) (SimpleRhs (161,36) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (162,19) (VariablePattern (Ident "_" 122)) (SimpleRhs (162,24) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (165,1) (Ident "showFuncDecl" 0) [(Equation (165,1) (FunLhs (Ident "showFuncDecl" 0) []) (SimpleRhs (165,16) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showFuncDeclOpt" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "defaultOptions" 0)))) []))])+,(TypeSig (167,1) [(Ident "showFuncDeclOpt" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (168,1) (Ident "showFuncDeclOpt" 0) [(Equation (168,1) (FunLhs (Ident "showFuncDeclOpt" 0) [(VariablePattern (Ident "opts" 126)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CmtFunc" 0)) [(VariablePattern (Ident "cmt" 126)),(VariablePattern (Ident "qname" 126)),(VariablePattern (Ident "ar" 126)),(VariablePattern (Ident "vis" 126)),(VariablePattern (Ident "typeexpr" 126)),(VariablePattern (Ident "rules" 126))]))]) (SimpleRhs (169,3) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCmtFunc" 0))) (Variable (QualIdent Nothing (Ident "opts" 126)))) (Variable (QualIdent Nothing (Ident "cmt" 126)))) (Paren (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0))) (Variable (QualIdent Nothing (Ident "qname" 126)))) (Variable (QualIdent Nothing (Ident "ar" 126)))) (Variable (QualIdent Nothing (Ident "vis" 126)))) (Variable (QualIdent Nothing (Ident "typeexpr" 126)))) (Variable (QualIdent Nothing (Ident "rules" 126)))))) [])),(Equation (170,1) (FunLhs (Ident "showFuncDeclOpt" 0) [(VariablePattern (Ident "opts" 128)),(AsPattern (Ident "cfunc" 128) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(VariablePattern (Ident "_" 129)),(VariablePattern (Ident "_" 130)),(VariablePattern (Ident "_" 131)),(VariablePattern (Ident "_" 132)),(VariablePattern (Ident "_" 133))])))]) (SimpleRhs (170,48) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCmtFunc" 0))) (Variable (QualIdent Nothing (Ident "opts" 128)))) (Literal (String ""))) (Variable (QualIdent Nothing (Ident "cfunc" 128)))) []))])+,(TypeSig (172,1) [(Ident "showCmtFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (173,1) (Ident "showCmtFunc" 0) [(Equation (173,1) (FunLhs (Ident "showCmtFunc" 0) [(VariablePattern (Ident "opts" 135)),(VariablePattern (Ident "cmt" 135)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(TuplePattern [(VariablePattern (Ident "_" 136)),(VariablePattern (Ident "name" 135))]),(VariablePattern (Ident "_" 137)),(VariablePattern (Ident "_" 138)),(VariablePattern (Ident "typeexpr" 135)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CRules" 0)) [(VariablePattern (Ident "evalannot" 135)),(VariablePattern (Ident "rules" 135))]))]))]) (SimpleRhs (174,3) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "funcComment" 0))) (Variable (QualIdent Nothing (Ident "cmt" 135)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "evalannot" 135))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "AbstractCurry") (Ident "CFlex" 0)))) (Literal (String "")) (InfixApply (Variable (QualIdent Nothing (Ident "bolName" 139))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " eval ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showEvalAnnot" 0))) (Variable (QualIdent Nothing (Ident "evalannot" 135))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n"))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isUntyped" 0))) (Variable (QualIdent Nothing (Ident "typeexpr" 135)))) (Literal (String "\n")) (InfixApply (Variable (QualIdent Nothing (Ident "bolName" 139))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " :: ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "typeexpr" 135))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n"))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (Variable (QualIdent Nothing (Ident "funcIsInfixOp" 139))) (Variable (QualIdent Nothing (Ident "rulePrints" 139))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 135))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixInter" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showRule" 0))) (Variable (QualIdent Nothing (Ident "opts" 135)))))) (Variable (QualIdent Nothing (Ident "rules" 135)))) (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "name" 135))))))))))))) [(PatternDecl (182,3) (VariablePattern (Ident "funcIsInfixOp" 139)) (SimpleRhs (182,19) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 135)))) [])),(PatternDecl (183,3) (VariablePattern (Ident "bolName" 139)) (SimpleRhs (183,13) (IfThenElse (Variable (QualIdent Nothing (Ident "funcIsInfixOp" 139))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 135))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (Variable (QualIdent Nothing (Ident "name" 135)))) [])),(PatternDecl (184,3) (VariablePattern (Ident "rulePrints" 139)) (SimpleRhs (184,16) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String "\n"))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "insertName" 139))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "span" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char ' '))))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showRule" 0))) (Variable (QualIdent Nothing (Ident "opts" 135)))))))))) (Variable (QualIdent Nothing (Ident "rules" 135)))))) [])),(FunctionDecl (187,3) (Ident "insertName" 139) [(Equation (187,3) (FunLhs (Ident "insertName" 139) [(TuplePattern [(VariablePattern (Ident "fstArg" 143)),(VariablePattern (Ident "rest" 143))])]) (SimpleRhs (187,30) (InfixApply (Variable (QualIdent Nothing (Ident "fstArg" 143))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 135))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "rest" 143)))))) []))])])),(Equation (189,1) (FunLhs (Ident "showCmtFunc" 0) [(VariablePattern (Ident "_" 146)),(VariablePattern (Ident "cmt" 145)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(TuplePattern [(VariablePattern (Ident "_" 147)),(VariablePattern (Ident "name" 145))]),(VariablePattern (Ident "_" 148)),(VariablePattern (Ident "_" 149)),(VariablePattern (Ident "typeexpr" 145)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CExternal" 0)) [(VariablePattern (Ident "_" 150))]))]))]) (SimpleRhs (190,3) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "funcComment" 0))) (Variable (QualIdent Nothing (Ident "cmt" 145)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "bolName" 151))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " :: ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "typeexpr" 145))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "bolName" 151))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " external")))))))) [(PatternDecl (194,3) (VariablePattern (Ident "bolName" 151)) (SimpleRhs (194,13) (IfThenElse (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 145)))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 145))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (Variable (QualIdent Nothing (Ident "name" 145)))) []))]))])+,(TypeSig (197,1) [(Ident "funcComment" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (198,1) (Ident "funcComment" 0) [(Equation (198,1) (FunLhs (Ident "funcComment" 0) []) (SimpleRhs (198,15) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "unlines" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (LeftSection (Literal (String "--- ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "lines" 0))))) []))])+,(TypeSig (200,1) [(Ident "showLocalFuncDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (201,1) (Ident "showLocalFuncDecl" 0) [(Equation (201,1) (FunLhs (Ident "showLocalFuncDecl" 0) [(VariablePattern (Ident "opts" 155))]) (SimpleRhs (201,26) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showFuncDeclOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 155)))) []))])+,(TypeSig (203,1) [(Ident "showRule" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CRule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (204,1) (Ident "showRule" 0) [(Equation (204,1) (FunLhs (Ident "showRule" 0) [(VariablePattern (Ident "opts" 157)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CRule" 0)) [(VariablePattern (Ident "pattlist" 157)),(VariablePattern (Ident "crhslist" 157)),(VariablePattern (Ident "localdecls" 157))]))]) (SimpleRhs (205,3) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0)))) (Variable (QualIdent Nothing (Ident "pattlist" 157)))) (Literal (String " "))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCrhsList" 0))) (Variable (QualIdent Nothing (Ident "opts" 157)))) (Variable (QualIdent Nothing (Ident "crhslist" 157)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "localdecls" 157)))) (Literal (String "")) (InfixApply (Literal (String "\n   where\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 157)))))) (Variable (QualIdent Nothing (Ident "localdecls" 157)))) (Literal (String "\n")))))))))) []))])+,(TypeSig (213,1) [(Ident "showEvalAnnot" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CEvalAnnot" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (214,1) (Ident "showEvalAnnot" 0) [(Equation (214,1) (FunLhs (Ident "showEvalAnnot" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFlex" 0)) [])]) (SimpleRhs (214,23) (Literal (String "flex")) [])),(Equation (215,1) (FunLhs (Ident "showEvalAnnot" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CRigid" 0)) [])]) (SimpleRhs (215,24) (Literal (String "rigid")) [])),(Equation (216,1) (FunLhs (Ident "showEvalAnnot" 0) [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CChoice" 0)) [])]) (SimpleRhs (216,25) (Literal (String "choice")) []))])+,(TypeSig (218,1) [(Ident "showCrhsList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (219,1) (Ident "showCrhsList" 0) [(Equation (219,1) (FunLhs (Ident "showCrhsList" 0) [(VariablePattern (Ident "_" 166)),(ListPattern [])]) (SimpleRhs (219,21) (Literal (String "")) [])),(Equation (220,1) (FunLhs (Ident "showCrhsList" 0) [(VariablePattern (Ident "opts" 168)),(ParenPattern (InfixPattern (TuplePattern [(VariablePattern (Ident "g" 168)),(VariablePattern (Ident "r" 168))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 168))))]) (GuardedRhs [(CondExpr (221,4) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "cs" 168))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "g" 168))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "success"))])))) (InfixApply (Literal (String " = ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 168)))) (Variable (QualIdent Nothing (Ident "r" 168)))))),(CondExpr (223,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCrhs" 0))) (Variable (QualIdent Nothing (Ident "opts" 168)))))) (Paren (InfixApply (Tuple [(Variable (QualIdent Nothing (Ident "g" 168))),(Variable (QualIdent Nothing (Ident "r" 168)))]) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 168)))))) (Literal (String "\n")))))))] []))])+,(TypeSig (226,1) [(Ident "showCrhs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (227,1) (Ident "showCrhs" 0) [(Equation (227,1) (FunLhs (Ident "showCrhs" 0) [(VariablePattern (Ident "opts" 170)),(TuplePattern [(VariablePattern (Ident "cond" 170)),(VariablePattern (Ident "expr" 170))])]) (SimpleRhs (228,3) (InfixApply (Literal (String "| ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 170)))) (Variable (QualIdent Nothing (Ident "cond" 170)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n= ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 170)))) (Variable (QualIdent Nothing (Ident "expr" 170))))))) []))])+,(TypeSig (230,1) [(Ident "showLocalDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CLocalDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (231,1) (Ident "showLocalDecl" 0) [(Equation (231,1) (FunLhs (Ident "showLocalDecl" 0) [(VariablePattern (Ident "opts" 172)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLocalFunc" 0)) [(VariablePattern (Ident "funcdecl" 172))]))]) (SimpleRhs (231,44) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalFuncDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 172)))) (Variable (QualIdent Nothing (Ident "funcdecl" 172)))) [])),(Equation (232,1) (FunLhs (Ident "showLocalDecl" 0) [(VariablePattern (Ident "opts" 174)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLocalPat" 0)) [(VariablePattern (Ident "pattern" 174)),(VariablePattern (Ident "expr" 174)),(VariablePattern (Ident "localdecls" 174))]))]) (SimpleRhs (233,3) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Variable (QualIdent Nothing (Ident "pattern" 174)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " = ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 174)))) (Variable (QualIdent Nothing (Ident "expr" 174)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "localdecls" 174)))) (Literal (String "")) (InfixApply (Literal (String "\n   where\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 174)))))) (Variable (QualIdent Nothing (Ident "localdecls" 174)))) (Literal (String "\n"))))))))))) [])),(Equation (239,1) (FunLhs (Ident "showLocalDecl" 0) [(VariablePattern (Ident "_" 177)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLocalVar" 0)) [(VariablePattern (Ident "index" 176))]))]) (SimpleRhs (239,37) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Paren (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0))) (Variable (QualIdent Nothing (Ident "index" 176)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " free"))) []))])+,(FunctionDecl (242,1) (Ident "showExpr" 0) [(Equation (242,1) (FunLhs (Ident "showExpr" 0) []) (SimpleRhs (242,12) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "defaultOptions" 0)))) []))])+,(TypeSig (244,1) [(Ident "showExprOpt" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (245,1) (Ident "showExprOpt" 0) [(Equation (245,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "_" 182)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(TuplePattern [(VariablePattern (Ident "_" 183)),(VariablePattern (Ident "name" 181))])]))]) (SimpleRhs (245,33) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showIdentifier" 0))) (Variable (QualIdent Nothing (Ident "name" 181)))) [])),(Equation (246,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "_" 186)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLit" 0)) [(VariablePattern (Ident "lit" 185))]))]) (SimpleRhs (246,28) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLiteral" 0))) (Variable (QualIdent Nothing (Ident "lit" 185)))) [])),(Equation (247,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 188)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "name" 188))]))]) (SimpleRhs (248,5) (IfThenElse (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "name" 188)))))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSymbol" 0))) (Variable (QualIdent Nothing (Ident "opts" 188)))) (Variable (QualIdent Nothing (Ident "name" 188)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSymbol" 0))) (Variable (QualIdent Nothing (Ident "opts" 188)))) (Variable (QualIdent Nothing (Ident "name" 188))))) [])),(Equation (250,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 190)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "func" 190)),(VariablePattern (Ident "arg" 190))]))]) (SimpleRhs (250,38) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 190)))) (Paren (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CApply" 0))) (Variable (QualIdent Nothing (Ident "func" 190)))) (Variable (QualIdent Nothing (Ident "arg" 190)))))) [])),(Equation (251,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 192)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLambda" 0)) [(VariablePattern (Ident "patts" 192)),(VariablePattern (Ident "expr" 192))]))]) (SimpleRhs (251,41) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambdaOrSection" 0))) (Variable (QualIdent Nothing (Ident "opts" 192)))) (Variable (QualIdent Nothing (Ident "patts" 192)))) (Variable (QualIdent Nothing (Ident "expr" 192)))) [])),(Equation (252,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 194)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLetDecl" 0)) [(VariablePattern (Ident "localdecls" 194)),(VariablePattern (Ident "expr" 194))]))]) (SimpleRhs (253,6) (InfixApply (Literal (String "let\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 194)))))) (Variable (QualIdent Nothing (Ident "localdecls" 194)))) (Literal (String "\n")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n in ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 194)))) (Variable (QualIdent Nothing (Ident "expr" 194)))))))))) [])),(Equation (255,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 196)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CDoExpr" 0)) [(VariablePattern (Ident "stmts" 196))]))]) (SimpleRhs (256,6) (InfixApply (Literal (String "\n    do\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showStatement" 0))) (Variable (QualIdent Nothing (Ident "opts" 196)))))) (Variable (QualIdent Nothing (Ident "stmts" 196)))) (Literal (String "\n")))))) [])),(Equation (257,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 198)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CListComp" 0)) [(VariablePattern (Ident "expr" 198)),(VariablePattern (Ident "stmts" 198))]))]) (SimpleRhs (258,9) (InfixApply (Literal (String "[ ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 198)))) (Variable (QualIdent Nothing (Ident "expr" 198))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " | ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showStatement" 0))) (Variable (QualIdent Nothing (Ident "opts" 198)))))) (Variable (QualIdent Nothing (Ident "stmts" 198)))) (Literal (String ", ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]")))))) [])),(Equation (260,1) (FunLhs (Ident "showExprOpt" 0) [(VariablePattern (Ident "opts" 200)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCase" 0)) [(VariablePattern (Ident "expr" 200)),(VariablePattern (Ident "branches" 200))]))]) (SimpleRhs (261,9) (InfixApply (Literal (String "case ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 200)))) (Variable (QualIdent Nothing (Ident "expr" 200))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " of\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBranchExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 200)))))) (Variable (QualIdent Nothing (Ident "branches" 200)))) (Literal (String "\n")))))))) []))])+,(TypeSig (265,1) [(Ident "showSymbol" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (266,1) (Ident "showSymbol" 0) [(Equation (266,1) (FunLhs (Ident "showSymbol" 0) [(TuplePattern [(VariablePattern (Ident "fm" 202)),(VariablePattern (Ident "thisModule" 202))]),(TuplePattern [(VariablePattern (Ident "thatModule" 202)),(VariablePattern (Ident "symName" 202))])]) (GuardedRhs [(CondExpr (267,3) (InfixApply (Variable (QualIdent Nothing (Ident "thisModule" 202))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "thatModule" 202)))) (Variable (QualIdent Nothing (Ident "symName" 202)))),(CondExpr (268,3) (Apply (Variable (QualIdent (Just "Maybe") (Ident "isJust" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "FiniteMap") (Ident "lookupFM" 0))) (Variable (QualIdent Nothing (Ident "fm" 202)))) (Variable (QualIdent Nothing (Ident "symName" 202)))))) (InfixApply (Variable (QualIdent Nothing (Ident "thatModule" 202))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ".")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "symName" 202)))))),(CondExpr (269,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Variable (QualIdent Nothing (Ident "symName" 202))))] []))])+,(FunctionDecl (275,1) (Ident "showLambdaOrSection" 0) [(Equation (275,1) (FunLhs (Ident "showLambdaOrSection" 0) [(VariablePattern (Ident "opts" 204)),(VariablePattern (Ident "patts" 204)),(VariablePattern (Ident "expr" 204))]) (SimpleRhs (275,39) (Case (Variable (QualIdent Nothing (Ident "patts" 204))) [(Alt (276,3) (ListPattern [(ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0)) [(VariablePattern (Ident "pvar" 206))])]) (SimpleRhs (276,19) (Case (Variable (QualIdent Nothing (Ident "expr" 204))) [(Alt (277,6) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "_" 209)),(VariablePattern (Ident "name" 208))])])),(VariablePattern (Ident "lexpr" 208))])),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(VariablePattern (Ident "var" 208))]))])) (SimpleRhs (278,10) (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isAtom" 0))) (Variable (QualIdent Nothing (Ident "lexpr" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CVar" 0))) (Variable (QualIdent Nothing (Ident "var" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Variable (QualIdent Nothing (Ident "lexpr" 208))))))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "pvar" 206))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "var" 208)))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "lexpr" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 208))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "lexpr" 208))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Paren (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CVar" 0))) (Variable (QualIdent Nothing (Ident "pvar" 206)))))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 208))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Paren (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CVar" 0))) (Variable (QualIdent Nothing (Ident "var" 208)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambda" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "patts" 204)))) (Variable (QualIdent Nothing (Ident "expr" 204)))))) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambda" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "patts" 204)))) (Variable (QualIdent Nothing (Ident "expr" 204))))) [])),(Alt (285,6) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "_" 212)),(VariablePattern (Ident "name" 211))])])),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(VariablePattern (Ident "var" 211))]))])),(VariablePattern (Ident "rexpr" 211))])) (SimpleRhs (286,10) (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 211)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "pvar" 206))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "var" 211)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isAtom" 0))) (Variable (QualIdent Nothing (Ident "rexpr" 211)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CVar" 0))) (Variable (QualIdent Nothing (Ident "var" 211)))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Variable (QualIdent Nothing (Ident "rexpr" 211)))))))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 211))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "rexpr" 211)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambda" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "patts" 204)))) (Variable (QualIdent Nothing (Ident "expr" 204))))) [])),(Alt (289,6) (VariablePattern (Ident "_" 215)) (SimpleRhs (289,11) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambda" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "patts" 204)))) (Variable (QualIdent Nothing (Ident "expr" 204)))) []))]) [])),(Alt (290,3) (VariablePattern (Ident "_" 218)) (SimpleRhs (290,8) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLambda" 0))) (Variable (QualIdent Nothing (Ident "opts" 204)))) (Variable (QualIdent Nothing (Ident "patts" 204)))) (Variable (QualIdent Nothing (Ident "expr" 204)))) []))]) []))])+,(FunctionDecl (292,1) (Ident "showLambda" 0) [(Equation (292,1) (FunLhs (Ident "showLambda" 0) [(VariablePattern (Ident "opts" 220)),(VariablePattern (Ident "patts" 220)),(VariablePattern (Ident "expr" 220))]) (SimpleRhs (292,30) (InfixApply (Literal (String "\\")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0)))) (Variable (QualIdent Nothing (Ident "patts" 220)))) (Literal (String " ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 220)))) (Variable (QualIdent Nothing (Ident "expr" 220)))))))) []))])+,(TypeSig (296,1) [(Ident "showStatement" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CStatement" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (297,1) (Ident "showStatement" 0) [(Equation (297,1) (FunLhs (Ident "showStatement" 0) [(VariablePattern (Ident "opts" 222)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSExpr" 0)) [(VariablePattern (Ident "expr" 222))]))]) (SimpleRhs (297,36) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 222)))) (Variable (QualIdent Nothing (Ident "expr" 222)))) [])),(Equation (298,1) (FunLhs (Ident "showStatement" 0) [(VariablePattern (Ident "opts" 224)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSPat" 0)) [(VariablePattern (Ident "pattern" 224)),(VariablePattern (Ident "expr" 224))]))]) (SimpleRhs (299,6) (InfixApply (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Variable (QualIdent Nothing (Ident "pattern" 224))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " <- ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 224)))) (Variable (QualIdent Nothing (Ident "expr" 224))))))) [])),(Equation (300,1) (FunLhs (Ident "showStatement" 0) [(VariablePattern (Ident "opts" 226)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSLet" 0)) [(VariablePattern (Ident "localdecls" 226))]))]) (SimpleRhs (301,6) (Case (Variable (QualIdent Nothing (Ident "localdecls" 226))) [(Alt (302,8) (ParenPattern (InfixPattern (VariablePattern (Ident "decl" 228)) (QualIdent Nothing (Ident ":" 0)) (ListPattern []))) (SimpleRhs (302,21) (InfixApply (Literal (String "let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 226)))) (Variable (QualIdent Nothing (Ident "decl" 228))))) [])),(Alt (303,8) (VariablePattern (Ident "_" 231)) (SimpleRhs (303,21) (InfixApply (Literal (String "let\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBlock" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLocalDecl" 0))) (Variable (QualIdent Nothing (Ident "opts" 226)))))) (Variable (QualIdent Nothing (Ident "localdecls" 226)))) (Literal (String "\n")))))) []))]) []))])+,(TypeSig (305,1) [(Ident "showPattern" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (306,1) (Ident "showPattern" 0) [(Equation (306,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0)) [(TuplePattern [(VariablePattern (Ident "_" 234)),(VariablePattern (Ident "name" 233))])]))]) (SimpleRhs (306,32) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showIdentifier" 0))) (Variable (QualIdent Nothing (Ident "name" 233)))) [])),(Equation (307,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPLit" 0)) [(VariablePattern (Ident "lit" 236))]))]) (SimpleRhs (307,27) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showLiteral" 0))) (Variable (QualIdent Nothing (Ident "lit" 236)))) [])),(Equation (308,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(VariablePattern (Ident "_" 239)),(VariablePattern (Ident "name" 238))]),(ListPattern [])]))]) (SimpleRhs (308,36) (Variable (QualIdent Nothing (Ident "name" 238))) [])),(Equation (309,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 241)),(VariablePattern (Ident "name" 241))]),(ParenPattern (InfixPattern (VariablePattern (Ident "p" 241)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ps" 241))))]))]) (GuardedRhs [(CondExpr (310,4) (InfixApply (Variable (QualIdent Nothing (Ident "mod" 241))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPreludeCons" 0))) (Paren (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 241))),(Variable (QualIdent Nothing (Ident "name" 241)))])) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "p" 241))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ps" 241))))))))),(CondExpr (311,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 241))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "p" 241))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ps" 241)))))) (Literal (String " ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))] [])),(Equation (312,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0)) [(TuplePattern [(VariablePattern (Ident "_" 244)),(VariablePattern (Ident "name" 243))]),(VariablePattern (Ident "pat" 243))]))]) (SimpleRhs (312,35) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showIdentifier" 0))) (Variable (QualIdent Nothing (Ident "name" 243)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "@")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Variable (QualIdent Nothing (Ident "pat" 243)))))) [])),(Equation (313,1) (FunLhs (Ident "showPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPFuncComb" 0)) [(VariablePattern (Ident "qname" 246)),(VariablePattern (Ident "pats" 246))]))]) (SimpleRhs (313,39) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Paren (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0))) (Variable (QualIdent Nothing (Ident "qname" 246)))) (Variable (QualIdent Nothing (Ident "pats" 246)))))) []))])+,(TypeSig (316,1) [(Ident "showPreludeCons" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (317,1) (Ident "showPreludeCons" 0) [(Equation (317,1) (FunLhs (Ident "showPreludeCons" 0) [(VariablePattern (Ident "p" 248))]) (GuardedRhs [(CondExpr (318,4) (InfixApply (Variable (QualIdent Nothing (Ident "name" 249))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ":"))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatternList" 0))) (Variable (QualIdent Nothing (Ident "p" 248))))),(CondExpr (319,4) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isTuple" 0))) (Variable (QualIdent Nothing (Ident "name" 249)))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0)))) (Variable (QualIdent Nothing (Ident "pattlist" 249)))) (Literal (String ",")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (320,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 249))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0)))) (Variable (QualIdent Nothing (Ident "pattlist" 249)))) (Literal (String " ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))] [(PatternDecl (322,6) (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(VariablePattern (Ident "_" 250)),(VariablePattern (Ident "name" 249))]),(VariablePattern (Ident "pattlist" 249))]) (SimpleRhs (322,33) (Variable (QualIdent Nothing (Ident "p" 248))) []))]))])+,(TypeSig (324,1) [(Ident "showPatternList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CPattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (325,1) (Ident "showPatternList" 0) [(Equation (325,1) (FunLhs (Ident "showPatternList" 0) [(VariablePattern (Ident "p" 252))]) (GuardedRhs [(CondExpr (326,3) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedStringPattern" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char '\'')))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatListElems" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\""))))),(CondExpr (328,3) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedPatternList" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatListElems" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]"))))),(CondExpr (330,3) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isAsPattern" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showAsPatternList" 0))) (Variable (QualIdent Nothing (Ident "p" 252))))),(CondExpr (332,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ":"))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatListElems" 0))) (Variable (QualIdent Nothing (Ident "p" 252)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))] []))])+,(FunctionDecl (334,1) (Ident "showPatListElems" 0) [(Equation (334,1) (FunLhs (Ident "showPatListElems" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "x" 254)),(VariablePattern (Ident "xs" 254))])]))]) (SimpleRhs (335,5) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Variable (QualIdent Nothing (Ident "x" 254)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatListElems" 0))) (Variable (QualIdent Nothing (Ident "xs" 254))))) [])),(Equation (336,1) (FunLhs (Ident "showPatListElems" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (336,49) (List []) [])),(Equation (337,1) (FunLhs (Ident "showPatListElems" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0)) [(VariablePattern (Ident "v" 258))]))]) (SimpleRhs (337,30) (List [(Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Paren (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0))) (Variable (QualIdent Nothing (Ident "v" 258))))))]) [])),(Equation (338,1) (FunLhs (Ident "showPatListElems" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0)) [(VariablePattern (Ident "name" 260)),(VariablePattern (Ident "p" 260))]))]) (SimpleRhs (338,34) (List [(Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Paren (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0))) (Variable (QualIdent Nothing (Ident "name" 260)))) (Variable (QualIdent Nothing (Ident "p" 260))))))]) []))])+,(FunctionDecl (340,1) (Ident "isClosedPatternList" 0) [(Equation (340,1) (FunLhs (Ident "isClosedPatternList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "_" 263)),(VariablePattern (Ident "xs" 262))])]))]) (SimpleRhs (340,55) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedPatternList" 0))) (Variable (QualIdent Nothing (Ident "xs" 262)))) [])),(Equation (341,1) (FunLhs (Ident "isClosedPatternList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (341,52) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (342,1) (FunLhs (Ident "isClosedPatternList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0)) [(VariablePattern (Ident "_" 268))]))]) (SimpleRhs (342,33) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (343,1) (FunLhs (Ident "isClosedPatternList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0)) [(VariablePattern (Ident "_" 271)),(VariablePattern (Ident "p" 270))]))]) (SimpleRhs (343,34) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedPatternList" 0))) (Variable (QualIdent Nothing (Ident "p" 270)))) []))])+,(FunctionDecl (345,1) (Ident "isClosedStringPattern" 0) [(Equation (345,1) (FunLhs (Ident "isClosedStringPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "x" 273)),(VariablePattern (Ident "xs" 273))])]))]) (SimpleRhs (346,5) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isCharPattern" 0))) (Variable (QualIdent Nothing (Ident "x" 273)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedStringPattern" 0))) (Variable (QualIdent Nothing (Ident "xs" 273))))) [])),(Equation (347,1) (FunLhs (Ident "isClosedStringPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPComb" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (347,54) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (348,1) (FunLhs (Ident "isClosedStringPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPVar" 0)) [(VariablePattern (Ident "_" 278))]))]) (SimpleRhs (348,35) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(FunctionDecl (350,1) (Ident "isCharPattern" 0) [(Equation (350,1) (FunLhs (Ident "isCharPattern" 0) [(VariablePattern (Ident "p" 280))]) (SimpleRhs (350,19) (Case (Variable (QualIdent Nothing (Ident "p" 280))) [(Alt (351,21) (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPLit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCharc" 0)) [(VariablePattern (Ident "_" 283))]))]) (SimpleRhs (351,41) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (352,21) (VariablePattern (Ident "_" 286)) (SimpleRhs (352,41) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (354,1) (Ident "isAsPattern" 0) [(Equation (354,1) (FunLhs (Ident "isAsPattern" 0) [(VariablePattern (Ident "p" 288))]) (SimpleRhs (354,17) (Case (Variable (QualIdent Nothing (Ident "p" 288))) [(Alt (355,19) (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0)) [(VariablePattern (Ident "_" 291)),(VariablePattern (Ident "_" 292))]) (SimpleRhs (355,31) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (356,19) (VariablePattern (Ident "_" 295)) (SimpleRhs (356,31) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (358,1) (Ident "showAsPatternList" 0) [(Equation (358,1) (FunLhs (Ident "showAsPatternList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CPAs" 0)) [(TuplePattern [(VariablePattern (Ident "_" 298)),(VariablePattern (Ident "name" 297))]),(VariablePattern (Ident "p" 297))]))]) (SimpleRhs (359,6) (InfixApply (Variable (QualIdent Nothing (Ident "name" 297))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "@")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ":"))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPatListElems" 0))) (Variable (QualIdent Nothing (Ident "p" 297)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) []))])+,(TypeSig (362,1) [(Ident "showBranchExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CBranchExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (363,1) (Ident "showBranchExpr" 0) [(Equation (363,1) (FunLhs (Ident "showBranchExpr" 0) [(VariablePattern (Ident "opts" 300)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CBranch" 0)) [(VariablePattern (Ident "pattern" 300)),(VariablePattern (Ident "expr" 300))]))]) (SimpleRhs (364,6) (InfixApply (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPattern" 0))) (Variable (QualIdent Nothing (Ident "pattern" 300))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 300)))) (Variable (QualIdent Nothing (Ident "expr" 300))))))) []))])+,(TypeSig (366,1) [(Ident "showLiteral" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CLiteral" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (367,1) (Ident "showLiteral" 0) [(Equation (367,1) (FunLhs (Ident "showLiteral" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CIntc" 0)) [(VariablePattern (Ident "i" 302))]))]) (SimpleRhs (367,25) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 302)))) [])),(Equation (368,1) (FunLhs (Ident "showLiteral" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFloatc" 0)) [(VariablePattern (Ident "f" 304))]))]) (SimpleRhs (368,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 304)))) [])),(Equation (369,1) (FunLhs (Ident "showLiteral" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCharc" 0)) [(VariablePattern (Ident "c" 306))]))]) (SimpleRhs (369,26) (InfixApply (Literal (String "'")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCCharc" 0))) (Paren (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CCharc" 0))) (Variable (QualIdent Nothing (Ident "c" 306)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "'")))) []))])+,(TypeSig (371,1) [(Ident "showCCharc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CLiteral" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (372,1) (Ident "showCCharc" 0) [(Equation (372,1) (FunLhs (Ident "showCCharc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCharc" 0)) [(VariablePattern (Ident "c" 308))]))]) (GuardedRhs [(CondExpr (372,23) (InfixApply (Variable (QualIdent Nothing (Ident "c" 308))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (Literal (String "\\n"))),(CondExpr (373,23) (InfixApply (Variable (QualIdent Nothing (Ident "c" 308))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\r'))) (Literal (String "\\r"))),(CondExpr (374,23) (InfixApply (Variable (QualIdent Nothing (Ident "c" 308))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\\'))) (Literal (String "\\\\"))),(CondExpr (375,23) (InfixApply (Variable (QualIdent Nothing (Ident "c" 308))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (Literal (String "\\\""))),(CondExpr (376,23) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 308)))]))] []))])+,(TypeSig (378,1) [(Ident "showBlock" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (379,1) (Ident "showBlock" 0) [(Equation (379,1) (FunLhs (Ident "showBlock" 0) [(VariablePattern (Ident "text" 310))]) (SimpleRhs (380,6) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "     "))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (String ""))))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "lines" 0))) (Variable (QualIdent Nothing (Ident "text" 310)))))))))) (Literal (String "\n"))) []))])+,(TypeSig (383,1) [(Ident "showTypeCons" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (384,1) (Ident "showTypeCons" 0) [(Equation (384,1) (FunLhs (Ident "showTypeCons" 0) [(VariablePattern (Ident "_" 313)),(VariablePattern (Ident "name" 312)),(ListPattern [])]) (SimpleRhs (384,26) (Variable (QualIdent Nothing (Ident "name" 312))) [])),(Equation (385,1) (FunLhs (Ident "showTypeCons" 0) [(VariablePattern (Ident "mod" 315)),(VariablePattern (Ident "name" 315)),(ParenPattern (InfixPattern (VariablePattern (Ident "t" 315)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 315))))]) (GuardedRhs [(CondExpr (386,4) (InfixApply (Variable (QualIdent Nothing (Ident "mod" 315))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showPreludeTypeCons" 0))) (Variable (QualIdent Nothing (Ident "name" 315)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "t" 315))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 315))))))),(CondExpr (387,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 315))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "t" 315))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 315)))))) (Literal (String " "))))))] []))])+,(TypeSig (389,1) [(Ident "showPreludeTypeCons" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (390,1) (Ident "showPreludeTypeCons" 0) [(Equation (390,1) (FunLhs (Ident "showPreludeTypeCons" 0) [(VariablePattern (Ident "name" 317)),(VariablePattern (Ident "typelist" 317))]) (GuardedRhs [(CondExpr (391,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 317))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "typelist" 317)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CTCons" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "Char"))])) (List [])))) (Literal (String "String"))),(CondExpr (392,3) (InfixApply (Variable (QualIdent Nothing (Ident "name" 317))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]"))) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "typelist" 317))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]"))))),(CondExpr (393,3) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isTuple" 0))) (Variable (QualIdent Nothing (Ident "name" 317)))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "combineMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "typelist" 317)))) (Literal (String ",")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (394,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 317))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTypeExpr" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Variable (QualIdent Nothing (Ident "typelist" 317)))) (Literal (String " "))))))] []))])+,(TypeSig (398,1) [(Ident "showApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (399,1) (Ident "showApplication" 0) [(Equation (399,1) (FunLhs (Ident "showApplication" 0) [(VariablePattern (Ident "opts" 319)),(VariablePattern (Ident "appl" 319))]) (SimpleRhs (400,6) (Case (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "applicationHead" 0))) (Variable (QualIdent Nothing (Ident "appl" 319))))) [(Alt (401,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "name" 321))])) (SimpleRhs (401,26) (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSymbolApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 319)))) (Variable (QualIdent Nothing (Ident "name" 321)))) (Variable (QualIdent Nothing (Ident "appl" 319)))) [])),(Alt (402,8) (VariablePattern (Ident "_" 324)) (SimpleRhs (402,26) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSimpleApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 319)))) (Variable (QualIdent Nothing (Ident "appl" 319)))) []))]) []))])+,(TypeSig (404,1) [(Ident "applicationHead" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) [])))+,(FunctionDecl (405,1) (Ident "applicationHead" 0) [(Equation (405,1) (FunLhs (Ident "applicationHead" 0) [(VariablePattern (Ident "expr" 326))]) (SimpleRhs (406,6) (Case (Variable (QualIdent Nothing (Ident "expr" 326))) [(Alt (407,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "func" 328)),(VariablePattern (Ident "_" 329))])) (SimpleRhs (407,27) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "applicationHead" 0))) (Variable (QualIdent Nothing (Ident "func" 328)))) [])),(Alt (408,8) (VariablePattern (Ident "_" 332)) (SimpleRhs (408,27) (Variable (QualIdent Nothing (Ident "expr" 326))) []))]) []))])+,(TypeSig (410,1) [(Ident "showSymbolApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (411,1) (Ident "showSymbolApplication" 0) [(Equation (411,1) (FunLhs (Ident "showSymbolApplication" 0) [(VariablePattern (Ident "opts" 334)),(TuplePattern [(VariablePattern (Ident "mod" 334)),(VariablePattern (Ident "name" 334))]),(VariablePattern (Ident "appl" 334))]) (GuardedRhs [(CondExpr (412,4) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 334))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 334))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ":")))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 334)))) (Variable (QualIdent Nothing (Ident "appl" 334))))),(CondExpr (417,4) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 334))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 334))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "if_then_else")))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showITEApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 334)))) (Variable (QualIdent Nothing (Ident "appl" 334))))),(CondExpr (419,4) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isTuple" 0))) (Variable (QualIdent Nothing (Ident "name" 334)))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showTupleApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 334)))) (Variable (QualIdent Nothing (Ident "appl" 334))))),(CondExpr (421,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSimpleApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 334)))) (Variable (QualIdent Nothing (Ident "appl" 334)))))] []))])+,(TypeSig (424,1) [(Ident "showListApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (425,1) (Ident "showListApplication" 0) [(Equation (425,1) (FunLhs (Ident "showListApplication" 0) [(VariablePattern (Ident "opts" 336)),(VariablePattern (Ident "appl" 336))]) (GuardedRhs [(CondExpr (426,4) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isStringList" 0))) (Variable (QualIdent Nothing (Ident "appl" 336)))) (InfixApply (Literal (String "\"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCharListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 336)))) (Variable (QualIdent Nothing (Ident "appl" 336))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\""))))),(CondExpr (428,4) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedList" 0))) (Variable (QualIdent Nothing (Ident "appl" 336)))) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showConsListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 336)))) (Variable (QualIdent Nothing (Ident "appl" 336))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]"))))),(CondExpr (430,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSimpleListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 336)))) (Variable (QualIdent Nothing (Ident "appl" 336))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))] []))])+,(TypeSig (433,1) [(Ident "showCharListApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (434,1) (Ident "showCharListApplication" 0) [(Equation (434,1) (FunLhs (Ident "showCharListApplication" 0) [(VariablePattern (Ident "opts" 338)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 339)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLit" 0)) [(VariablePattern (Ident "c" 338))]))])),(VariablePattern (Ident "tail" 338))]))]) (SimpleRhs (435,6) (Case (Variable (QualIdent Nothing (Ident "tail" 338))) [(Alt (436,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "_" 342))])) (SimpleRhs (436,23) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCCharc" 0))) (Variable (QualIdent Nothing (Ident "c" 338)))) [])),(Alt (437,8) (VariablePattern (Ident "_" 345)) (SimpleRhs (437,23) (InfixApply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCCharc" 0))) (Variable (QualIdent Nothing (Ident "c" 338)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showCharListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 338)))) (Variable (QualIdent Nothing (Ident "tail" 338))))) []))]) []))])+,(TypeSig (439,1) [(Ident "showConsListApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (440,1) (Ident "showConsListApplication" 0) [(Equation (440,1) (FunLhs (Ident "showConsListApplication" 0) [(VariablePattern (Ident "opts" 347)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 348)),(VariablePattern (Ident "head" 347))])),(VariablePattern (Ident "tail" 347))]))]) (SimpleRhs (441,6) (Case (Variable (QualIdent Nothing (Ident "tail" 347))) [(Alt (442,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "_" 351))])) (SimpleRhs (442,23) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 347)))) (Variable (QualIdent Nothing (Ident "head" 347)))) [])),(Alt (443,8) (VariablePattern (Ident "_" 354)) (SimpleRhs (443,25) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 347)))) (Variable (QualIdent Nothing (Ident "head" 347))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showConsListApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 347)))) (Variable (QualIdent Nothing (Ident "tail" 347))))))) []))]) []))])+,(TypeSig (446,1) [(Ident "showSimpleListApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (447,1) (Ident "showSimpleListApplication" 0) [(Equation (447,1) (FunLhs (Ident "showSimpleListApplication" 0) [(VariablePattern (Ident "opts" 356)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 357)),(VariablePattern (Ident "head" 356))])),(VariablePattern (Ident "tail" 356))]))]) (SimpleRhs (448,6) (Case (Variable (QualIdent Nothing (Ident "tail" 356))) [(Alt (449,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "_" 360))])) (SimpleRhs (449,23) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 356)))) (Variable (QualIdent Nothing (Ident "head" 356)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ":[]"))) [])),(Alt (450,8) (VariablePattern (Ident "_" 363)) (SimpleRhs (450,23) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 356)))) (Variable (QualIdent Nothing (Ident "head" 356)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ":")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 356)))) (Variable (QualIdent Nothing (Ident "tail" 356)))))) []))]) [])),(Equation (451,1) (FunLhs (Ident "showSimpleListApplication" 0) [(VariablePattern (Ident "opts" 365)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "_" 366)),(VariablePattern (Ident "str" 365))])])),(VariablePattern (Ident "tail" 365))]))]) (SimpleRhs (452,6) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 365)))) (Variable (QualIdent Nothing (Ident "tail" 365)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "str" 365)))) []))])+,(TypeSig (454,1) [(Ident "showInfixApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (455,1) (Ident "showInfixApplication" 0) [(Equation (455,1) (FunLhs (Ident "showInfixApplication" 0) [(VariablePattern (Ident "opts" 368)),(VariablePattern (Ident "infixop" 368)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "func" 368)),(VariablePattern (Ident "arg2" 368))]))]) (SimpleRhs (456,6) (Case (Variable (QualIdent Nothing (Ident "func" 368))) [(Alt (457,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 371)),(VariablePattern (Ident "arg1" 370))])) (SimpleRhs (457,27) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 368)))) (Variable (QualIdent Nothing (Ident "arg1" 370)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSymbol" 0))) (Variable (QualIdent Nothing (Ident "opts" 368)))) (Variable (QualIdent Nothing (Ident "infixop" 368)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 368)))) (Variable (QualIdent Nothing (Ident "arg2" 368)))))))) [])),(Alt (460,8) (VariablePattern (Ident "_" 374)) (SimpleRhs (460,13) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSymbol" 0))) (Variable (QualIdent Nothing (Ident "opts" 368)))) (Variable (QualIdent Nothing (Ident "infixop" 368)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ") ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 368)))) (Variable (QualIdent Nothing (Ident "arg2" 368)))))))) []))]) []))])+,(TypeSig (462,1) [(Ident "showITEApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (463,1) (Ident "showITEApplication" 0) [(Equation (463,1) (FunLhs (Ident "showITEApplication" 0) [(VariablePattern (Ident "opts" 376)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "_" 377))])),(VariablePattern (Ident "condExpr" 376))])),(VariablePattern (Ident "thenExpr" 376))])),(VariablePattern (Ident "elseExpr" 376))]))]) (SimpleRhs (464,9) (InfixApply (Literal (String "if ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 376)))) (Variable (QualIdent Nothing (Ident "condExpr" 376))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " then ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 376)))) (Variable (QualIdent Nothing (Ident "thenExpr" 376))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " else ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 376)))) (Variable (QualIdent Nothing (Ident "elseExpr" 376)))))))))) [])),(Equation (467,1) (FunLhs (Ident "showITEApplication" 0) [(VariablePattern (Ident "opts" 379)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(AsPattern (Ident "e" 379) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 380)),(VariablePattern (Ident "_" 381))])),(VariablePattern (Ident "_" 382))])),(VariablePattern (Ident "_" 383))]))),(VariablePattern (Ident "e'" 379))]))]) (SimpleRhs (468,6) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showITEApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 379)))) (Variable (QualIdent Nothing (Ident "e" 379)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ") ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 379)))) (Variable (QualIdent Nothing (Ident "e'" 379))))))) []))])+,(TypeSig (470,1) [(Ident "showTupleApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (471,1) (Ident "showTupleApplication" 0) [(Equation (471,1) (FunLhs (Ident "showTupleApplication" 0) [(VariablePattern (Ident "opts" 385)),(VariablePattern (Ident "appl" 385))]) (SimpleRhs (472,6) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "p_showTuple" 386))) (Variable (QualIdent Nothing (Ident "appl" 385))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [(FunctionDecl (474,4) (Ident "p_showTuple" 386) [(Equation (474,4) (FunLhs (Ident "p_showTuple" 386) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(VariablePattern (Ident "_" 388))])),(VariablePattern (Ident "arg" 387))]))]) (SimpleRhs (475,9) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 385)))) (Variable (QualIdent Nothing (Ident "arg" 387)))) [])),(Equation (476,4) (FunLhs (Ident "p_showTuple" 386) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "e1" 390)),(VariablePattern (Ident "e2" 390))])),(VariablePattern (Ident "arg" 390))]))]) (SimpleRhs (477,9) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "p_showTuple" 386))) (Paren (Apply (Apply (Constructor (QualIdent (Just "AbstractCurry") (Ident "CApply" 0))) (Variable (QualIdent Nothing (Ident "e1" 390)))) (Variable (QualIdent Nothing (Ident "e2" 390))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 385)))) (Variable (QualIdent Nothing (Ident "arg" 390))))))) []))])]))])+,(TypeSig (479,1) [(Ident "showSimpleApplication" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (480,1) (Ident "showSimpleApplication" 0) [(Equation (480,1) (FunLhs (Ident "showSimpleApplication" 0) [(VariablePattern (Ident "opts" 392)),(VariablePattern (Ident "appl" 392))]) (SimpleRhs (481,3) (Case (Variable (QualIdent Nothing (Ident "appl" 392))) [(Alt (482,6) (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "func" 394)),(VariablePattern (Ident "arg" 394))]) (SimpleRhs (482,25) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showSimpleApplication" 0))) (Variable (QualIdent Nothing (Ident "opts" 392)))) (Variable (QualIdent Nothing (Ident "func" 394)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 392)))) (Variable (QualIdent Nothing (Ident "arg" 394)))))) [])),(Alt (484,6) (VariablePattern (Ident "_" 397)) (SimpleRhs (484,25) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showBoxedExpr" 0))) (Variable (QualIdent Nothing (Ident "opts" 392)))) (Variable (QualIdent Nothing (Ident "appl" 392)))) []))]) []))])+,(TypeSig (486,1) [(Ident "showBoxedExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Options" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (487,1) (Ident "showBoxedExpr" 0) [(Equation (487,1) (FunLhs (Ident "showBoxedExpr" 0) [(VariablePattern (Ident "opts" 399)),(VariablePattern (Ident "expr" 399))]) (GuardedRhs [(CondExpr (488,4) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isSimpleExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 399)))) (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 399)))) (Variable (QualIdent Nothing (Ident "expr" 399))))),(CondExpr (489,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "showExprOpt" 0))) (Variable (QualIdent Nothing (Ident "opts" 399)))) (Variable (QualIdent Nothing (Ident "expr" 399)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))] []))])+,(TypeSig (495,1) [(Ident "prefixMap" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (496,1) (Ident "prefixMap" 0) [(Equation (496,1) (FunLhs (Ident "prefixMap" 0) [(VariablePattern (Ident "f" 401)),(VariablePattern (Ident "xs" 401)),(VariablePattern (Ident "s" 401))]) (SimpleRhs (497,6) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "s" 401)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 401)))) (Variable (QualIdent Nothing (Ident "xs" 401)))))) []))])+,(TypeSig (499,1) [(Ident "prefixInter" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (500,1) (Ident "prefixInter" 0) [(Equation (500,1) (FunLhs (Ident "prefixInter" 0) [(VariablePattern (Ident "f" 403)),(VariablePattern (Ident "xs" 403)),(VariablePattern (Ident "s" 403))]) (SimpleRhs (501,6) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Variable (QualIdent Nothing (Ident "s" 403)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 403)))) (Variable (QualIdent Nothing (Ident "xs" 403))))))) []))])+,(TypeSig (503,1) [(Ident "combineMap" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (504,1) (Ident "combineMap" 0) [(Equation (504,1) (FunLhs (Ident "combineMap" 0) [(VariablePattern (Ident "_" 406)),(ListPattern []),(VariablePattern (Ident "_" 407))]) (SimpleRhs (504,21) (Literal (String "")) [])),(Equation (505,1) (FunLhs (Ident "combineMap" 0) [(VariablePattern (Ident "f" 409)),(ParenPattern (InfixPattern (VariablePattern (Ident "x" 409)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 409)))),(VariablePattern (Ident "s" 409))]) (SimpleRhs (506,6) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 409))) (Variable (QualIdent Nothing (Ident "x" 409))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "prefixMap" 0))) (Variable (QualIdent Nothing (Ident "f" 409)))) (Variable (QualIdent Nothing (Ident "xs" 409)))) (Variable (QualIdent Nothing (Ident "s" 409)))))) []))])+,(TypeSig (509,1) [(Ident "dropTags" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (510,1) (Ident "dropTags" 0) [(Equation (510,1) (FunLhs (Ident "dropTags" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "x" 411)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 411))))]) (SimpleRhs (510,19) (Case (Variable (QualIdent Nothing (Ident "x" 411))) [(Alt (511,21) (LiteralPattern (Char '"')) (SimpleRhs (511,29) (InfixApply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "dropTags" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "dropWhile" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char '"')))) (Variable (QualIdent Nothing (Ident "xs" 411)))))) [])),(Alt (512,21) (LiteralPattern (Char '>')) (SimpleRhs (512,29) (Variable (QualIdent Nothing (Ident "xs" 411))) [])),(Alt (513,21) (VariablePattern (Ident "_" 418)) (SimpleRhs (513,29) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "dropTags" 0))) (Variable (QualIdent Nothing (Ident "xs" 411)))) []))]) []))])+,(TypeSig (520,1) [(Ident "isInfixOpName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (521,1) (Ident "isInfixOpName" 0) [(Equation (521,1) (FunLhs (Ident "isInfixOpName" 0) []) (SimpleRhs (521,17) (Apply (Variable (QualIdent (Just "Prelude") (Ident "all" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "infixIDs" 0))))) []))])+,(TypeSig (523,1) [(Ident "isStringList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (524,1) (Ident "isStringList" 0) [(Equation (524,1) (FunLhs (Ident "isStringList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 422)),(VariablePattern (Ident "name" 422))])]))]) (SimpleRhs (525,6) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 422))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 422))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]")))) [])),(Equation (526,1) (FunLhs (Ident "isStringList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(VariablePattern (Ident "_" 425))]))]) (SimpleRhs (526,25) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (527,1) (FunLhs (Ident "isStringList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "head" 427)),(VariablePattern (Ident "tail" 427))]))]) (SimpleRhs (528,6) (Case (Variable (QualIdent Nothing (Ident "head" 427))) [(Alt (529,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "_" 430)),(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CCharc" 0)) [(VariablePattern (Ident "_" 431))]))]))])) (SimpleRhs (529,40) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isStringList" 0))) (Variable (QualIdent Nothing (Ident "tail" 427)))) [])),(Alt (530,8) (VariablePattern (Ident "_" 434)) (SimpleRhs (530,40) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (532,1) [(Ident "isClosedList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (533,1) (Ident "isClosedList" 0) [(Equation (533,1) (FunLhs (Ident "isClosedList" 0) [(VariablePattern (Ident "expr" 436))]) (SimpleRhs (534,6) (Case (Variable (QualIdent Nothing (Ident "expr" 436))) [(Alt (535,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 438)),(VariablePattern (Ident "name" 438))])])),(VariablePattern (Ident "_" 439))])),(VariablePattern (Ident "tail" 438))])) (SimpleRhs (536,14) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 438))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 438))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ":"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isClosedList" 0))) (Variable (QualIdent Nothing (Ident "tail" 438)))))) [])),(Alt (537,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 441)),(VariablePattern (Ident "name" 441))])])) (SimpleRhs (538,14) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 441))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 441))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]")))) [])),(Alt (539,8) (VariablePattern (Ident "_" 444)) (SimpleRhs (539,14) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (541,1) [(Ident "isSimpleExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (542,1) (Ident "isSimpleExpr" 0) [(Equation (542,1) (FunLhs (Ident "isSimpleExpr" 0) [(VariablePattern (Ident "expr" 446))]) (SimpleRhs (543,6) (Case (Variable (QualIdent Nothing (Ident "expr" 446))) [(Alt (544,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(VariablePattern (Ident "_" 449))])) (SimpleRhs (544,25) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (545,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLit" 0)) [(VariablePattern (Ident "_" 452))])) (SimpleRhs (545,25) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (546,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "_" 455)),(VariablePattern (Ident "name" 454))])])) (SimpleRhs (546,31) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 454))))) [])),(Alt (547,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CApply" 0)) [(VariablePattern (Ident "f" 457)),(VariablePattern (Ident "_" 458))])) (SimpleRhs (547,25) (Case (Paren (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "applicationHead" 0))) (Variable (QualIdent Nothing (Ident "f" 457))))) [(Alt (548,27) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(LiteralPattern (String "Prelude")),(VariablePattern (Ident "name" 460))])])) (SimpleRhs (548,60) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 460))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ":"))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 460))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]"))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 460))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "()"))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isTuple" 0))) (Variable (QualIdent Nothing (Ident "name" 460))))))) [])),(Alt (552,27) (VariablePattern (Ident "_" 463)) (SimpleRhs (552,55) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) [])),(Alt (553,8) (VariablePattern (Ident "_" 466)) (SimpleRhs (553,25) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (556,1) [(Ident "isAtom" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (557,1) (Ident "isAtom" 0) [(Equation (557,1) (FunLhs (Ident "isAtom" 0) [(VariablePattern (Ident "expr" 468))]) (SimpleRhs (558,6) (Case (Variable (QualIdent Nothing (Ident "expr" 468))) [(Alt (559,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CVar" 0)) [(VariablePattern (Ident "_" 471))])) (SimpleRhs (559,25) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (560,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CLit" 0)) [(VariablePattern (Ident "_" 474))])) (SimpleRhs (560,25) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (561,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CSymbol" 0)) [(TuplePattern [(VariablePattern (Ident "_" 477)),(VariablePattern (Ident "name" 476))])])) (SimpleRhs (561,31) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "isInfixOpName" 0))) (Variable (QualIdent Nothing (Ident "name" 476))))) [])),(Alt (562,8) (VariablePattern (Ident "_" 480)) (SimpleRhs (562,13) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (564,1) [(Ident "isUntyped" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CTypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (565,1) (Ident "isUntyped" 0) [(Equation (565,1) (FunLhs (Ident "isUntyped" 0) [(VariablePattern (Ident "typeexpr" 482))]) (SimpleRhs (566,6) (Case (Variable (QualIdent Nothing (Ident "typeexpr" 482))) [(Alt (567,8) (ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CTCons" 0)) [(TuplePattern [(VariablePattern (Ident "mod" 484)),(VariablePattern (Ident "name" 484))]),(ListPattern [])])) (SimpleRhs (567,34) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 484))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude"))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 484))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "untyped")))) [])),(Alt (568,8) (VariablePattern (Ident "_" 487)) (SimpleRhs (568,32) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (570,1) [(Ident "isTuple" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (571,1) (Ident "isTuple" 0) [(Equation (571,1) (FunLhs (Ident "isTuple" 0) [(ListPattern [])]) (SimpleRhs (571,14) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (572,1) (FunLhs (Ident "isTuple" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "x" 491)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 491))))]) (SimpleRhs (572,18) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 491))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '(')))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "p1_isTuple" 492))) (Variable (QualIdent Nothing (Ident "xs" 491)))))) [(FunctionDecl (574,4) (Ident "p1_isTuple" 492) [(Equation (574,4) (FunLhs (Ident "p1_isTuple" 492) [(ListPattern [])]) (SimpleRhs (574,20) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (575,4) (FunLhs (Ident "p1_isTuple" 492) [(ParenPattern (InfixPattern (VariablePattern (Ident "z" 495)) (QualIdent Nothing (Ident ":" 0)) (ListPattern [])))]) (SimpleRhs (575,24) (InfixApply (Variable (QualIdent Nothing (Ident "z" 495))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char ')'))) [])),(Equation (576,4) (FunLhs (Ident "p1_isTuple" 492) [(ParenPattern (InfixPattern (VariablePattern (Ident "z1" 497)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "z2" 497)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "zs" 497)))))]) (SimpleRhs (576,28) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "z1" 497))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char ',')))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "p1_isTuple" 492))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "z2" 497))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "zs" 497)))))))) []))])]))])+,(TypeSig (582,1) [(Ident "infixIDs" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FunctionDecl (583,1) (Ident "infixIDs" 0) [(Equation (583,1) (FunLhs (Ident "infixIDs" 0) []) (SimpleRhs (583,13) (Literal (String "~!@#$%^&*+-=<>?./|\\:")) []))])+,(FunctionDecl (587,1) (Ident "maybeShowBrackets" 0) [(Equation (587,1) (FunLhs (Ident "maybeShowBrackets" 0) [(VariablePattern (Ident "nested" 501)),(VariablePattern (Ident "s" 501))]) (SimpleRhs (588,4) (InfixApply (Paren (IfThenElse (Variable (QualIdent Nothing (Ident "nested" 501))) (Literal (String "(")) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 501))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (IfThenElse (Variable (QualIdent Nothing (Ident "nested" 501))) (Literal (String ")")) (Literal (String "")))))) []))])+,(TypeSig (594,1) [(Ident "nameFM" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "NameFM" 0)) [])))+,(FunctionDecl (595,1) (Ident "nameFM" 0) [(Equation (595,1) (FunLhs (Ident "nameFM" 0) []) (SimpleRhs (595,10) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "addName" 0)))) (Paren (Apply (Variable (QualIdent (Just "FiniteMap") (Ident "emptyFM" 0))) (Variable (QualIdent (Just "AbstractCurryPrinter") (Ident "lessString" 0)))))) []))])+,(TypeSig (597,1) [(Ident "addName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CFuncDecl" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "NameFM" 0)) []) (ConstructorType (QualIdent Nothing (Ident "NameFM" 0)) []))))+,(FunctionDecl (598,1) (Ident "addName" 0) [(Equation (598,1) (FunLhs (Ident "addName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CFunc" 0)) [(TuplePattern [(VariablePattern (Ident "_" 506)),(VariablePattern (Ident "n" 505))]),(VariablePattern (Ident "_" 507)),(VariablePattern (Ident "_" 508)),(VariablePattern (Ident "_" 509)),(VariablePattern (Ident "_" 510))])),(VariablePattern (Ident "fm" 505))]) (SimpleRhs (598,36) (Apply (Apply (Apply (Variable (QualIdent (Just "FiniteMap") (Ident "addToFM" 0))) (Variable (QualIdent Nothing (Ident "fm" 505)))) (Variable (QualIdent Nothing (Ident "n" 505)))) (Tuple [])) [])),(Equation (599,1) (FunLhs (Ident "addName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "AbstractCurry") (Ident "CmtFunc" 0)) [(VariablePattern (Ident "_" 513)),(TuplePattern [(VariablePattern (Ident "_" 514)),(VariablePattern (Ident "n" 512))]),(VariablePattern (Ident "_" 515)),(VariablePattern (Ident "_" 516)),(VariablePattern (Ident "_" 517)),(VariablePattern (Ident "_" 518))])),(VariablePattern (Ident "fm" 512))]) (SimpleRhs (599,40) (Apply (Apply (Apply (Variable (QualIdent (Just "FiniteMap") (Ident "addToFM" 0))) (Variable (QualIdent Nothing (Ident "fm" 512)))) (Variable (QualIdent Nothing (Ident "n" 512)))) (Tuple [])) []))])+,(FunctionDecl (601,1) (Ident "lessString" 0) [(Equation (601,1) (FunLhs (Ident "lessString" 0) [(VariablePattern (Ident "s1" 520)),(VariablePattern (Ident "s2" 520))]) (SimpleRhs (601,20) (InfixApply (Constructor (QualIdent (Just "Prelude") (Ident "LT" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Apply (Variable (QualIdent (Just "Sort") (Ident "cmpString" 0))) (Variable (QualIdent Nothing (Ident "s1" 520)))) (Variable (QualIdent Nothing (Ident "s2" 520))))) []))])+]
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.efc view
@@ -0,0 +1,1 @@+Prog "AbstractCurryPrinter" ["AbstractCurry","Char","FiniteMap","List","Maybe","Prelude","Sort","Read"] [TypeSyn ((Nothing,Nothing,"AbstractCurryPrinter","NameFM")) Private [] (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []]),TypeSyn ((Nothing,Nothing,"AbstractCurryPrinter","Options")) Private [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CurryProg")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") []),1))) [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,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CurryProg") [])))))),"AbstractCurry","CurryProg")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),6)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),5))])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"AbstractCurryPrinter","showImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showOpDecls")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeDecls")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showFuncDeclOpt")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])),"AbstractCurryPrinter","nameFM")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]))])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"AbstractCurryPrinter","defaultOptions")) 0 Private (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 5]) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (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") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 5])),"FiniteMap","emptyFM")) [Comb (FuncPartCall 2) ((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") []))),"AbstractCurryPrinter","lessString")) []],Comb ConsCall ((Nothing,Just (TVar 6),"Prelude","[]")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExports")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),3),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.isPublicType.9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),1))])] (Let [((Just (TVar 3),4),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 7) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 7],TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]]))),"List","partition")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.allPublicCons.9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []])),"AbstractCurryPrinter","showExports._#selFP3#withCons")) [Var ((Just (TVar 3),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []])),"AbstractCurryPrinter","showExports._#selFP4#withoutCons")) [Var ((Just (TVar 3),4))])] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [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","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))) (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","flip")) [Comb (FuncPartCall 2) ((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","++")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExports.getTypeName.9")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),5))],Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExports.getTypeName.9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExports.getFuncName.9")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.isPublicFunc.9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]),2))]]]]]])))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.isPublicType.9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CType")) [(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,"AbstractCurry","CVisibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) []]),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CTypeSyn")) [(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,"AbstractCurry","CVisibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.isPublicFunc.9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [(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","Int") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) []]),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []))))))),"AbstractCurry","CmtFunc")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Int") []),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),10)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExports.getTypeName.9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CType")) [(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,"AbstractCurry","CVisibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),5)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 5) (FuncType (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","(,)")) [(Just (TVar 5),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CTypeSyn")) [(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,"AbstractCurry","CVisibility") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),11)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 12) (FuncType (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","(,)")) [(Just (TVar 12),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.allPublicCons.9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CType")) [(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,"AbstractCurry","CVisibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),5))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []))))),"AbstractCurry","CCons")) [(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","Int") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),"AbstractCurry","Public")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExports.getFuncName.9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [(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","Int") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),6)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)))]),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []))))))),"AbstractCurry","CmtFunc")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),10),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),13),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 15) (FuncType (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","(,)")) [(Just (TVar 15),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []])),"AbstractCurryPrinter","showExports._#selFP3#withCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []])),"AbstractCurryPrinter","showExports._#selFP4#withoutCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),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") []])),"AbstractCurryPrinter","showImports")) 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")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showImport")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (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","filter")) [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","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (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","flip")) [Comb (FuncPartCall 2) ((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","/=")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]])]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showImport")) 1 Private (FuncType (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","Char") []]),1)] (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showOpDecls")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","COpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showOpDecl")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]])]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showOpDecl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","COpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") []),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,"AbstractCurry","CFixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"AbstractCurry","COpDecl") [])))),"AbstractCurry","COp")) [(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,"AbstractCurry","CFixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showFixity")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '`'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '`'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showFixity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFixity")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixlOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CFixity") []),"AbstractCurry","CInfixrOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeDecls")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeDecl")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]])]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeDecl")) 1 Public (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CTypeSyn")) [(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,"AbstractCurry","CVisibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),5)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 7) (FuncType (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","(,)")) [(Just (TVar 7),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude","map")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeDecl") []))))),"AbstractCurry","CType")) [(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,"AbstractCurry","CVisibility") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),11)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (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","(,)")) [(Just (TVar 17),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude","map")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showConsDecl")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []]),11)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showConsDecl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CConsDecl") []))))),"AbstractCurry","CCons")) [(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","Int") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),5)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 4),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeVar")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showIdentifier")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CFuncType")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","maybeShowBrackets")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isCFuncType")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),6))],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),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,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CTCons")) [(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,"AbstractCurry","CTypeExpr") []]),9)]) (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Case  Rigid (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,"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") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]),11)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","maybeShowBrackets")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),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,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),9))]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showTypeCons")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),9))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showTypeVar")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  'a')],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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","all")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isDigit")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showIdentifier")) 0 Private (FuncType (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","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isCFuncType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CFuncType")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CTCons")) [(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,"AbstractCurry","CTypeExpr") []]),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showFuncDecl")) 0 Public (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showFuncDeclOpt")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"AbstractCurryPrinter","defaultOptions")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showFuncDeclOpt")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []))))))),"AbstractCurry","CmtFunc")) [(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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),8)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showCmtFunc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [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","Int") []),5)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),6)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),8))]]),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,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),13)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showCmtFunc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showCmtFunc")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [(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","Int") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),8)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 9) (FuncType (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","(,)")) [(Just (TVar 9),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),8))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRules") []))),"AbstractCurry","CRules")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]),12)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),13),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 29) (TVar 30)) (FuncType (TVar 29) (TVar 30))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TVar 31),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (TVar 34) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]))),"Prelude",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TVar 33),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 60) (TVar 61)) (FuncType (TVar 60) (TVar 61))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37])),"Prelude","concat")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 58) (TVar 59)) (FuncType (TVar 58) (TVar 59))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 39) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]))),"Prelude",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TVar 38),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 56) (TVar 57)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 53) (TVar 54)) (FuncType (FuncType (TVar 55) (TVar 53)) (FuncType (TVar 55) (TVar 54)))),"Prelude",".")) [Comb (FuncPartCall 1) ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCmtFunc.insertName.139")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 50) (TVar 51)) (FuncType (FuncType (TVar 52) (TVar 50)) (FuncType (TVar 52) (TVar 51)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 45) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 45],TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]]))),"Prelude","span")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 42) (FuncType (TVar 43) (TVar 44))) (FuncType (TVar 43) (FuncType (TVar 42) (TVar 44)))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 41) (FuncType (TVar 41) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  ' ')]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 47) (TVar 48)) (FuncType (FuncType (TVar 49) (TVar 47)) (FuncType (TVar 49) (TVar 48)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46])),"Prelude","tail")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CRule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showRule")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]),12))]]])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","funcComment")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),11)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CFlex")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showEvalAnnot")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),11))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isUntyped")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])],Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CRule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showRule")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CRule") []]),12)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))]]])]]]])))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRules") [])),"AbstractCurry","CExternal")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17),Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 98) (TVar 99)) (FuncType (TVar 98) (TVar 99))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 101) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]))),"Prelude",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TVar 100),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (TVar 103) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]))),"Prelude",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TVar 102),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)))])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","funcComment")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]))])])])),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCmtFunc.insertName.139")) 2 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")) []],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","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)] (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","funcComment")) 0 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (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 (FuncType (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","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [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") []])),"Prelude","unlines")) [],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 (FuncType (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","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude",".")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","lines")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalFuncDecl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CFuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showFuncDeclOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CRule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showRule")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CRule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRule") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CRule") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CRule") [])))),"AbstractCurry","CRule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCrhsList")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),4))],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showEvalAnnot")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CEvalAnnot")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CFlex")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CRigid")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"AbstractCurry","CEvalAnnot") []),"AbstractCurry","CChoice")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCrhsList")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)]) (Case  Rigid (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5)),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCrhs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCrhs")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) [],TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"AbstractCurry","CExpr") [],TCons (Nothing,Nothing,"AbstractCurry","CExpr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CLocalDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])),"AbstractCurry","CLocalFunc")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CFuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalFuncDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])))),"AbstractCurry","CLocalPat")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") [])),"AbstractCurry","CLocalVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showExpr")) 0 Public (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"AbstractCurryPrinter","defaultOptions")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 4),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showIdentifier")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showLiteral")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),6))]),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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") []]]),7))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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") []]]),7))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambdaOrSection")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),10)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),12)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13))]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),14)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CStatement") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showStatement")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),14)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),16)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CStatement") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showStatement")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),16)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),18)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),17))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CBranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBranchExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),18)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 11]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 11]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Maybe","isJust")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 11]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 11]))),"FiniteMap","lookupFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 11]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]]),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")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambdaOrSection")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CPattern")) []]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),5)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9))) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),11)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 12) (FuncType (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","(,)")) [(Just (TVar 12),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),14)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),14))],Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),14))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),14))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),15)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),16)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),16))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),15))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),16))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),15))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),15))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),18)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),19),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),20)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),21),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),22)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),23),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),24)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),25)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),26),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),27)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),28),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),29)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),30)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),31)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),31))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),30))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),31))],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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),30))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),30))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),32)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),33)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),34),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),35)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),36),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),37)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),38),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),39)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),40)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),41),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),42)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),43),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),44)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),45),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),47)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),47))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),45)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),47))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),45)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),45)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),48)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),49)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),50),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),51)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),52),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),53)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),54),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),55)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),56)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),57),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),58)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),59),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),60)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),61),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),62)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),63)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),63))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),61)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),62))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),63))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),61)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),62))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),61)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),62))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),64)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),65)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),66),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),67)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),68),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),69)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),70),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),71)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),72)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),73),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),74)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),75),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),76)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),77),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),78)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),79)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),79))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),77)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),78))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),79))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),77)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),78))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),77)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),78))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),80)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),81)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),82),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),83)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),84),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),85)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),86),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),87)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),88)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),89),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),90)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),91),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),92)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),93)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),94)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),94))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),93))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),94))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),93))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),93))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),95)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),96)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),97),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),98)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),99),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),100)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),101),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),102)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),103)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),104),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),105)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),106),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),107)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),108),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),109)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),110)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),110))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),108)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),109))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),110))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),108)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),109))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),108)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),109))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),111)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),112)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),113),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),114)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),115),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),116)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),117),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),118)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),119)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),120),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),121)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),122),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),123)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),124),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),125)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),126)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),126))],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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),124)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),125))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),126))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),124)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),125))]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),124)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),125))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),127)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),128)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),129),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),130)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),131),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),132)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),133),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),134)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),135)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),136),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),137)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),138),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),139)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),140)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),141)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),142),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),143)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),144),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),145)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),146),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),147)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),148)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),149),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),150)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),151),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),152)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),153)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),154)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),155)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),156),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),157)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),158),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),159)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),160)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),161),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),162)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),163),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),164)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),165)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),166)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),167)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),168),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),169)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),170),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),171)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),172)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),173),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),174)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),175),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),176)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),177),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),178)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),179)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),180),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),181)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),182),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),183)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPFuncComb")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),184),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),185)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showLambda")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CPattern")) []]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CStatement") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showStatement")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CStatement")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") [])),"AbstractCurry","CSExpr")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") []))),"AbstractCurry","CSPat")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"AbstractCurry","CStatement") [])),"AbstractCurry","CSLet")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),8)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),8))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []),7))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),10)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CLocalDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showLocalDecl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) 1 Public (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 4),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showIdentifier")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showLiteral")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),7)]) (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),7))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),11)]) (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") []]),8)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPreludeCons")) [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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),11))]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),11))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 23) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 23),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showIdentifier")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '@'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),13))]]])]),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPFuncComb")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),16)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),17))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPreludeCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Let [((Just (TVar 1),2),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)))] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPreludeCons._#selFP6#name")) [Var ((Just (TVar 1),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []])),"AbstractCurryPrinter","showPreludeCons._#selFP7#pattlist")) [Var ((Just (TVar 1),2))])] (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") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPatternList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),4)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),4)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])]))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPreludeCons._#selFP6#name")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),3)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (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","(,)")) [(Just (TVar 3),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []])),"AbstractCurryPrinter","showPreludeCons._#selFP7#pattlist")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),3)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 3),4),(Just (TVar 4),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),3)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPatternList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedStringPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  '\'')],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") []])),"Prelude","concat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedPatternList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAsPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showAsPatternList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),3)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TVar 5),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'P')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 51),19))) [Branch (Pattern ((Nothing,Just (TVar 51),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 54),21))) [Branch (Pattern ((Nothing,Just (TVar 54),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TVar 57),25))) [Branch (Pattern ((Nothing,Just (TVar 57),"Prelude","[]")) []) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),22))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),24))]])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 67),27))) [Branch (Pattern ((Nothing,Just (TVar 67),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 68),3))) [Branch (Pattern ((Nothing,Just (TVar 68),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),28)]) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),28))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),29),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),30)]) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),29)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),30))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedPatternList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),3)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TVar 5),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'P')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 48),19))) [Branch (Pattern ((Nothing,Just (TVar 48),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 51),21))) [Branch (Pattern ((Nothing,Just (TVar 51),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TVar 54),25))) [Branch (Pattern ((Nothing,Just (TVar 54),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedPatternList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),24))])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 62),27))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 63),3))) [Branch (Pattern ((Nothing,Just (TVar 63),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),28)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),29),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),30)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedPatternList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),30))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedStringPattern")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),3)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TVar 5),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'P')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 46),19))) [Branch (Pattern ((Nothing,Just (TVar 46),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 49),21))) [Branch (Pattern ((Nothing,Just (TVar 49),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TVar 52),25))) [Branch (Pattern ((Nothing,Just (TVar 52),"Prelude","[]")) []) (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,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isCharPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),22))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedStringPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),24))]])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 61),27))) [Branch (Pattern ((Nothing,Just (TVar 61),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 62),3))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),28)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isCharPattern")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),2)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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,"AbstractCurry","CLiteral") [])),"AbstractCurry","CIntc")) [(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,"Prelude","Float") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CFloatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),5)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPFuncComb")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAsPattern")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") [])),"AbstractCurry","CPLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),5)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPComb")) [(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,"AbstractCurry","CPattern") []]),7)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPFuncComb")) [(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,"AbstractCurry","CPattern") []]),9)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showAsPatternList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CPattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []))),"AbstractCurry","CPAs")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 4),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '@'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"AbstractCurryPrinter","showPatListElems")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),3))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CBranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBranchExpr")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CBranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []))),"AbstractCurry","CBranch")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showPattern")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CPattern") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showLiteral")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CLiteral")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CIntc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CFloatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CLiteral")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '\r')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '\\')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showBlock")) 1 Private (FuncType (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","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 (TCons (Nothing,Nothing,"Prelude","[]") [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") []])))),"AbstractCurryPrinter","combineMap")) [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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (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","filter")) [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","Bool") []))),"Prelude","/=")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","lines")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showTypeCons")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []]) (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","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showPreludeTypeCons")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showPreludeTypeCons")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []]) (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,"AbstractCurry","CTypeExpr") []]),2)] (Case  Rigid (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,"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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),2))],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,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CTCons")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),2))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTypeExpr")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurryPrinter","applicationHead")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(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 (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showSymbolApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),8),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),16)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurryPrinter","applicationHead")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurryPrinter","applicationHead")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),5)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),11)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),13)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),15)]) (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showSymbolApplication")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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,"AbstractCurry","CExpr") []),3)] (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Rigid (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,"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 ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"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 ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showITEApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTupleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showListApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isStringList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),10)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),12)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),13),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),14)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),15),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),16)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),17)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),18),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),19)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),21)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","showCCharc")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showCharListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),14),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),16)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),18)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),19),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),20)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showConsListApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleListApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),14),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),16)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),18)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),19),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),20)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]])]),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 30) (FuncType (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","(,)")) [(Just (TVar 30),22),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23))])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","showInfixApplication")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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,"AbstractCurry","CExpr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),10)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),12)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),13),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),14)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),15)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),17)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),18),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),19)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSymbol")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showITEApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showITEApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTupleApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTupleApplication.p_showTuple.386")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTupleApplication.p_showTuple.386")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(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 (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showTupleApplication.p_showTuple.386")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showSimpleApplication")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),8),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),10),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),13),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),16)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showBoxedExpr")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [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,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isSimpleExpr")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [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,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","showExprOpt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) 3 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","concatMap")) [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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixInter")) 3 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","$")) [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") []])),"Prelude","concat")) [],Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","combineMap")) 3 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TVar 0),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"AbstractCurryPrinter","prefixMap")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","dropTags")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","dropTags")) [],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","$")) [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","tail")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","dropWhile")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  '"')],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '>')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"AbstractCurryPrinter","dropTags")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) 0 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","all")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"AbstractCurryPrinter","infixIDs")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isStringList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (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,"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") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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 ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),6))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),9))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),10)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),10))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CCharc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isStringList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CIntc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") [])),"AbstractCurry","CFloatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),13)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),14)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),16),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),17)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),18),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),19)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),20),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),21)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),22)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),23),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),24)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),25),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),26)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),27)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),28)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),29)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),30),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),31)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),32),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),33)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),34)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),35),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),36)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),37),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),38)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),5)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),4))) [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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Case  Rigid (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (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,"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") []]),7)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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,"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") []]),8)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isClosedList")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),3))]]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),13),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),14)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),15),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),16)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),17)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),18),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),19)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),21)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),22)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),23)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),24)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),25),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),26)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),27),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),28)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),29)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),30),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),31)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),32),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),33)]) (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","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),34)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),34))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),35),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36)]) (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,"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") []]),35)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]),36)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),37)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),38)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),39),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),40)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),41),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),42)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),43)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),44),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),45)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),47)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isSimpleExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (Case  Rigid (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurryPrinter","applicationHead")) [Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12)),Lit (Charc  'P')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Lit (Charc  'r')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),18),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18)),Lit (Charc  'l')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20)),Lit (Charc  'u')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),22),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22)),Lit (Charc  'd')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),24),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),25)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),25))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (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,"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") []]),11)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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,"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") []]),11)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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,"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") []]),11)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]]]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),26),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),27)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),28)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),29)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),30),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),31)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),32),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),33)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),34),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),35)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),36)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),37),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),38)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),39),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),40)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),41),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),42)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),43),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),44)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),45)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),46),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),47)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),48),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),49)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isAtom")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CLit")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CLiteral") []),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),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") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CSymbol")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)]) (Case  Rigid (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isInfixOpName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CApply")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),7),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLambda")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CPattern") []]),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),10)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CLetDecl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CLocalDecl") []]),11),(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),12)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") [])),"AbstractCurry","CDoExpr")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),13)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CListComp")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CStatement") []]),15)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []))),"AbstractCurry","CCase")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CExpr") []),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CBranchExpr") []]),17)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isUntyped")) 1 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CTypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),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,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CTCons")) [(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,"AbstractCurry","CTypeExpr") []]),3)]) (Case  Rigid (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),"Prelude","[]")) []) (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,"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 ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []]),7)]) (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") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") [])),"AbstractCurry","CTVar")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []))),"AbstractCurry","CFuncType")) [(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),9),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),10)]) (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") [])),"AbstractCurryPrinter","isTuple")) 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)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '(')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple.p1_isTuple.492")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple.p1_isTuple.492")) 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)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  ')')]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  ',')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"AbstractCurryPrinter","isTuple.p1_isTuple.492")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]]])])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"AbstractCurryPrinter","infixIDs")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '~'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '@'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '$'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '%'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '^'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '*'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"AbstractCurryPrinter","maybeShowBrackets")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])),"AbstractCurryPrinter","nameFM")) 0 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]))),"AbstractCurryPrinter","addName")) [],Comb FuncCall ((Nothing,Just (FuncType (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") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])),"FiniteMap","emptyFM")) [Comb (FuncPartCall 2) ((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") []))),"AbstractCurryPrinter","lessString")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]))),"AbstractCurryPrinter","addName")) 2 Private (FuncType (TCons ((Nothing,Nothing,"AbstractCurry","CFuncDecl")) []) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []),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","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") [])))))),"AbstractCurry","CFunc")) [(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,"AbstractCurry","CVisibility") []),5),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),6),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),7)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 8) (FuncType (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","(,)")) [(Just (TVar 8),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])))),"FiniteMap","addToFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []])]),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []) (FuncType (TCons (Nothing,Nothing,"AbstractCurry","CRules") []) (TCons (Nothing,Nothing,"AbstractCurry","CFuncDecl") []))))))),"AbstractCurry","CmtFunc")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),11),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12),(Just (TCons (Nothing,Nothing,"AbstractCurry","CVisibility") []),13),(Just (TCons (Nothing,Nothing,"AbstractCurry","CTypeExpr") []),14),(Just (TCons (Nothing,Nothing,"AbstractCurry","CRules") []),15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (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","(,)")) [(Just (TVar 18),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []])))),"FiniteMap","addToFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","()") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []])])])),Func ((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") []))),"AbstractCurryPrinter","lessString")) 2 Private (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")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","LT")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Ordering") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),"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","Char") []]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Ordering") [])))),"Prelude","apply")) [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","Ordering") []))),"Sort","cmpString")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]))] []
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.fcy view
@@ -0,0 +1,1 @@+Prog "AbstractCurryPrinter" ["AbstractCurry","Char","FiniteMap","List","Maybe","Prelude","Sort","Read"] [TypeSyn ("AbstractCurryPrinter","NameFM") Private [] (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]),TypeSyn ("AbstractCurryPrinter","Options") Private [] (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])] [Func ("AbstractCurryPrinter","showProg") 1 Public (FuncType (TCons ("AbstractCurry","CurryProg") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CurryProg") [2,3,4,5,6]) (Let [(7,Comb FuncCall ("AbstractCurryPrinter","showExports") [Var 4,Var 5])] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Var 2,Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showImports") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showOpDecls") [Var 6],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTypeDecls") [Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showFuncDeclOpt") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","nameFM") [],Var 5],Var 2]],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]))])),Func ("AbstractCurryPrinter","defaultOptions") 0 Private (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (Rule [] (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("FiniteMap","emptyFM") [Comb (FuncPartCall 2) ("AbstractCurryPrinter","lessString") []],Comb ConsCall ("Prelude","[]") []])),Func ("AbstractCurryPrinter","showExports") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.isPublicType.9") [],Var 1])] (Let [(4,Comb FuncCall ("List","partition") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.allPublicCons.9") [],Var 3])] (Let [(5,Comb FuncCall ("AbstractCurryPrinter","showExports._#selFP3#withCons") [Var 4])] (Let [(6,Comb FuncCall ("AbstractCurryPrinter","showExports._#selFP4#withoutCons") [Var 4])] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","++") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]],Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.getTypeName.9") []],Var 5],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.getTypeName.9") [],Var 6],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.getFuncName.9") [],Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.isPublicFunc.9") [],Var 2]]]]]])))))),Func ("AbstractCurryPrinter","showExports.isPublicType.9") 1 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CType") [2,3,4,5]) (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("AbstractCurry","Public") []]),Branch (Pattern ("AbstractCurry","CTypeSyn") [6,7,8,9]) (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("AbstractCurry","Public") []])])),Func ("AbstractCurryPrinter","showExports.isPublicFunc.9") 1 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CFunc") [2,3,4,5,6]) (Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("AbstractCurry","Public") []]),Branch (Pattern ("AbstractCurry","CmtFunc") [7,8,9,10,11,12]) (Comb FuncCall ("Prelude","==") [Var 10,Comb ConsCall ("AbstractCurry","Public") []])])),Func ("AbstractCurryPrinter","showExports.getTypeName.9") 1 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CType") [2,3,4,5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [6,7]) (Var 7)]),Branch (Pattern ("AbstractCurry","CTypeSyn") [8,9,10,11]) (Case  Flex (Var 8) [Branch (Pattern ("Prelude","(,)") [12,13]) (Var 13)])])),Func ("AbstractCurryPrinter","showExports.allPublicCons.9") 1 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CType") [2,3,4,5]) (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") [],Var 5]],Comb FuncCall ("Prelude","length") [Var 5]])])),Func ("AbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") 1 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CCons") [2,3,4,5]) (Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("AbstractCurry","Public") []])])),Func ("AbstractCurryPrinter","showExports.getFuncName.9") 1 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CFunc") [2,3,4,5,6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [7,8]) (Var 8)]),Branch (Pattern ("AbstractCurry","CmtFunc") [9,10,11,12,13,14]) (Case  Flex (Var 10) [Branch (Pattern ("Prelude","(,)") [15,16]) (Var 16)])])),Func ("AbstractCurryPrinter","showExports._#selFP3#withCons") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("AbstractCurryPrinter","showExports._#selFP4#withoutCons") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("AbstractCurryPrinter","showImports") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showImport") [],Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]])]])),Func ("AbstractCurryPrinter","showImport") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","/=") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Var 1]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])])),Func ("AbstractCurryPrinter","showOpDecls") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","COpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showOpDecl") [],Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]])]])),Func ("AbstractCurryPrinter","showOpDecl") 1 Private (FuncType (TCons ("AbstractCurry","COpDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","COp") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showFixity") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 6]) [Branch (Pattern ("Prelude","True") []) (Var 6),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '`'),Comb FuncCall ("Prelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  '`'),Comb ConsCall ("Prelude","[]") []]]])]]]]])])])),Func ("AbstractCurryPrinter","showFixity") 1 Private (FuncType (TCons ("AbstractCurry","CFixity") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CInfixOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("AbstractCurry","CInfixlOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("AbstractCurry","CInfixrOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("AbstractCurryPrinter","showTypeDecls") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeDecl") [],Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]])]])),Func ("AbstractCurryPrinter","showTypeDecl") 1 Public (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CTypeSyn") [2,3,4,5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 7,Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []],Comb FuncCall ("Prelude","map") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") [],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 5]]]]])]),Branch (Pattern ("AbstractCurry","CType") [8,9,10,11]) (Case  Flex (Var 8) [Branch (Pattern ("Prelude","(,)") [12,13]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []],Comb FuncCall ("Prelude","map") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") [],Var 10],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showConsDecl") [],Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])])])),Func ("AbstractCurryPrinter","showConsDecl") 1 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CCons") [2,3,4,5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("Prelude","++") [Var 7,Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]])])])),Func ("AbstractCurryPrinter","showTypeExpr") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CTVar") [3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("AbstractCurryPrinter","showTypeVar") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","showIdentifier") [],Var 5]])]),Branch (Pattern ("AbstractCurry","CFuncType") [6,7]) (Comb FuncCall ("AbstractCurryPrinter","maybeShowBrackets") [Var 1,Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb FuncCall ("AbstractCurryPrinter","isCFuncType") [Var 6],Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 7]]]]),Branch (Pattern ("AbstractCurry","CTCons") [8,9]) (Case  Flex (Var 8) [Branch (Pattern ("Prelude","(,)") [10,11]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 10,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","maybeShowBrackets") [Comb FuncCall ("Prelude","&&") [Var 1,Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","null") [Var 9]]],Comb FuncCall ("AbstractCurryPrinter","showTypeCons") [Var 10,Var 11,Var 9]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("AbstractCurryPrinter","showTypeVar") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  'a')],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","null") [Var 3]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Char","isDigit") []],Var 3]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 2,Var 3])])])),Func ("AbstractCurryPrinter","showIdentifier") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 1) ("Prelude","elem") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []]]]]])),Func ("AbstractCurryPrinter","isCFuncType") 1 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CFuncType") [2,3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CTVar") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CTCons") [5,6]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","showFuncDecl") 0 Public (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AbstractCurryPrinter","showFuncDeclOpt") [Comb FuncCall ("AbstractCurryPrinter","defaultOptions") []])),Func ("AbstractCurryPrinter","showFuncDeclOpt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CmtFunc") [3,4,5,6,7,8]) (Comb FuncCall ("AbstractCurryPrinter","showCmtFunc") [Var 1,Var 3,Comb ConsCall ("AbstractCurry","CFunc") [Var 4,Var 5,Var 6,Var 7,Var 8]]),Branch (Pattern ("AbstractCurry","CFunc") [9,10,11,12,13]) (Comb FuncCall ("AbstractCurryPrinter","showCmtFunc") [Var 1,Comb ConsCall ("Prelude","[]") [],Var 2])])),Func ("AbstractCurryPrinter","showCmtFunc") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CFunc") [4,5,6,7,8]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [9,10]) (Case  Flex (Var 8) [Branch (Pattern ("AbstractCurry","CRules") [11,12]) (Let [(13,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 10])] (Let [(14,Case  Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 10,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Var 10)])] (Let [(15,Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","concat") [],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showCmtFunc.insertName.139") [Var 10],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","span") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  ' ')]],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","tail") [],Comb (FuncPartCall 1) ("AbstractCurryPrinter","showRule") [Var 1]]]],Var 12]]])] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","funcComment") [],Var 2],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 11,Comb ConsCall ("AbstractCurry","CFlex") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 14,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showEvalAnnot") [Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isUntyped") [Var 7]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 14,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])],Case  Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Var 15),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 10,Comb FuncCall ("AbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showRule") [Var 1],Var 12,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Var 10]]])]]]])))),Branch (Pattern ("AbstractCurry","CExternal") [16]) (Let [(17,Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 10]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 10,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Var 10)])] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","funcComment") [],Var 2],Comb FuncCall ("Prelude","++") [Var 17,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 7],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]))])])])),Func ("AbstractCurryPrinter","showCmtFunc.insertName.139") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 1,Var 4]]])])),Func ("AbstractCurryPrinter","funcComment") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","unlines") [],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb (FuncPartCall 1) ("Prelude","lines") []]])),Func ("AbstractCurryPrinter","showLocalFuncDecl") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Comb (FuncPartCall 1) ("AbstractCurryPrinter","showFuncDeclOpt") [Var 1])),Func ("AbstractCurryPrinter","showRule") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CRule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CRule") [3,4,5]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showPattern") [],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCrhsList") [Var 1,Var 4],Case  Rigid (Comb FuncCall ("Prelude","null") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showLocalDecl") [Var 1],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])]]])])),Func ("AbstractCurryPrinter","showEvalAnnot") 1 Private (FuncType (TCons ("AbstractCurry","CEvalAnnot") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CFlex") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("AbstractCurry","CRigid") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("AbstractCurry","CChoice") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("AbstractCurryPrinter","showCrhsList") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("AbstractCurry","CSymbol") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 6]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showCrhs") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 6],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("AbstractCurryPrinter","showCrhs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 4]]]])])),Func ("AbstractCurryPrinter","showLocalDecl") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CLocalDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CLocalFunc") [3]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","showLocalFuncDecl") [Var 1],Var 3]),Branch (Pattern ("AbstractCurry","CLocalPat") [4,5,6]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 5],Case  Rigid (Comb FuncCall ("Prelude","null") [Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showLocalDecl") [Var 1],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])]]]]),Branch (Pattern ("AbstractCurry","CLocalVar") [7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 7]],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("AbstractCurryPrinter","showExpr") 0 Public (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AbstractCurryPrinter","showExprOpt") [Comb FuncCall ("AbstractCurryPrinter","defaultOptions") []])),Func ("AbstractCurryPrinter","showExprOpt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CVar") [3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","showIdentifier") [],Var 5])]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("AbstractCurryPrinter","showLiteral") [Var 6]),Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Comb FuncCall ("Prelude","snd") [Var 7]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 7])]),Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("AbstractCurryPrinter","showApplication") [Var 1,Comb ConsCall ("AbstractCurry","CApply") [Var 8,Var 9]]),Branch (Pattern ("AbstractCurry","CLambda") [10,11]) (Comb FuncCall ("AbstractCurryPrinter","showLambdaOrSection") [Var 1,Var 10,Var 11]),Branch (Pattern ("AbstractCurry","CLetDecl") [12,13]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showLocalDecl") [Var 1],Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 13]]]]]),Branch (Pattern ("AbstractCurry","CDoExpr") [14]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showStatement") [Var 1],Var 14,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("AbstractCurry","CListComp") [15,16]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 15],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showStatement") [Var 1],Var 16,Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("AbstractCurry","CCase") [17,18]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 17],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showBranchExpr") [Var 1],Var 18,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("AbstractCurryPrinter","showSymbol") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Var 5]) [Branch (Pattern ("Prelude","True") []) (Var 6),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Maybe","isJust") [Comb FuncCall ("FiniteMap","lookupFM") [Var 3,Var 6]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Var 5,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []],Var 6]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Var 6),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("AbstractCurryPrinter","showLambdaOrSection") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CPVar") [6]) (Case  Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Case  Rigid (Var 7) [Branch (Pattern ("AbstractCurry","CApply") [9,10]) (Case  Rigid (Var 9) [Branch (Pattern ("AbstractCurry","CSymbol") [11]) (Case  Rigid (Var 11) [Branch (Pattern ("Prelude","(,)") [12,13]) (Case  Rigid (Var 8) [Branch (Pattern ("AbstractCurry","CVar") [14]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Var 10],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 14],Var 10]]]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 6,Var 14]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 10,Comb ConsCall ("AbstractCurry","CVar") [Var 6]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Comb ConsCall ("AbstractCurry","CVar") [Var 14]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [15]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [16]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 16],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLit") [Var 15]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 16],Comb ConsCall ("AbstractCurry","CLit") [Var 15]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CLit") [Var 15]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [17]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [18]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [19,20]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [21,22]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [23,24]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [25]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [26,27]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [28,29]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CSymbol") [30]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [31]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 31],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CSymbol") [Var 30]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 31],Comb ConsCall ("AbstractCurry","CSymbol") [Var 30]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CSymbol") [Var 30]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [32]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [33]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [34,35]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [36,37]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [38,39]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [40]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [41,42]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [43,44]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CApply") [45,46]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [47]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 47],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CApply") [Var 45,Var 46]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 47],Comb ConsCall ("AbstractCurry","CApply") [Var 45,Var 46]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CApply") [Var 45,Var 46]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [48]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [49]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [50,51]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [52,53]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [54,55]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [56]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [57,58]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [59,60]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLambda") [61,62]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [63]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 63],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLambda") [Var 61,Var 62]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 63],Comb ConsCall ("AbstractCurry","CLambda") [Var 61,Var 62]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CLambda") [Var 61,Var 62]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [64]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [65]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [66,67]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [68,69]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [70,71]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [72]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [73,74]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [75,76]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLetDecl") [77,78]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [79]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 79],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLetDecl") [Var 77,Var 78]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 79],Comb ConsCall ("AbstractCurry","CLetDecl") [Var 77,Var 78]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CLetDecl") [Var 77,Var 78]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [80]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [81]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [82,83]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [84,85]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [86,87]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [88]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [89,90]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [91,92]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CDoExpr") [93]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [94]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 94],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CDoExpr") [Var 93]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 94],Comb ConsCall ("AbstractCurry","CDoExpr") [Var 93]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CDoExpr") [Var 93]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [95]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [96]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [97,98]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [99,100]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [101,102]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [103]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [104,105]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [106,107]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CListComp") [108,109]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [110]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 110],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CListComp") [Var 108,Var 109]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 110],Comb ConsCall ("AbstractCurry","CListComp") [Var 108,Var 109]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CListComp") [Var 108,Var 109]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [111]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [112]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [113,114]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [115,116]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [117,118]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [119]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [120,121]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [122,123]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CCase") [124,125]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CVar") [126]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 13],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 6,Var 126],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CCase") [Var 124,Var 125]],Comb FuncCall ("Prelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 126],Comb ConsCall ("AbstractCurry","CCase") [Var 124,Var 125]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 13,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Comb ConsCall ("AbstractCurry","CCase") [Var 124,Var 125]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CLit") [127]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [128]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [129,130]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [131,132]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [133,134]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [135]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [136,137]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [138,139]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])])])]),Branch (Pattern ("AbstractCurry","CVar") [140]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLit") [141]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CApply") [142,143]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [144,145]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [146,147]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [148]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [149,150]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [151,152]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CVar") [153]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLit") [154]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [155]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [156,157]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [158,159]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [160]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [161,162]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [163,164]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CVar") [165]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLit") [166]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CSymbol") [167]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLambda") [168,169]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CLetDecl") [170,171]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CDoExpr") [172]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CListComp") [173,174]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CCase") [175,176]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("Prelude",":") [177,178]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("AbstractCurry","CPLit") [179]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CPComb") [180,181]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CPAs") [182,183]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3]),Branch (Pattern ("AbstractCurry","CPFuncComb") [184,185]) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("AbstractCurryPrinter","showLambda") [Var 1,Var 2,Var 3])])),Func ("AbstractCurryPrinter","showLambda") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showPattern") [],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 3]]]])),Func ("AbstractCurryPrinter","showStatement") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CStatement") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CSExpr") [3]) (Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 3]),Branch (Pattern ("AbstractCurry","CSPat") [4,5]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 5]]]),Branch (Pattern ("AbstractCurry","CSLet") [6]) (Case  Rigid (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showLocalDecl") [Var 1,Var 7]]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showLocalDecl") [Var 1],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showBlock") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showLocalDecl") [Var 1],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]])])])),Func ("AbstractCurryPrinter","showPattern") 1 Public (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPVar") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","showIdentifier") [],Var 4])]),Branch (Pattern ("AbstractCurry","CPLit") [5]) (Comb FuncCall ("AbstractCurryPrinter","showLiteral") [Var 5]),Branch (Pattern ("AbstractCurry","CPComb") [6,7]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","(,)") [8,9]) (Case  Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Var 9),Branch (Pattern ("Prelude",":") [10,11]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showPreludeCons") [Comb ConsCall ("AbstractCurry","CPComb") [Comb ConsCall ("Prelude","(,)") [Var 8,Var 9],Comb ConsCall ("Prelude",":") [Var 10,Var 11]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 9,Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showPattern") [],Comb ConsCall ("Prelude",":") [Var 10,Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]),Branch (Pattern ("AbstractCurry","CPAs") [12,13]) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","(,)") [14,15]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","showIdentifier") [],Var 15],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showPattern") [Var 13]]])]),Branch (Pattern ("AbstractCurry","CPFuncComb") [16,17]) (Comb FuncCall ("AbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPComb") [Var 16,Var 17]])])),Func ("AbstractCurryPrinter","showPreludeCons") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Let [(2,Var 1)] (Let [(3,Comb FuncCall ("AbstractCurryPrinter","showPreludeCons._#selFP6#name") [Var 2])] (Let [(4,Comb FuncCall ("AbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showPatternList") [Var 1]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isTuple") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showPattern") [],Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showPattern") [],Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]))))),Func ("AbstractCurryPrinter","showPreludeCons._#selFP6#name") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPComb") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Var 5)])])),Func ("AbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPComb") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Var 3)])])),Func ("AbstractCurryPrinter","showPatternList") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isClosedStringPattern") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  '\'')],Comb FuncCall ("Prelude","concat") [Comb FuncCall ("AbstractCurryPrinter","showPatListElems") [Var 1]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isClosedPatternList") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showPatListElems") [Var 1]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isAsPattern") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showAsPatternList") [Var 1]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showPatListElems") [Var 1]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("AbstractCurryPrinter","showPatListElems") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPComb") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'P')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  ':')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Var 22],Comb FuncCall ("AbstractCurryPrinter","showPatListElems") [Var 24]])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ("AbstractCurry","CPVar") [28]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 28]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("AbstractCurry","CPAs") [29,30]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPAs") [Var 29,Var 30]],Comb ConsCall ("Prelude","[]") []])])),Func ("AbstractCurryPrinter","isClosedPatternList") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPComb") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'P')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  ':')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("AbstractCurryPrinter","isClosedPatternList") [Var 24])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ("AbstractCurry","CPVar") [28]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPAs") [29,30]) (Comb FuncCall ("AbstractCurryPrinter","isClosedPatternList") [Var 30])])),Func ("AbstractCurryPrinter","isClosedStringPattern") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPComb") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'P')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  ':')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("AbstractCurryPrinter","isCharPattern") [Var 22],Comb FuncCall ("AbstractCurryPrinter","isClosedStringPattern") [Var 24]])])])])]),Branch (LPattern (Charc  '[')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") [])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ("AbstractCurry","CPVar") [28]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isCharPattern") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CPLit") [2]) (Case  Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CCharc") [3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CIntc") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CFloatc") [5]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CPVar") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPComb") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPAs") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPFuncComb") [11,12]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isAsPattern") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CPAs") [2,3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CPVar") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPLit") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPComb") [6,7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CPFuncComb") [8,9]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","showAsPatternList") 1 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CPAs") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","++") [Var 5,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showPatListElems") [Var 3]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])])])),Func ("AbstractCurryPrinter","showBranchExpr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CBranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CBranch") [3,4]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showPattern") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 4]]])])),Func ("AbstractCurryPrinter","showLiteral") 1 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CIntc") [2]) (Comb FuncCall ("Prelude","show") [Var 2]),Branch (Pattern ("AbstractCurry","CFloatc") [3]) (Comb FuncCall ("Prelude","show") [Var 3]),Branch (Pattern ("AbstractCurry","CCharc") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Comb ConsCall ("AbstractCurry","CCharc") [Var 4]],Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]])])),Func ("AbstractCurryPrinter","showCCharc") 1 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CCharc") [2]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\r')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\\')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])),Func ("AbstractCurryPrinter","showBlock") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("Prelude","/=") [Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","lines") [Var 1]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]])),Func ("AbstractCurryPrinter","showTypeCons") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showPreludeTypeCons") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Var 5]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Var 2,Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []],Comb ConsCall ("Prelude",":") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("AbstractCurryPrinter","showPreludeTypeCons") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 2],Comb ConsCall ("AbstractCurry","CTCons") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","head") [Var 2]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isTuple") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","combineMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("AbstractCurryPrinter","showApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","applicationHead") [Var 2]) [Branch (Pattern ("AbstractCurry","CSymbol") [3]) (Comb FuncCall ("AbstractCurryPrinter","showSymbolApplication") [Var 1,Var 3,Var 2]),Branch (Pattern ("AbstractCurry","CVar") [4]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLit") [5]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLambda") [8,9]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLetDecl") [10,11]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CDoExpr") [12]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CListComp") [13,14]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CCase") [15,16]) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 2])])),Func ("AbstractCurryPrinter","applicationHead") 1 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("AbstractCurry","CExpr") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CApply") [2,3]) (Comb FuncCall ("AbstractCurryPrinter","applicationHead") [Var 2]),Branch (Pattern ("AbstractCurry","CVar") [4]) (Var 1),Branch (Pattern ("AbstractCurry","CLit") [5]) (Var 1),Branch (Pattern ("AbstractCurry","CSymbol") [6]) (Var 1),Branch (Pattern ("AbstractCurry","CLambda") [7,8]) (Var 1),Branch (Pattern ("AbstractCurry","CLetDecl") [9,10]) (Var 1),Branch (Pattern ("AbstractCurry","CDoExpr") [11]) (Var 1),Branch (Pattern ("AbstractCurry","CListComp") [12,13]) (Var 1),Branch (Pattern ("AbstractCurry","CCase") [14,15]) (Var 1)])),Func ("AbstractCurryPrinter","showSymbolApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showListApplication") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showITEApplication") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isTuple") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showTupleApplication") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("AbstractCurryPrinter","showListApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isStringList") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isClosedList") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSimpleListApplication") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("AbstractCurryPrinter","showCharListApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Case  Flex (Var 6) [Branch (Pattern ("AbstractCurry","CLit") [7]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7]),Branch (Pattern ("AbstractCurry","CVar") [9]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CLit") [10]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]]),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showCCharc") [Var 7],Comb FuncCall ("AbstractCurryPrinter","showCharListApplication") [Var 1,Var 4]])])])])])),Func ("AbstractCurryPrinter","showConsListApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6]),Branch (Pattern ("AbstractCurry","CVar") [8]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLit") [9]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CApply") [10,11]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLambda") [12,13]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLetDecl") [14,15]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CDoExpr") [16]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CListComp") [17,18]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CCase") [19,20]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showConsListApplication") [Var 1,Var 4]]])])])])),Func ("AbstractCurryPrinter","showSimpleListApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("AbstractCurry","CVar") [8]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLit") [9]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CApply") [10,11]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLambda") [12,13]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CLetDecl") [14,15]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CDoExpr") [16]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CListComp") [17,18]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CCase") [19,20]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]])]),Branch (Pattern ("AbstractCurry","CSymbol") [21]) (Case  Flex (Var 21) [Branch (Pattern ("Prelude","(,)") [22,23]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4],Var 23])])])])),Func ("AbstractCurryPrinter","showInfixApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 7],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]]),Branch (Pattern ("AbstractCurry","CVar") [8]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CLit") [9]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CSymbol") [10]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CLambda") [11,12]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CLetDecl") [13,14]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CDoExpr") [15]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CListComp") [16,17]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]]),Branch (Pattern ("AbstractCurry","CCase") [18,19]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSymbol") [Var 1,Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 5]]]])])])),Func ("AbstractCurryPrinter","showITEApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Case  Flex (Var 5) [Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Case  Flex (Var 7) [Branch (Pattern ("AbstractCurry","CSymbol") [9]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 4]]]]]]),Branch (Pattern ("AbstractCurry","CApply") [10,11]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showITEApplication") [Var 1,Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]])])])])])),Func ("AbstractCurryPrinter","showTupleApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])),Func ("AbstractCurryPrinter","showTupleApplication.p_showTuple.386") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("AbstractCurry","CSymbol") [5]) (Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 4]),Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 1,Comb ConsCall ("AbstractCurry","CApply") [Var 6,Var 7]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 4]]])])])),Func ("AbstractCurryPrinter","showSimpleApplication") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showSimpleApplication") [Var 1,Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 4]]]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLambda") [8,9]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLetDecl") [10,11]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CDoExpr") [12]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CListComp") [13,14]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CCase") [15,16]) (Comb FuncCall ("AbstractCurryPrinter","showBoxedExpr") [Var 1,Var 2])])),Func ("AbstractCurryPrinter","showBoxedExpr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","isSimpleExpr") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("AbstractCurryPrinter","showExprOpt") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("AbstractCurryPrinter","prefixMap") 3 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("Prelude","++") [Var 3]],Comb FuncCall ("Prelude","map") [Var 1,Var 2]])),Func ("AbstractCurryPrinter","prefixInter") 3 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","concat") [],Comb FuncCall ("List","intersperse") [Var 3,Comb FuncCall ("Prelude","map") [Var 1,Var 2]]])),Func ("AbstractCurryPrinter","combineMap") 3 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Comb FuncCall ("AbstractCurryPrinter","prefixMap") [Var 1,Var 5,Var 3]])])),Func ("AbstractCurryPrinter","dropTags") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("AbstractCurryPrinter","dropTags") [],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","tail") [],Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  '"')],Var 3]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Var 3),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("AbstractCurryPrinter","dropTags") [Var 3])])])])),Func ("AbstractCurryPrinter","isInfixOpName") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])) (Rule [] (Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 1) ("Prelude","elem") [],Comb FuncCall ("AbstractCurryPrinter","infixIDs") []]])),Func ("AbstractCurryPrinter","isStringList") 1 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CSymbol") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]])]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Case  Rigid (Var 6) [Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Case  Rigid (Var 9) [Branch (Pattern ("AbstractCurry","CLit") [10]) (Case  Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CCharc") [11]) (Comb FuncCall ("AbstractCurryPrinter","isStringList") [Var 7]),Branch (Pattern ("AbstractCurry","CIntc") [12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CFloatc") [13]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CVar") [14]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CSymbol") [15]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CApply") [16,17]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [18,19]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [20,21]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [22]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [23,24]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [25,26]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CVar") [27]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLit") [28]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CSymbol") [29]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [30,31]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [32,33]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [34]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [35,36]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [37,38]) (Comb ConsCall ("Prelude","False") [])])])),Func ("AbstractCurryPrinter","isClosedList") 1 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CApply") [2,3]) (Case  Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Case  Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [6]) (Case  Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("AbstractCurryPrinter","isClosedList") [Var 3]]])]),Branch (Pattern ("AbstractCurry","CVar") [9]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLit") [10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CVar") [22]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLit") [23]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CSymbol") [24]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [25,26]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [27,28]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [29]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [30,31]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [32,33]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CSymbol") [34]) (Case  Rigid (Var 34) [Branch (Pattern ("Prelude","(,)") [35,36]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 35,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 36,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]])]),Branch (Pattern ("AbstractCurry","CVar") [37]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLit") [38]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [39,40]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [41,42]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [43]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [44,45]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [46,47]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isSimpleExpr") 1 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CVar") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CLit") [3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CSymbol") [4]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 6]])]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Case  Rigid (Comb FuncCall ("AbstractCurryPrinter","applicationHead") [Var 7]) [Branch (Pattern ("AbstractCurry","CSymbol") [9]) (Case  Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [10,11]) (Case  Rigid (Var 10) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 12,Lit (Charc  'P')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 14,Lit (Charc  'r')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 16,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 18,Lit (Charc  'l')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 20,Lit (Charc  'u')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 22,Lit (Charc  'd')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 24,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("AbstractCurryPrinter","isTuple") [Var 11]]]]),Branch (Pattern ("Prelude",":") [26,27]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") [])])]),Branch (Pattern ("AbstractCurry","CVar") [28]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLit") [29]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CApply") [30,31]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [32,33]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [34,35]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [36]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [37,38]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [39,40]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("AbstractCurry","CLambda") [41,42]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [43,44]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [45]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [46,47]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [48,49]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isAtom") 1 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CVar") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CLit") [3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("AbstractCurry","CSymbol") [4]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AbstractCurryPrinter","isInfixOpName") [],Var 6]])]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLambda") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CLetDecl") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CDoExpr") [13]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CListComp") [14,15]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CCase") [16,17]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isUntyped") 1 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("AbstractCurry","CTCons") [2,3]) (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb ConsCall ("Prelude","False") [])])]),Branch (Pattern ("AbstractCurry","CTVar") [8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("AbstractCurry","CFuncType") [9,10]) (Comb ConsCall ("Prelude","False") [])])),Func ("AbstractCurryPrinter","isTuple") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '(')],Comb FuncCall ("AbstractCurryPrinter","isTuple.p1_isTuple.492") [Var 3]])])),Func ("AbstractCurryPrinter","isTuple.p1_isTuple.492") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  ')')]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  ',')],Comb FuncCall ("AbstractCurryPrinter","isTuple.p1_isTuple.492") [Comb ConsCall ("Prelude",":") [Var 4,Var 5]]])])])),Func ("AbstractCurryPrinter","infixIDs") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  '~'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude",":") [Lit (Charc  '@'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude",":") [Lit (Charc  '$'),Comb ConsCall ("Prelude",":") [Lit (Charc  '%'),Comb ConsCall ("Prelude",":") [Lit (Charc  '^'),Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '*'),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]])),Func ("AbstractCurryPrinter","maybeShowBrackets") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])],Comb FuncCall ("Prelude","++") [Var 2,Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])]]])),Func ("AbstractCurryPrinter","nameFM") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("AbstractCurryPrinter","addName") [],Comb FuncCall ("FiniteMap","emptyFM") [Comb (FuncPartCall 2) ("AbstractCurryPrinter","lessString") []]])),Func ("AbstractCurryPrinter","addName") 2 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]) (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("AbstractCurry","CFunc") [3,4,5,6,7]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("FiniteMap","addToFM") [Var 2,Var 9,Comb ConsCall ("Prelude","()") []])]),Branch (Pattern ("AbstractCurry","CmtFunc") [10,11,12,13,14,15]) (Case  Flex (Var 11) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("FiniteMap","addToFM") [Var 2,Var 17,Comb ConsCall ("Prelude","()") []])])])),Func ("AbstractCurryPrinter","lessString") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","==") [Comb ConsCall ("Prelude","LT") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Sort","cmpString") [],Var 1],Var 2]]))] []
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.fint view
@@ -0,0 +1,1 @@+Prog "AbstractCurryPrinter" ["AbstractCurry","Char","FiniteMap","List","Maybe","Prelude","Sort","Read"] [TypeSyn ("AbstractCurryPrinter","NameFM") Private [] (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]),TypeSyn ("AbstractCurryPrinter","Options") Private [] (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])] [Func ("AbstractCurryPrinter","showProg") 1 Public (FuncType (TCons ("AbstractCurry","CurryProg") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showTypeDecls") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showTypeDecl") 1 Public (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showTypeExpr") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showFuncDecl") 0 Public (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showExpr") 0 Public (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("AbstractCurryPrinter","showPattern") 1 Public (FuncType (TCons ("AbstractCurry","CPattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/AbstractCurryPrinter.uacy view
@@ -0,0 +1,79 @@+CurryProg "AbstractCurryPrinter"+ ["Prelude","AbstractCurry","List","Read","Char","FiniteMap","Sort","Maybe"]+ [CTypeSyn ("AbstractCurryPrinter","NameFM") Private [] (CTCons ("FiniteMap","FM") [CTCons ("Prelude","String") [],CTCons ("Prelude","()") []]),+  CTypeSyn ("AbstractCurryPrinter","Options") Private [] (CTCons ("Prelude","(,)") [CTCons ("AbstractCurryPrinter","NameFM") [],CTCons ("Prelude","String") []])]+ [CFunc ("AbstractCurryPrinter","addName") 2 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CFuncType (CTCons ("AbstractCurryPrinter","NameFM") []) (CTCons ("AbstractCurryPrinter","NameFM") []))) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"n")],CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_")],CPVar (6,"fm")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FiniteMap","addToFM")) (CVar (6,"fm"))) (CVar (1,"n"))) (CSymbol ("Prelude","()")))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (7,"_"),CPComb ("Prelude","(,)") [CPVar (8,"_"),CPVar (9,"n")],CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")],CPVar (14,"fm")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FiniteMap","addToFM")) (CVar (14,"fm"))) (CVar (9,"n"))) (CSymbol ("Prelude","()")))] []]),+  CFunc ("AbstractCurryPrinter","applicationHead") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("AbstractCurry","CExpr") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (1,"func"),CPVar (2,"_")]) (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (1,"func"))),CBranch (CPVar (3,"_")) (CVar (0,"expr"))])] []]),+  CFunc ("AbstractCurryPrinter","combineMap") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") [],CPVar (1,"_")] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (2,"f"),CPComb ("Prelude",":") [CPVar (3,"x"),CPVar (4,"xs")],CPVar (5,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (2,"f")) (CVar (3,"x")))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CVar (2,"f"))) (CVar (4,"xs"))) (CVar (5,"s"))))] []]),+  CFunc ("AbstractCurryPrinter","defaultOptions") 0 Private (CTCons ("AbstractCurryPrinter","Options") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("FiniteMap","emptyFM")) (CSymbol ("AbstractCurryPrinter","lessString")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","dropTags") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"x"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPLit (CCharc '"')) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("AbstractCurryPrinter","dropTags"))) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","tail"))) (CApply (CApply (CSymbol ("Prelude","dropWhile")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (2,"x0"))) (CLit (CCharc '"'))))) (CVar (1,"xs"))))),CBranch (CPLit (CCharc '>')) (CVar (1,"xs")),CBranch (CPVar (3,"_")) (CApply (CSymbol ("AbstractCurryPrinter","dropTags")) (CVar (1,"xs")))])] []]),+  CFunc ("AbstractCurryPrinter","funcComment") 0 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","unlines"))) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","map")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CVar (0,"x0")))))) (CSymbol ("Prelude","lines"))))] []]),+  CFunc ("AbstractCurryPrinter","infixIDs") 0 Private (CTCons ("Prelude","String") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","isAsPattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"p")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"p")) [CBranch (CPComb ("AbstractCurry","CPAs") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isAtom") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CVar") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CLit") [CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")]]) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","not"))) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (4,"name")))),CBranch (CPVar (5,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isCFuncType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"t")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"t")) [CBranch (CPComb ("AbstractCurry","CFuncType") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isCharPattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"p")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"p")) [CBranch (CPComb ("AbstractCurry","CPLit") [CPComb ("AbstractCurry","CCharc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isClosedList") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")]],CPVar (3,"_")],CPVar (4,"tail")]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("AbstractCurryPrinter","isClosedList")) (CVar (4,"tail"))))),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (5,"mod"),CPVar (6,"name")]]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),CBranch (CPVar (7,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isClosedPatternList") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"_"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (1,"xs")))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPVar (3,"_"),CPVar (4,"p")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (4,"p")))] []]),+  CFunc ("AbstractCurryPrinter","isClosedStringPattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"x"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isCharPattern")) (CVar (0,"x")))) (CApply (CSymbol ("AbstractCurryPrinter","isClosedStringPattern")) (CVar (1,"xs"))))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("AbstractCurryPrinter","isInfixOpName") 0 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","all")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"x0"))) (CSymbol ("AbstractCurryPrinter","infixIDs")))))] []]),+  CFunc ("AbstractCurryPrinter","isSimpleExpr") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"expr")) [CBranch (CPComb ("AbstractCurry","CVar") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CLit") [CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")]]) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","not"))) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (4,"name")))),CBranch (CPComb ("AbstractCurry","CApply") [CPVar (5,"f"),CPVar (6,"_")]) (CCase (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (5,"f"))) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPVar (7,"name")]]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (7,"name")))))),CBranch (CPVar (8,"_")) (CSymbol ("Prelude","False"))]),CBranch (CPVar (9,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isStringList") 1 Private (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CVar") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("AbstractCurry","CApply") [CPVar (3,"head"),CPVar (4,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"head")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (5,"_"),CPComb ("AbstractCurry","CLit") [CPComb ("AbstractCurry","CCharc") [CPVar (6,"_")]]]) (CApply (CSymbol ("AbstractCurryPrinter","isStringList")) (CVar (4,"tail"))),CBranch (CPVar (7,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","isTuple") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"x"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"x"))) (CLit (CCharc '(')))) (CApply (CSymbol ("AbstractCurryPrinter","p1_isTuple")) (CVar (1,"xs"))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","p1_isTuple") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPVar (2,"z"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"z"))) (CLit (CCharc ')')))] [],CRule [CPComb ("Prelude",":") [CPVar (3,"z1"),CPComb ("Prelude",":") [CPVar (4,"z2"),CPVar (5,"zs")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"z1"))) (CLit (CCharc ',')))) (CApply (CSymbol ("AbstractCurryPrinter","p1_isTuple")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"z2"))) (CVar (5,"zs")))))] []]))]]),+  CFunc ("AbstractCurryPrinter","isUntyped") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"typeexpr")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"typeexpr")) [CBranch (CPComb ("AbstractCurry","CTCons") [CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]"))))))))))),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("AbstractCurryPrinter","lessString") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"s1"),CPVar (1,"s2")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Prelude","LT"))) (CApply (CApply (CSymbol ("Sort","cmpString")) (CVar (0,"s1"))) (CVar (1,"s2"))))] []]),+  CFunc ("AbstractCurryPrinter","maybeShowBrackets") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","nameFM") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []]) (CTCons ("AbstractCurryPrinter","NameFM") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("AbstractCurryPrinter","addName"))) (CApply (CSymbol ("FiniteMap","emptyFM")) (CSymbol ("AbstractCurryPrinter","lessString"))))] []]),+  CFunc ("AbstractCurryPrinter","prefixInter") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"xs"),CPVar (2,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","concat"))) (CApply (CApply (CSymbol ("List","intersperse")) (CVar (2,"s"))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))) (CVar (1,"xs")))))] []]),+  CFunc ("AbstractCurryPrinter","prefixMap") 3 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"xs"),CPVar (2,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("Prelude","++")) (CVar (2,"s")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))) (CVar (1,"xs"))))] []]),+  CFunc ("AbstractCurryPrinter","showApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CCase (CApply (CSymbol ("AbstractCurryPrinter","applicationHead")) (CVar (1,"appl"))) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (2,"name")]) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbolApplication")) (CVar (0,"opts"))) (CVar (2,"name"))) (CVar (1,"appl"))),CBranch (CPVar (3,"_")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))])] []]),+  CFunc ("AbstractCurryPrinter","showAsPatternList") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPAs") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"p")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (2,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("AbstractCurryPrinter","showBlock") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"text")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CSymbol ("Prelude","/=")) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","lines")) (CVar (0,"text")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("AbstractCurryPrinter","showBoxedExpr") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"expr")] [(CApply (CSymbol ("AbstractCurryPrinter","isSimpleExpr")) (CVar (1,"expr")),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showBranchExpr") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CBranchExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CBranch") [CPVar (1,"pattern"),CPVar (2,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (1,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr")))))] []]),+  CFunc ("AbstractCurryPrinter","showCCharc") 1 Private (CFuncType (CTCons ("AbstractCurry","CLiteral") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCharc") [CPVar (0,"c")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\r')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\\')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showCharListApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPComb ("AbstractCurry","CLit") [CPVar (2,"c")]],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CVar (2,"c"))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CVar (2,"c")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCharListApplication")) (CVar (0,"opts"))) (CVar (3,"tail"))))])] []]),+  CFunc ("AbstractCurryPrinter","showCmtFunc") 3 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"cmt"),CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"typeexpr"),CPComb ("AbstractCurry","CRules") [CPVar (7,"evalannot"),CPVar (8,"rules")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","funcComment")) (CVar (1,"cmt")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"evalannot"))) (CSymbol ("AbstractCurry","CFlex")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showEvalAnnot")) (CVar (7,"evalannot")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isUntyped")) (CVar (6,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (6,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (9,"funcIsInfixOp"))) (CVar (11,"rulePrints"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CApply (CSymbol ("AbstractCurryPrinter","showRule")) (CVar (0,"opts")))) (CVar (8,"rules"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CVar (3,"name")))))))))] [CLocalPat (CPVar (9,"funcIsInfixOp")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (3,"name"))) [],CLocalPat (CPVar (10,"bolName")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (9,"funcIsInfixOp"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (3,"name"))) [],CLocalPat (CPVar (11,"rulePrints")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","concat"))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("AbstractCurryPrinter","insertName"))) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","span")) (CLambda [CPVar (12,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (12,"x0"))) (CLit (CCharc ' ')))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","tail"))) (CApply (CSymbol ("AbstractCurryPrinter","showRule")) (CVar (0,"opts"))))))) (CVar (8,"rules"))))) [],CLocalFunc (CFunc ("AbstractCurryPrinter","insertName") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (13,"fstArg"),CPVar (14,"rest")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (13,"fstArg"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CVar (14,"rest")))))] []]))],CRule [CPVar (13,"_"),CPVar (14,"cmt"),CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (15,"_"),CPVar (16,"name")],CPVar (17,"_"),CPVar (18,"_"),CPVar (19,"typeexpr"),CPComb ("AbstractCurry","CExternal") [CPVar (20,"_")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","funcComment")) (CVar (14,"cmt")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"bolName"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (19,"typeexpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"bolName"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))))))))))))))] [CLocalPat (CPVar (21,"bolName")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (16,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (16,"name"))) []]]),+  CFunc ("AbstractCurryPrinter","showConsDecl") 1 Private (CFuncType (CTCons ("AbstractCurry","CConsDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCons") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"typelist")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CVar (4,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showConsListApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPVar (2,"head")],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head"))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showConsListApplication")) (CVar (0,"opts"))) (CVar (3,"tail")))))])] []]),+  CFunc ("AbstractCurryPrinter","showCrhs") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("Prelude","(,)") [CPVar (1,"cond"),CPVar (2,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"cond")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr"))))))] []]),+  CFunc ("AbstractCurryPrinter","showCrhsList") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("AbstractCurry","CExpr") [],CTCons ("AbstractCurry","CExpr") []]]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (1,"opts"),CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPVar (2,"g"),CPVar (3,"r")],CPVar (4,"cs")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cs"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"g"))) (CApply (CSymbol ("AbstractCurry","CSymbol")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (1,"opts"))) (CVar (3,"r")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showCrhs")) (CVar (1,"opts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"g"))) (CVar (3,"r")))) (CVar (4,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showEvalAnnot") 1 Private (CFuncType (CTCons ("AbstractCurry","CEvalAnnot") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFlex") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CRigid") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("AbstractCurry","CChoice") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showExports") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CFuncDecl") []]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"types"),CPVar (1,"funcs")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"publicTypes")) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicType"))) (CVar (0,"types"))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"withCons"),CPVar (4,"withoutCons")]) (CApply (CApply (CSymbol ("List","partition")) (CSymbol ("AbstractCurryPrinter","allPublicCons"))) (CVar (2,"publicTypes"))) []] (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (5,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"x0"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("AbstractCurryPrinter","getTypeName")))) (CVar (3,"withCons")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurryPrinter","getTypeName"))) (CVar (4,"withoutCons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurryPrinter","getFuncName"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicFunc"))) (CVar (1,"funcs")))))))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicType") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPVar (2,"_"),CPVar (3,"visibility"),CPVar (4,"_"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"visibility"))) (CSymbol ("AbstractCurry","Public")))] [],CRule [CPComb ("AbstractCurry","CTypeSyn") [CPVar (6,"_"),CPVar (7,"visibility"),CPVar (8,"_"),CPVar (9,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicFunc") 1 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"visibility"),CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"visibility"))) (CSymbol ("AbstractCurry","Public")))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (7,"_"),CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"visibility"),CPVar (11,"_"),CPVar (12,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","getTypeName") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"name"))] [],CRule [CPComb ("AbstractCurry","CTypeSyn") [CPComb ("Prelude","(,)") [CPVar (7,"_"),CPVar (8,"name")],CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_")]] [(CSymbol ("Prelude","success"),CVar (8,"name"))] []])),CLocalFunc (CFunc ("AbstractCurryPrinter","allPublicCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CType") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CApply (CApply (CSymbol ("Prelude","filter")) (CSymbol ("AbstractCurryPrinter","isPublicCons"))) (CVar (5,"c"))))) (CApply (CSymbol ("Prelude","length")) (CVar (5,"c"))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","isPublicCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CConsDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CCons") [CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"visibility"),CPVar (9,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"visibility"))) (CSymbol ("AbstractCurry","Public")))] []]))]])),CLocalFunc (CFunc ("AbstractCurryPrinter","getFuncName") 1 Private (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CFunc") [CPComb ("Prelude","(,)") [CPVar (2,"_"),CPVar (3,"name")],CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"name"))] [],CRule [CPComb ("AbstractCurry","CmtFunc") [CPVar (8,"_"),CPComb ("Prelude","(,)") [CPVar (9,"_"),CPVar (10,"name")],CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_")]] [(CSymbol ("Prelude","success"),CVar (10,"name"))] []]))]]),+  CFunc ("AbstractCurryPrinter","showExpr") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CSymbol ("AbstractCurryPrinter","defaultOptions")))] []]),+  CFunc ("AbstractCurryPrinter","showExprOpt") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("AbstractCurry","CVar") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (2,"name")))] [],CRule [CPVar (3,"_"),CPComb ("AbstractCurry","CLit") [CPVar (4,"lit")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showLiteral")) (CVar (4,"lit")))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CSymbol") [CPVar (6,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CApply (CSymbol ("Prelude","snd")) (CVar (6,"name"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (5,"opts"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (5,"opts"))) (CVar (6,"name"))))] [],CRule [CPVar (7,"opts"),CPComb ("AbstractCurry","CApply") [CPVar (8,"func"),CPVar (9,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showApplication")) (CVar (7,"opts"))) (CApply (CApply (CSymbol ("AbstractCurry","CApply")) (CVar (8,"func"))) (CVar (9,"arg"))))] [],CRule [CPVar (10,"opts"),CPComb ("AbstractCurry","CLambda") [CPVar (11,"patts"),CPVar (12,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambdaOrSection")) (CVar (10,"opts"))) (CVar (11,"patts"))) (CVar (12,"expr")))] [],CRule [CPVar (13,"opts"),CPComb ("AbstractCurry","CLetDecl") [CPVar (14,"localdecls"),CPVar (15,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (13,"opts")))) (CVar (14,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (13,"opts"))) (CVar (15,"expr")))))))] [],CRule [CPVar (16,"opts"),CPComb ("AbstractCurry","CDoExpr") [CPVar (17,"stmts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showStatement")) (CVar (16,"opts")))) (CVar (17,"stmts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPVar (18,"opts"),CPComb ("AbstractCurry","CListComp") [CPVar (19,"expr"),CPVar (20,"stmts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (18,"opts"))) (CVar (19,"expr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showStatement")) (CVar (18,"opts")))) (CVar (20,"stmts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPVar (21,"opts"),CPComb ("AbstractCurry","CCase") [CPVar (22,"expr"),CPVar (23,"branches")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (21,"opts"))) (CVar (22,"expr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showBranchExpr")) (CVar (21,"opts")))) (CVar (23,"branches"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showFixity") 1 Private (CFuncType (CTCons ("AbstractCurry","CFixity") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CInfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("AbstractCurry","CInfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("AbstractCurry","CInfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showFuncDecl") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CSymbol ("AbstractCurryPrinter","defaultOptions")))] []]),+  CFunc ("AbstractCurryPrinter","showFuncDeclOpt") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CmtFunc") [CPVar (1,"cmt"),CPVar (2,"qname"),CPVar (3,"ar"),CPVar (4,"vis"),CPVar (5,"typeexpr"),CPVar (6,"rules")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCmtFunc")) (CVar (0,"opts"))) (CVar (1,"cmt"))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("AbstractCurry","CFunc")) (CVar (2,"qname"))) (CVar (3,"ar"))) (CVar (4,"vis"))) (CVar (5,"typeexpr"))) (CVar (6,"rules"))))] [],CRule [CPVar (7,"opts"),CPAs (13,"cfunc") (CPComb ("AbstractCurry","CFunc") [CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCmtFunc")) (CVar (7,"opts"))) (CSymbol ("Prelude","[]"))) (CVar (13,"cfunc")))] []]),+  CFunc ("AbstractCurryPrinter","showITEApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPVar (1,"_")],CPVar (2,"condExpr")],CPVar (3,"thenExpr")],CPVar (4,"elseExpr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"condExpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (3,"thenExpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (4,"elseExpr"))))))))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CApply") [CPAs (10,"e") (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (6,"_"),CPVar (7,"_")],CPVar (8,"_")],CPVar (9,"_")]),CPVar (11,"e'")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showITEApplication")) (CVar (5,"opts"))) (CVar (10,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (5,"opts"))) (CVar (11,"e'"))))))] []]),+  CFunc ("AbstractCurryPrinter","showIdentifier") 0 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","elem"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("AbstractCurryPrinter","showImport") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"imp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (0,"imp"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CVar (0,"imp")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showImports") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"imports")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showImport"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (1,"x0"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CVar (0,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"imports"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showInfixApplication") 3 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","QName") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"infixop"),CPComb ("AbstractCurry","CApply") [CPVar (2,"func"),CPVar (3,"arg2")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"func")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (4,"_"),CPVar (5,"arg1")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (5,"arg1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (0,"opts"))) (CVar (1,"infixop")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg2"))))))),CBranch (CPVar (6,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSymbol")) (CVar (0,"opts"))) (CVar (1,"infixop")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg2"))))))])] []]),+  CFunc ("AbstractCurryPrinter","showLambda") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"patts"),CPVar (2,"expr")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (1,"patts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (2,"expr"))))))] []]),+  CFunc ("AbstractCurryPrinter","showLambdaOrSection") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"patts"),CPVar (2,"expr")] [(CSymbol ("Prelude","success"),CCase (CVar (1,"patts")) [CBranch (CPComb ("Prelude",":") [CPComb ("AbstractCurry","CPVar") [CPVar (3,"pvar")],CPComb ("Prelude","[]") []]) (CCase (CVar (2,"expr")) [CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (4,"_"),CPVar (5,"name")]],CPVar (6,"lexpr")],CPComb ("AbstractCurry","CVar") [CPVar (7,"var")]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (5,"name")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isAtom")) (CVar (6,"lexpr")))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (7,"var")))) (CVar (6,"lexpr")))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"pvar"))) (CVar (7,"var")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (6,"lexpr")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"lexpr"))) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (3,"pvar"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (7,"var"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))),CBranch (CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (8,"_"),CPVar (9,"name")]],CPComb ("AbstractCurry","CVar") [CPVar (10,"var")]],CPVar (11,"rexpr")]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (9,"name")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"pvar"))) (CVar (10,"var")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("AbstractCurryPrinter","isAtom")) (CVar (11,"rexpr")))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("AbstractCurry","CVar")) (CVar (10,"var")))) (CVar (11,"rexpr"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (9,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (11,"rexpr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))),CBranch (CPVar (12,"_")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))]),CBranch (CPVar (13,"_")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLambda")) (CVar (0,"opts"))) (CVar (1,"patts"))) (CVar (2,"expr")))])] []]),+  CFunc ("AbstractCurryPrinter","showListApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CApply (CSymbol ("AbstractCurryPrinter","isStringList")) (CVar (1,"appl")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCharListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isClosedList")) (CVar (1,"appl")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showConsListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleListApplication")) (CVar (0,"opts"))) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showLiteral") 1 Private (CFuncType (CTCons ("AbstractCurry","CLiteral") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CIntc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("AbstractCurry","CFloatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("AbstractCurry","CCharc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showCCharc")) (CApply (CSymbol ("AbstractCurry","CCharc")) (CVar (2,"c"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showLocalDecl") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CLocalDecl") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CLocalFunc") [CPVar (1,"funcdecl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showLocalFuncDecl")) (CVar (0,"opts"))) (CVar (1,"funcdecl")))] [],CRule [CPVar (2,"opts"),CPComb ("AbstractCurry","CLocalPat") [CPVar (3,"pattern"),CPVar (4,"expr"),CPVar (5,"localdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (3,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (2,"opts"))) (CVar (4,"expr")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (5,"localdecls")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (2,"opts")))) (CVar (5,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPVar (6,"_"),CPComb ("AbstractCurry","CLocalVar") [CPVar (7,"index")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CSymbol ("AbstractCurry","CPVar")) (CVar (7,"index"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("AbstractCurryPrinter","showLocalFuncDecl") 1 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CFuncDecl") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CVar (0,"opts")))] []]),+  CFunc ("AbstractCurryPrinter","showOpDecl") 1 Private (CFuncType (CTCons ("AbstractCurry","COpDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","COp") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"fixity"),CPVar (3,"precedence")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showFixity")) (CVar (2,"fixity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"precedence")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("AbstractCurryPrinter","isInfixOpName")) (CVar (1,"name")))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showOpDecls") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","COpDecl") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"opdecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showOpDecl"))) (CVar (0,"opdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"opdecls"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showPatListElems") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (0,"x"),CPComb ("Prelude",":") [CPVar (1,"xs"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (0,"x")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (1,"xs"))))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("AbstractCurry","CPVar") [CPVar (2,"v")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CSymbol ("AbstractCurry","CPVar")) (CVar (2,"v"))))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPVar (3,"name"),CPVar (4,"p")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CApply (CSymbol ("AbstractCurry","CPAs")) (CVar (3,"name"))) (CVar (4,"p"))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("AbstractCurryPrinter","showPattern") 1 Public (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CPVar") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (1,"name")))] [],CRule [CPComb ("AbstractCurry","CPLit") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showLiteral")) (CVar (2,"lit")))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (3,"_"),CPVar (4,"name")],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CVar (4,"name"))] [],CRule [CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (5,"mod"),CPVar (6,"name")],CPComb ("Prelude",":") [CPVar (7,"p"),CPVar (8,"ps")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))),CApply (CSymbol ("AbstractCurryPrinter","showPreludeCons")) (CApply (CApply (CSymbol ("AbstractCurry","CPComb")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (5,"mod"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"p"))) (CVar (8,"ps"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"p"))) (CVar (8,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("AbstractCurry","CPAs") [CPComb ("Prelude","(,)") [CPVar (9,"_"),CPVar (10,"name")],CPVar (11,"pat")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (10,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (11,"pat")))))] [],CRule [CPComb ("AbstractCurry","CPFuncComb") [CPVar (12,"qname"),CPVar (13,"pats")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CApply (CApply (CSymbol ("AbstractCurry","CPComb")) (CVar (12,"qname"))) (CVar (13,"pats"))))] []]),+  CFunc ("AbstractCurryPrinter","showPatternList") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"p")] [(CApply (CSymbol ("AbstractCurryPrinter","isClosedStringPattern")) (CVar (0,"p")),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (1,"x0"))) (CLit (CCharc '\''))))) (CApply (CSymbol ("Prelude","concat")) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isClosedPatternList")) (CVar (0,"p")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isAsPattern")) (CVar (0,"p")),CApply (CSymbol ("AbstractCurryPrinter","showAsPatternList")) (CVar (0,"p"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showPatListElems")) (CVar (0,"p")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showPreludeCons") 1 Private (CFuncType (CTCons ("AbstractCurry","CPattern") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"p")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))),CApply (CSymbol ("AbstractCurryPrinter","showPatternList")) (CVar (0,"p"))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (2,"name")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (3,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (3,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalPat (CPComb ("AbstractCurry","CPComb") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")],CPVar (3,"pattlist")]) (CVar (0,"p")) []]]),+  CFunc ("AbstractCurryPrinter","showPreludeTypeCons") 2 Private (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"typelist")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"typelist")))) (CApply (CApply (CSymbol ("AbstractCurry","CTCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (1,"typelist"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (0,"name")),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CVar (1,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CVar (1,"typelist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showProg") 1 Public (CFuncType (CTCons ("AbstractCurry","CurryProg") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CurryProg") [CPVar (0,"m"),CPVar (1,"imports"),CPVar (2,"typedecls"),CPVar (3,"funcdecls"),CPVar (4,"opdecls")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (5,"exports")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExports")) (CVar (2,"typedecls"))) (CVar (3,"funcdecls"))) []] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"m"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"exports"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"exports"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showImports")) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showOpDecls")) (CVar (4,"opdecls")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeDecls")) (CVar (2,"typedecls")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CApply (CSymbol ("AbstractCurryPrinter","showFuncDeclOpt")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("AbstractCurryPrinter","nameFM")) (CVar (3,"funcdecls")))) (CVar (0,"m"))))) (CVar (3,"funcdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showRule") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CRule") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CRule") [CPVar (1,"pattlist"),CPVar (2,"crhslist"),CPVar (3,"localdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CSymbol ("AbstractCurryPrinter","showPattern"))) (CVar (1,"pattlist"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showCrhsList")) (CVar (0,"opts"))) (CVar (2,"crhslist")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (3,"localdecls")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (0,"opts")))) (CVar (3,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("AbstractCurryPrinter","showSimpleApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CCase (CVar (1,"appl")) [CBranch (CPComb ("AbstractCurry","CApply") [CPVar (2,"func"),CPVar (3,"arg")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (2,"func")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"arg"))))),CBranch (CPVar (4,"_")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (1,"appl")))])] []]),+  CFunc ("AbstractCurryPrinter","showSimpleListApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (1,"_"),CPVar (2,"head")],CPVar (3,"tail")]] [(CSymbol ("Prelude","success"),CCase (CVar (3,"tail")) [CBranch (CPComb ("AbstractCurry","CSymbol") [CPVar (4,"_")]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),CBranch (CPVar (5,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (2,"head")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (0,"opts"))) (CVar (3,"tail")))))])] [],CRule [CPVar (6,"opts"),CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPComb ("Prelude","(,)") [CPVar (7,"_"),CPVar (8,"str")]],CPVar (9,"tail")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showBoxedExpr")) (CVar (6,"opts"))) (CVar (9,"tail")))) (CVar (8,"str")))] []]),+  CFunc ("AbstractCurryPrinter","showStatement") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CStatement") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("AbstractCurry","CSExpr") [CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (1,"expr")))] [],CRule [CPVar (2,"opts"),CPComb ("AbstractCurry","CSPat") [CPVar (3,"pattern"),CPVar (4,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","showPattern")) (CVar (3,"pattern")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (2,"opts"))) (CVar (4,"expr")))))] [],CRule [CPVar (5,"opts"),CPComb ("AbstractCurry","CSLet") [CPVar (6,"localdecls")]] [(CSymbol ("Prelude","success"),CCase (CVar (6,"localdecls")) [CBranch (CPComb ("Prelude",":") [CPVar (7,"decl"),CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (5,"opts"))) (CVar (7,"decl")))),CBranch (CPVar (8,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CApply (CSymbol ("AbstractCurryPrinter","showLocalDecl")) (CVar (5,"opts")))) (CVar (6,"localdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))])] []]),+  CFunc ("AbstractCurryPrinter","showSymbol") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","QName") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"fm"),CPVar (1,"thisModule")],CPComb ("Prelude","(,)") [CPVar (2,"thatModule"),CPVar (3,"symName")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"thisModule"))) (CVar (2,"thatModule")),CVar (3,"symName")),(CApply (CSymbol ("Maybe","isJust")) (CApply (CApply (CSymbol ("FiniteMap","lookupFM")) (CVar (0,"fm"))) (CVar (3,"symName"))),CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"thatModule"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))) (CVar (3,"symName")))),(CSymbol ("Prelude","otherwise"),CVar (3,"symName"))] []]),+  CFunc ("AbstractCurryPrinter","showSymbolApplication") 3 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"opts"),CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")],CPVar (3,"appl")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showListApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showITEApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CApply (CSymbol ("AbstractCurryPrinter","isTuple")) (CVar (2,"name")),CApply (CApply (CSymbol ("AbstractCurryPrinter","showTupleApplication")) (CVar (0,"opts"))) (CVar (3,"appl"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showSimpleApplication")) (CVar (0,"opts"))) (CVar (3,"appl")))] []]),+  CFunc ("AbstractCurryPrinter","showTupleApplication") 2 Private (CFuncType (CTCons ("AbstractCurryPrinter","Options") []) (CFuncType (CTCons ("AbstractCurry","CExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"opts"),CPVar (1,"appl")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","p_showTuple")) (CVar (1,"appl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [CLocalFunc (CFunc ("AbstractCurryPrinter","p_showTuple") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CSymbol") [CPVar (2,"_")],CPVar (3,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (3,"arg")))] [],CRule [CPComb ("AbstractCurry","CApply") [CPComb ("AbstractCurry","CApply") [CPVar (4,"e1"),CPVar (5,"e2")],CPVar (6,"arg")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("AbstractCurryPrinter","p_showTuple")) (CApply (CApply (CSymbol ("AbstractCurry","CApply")) (CVar (4,"e1"))) (CVar (5,"e2"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showExprOpt")) (CVar (0,"opts"))) (CVar (6,"arg")))))] []]))]]),+  CFunc ("AbstractCurryPrinter","showTypeCons") 3 Private (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeExpr") []]) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"name"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (1,"name"))] [],CRule [CPVar (2,"mod"),CPVar (3,"name"),CPComb ("Prelude",":") [CPVar (4,"t"),CPVar (5,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))),CApply (CApply (CSymbol ("AbstractCurryPrinter","showPreludeTypeCons")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"t"))) (CVar (5,"ts")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"name"))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","True")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"t"))) (CVar (5,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeDecl") 1 Public (CFuncType (CTCons ("AbstractCurry","CTypeDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("AbstractCurry","CTypeSyn") [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")],CPVar (2,"_"),CPVar (3,"indexlist"),CPVar (4,"typeexpr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurry","CTVar"))) (CVar (3,"indexlist")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (4,"typeexpr")))))))] [],CRule [CPComb ("AbstractCurry","CType") [CPComb ("Prelude","(,)") [CPVar (5,"_"),CPVar (6,"name")],CPVar (7,"_"),CPVar (8,"indexlist"),CPVar (9,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixMap")) (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("AbstractCurry","CTVar"))) (CVar (8,"indexlist")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("AbstractCurryPrinter","showBlock")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","combineMap")) (CSymbol ("AbstractCurryPrinter","showConsDecl"))) (CVar (9,"consdecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeDecls") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("AbstractCurry","CTypeDecl") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"typedecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","prefixInter")) (CSymbol ("AbstractCurryPrinter","showTypeDecl"))) (CVar (0,"typedecls"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"typedecls"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeExpr") 2 Public (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("AbstractCurry","CTypeExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("AbstractCurry","CTVar") [CPComb ("Prelude","(,)") [CPVar (1,"_"),CPVar (2,"name")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("AbstractCurryPrinter","showTypeVar")) (CApply (CSymbol ("AbstractCurryPrinter","showIdentifier")) (CVar (2,"name"))))] [],CRule [CPVar (3,"nested"),CPComb ("AbstractCurry","CFuncType") [CPVar (4,"domain"),CPVar (5,"range")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("AbstractCurryPrinter","maybeShowBrackets")) (CVar (3,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CApply (CSymbol ("AbstractCurryPrinter","isCFuncType")) (CVar (4,"domain")))) (CVar (4,"domain")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeExpr")) (CSymbol ("Prelude","False"))) (CVar (5,"range"))))))] [],CRule [CPVar (6,"nested"),CPComb ("AbstractCurry","CTCons") [CPComb ("Prelude","(,)") [CPVar (7,"mod"),CPVar (8,"name")],CPVar (9,"typelist")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("AbstractCurryPrinter","maybeShowBrackets")) (CApply (CApply (CSymbol ("Prelude","&&")) (CVar (6,"nested"))) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (9,"typelist")))))) (CApply (CApply (CApply (CSymbol ("AbstractCurryPrinter","showTypeCons")) (CVar (7,"mod"))) (CVar (8,"name"))) (CVar (9,"typelist"))))] []]),+  CFunc ("AbstractCurryPrinter","showTypeVar") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc 'a')))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("Char","isDigit"))) (CVar (1,"cs")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))))] []])]+ []
+ src/lib/Curry/Module/.curry/CompactFlatCurry.acy view
@@ -0,0 +1,51 @@+CurryProg "CompactFlatCurry"+ ["Prelude","FlatCurry","SetRBT","TableRBT","Maybe","List","FileGoodies","Directory","Sort","XML","Distribution","Time"]+ [CType ("CompactFlatCurry","Option") Public [] [CCons ("CompactFlatCurry","Verbose") 0 Public [],CCons ("CompactFlatCurry","Main") 1 Public [CTCons ("Prelude","String") []],CCons ("CompactFlatCurry","Exports") 0 Public [],CCons ("CompactFlatCurry","InitFuncs") 1 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []]],CCons ("CompactFlatCurry","Required") 1 Public [CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]],CCons ("CompactFlatCurry","Import") 1 Public [CTCons ("Prelude","String") []]],+  CType ("CompactFlatCurry","RequiredSpec") Public [] [CCons ("CompactFlatCurry","AlwaysReq") 1 Private [CTCons ("FlatCurry","QName") []],CCons ("CompactFlatCurry","Requires") 2 Private [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","QName") []]]]+ [CFunc ("CompactFlatCurry","addImport2Options") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []])) (CRules CFlex [CRule [CPVar (0,"options")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"options"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","Import"))) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","alwaysReqMod"))) (CApply (CSymbol ("CompactFlatCurry","getRequiredFromOptions")) (CVar (0,"options")))))))] [CLocalFunc (CFunc ("CompactFlatCurry","alwaysReqMod") 1 Private (CFuncType (CTCons ("CompactFlatCurry","RequiredSpec") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPComb ("Prelude","(,)") [CPVar (1,"m"),CPVar (2,"_")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"m"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("CompactFlatCurry","allConsOfExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cname"),CPVar (4,"exprs")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"ctype")) [CBranch (CPComb ("FlatCurry","ConsCall") []) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"cname"))) (CVar (5,"cnames"))),CBranch (CPComb ("FlatCurry","ConsPartCall") [CPVar (6,"_")]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"cname"))) (CVar (5,"cnames"))),CBranch (CPVar (7,"_")) (CVar (5,"cnames"))])] [CLocalPat (CPVar (5,"cnames")) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","allConsOfExpr"))) (CVar (4,"exprs"))) []],CRule [CPComb ("FlatCurry","Free") [CPVar (8,"_"),CPVar (9,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (9,"expr")))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (10,"bs"),CPVar (11,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","allConsOfExpr"))) (CSymbol ("Prelude","snd")))) (CVar (10,"bs")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (11,"expr"))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (12,"expr1"),CPVar (13,"expr2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (12,"expr1")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (13,"expr2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (14,"_"),CPVar (15,"expr"),CPVar (16,"branchExprs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (15,"expr")))) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","consOfBranch"))) (CVar (16,"branchExprs"))))] [CLocalFunc (CFunc ("CompactFlatCurry","consOfBranch") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (17,"_")],CPVar (18,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (18,"e")))] [],CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (19,"c"),CPVar (20,"_")],CPVar (21,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (19,"c"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (21,"e"))))] []]))]]),+  CFunc ("CompactFlatCurry","allConstructorsOfFunc") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","External") [CPVar (4,"_")]]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Func") [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Rule") [CPVar (9,"_"),CPVar (10,"expr")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (10,"expr")))] []]),+  CFunc ("CompactFlatCurry","allFuncCalls") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","External") [CPVar (4,"_")]]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Func") [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Rule") [CPVar (9,"_"),CPVar (10,"expr")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("List","nub")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (10,"expr"))))] []]),+  CFunc ("CompactFlatCurry","allFuncCallsOfBranchExpr") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"_"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (1,"expr")))] []]),+  CFunc ("CompactFlatCurry","allFuncCallsOfExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"fname"),CPVar (4,"exprs")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"ctype")) [CBranch (CPComb ("FlatCurry","FuncCall") []) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"fname"))) (CVar (5,"fnames"))),CBranch (CPComb ("FlatCurry","FuncPartCall") [CPVar (6,"_")]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"fname"))) (CVar (5,"fnames"))),CBranch (CPVar (7,"_")) (CVar (5,"fnames"))])] [CLocalPat (CPVar (5,"fnames")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr"))) (CVar (4,"exprs"))) []],CRule [CPComb ("FlatCurry","Free") [CPVar (8,"_"),CPVar (9,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (9,"expr")))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (10,"bs"),CPVar (11,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr"))) (CSymbol ("Prelude","snd")))) (CVar (10,"bs")))) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (11,"expr"))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (12,"expr1"),CPVar (13,"expr2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (12,"expr1")))) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (13,"expr2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (14,"_"),CPVar (15,"expr"),CPVar (16,"branchExprs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (15,"expr")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allFuncCallsOfBranchExpr"))) (CVar (16,"branchExprs"))))] []]),+  CFunc ("CompactFlatCurry","allTypesOfFunc") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"texp"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (3,"texp")))] []]),+  CFunc ("CompactFlatCurry","allTypesOfTExpr") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"texp1"),CPVar (2,"texp2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (1,"texp1")))) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (2,"texp2"))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"tcons"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"tcons"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","allTypesOfTExpr"))) (CVar (4,"args"))))] []]),+  CFunc ("CompactFlatCurry","alwaysRequired") 1 Public (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("CompactFlatCurry","RequiredSpec") [])) (CRules CFlex [CRule [CPVar (0,"fun")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","AlwaysReq")) (CVar (0,"fun")))] []]),+  CFunc ("CompactFlatCurry","computeCompactFlatCurry") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"orgoptions"),CPVar (1,"progname")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"options")) (CApply (CSymbol ("CompactFlatCurry","addImport2Options")) (CVar (0,"orgoptions"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","elem")) (CSymbol ("CompactFlatCurry","Exports"))) (CVar (2,"options")))) (CApply (CApply (CSymbol ("Prelude","any")) (CSymbol ("CompactFlatCurry","isMainOption"))) (CVar (2,"options"))))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))),CSPat (CPVar (3,"prog")) (CApply (CSymbol ("CompactFlatCurry","readCurrentFlatCurry")) (CVar (1,"progname"))),CSPat (CPVar (4,"resultprog")) (CApply (CApply (CSymbol ("CompactFlatCurry","makeCompactFlatCurry")) (CVar (3,"prog"))) (CVar (2,"options"))),CSExpr (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'z'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","length")) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (4,"resultprog"))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CVar (4,"resultprog")))])))] []]),+  CFunc ("CompactFlatCurry","consName") 1 Private (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","defaultRequired") 0 Public (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CSymbol ("Prelude","[]"))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CSymbol ("Prelude","[]"))))))))))))))))))] []]),+  CFunc ("CompactFlatCurry","defaultRequiredTypes") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CompactFlatCurry","exportedFuncNames") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPVar (0,"funs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_")]] (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPComb ("FlatCurry","Func") [CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"vis"),CPVar (9,"_"),CPVar (10,"_")]] (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"vis"))) (CSymbol ("FlatCurry","Public"))))) (CVar (0,"funs"))))] []]),+  CFunc ("CompactFlatCurry","extendFuncTable") 2 Private (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("FlatCurry","FuncDecl") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("FlatCurry","FuncDecl") []]]))) (CRules CFlex [CRule [CPVar (0,"ftable"),CPVar (1,"fdecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CLambda [CPVar (2,"f"),CPVar (3,"t")] (CApply (CApply (CApply (CSymbol ("TableRBT","updateRBT")) (CApply (CSymbol ("CompactFlatCurry","functionName")) (CVar (2,"f")))) (CVar (2,"f"))) (CVar (3,"t"))))) (CVar (0,"ftable"))) (CVar (1,"fdecls")))] []]),+  CFunc ("CompactFlatCurry","extendTConsWithConsType") 3 Private (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"tcons"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (1,"tcons"))] [],CRule [CPVar (2,"cnames"),CPVar (3,"tcons"),CPComb ("Prelude",":") [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"tname"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")],CPVar (8,"tds")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (2,"cnames"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (4,"tname"))) (CVar (3,"tcons")))) (CVar (8,"tds")))] [],CRule [CPVar (9,"cnames"),CPVar (10,"tcons"),CPComb ("Prelude",":") [CPComb ("FlatCurry","Type") [CPVar (11,"tname"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"cdecls")],CPVar (15,"tds")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (11,"tname"))) (CSymbol ("CompactFlatCurry","defaultRequiredTypes")))) (CApply (CApply (CSymbol ("Prelude","any")) (CLambda [CPVar (16,"cdecl")] (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CApply (CSymbol ("CompactFlatCurry","consName")) (CVar (16,"cdecl")))) (CVar (9,"cnames"))))) (CVar (14,"cdecls"))))) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (9,"cnames"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (11,"tname"))) (CVar (10,"tcons")))) (CVar (15,"tds")))) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (9,"cnames"))) (CVar (10,"tcons"))) (CVar (15,"tds"))))] []]),+  CFunc ("CompactFlatCurry","findSourceFileInLoadPath") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"modname"))),CSPat (CPVar (2,"mbfname")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))) (CVar (1,"loadpath"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("FileGoodies","stripSuffix")))) (CVar (2,"mbfname")))])] []]),+  CFunc ("CompactFlatCurry","functionName") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","generateCompactFlatCurryFile") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"options"),CPVar (1,"progname"),CPVar (2,"target")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"optprog")) (CApply (CApply (CSymbol ("CompactFlatCurry","computeCompactFlatCurry")) (CVar (0,"options"))) (CVar (1,"progname"))),CSExpr (CApply (CApply (CSymbol ("FlatCurry","writeFCY")) (CVar (2,"target"))) (CVar (3,"optprog"))),CSExpr (CSymbol ("Prelude","done"))])] []]),+  CFunc ("CompactFlatCurry","getCalledFuncs") 8 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("FlatCurry","FuncDecl") []]]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","(,,,)") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []],CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]],CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]]))))))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"progs"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"dcs"),CPVar (6,"ts"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CSymbol ("Prelude","(,,,)")) (CVar (2,"progs"))) (CSymbol ("Prelude","[]"))) (CVar (5,"dcs"))) (CVar (6,"ts"))))] [],CRule [CPVar (7,"required"),CPVar (8,"loadedmnames"),CPVar (9,"progs"),CPVar (10,"functable"),CPVar (11,"loadedfnames"),CPVar (12,"loadedcnames"),CPVar (13,"loadedtnames"),CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPVar (14,"m"),CPVar (15,"f")],CPVar (16,"fs")]] [(CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (14,"m"))) (CVar (8,"loadedmnames"))),CDoExpr [CSPat (CPVar (17,"newmod")) (CApply (CSymbol ("CompactFlatCurry","readCurrentFlatCurry")) (CVar (14,"m"))),CSLet [CLocalPat (CPVar (18,"reqnewfun")) (CApply (CApply (CSymbol ("CompactFlatCurry","getRequiredInModule")) (CVar (7,"required"))) (CVar (14,"m"))) []],CSExpr (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (14,"m"))) (CVar (8,"loadedmnames")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (17,"newmod"))) (CVar (9,"progs")))) (CApply (CApply (CSymbol ("CompactFlatCurry","extendFuncTable")) (CVar (10,"functable"))) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (17,"newmod"))))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (11,"loadedfnames"))) (CVar (18,"reqnewfun")))) (CVar (12,"loadedcnames"))) (CVar (13,"loadedtnames"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"fs"))) (CVar (18,"reqnewfun")))))]),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("TableRBT","lookupRBT")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CVar (10,"functable")))) (CSymbol ("Prelude","Nothing")),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CVar (8,"loadedmnames"))) (CVar (9,"progs"))) (CVar (10,"functable"))) (CVar (11,"loadedfnames"))) (CVar (12,"loadedcnames"))) (CVar (13,"loadedtnames"))) (CVar (16,"fs"))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSLet [CLocalPat (CPVar (19,"fdecl")) (CApply (CSymbol ("Maybe","fromJust")) (CApply (CApply (CSymbol ("TableRBT","lookupRBT")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CVar (10,"functable")))) [],CLocalPat (CPVar (20,"funcCalls")) (CApply (CSymbol ("CompactFlatCurry","allFuncCalls")) (CVar (19,"fdecl"))) [],CLocalPat (CPVar (21,"newFuncCalls")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (26,"qn")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (26,"qn"))) (CVar (11,"loadedfnames")))))) (CVar (20,"funcCalls"))) [],CLocalPat (CPVar (22,"newReqs")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","getImplicitlyRequired")) (CVar (7,"required")))) (CVar (21,"newFuncCalls"))) [],CLocalPat (CPVar (23,"consCalls")) (CApply (CSymbol ("CompactFlatCurry","allConstructorsOfFunc")) (CVar (19,"fdecl"))) [],CLocalPat (CPVar (24,"newConsCalls")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (27,"qn")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (27,"qn"))) (CVar (12,"loadedcnames")))))) (CVar (23,"consCalls"))) [],CLocalPat (CPVar (25,"newtcons")) (CApply (CSymbol ("CompactFlatCurry","allTypesOfFunc")) (CVar (19,"fdecl"))) []],CSPat (CPComb ("Prelude","(,,,)") [CPVar (28,"newprogs"),CPVar (29,"newfuns"),CPVar (30,"newcons"),CPVar (31,"newtypes")]) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CVar (8,"loadedmnames"))) (CVar (9,"progs"))) (CVar (10,"functable"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (11,"loadedfnames"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"newFuncCalls"))) (CVar (22,"newReqs"))))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (12,"loadedcnames"))) (CVar (23,"consCalls")))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (13,"loadedtnames"))) (CVar (25,"newtcons")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"fs"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"newFuncCalls"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (22,"newReqs"))) (CVar (24,"newConsCalls")))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CSymbol ("Prelude","(,,,)")) (CVar (28,"newprogs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (19,"fdecl"))) (CVar (29,"newfuns")))) (CVar (30,"newcons"))) (CVar (31,"newtypes"))))])] []]),+  CFunc ("CompactFlatCurry","getImplicitlyRequired") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]))) (CRules CFlex [CRule [CPVar (0,"reqspecs"),CPVar (1,"fun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","getImpReq"))) (CVar (0,"reqspecs")))] [CLocalFunc (CFunc ("CompactFlatCurry","getImpReq") 1 Private (CFuncType (CTCons ("CompactFlatCurry","RequiredSpec") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (3,"f"),CPVar (4,"reqf")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"f"))) (CVar (1,"fun")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"reqf"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] []]))]]),+  CFunc ("CompactFlatCurry","getMainFuncFromOptions") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"o"),CPVar (1,"os")]] [(CSymbol ("Prelude","success"),CCase (CVar (0,"o")) [CBranch (CPComb ("CompactFlatCurry","Main") [CPVar (2,"f")]) (CVar (2,"f")),CBranch (CPVar (3,"_")) (CApply (CSymbol ("CompactFlatCurry","getMainFuncFromOptions")) (CVar (1,"os")))])] []]),+  CFunc ("CompactFlatCurry","getRequiredFromOptions") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []])) (CRules CFlex [CRule [CPVar (0,"options")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CListComp (CVar (1,"fs")) [CSPat (CPComb ("CompactFlatCurry","Required") [CPVar (1,"fs")]) (CVar (0,"options"))]))] []]),+  CFunc ("CompactFlatCurry","getRequiredInModule") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]))) (CRules CFlex [CRule [CPVar (0,"reqspecs"),CPVar (1,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","getImpReq"))) (CVar (0,"reqspecs")))] [CLocalFunc (CFunc ("CompactFlatCurry","getImpReq") 1 Private (CFuncType (CTCons ("CompactFlatCurry","RequiredSpec") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPComb ("Prelude","(,)") [CPVar (2,"mf"),CPVar (3,"f")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mf"))) (CVar (1,"mod")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mf"))) (CVar (3,"f")))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (4,"_"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("CompactFlatCurry","getSourceModificationTime") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Time","ClockTime") []])) (CRules CFlex [CRule [CPVar (0,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"lexists")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"lexists"))) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))])] []]),+  CFunc ("CompactFlatCurry","isMainOption") 1 Private (CFuncType (CTCons ("CompactFlatCurry","Option") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"o")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"o")) [CBranch (CPComb ("CompactFlatCurry","Main") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CompactFlatCurry","leqQName") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","Bool") []))) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"m1"),CPVar (1,"n1")],CPComb ("Prelude","(,)") [CPVar (2,"m2"),CPVar (3,"n2")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (4,"cm")) (CApply (CApply (CSymbol ("Sort","cmpString")) (CVar (0,"m1"))) (CVar (2,"m2"))) []] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cm"))) (CSymbol ("Prelude","LT")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cm"))) (CSymbol ("Prelude","EQ")))) (CApply (CApply (CSymbol ("Sort","leqString")) (CVar (1,"n1"))) (CVar (3,"n2"))))))] []]),+  CFunc ("CompactFlatCurry","makeCompactFlatCurry") 2 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"mainmod"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPComb ("Prelude","(,,)") [CPVar (2,"initfuncs"),CPVar (3,"loadedmnames"),CPVar (4,"loadedmods")]) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredInCompactProg")) (CVar (0,"mainmod"))) (CVar (1,"options"))),CSLet [CLocalPat (CPVar (5,"initFuncTable")) (CApply (CApply (CSymbol ("CompactFlatCurry","extendFuncTable")) (CApply (CSymbol ("TableRBT","emptyTableRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleFuns"))) (CVar (4,"loadedmods")))) [],CLocalPat (CPVar (6,"required")) (CApply (CSymbol ("CompactFlatCurry","getRequiredFromOptions")) (CVar (1,"options"))) [],CLocalPat (CPVar (7,"loadedreqfuns")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","getRequiredInModule")) (CVar (6,"required")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","moduleName"))) (CVar (4,"loadedmods")))) [],CLocalPat (CPVar (8,"initreqfuncs")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"initfuncs"))) (CVar (7,"loadedreqfuns"))) []],CSPat (CPComb ("Prelude","(,,,)") [CPVar (9,"finalmods"),CPVar (10,"finalfuncs"),CPVar (11,"finalcons"),CPVar (12,"finaltcons")]) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (6,"required"))) (CVar (3,"loadedmnames"))) (CVar (4,"loadedmods"))) (CVar (5,"initFuncTable"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CVar (8,"initreqfuncs")))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CVar (8,"initreqfuncs"))),CSExpr (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","+"))) (CLit (CIntc 0))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","length"))) (CSymbol ("CompactFlatCurry","moduleFuns")))) (CVar (9,"finalmods"))))))),CSLet [CLocalPat (CPVar (13,"finalfnames")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","functionName"))) (CVar (10,"finalfuncs"))) []],CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (0,"mainmod")))) (CSymbol ("Prelude","[]"))) (CLetDecl [CLocalPat (CPVar (14,"allTDecls")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleTypes"))) (CVar (9,"finalmods"))) [],CLocalPat (CPVar (15,"reqTCons")) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (11,"finalcons"))) (CVar (12,"finaltcons"))) (CVar (14,"allTDecls"))) [],CLocalPat (CPVar (16,"allReqTCons")) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredDatatypes")) (CVar (15,"reqTCons"))) (CVar (14,"allTDecls"))) []] (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (17,"tdecl")] (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CApply (CSymbol ("CompactFlatCurry","tconsName")) (CVar (17,"tdecl")))) (CVar (16,"allReqTCons"))))) (CVar (14,"allTDecls"))))) (CVar (10,"finalfuncs"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPComb ("FlatCurry","Op") [CPVar (18,"oname"),CPVar (19,"_"),CPVar (20,"_")]] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (18,"oname"))) (CVar (13,"finalfnames"))))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleOps"))) (CVar (9,"finalmods"))))))])] []]),+  CFunc ("CompactFlatCurry","mergePrimSpecIntoFunc") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]))) (CRules CFlex [CRule [CPVar (0,"trans"),CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"ar"),CPVar (3,"vis"),CPVar (4,"tp"),CPVar (5,"rule")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (6,"fname")) (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (1,"name"))) (CVar (0,"trans"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"fname"))) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CVar (1,"name"))) (CVar (2,"ar"))) (CVar (3,"vis"))) (CVar (4,"tp"))) (CVar (5,"rule")))) (CSymbol ("Prelude","[]")))) (CLetDecl [CLocalPat (CPComb ("Prelude","Just") [CPComb ("Prelude","(,)") [CPVar (7,"lib"),CPVar (8,"entry")]]) (CVar (6,"fname")) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (8,"entry")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CVar (1,"name"))) (CVar (2,"ar"))) (CVar (3,"vis"))) (CVar (4,"tp"))) (CApply (CSymbol ("FlatCurry","External")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"lib"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CVar (8,"entry"))))))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("CompactFlatCurry","mergePrimSpecIntoModule") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"trans"),CPComb ("FlatCurry","Prog") [CPVar (1,"name"),CPVar (2,"imps"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CVar (1,"name"))) (CVar (2,"imps"))) (CVar (3,"types"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","mergePrimSpecIntoFunc")) (CVar (0,"trans")))) (CVar (4,"funcs")))) (CVar (5,"ops")))] []]),+  CFunc ("CompactFlatCurry","moduleFuns") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"funs"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"funs"))] []]),+  CFunc ("CompactFlatCurry","moduleImports") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"imports"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"imports"))] []]),+  CFunc ("CompactFlatCurry","moduleName") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","moduleOps") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CVar (4,"ops"))] []]),+  CFunc ("CompactFlatCurry","moduleTypes") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"types"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"types"))] []]),+  CFunc ("CompactFlatCurry","newTypeConsOfTDecl") 2 Private (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]))) (CRules CFlex [CRule [CPVar (0,"tcnames"),CPComb ("FlatCurry","TypeSyn") [CPVar (1,"tcons"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (1,"tcons"))) (CVar (0,"tcnames")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (5,"tc")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (5,"tc"))) (CVar (0,"tcnames")))))) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (4,"texp"))))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (6,"tcnames"),CPComb ("FlatCurry","Type") [CPVar (7,"tcons"),CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"cdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (7,"tcons"))) (CVar (6,"tcnames")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (11,"tc")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (11,"tc"))) (CVar (6,"tcnames")))))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPComb ("FlatCurry","Cons") [CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"texps")]] (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allTypesOfTExpr"))) (CVar (15,"texps"))))) (CVar (10,"cdecls"))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("CompactFlatCurry","prelude") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("CompactFlatCurry","processPrimitives") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"pspecs")) (CApply (CApply (CSymbol ("CompactFlatCurry","readPrimSpec")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (1,"prog")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '2'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))))))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("CompactFlatCurry","mergePrimSpecIntoModule")) (CVar (2,"pspecs"))) (CVar (1,"prog"))))])] []]),+  CFunc ("CompactFlatCurry","readCurrentFlatCurry") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))),CSPat (CPVar (1,"progname")) (CApply (CSymbol ("CompactFlatCurry","findSourceFileInLoadPath")) (CVar (0,"modname"))),CSPat (CPVar (2,"fcyexists")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname")))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","not")) (CVar (2,"fcyexists")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (1,"progname")))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname"))))) (CDoExpr [CSPat (CPVar (3,"ctime")) (CApply (CSymbol ("CompactFlatCurry","getSourceModificationTime")) (CVar (1,"progname"))),CSPat (CPVar (4,"ftime")) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname")))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (3,"ctime")))) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (4,"ftime"))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (1,"progname")))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname"))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname"))))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname")))))]))])] []]),+  CFunc ("CompactFlatCurry","readPrimSpec") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"xmlfilename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsXml")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (1,"xmlfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (2,"existsXml"))) (CDoExpr [CSPat (CPVar (3,"xmldoc")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (1,"xmlfilename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("CompactFlatCurry","xml2primtrans")) (CVar (0,"mod"))) (CVar (3,"xmldoc"))))])) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","[]"))))])] []]),+  CFunc ("CompactFlatCurry","requiredDatatypes") 2 Private (CFuncType (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]))) (CRules CFlex [CRule [CPVar (0,"tcnames"),CPVar (1,"tdecls")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"newtcons")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","newTypeConsOfTDecl")) (CVar (0,"tcnames")))) (CVar (1,"tdecls"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (2,"newtcons")))) (CVar (0,"tcnames"))) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredDatatypes")) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (0,"tcnames"))) (CVar (2,"newtcons")))) (CVar (1,"tdecls")))))] []]),+  CFunc ("CompactFlatCurry","requiredInCompactProg") 2 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","(,,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]],CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]]))) (CRules CFlex [CRule [CPVar (0,"mainmod"),CPVar (1,"options")] [(CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (4,"initfuncs"))),CDoExpr [CSPat (CPVar (9,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("Prelude","concat")) (CVar (4,"initfuncs")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (9,"impprogs")))))]),(CApply (CApply (CSymbol ("Prelude","elem")) (CSymbol ("CompactFlatCurry","Exports"))) (CVar (1,"options")),CDoExpr [CSPat (CPVar (10,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("List","nub")) (CVar (5,"mainexports")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (10,"impprogs")))))]),(CApply (CApply (CSymbol ("Prelude","any")) (CSymbol ("CompactFlatCurry","isMainOption"))) (CVar (1,"options")),CLetDecl [CLocalPat (CPVar (11,"func")) (CApply (CSymbol ("CompactFlatCurry","getMainFuncFromOptions")) (CVar (1,"options"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mainmodname"))) (CVar (11,"func")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","functionName"))) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (0,"mainmod")))))) (CDoExpr [CSPat (CPVar (12,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mainmodname"))) (CVar (11,"func")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (12,"impprogs")))))])) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"func"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSPat (CPVar (13,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"imports"))) (CApply (CSymbol ("CompactFlatCurry","moduleImports")) (CVar (0,"mainmod")))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mainexports"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","exportedFuncNames"))) (CSymbol ("CompactFlatCurry","moduleFuns")))) (CVar (13,"impprogs")))))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","moduleName"))) (CVar (13,"impprogs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (13,"impprogs")))))])] [CLocalPat (CPVar (2,"imports")) (CApply (CSymbol ("List","nub")) (CListComp (CVar (7,"mname")) [CSPat (CPComb ("CompactFlatCurry","Import") [CPVar (7,"mname")]) (CVar (1,"options"))])) [],CLocalPat (CPVar (3,"mainmodname")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (0,"mainmod"))) [],CLocalPat (CPVar (4,"initfuncs")) (CListComp (CVar (8,"fs")) [CSPat (CPComb ("CompactFlatCurry","InitFuncs") [CPVar (8,"fs")]) (CVar (1,"options"))]) [],CLocalPat (CPVar (5,"mainexports")) (CApply (CSymbol ("CompactFlatCurry","exportedFuncNames")) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (0,"mainmod")))) [],CLocalPat (CPVar (6,"mainmodset")) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (3,"mainmodname"))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("Sort","leqString")))) [],CLocalFunc (CFunc ("CompactFlatCurry","add2mainmodset") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("RedBlackTree","RedBlackTree") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPVar (9,"mnames")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (6,"mainmodset"))) (CVar (9,"mnames")))] []]))]]),+  CFunc ("CompactFlatCurry","requires") 2 Public (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("CompactFlatCurry","RequiredSpec") []))) (CRules CFlex [CRule [CPVar (0,"fun"),CPVar (1,"reqfun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CompactFlatCurry","Requires")) (CVar (0,"fun"))) (CVar (1,"reqfun")))] []]),+  CFunc ("CompactFlatCurry","tconsName") 1 Private (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")]] [(CSymbol ("Prelude","success"),CVar (4,"name"))] []]),+  CFunc ("CompactFlatCurry","unionMap") 1 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTVar (1,"b")])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTVar (1,"b")]))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("List","union"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))] []]),+  CFunc ("CompactFlatCurry","xml2primtrans") 2 Private (CFuncType (CTVar (0,"a")) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"primitives")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","xml2prim"))) (CVar (1,"primitives")))] [CLocalFunc (CFunc ("CompactFlatCurry","xml2prim") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTVar (1,"_248"),CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (2,"fname")],CPVar (3,"_")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude","[]") [],CPVar (4,"xlib")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (5,"xfun")],CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (2,"fname")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("XML","textOfXml")) (CVar (4,"xlib")))) (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xfun")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (6,"fname")],CPVar (7,"_")],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (6,"fname")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]"))))] []]))]])]+ [COp ("CompactFlatCurry","requires") CInfixOp 0]
+ src/lib/Curry/Module/.curry/CompactFlatCurry.cy view
@@ -0,0 +1,99 @@+Module "CompactFlatCurry"+(Just (Exporting (11,24) [(Export (QualIdent Nothing (Ident "generateCompactFlatCurryFile" 0))),(Export (QualIdent Nothing (Ident "computeCompactFlatCurry" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Option" 0))),(Export (QualIdent Nothing (Ident "RequiredSpec" 0))),(Export (QualIdent Nothing (Ident "requires" 0))),(Export (QualIdent Nothing (Ident "alwaysRequired" 0))),(Export (QualIdent Nothing (Ident "defaultRequired" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (15,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (16,1) "SetRBT" False Nothing Nothing)+,(ImportDecl (17,1) "TableRBT" False Nothing Nothing)+,(ImportDecl (18,1) "Maybe" False Nothing Nothing)+,(ImportDecl (19,1) "List" False Nothing (Just (Importing (19,12) [(Import (Ident "nub" 0)),(Import (Ident "union" 0))])))+,(ImportDecl (20,1) "FileGoodies" False Nothing Nothing)+,(ImportDecl (21,1) "Directory" False Nothing Nothing)+,(ImportDecl (22,1) "Sort" False Nothing (Just (Importing (22,12) [(Import (Ident "cmpString" 0)),(Import (Ident "leqString" 0))])))+,(ImportDecl (23,1) "XML" False Nothing Nothing)+,(ImportDecl (24,1) "Distribution" False Nothing (Just (Importing (24,20) [(Import (Ident "getLoadPathForFile" 0))])))+,(ImportDecl (25,1) "Time" False Nothing (Just (Importing (25,12) [(Import (Ident "clockTimeToInt" 0))])))+,(DataDecl (40,1) (Ident "Option" 0) [] [(ConstrDecl (41,5) [] (Ident "Verbose" 0) []),(ConstrDecl (42,5) [] (Ident "Main" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (43,5) [] (Ident "Exports" 0) []),(ConstrDecl (44,5) [] (Ident "InitFuncs" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))]),(ConstrDecl (45,5) [] (Ident "Required" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) []))]),(ConstrDecl (46,5) [] (Ident "Import" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(DataDecl (72,1) (Ident "RequiredSpec" 0) [] [(ConstrDecl (72,21) [] (Ident "AlwaysReq" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]),(ConstrDecl (72,39) [] (Ident "Requires" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])])])+,(InfixDecl (27,1) Infix 0 [(Ident "requires" 0)])+,(FunctionDecl (48,1) (Ident "isMainOption" 0) [(Equation (48,1) (FunLhs (Ident "isMainOption" 0) [(VariablePattern (Ident "o" 2))]) (SimpleRhs (48,18) (Case (Variable (QualIdent Nothing (Ident "o" 2))) [(Alt (49,20) (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Main" 0)) [(VariablePattern (Ident "_" 5))]) (SimpleRhs (49,30) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (50,20) (VariablePattern (Ident "_" 8)) (SimpleRhs (50,30) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (52,1) [(Ident "getMainFuncFromOptions" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (53,1) (Ident "getMainFuncFromOptions" 0) [(Equation (53,1) (FunLhs (Ident "getMainFuncFromOptions" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "o" 10)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "os" 10))))]) (SimpleRhs (54,4) (Case (Variable (QualIdent Nothing (Ident "o" 10))) [(Alt (55,6) (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Main" 0)) [(VariablePattern (Ident "f" 12))]) (SimpleRhs (55,16) (Variable (QualIdent Nothing (Ident "f" 12))) [])),(Alt (56,6) (VariablePattern (Ident "_" 15)) (SimpleRhs (56,16) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getMainFuncFromOptions" 0))) (Variable (QualIdent Nothing (Ident "os" 10)))) []))]) []))])+,(TypeSig (58,1) [(Ident "getRequiredFromOptions" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) []))))+,(FunctionDecl (59,1) (Ident "getRequiredFromOptions" 0) [(Equation (59,1) (FunLhs (Ident "getRequiredFromOptions" 0) [(VariablePattern (Ident "options" 17))]) (SimpleRhs (59,34) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (ListCompr (Variable (QualIdent Nothing (Ident "fs" 19))) [(StmtBind (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Required" 0)) [(VariablePattern (Ident "fs" 19))]) (Variable (QualIdent Nothing (Ident "options" 17))))])) []))])+,(TypeSig (62,1) [(Ident "addImport2Options" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) []))))+,(FunctionDecl (63,1) (Ident "addImport2Options" 0) [(Equation (63,1) (FunLhs (Ident "addImport2Options" 0) [(VariablePattern (Ident "options" 20))]) (SimpleRhs (64,3) (InfixApply (Variable (QualIdent Nothing (Ident "options" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Constructor (QualIdent (Just "CompactFlatCurry") (Ident "Import" 0)))) (Paren (Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent Nothing (Ident "alwaysReqMod" 21)))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getRequiredFromOptions" 0))) (Variable (QualIdent Nothing (Ident "options" 20))))))))))) [(FunctionDecl (67,3) (Ident "alwaysReqMod" 21) [(Equation (67,3) (FunLhs (Ident "alwaysReqMod" 21) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "AlwaysReq" 0)) [(TuplePattern [(VariablePattern (Ident "m" 22)),(VariablePattern (Ident "_" 23))])]))]) (SimpleRhs (67,37) (List [(Variable (QualIdent Nothing (Ident "m" 22)))]) [])),(Equation (68,3) (FunLhs (Ident "alwaysReqMod" 21) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Requires" 0)) [(VariablePattern (Ident "_" 26)),(VariablePattern (Ident "_" 27))]))]) (SimpleRhs (68,33) (List []) []))])]))])+,(TypeSig (76,1) [(Ident "requires" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) []))))+,(FunctionDecl (77,1) (Ident "requires" 0) [(Equation (77,1) (FunLhs (Ident "requires" 0) [(VariablePattern (Ident "fun" 29)),(VariablePattern (Ident "reqfun" 29))]) (SimpleRhs (77,23) (Apply (Apply (Constructor (QualIdent (Just "CompactFlatCurry") (Ident "Requires" 0))) (Variable (QualIdent Nothing (Ident "fun" 29)))) (Variable (QualIdent Nothing (Ident "reqfun" 29)))) []))])+,(TypeSig (81,1) [(Ident "alwaysRequired" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) [])))+,(FunctionDecl (82,1) (Ident "alwaysRequired" 0) [(Equation (82,1) (FunLhs (Ident "alwaysRequired" 0) [(VariablePattern (Ident "fun" 31))]) (SimpleRhs (82,22) (Apply (Constructor (QualIdent (Just "CompactFlatCurry") (Ident "AlwaysReq" 0))) (Variable (QualIdent Nothing (Ident "fun" 31)))) []))])+,(TypeSig (87,1) [(Ident "defaultRequired" 0)] (ListType (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) [])))+,(FunctionDecl (88,1) (Ident "defaultRequired" 0) [(Equation (88,1) (FunLhs (Ident "defaultRequired" 0) []) (SimpleRhs (89,3) (List [(Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "alwaysRequired" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "apply"))])),(Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "alwaysRequired" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "letrec"))])),(Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "alwaysRequired" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "cond"))])),(Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "alwaysRequired" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "failure"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "&&"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "&"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:<="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "ifVar"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:<="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:="))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:<="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "&>"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "=:<<="))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "&"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "$#"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "ensureNotFree"))])),(InfixApply (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "readFile"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "prim_readFileContents"))])),(InfixApply (Tuple [(Literal (String "Ports")),(Literal (String "prim_openPortOnSocket"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Literal (String "Ports")),(Literal (String "basicServerLoop"))])),(InfixApply (Tuple [(Literal (String "Ports")),(Literal (String "prim_timeoutOnStream"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Literal (String "Ports")),(Literal (String "basicServerLoop"))])),(InfixApply (Tuple [(Literal (String "Ports")),(Literal (String "prim_choiceSPEP"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Literal (String "Ports")),(Literal (String "basicServerLoop"))])),(InfixApply (Tuple [(Literal (String "Dynamic")),(Literal (String "getDynamicKnowledge"))]) (InfixOp (QualIdent (Just "CompactFlatCurry") (Ident "requires" 0))) (Tuple [(Literal (String "Dynamic")),(Literal (String "isKnownAtTime"))]))]) []))])+,(FunctionDecl (106,1) (Ident "prelude" 0) [(Equation (106,1) (FunLhs (Ident "prelude" 0) []) (SimpleRhs (106,11) (Literal (String "Prelude")) []))])+,(FunctionDecl (110,1) (Ident "getRequiredInModule" 0) [(Equation (110,1) (FunLhs (Ident "getRequiredInModule" 0) [(VariablePattern (Ident "reqspecs" 37)),(VariablePattern (Ident "mod" 37))]) (SimpleRhs (110,36) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent Nothing (Ident "getImpReq" 38)))) (Variable (QualIdent Nothing (Ident "reqspecs" 37)))) [(FunctionDecl (112,3) (Ident "getImpReq" 38) [(Equation (112,3) (FunLhs (Ident "getImpReq" 38) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "AlwaysReq" 0)) [(TuplePattern [(VariablePattern (Ident "mf" 39)),(VariablePattern (Ident "f" 39))])]))]) (SimpleRhs (112,34) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "mf" 39))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "mod" 37)))) (List [(Tuple [(Variable (QualIdent Nothing (Ident "mf" 39))),(Variable (QualIdent Nothing (Ident "f" 39)))])]) (List [])) [])),(Equation (113,3) (FunLhs (Ident "getImpReq" 38) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Requires" 0)) [(VariablePattern (Ident "_" 42)),(VariablePattern (Ident "_" 43))]))]) (SimpleRhs (113,30) (List []) []))])]))])+,(FunctionDecl (117,1) (Ident "getImplicitlyRequired" 0) [(Equation (117,1) (FunLhs (Ident "getImplicitlyRequired" 0) [(VariablePattern (Ident "reqspecs" 45)),(VariablePattern (Ident "fun" 45))]) (SimpleRhs (117,38) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent Nothing (Ident "getImpReq" 46)))) (Variable (QualIdent Nothing (Ident "reqspecs" 45)))) [(FunctionDecl (119,3) (Ident "getImpReq" 46) [(Equation (119,3) (FunLhs (Ident "getImpReq" 46) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "AlwaysReq" 0)) [(VariablePattern (Ident "_" 48))]))]) (SimpleRhs (119,29) (List []) [])),(Equation (120,3) (FunLhs (Ident "getImpReq" 46) [(ParenPattern (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Requires" 0)) [(VariablePattern (Ident "f" 50)),(VariablePattern (Ident "reqf" 50))]))]) (SimpleRhs (120,33) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "f" 50))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "fun" 45)))) (List [(Variable (QualIdent Nothing (Ident "reqf" 50)))]) (List [])) []))])]))])+,(FunctionDecl (123,1) (Ident "defaultRequiredTypes" 0) [(Equation (123,1) (FunLhs (Ident "defaultRequiredTypes" 0) []) (SimpleRhs (124,3) (List [(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "()"))]),(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "Int"))]),(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "Float"))]),(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "Char"))]),(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "Success"))]),(Tuple [(Variable (QualIdent (Just "CompactFlatCurry") (Ident "prelude" 0))),(Literal (String "IO"))])]) []))])+,(TypeSig (139,1) [(Ident "generateCompactFlatCurryFile" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))))+,(FunctionDecl (140,1) (Ident "generateCompactFlatCurryFile" 0) [(Equation (140,1) (FunLhs (Ident "generateCompactFlatCurryFile" 0) [(VariablePattern (Ident "options" 54)),(VariablePattern (Ident "progname" 54)),(VariablePattern (Ident "target" 54))]) (SimpleRhs (140,56) (Do [(StmtBind (VariablePattern (Ident "optprog" 56)) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "computeCompactFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "options" 54)))) (Variable (QualIdent Nothing (Ident "progname" 54))))),(StmtExpr (Apply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "writeFCY" 0))) (Variable (QualIdent Nothing (Ident "target" 54)))) (Variable (QualIdent Nothing (Ident "optprog" 56)))))] (Variable (QualIdent (Just "Prelude") (Ident "done" 0)))) []))])+,(TypeSig (154,1) [(Ident "computeCompactFlatCurry" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])]))))+,(FunctionDecl (155,1) (Ident "computeCompactFlatCurry" 0) [(Equation (155,1) (FunLhs (Ident "computeCompactFlatCurry" 0) [(VariablePattern (Ident "orgoptions" 57)),(VariablePattern (Ident "progname" 57))]) (SimpleRhs (156,3) (Let [(PatternDecl (156,7) (VariablePattern (Ident "options" 59)) (SimpleRhs (156,17) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "addImport2Options" 0))) (Variable (QualIdent Nothing (Ident "orgoptions" 57)))) []))] (IfThenElse (InfixApply (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Constructor (QualIdent (Just "CompactFlatCurry") (Ident "Exports" 0)))) (Variable (QualIdent Nothing (Ident "options" 59))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "any" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "isMainOption" 0)))) (Variable (QualIdent Nothing (Ident "options" 59)))))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "CompactFlat: Options 'Main' and 'Exports' can't be be used together!"))) (Do [(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Literal (String "CompactFlat: Searching relevant functions in module ")))),(StmtBind (VariablePattern (Ident "prog" 61)) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "progname" 57))))),(StmtBind (VariablePattern (Ident "resultprog" 62)) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "makeCompactFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "prog" 61)))) (Variable (QualIdent Nothing (Ident "options" 59))))),(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (Paren (InfixApply (Literal (String "CompactFlat: Number of functions after optimization: ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0))) (Variable (QualIdent Nothing (Ident "resultprog" 62))))))))))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Variable (QualIdent Nothing (Ident "resultprog" 62))))))) []))])+,(TypeSig (169,1) [(Ident "makeCompactFlatCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])]))))+,(FunctionDecl (170,1) (Ident "makeCompactFlatCurry" 0) [(Equation (170,1) (FunLhs (Ident "makeCompactFlatCurry" 0) [(VariablePattern (Ident "mainmod" 63)),(VariablePattern (Ident "options" 63))]) (SimpleRhs (170,40) (Do [(StmtBind (TuplePattern [(VariablePattern (Ident "initfuncs" 65)),(VariablePattern (Ident "loadedmnames" 65)),(VariablePattern (Ident "loadedmods" 65))]) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "requiredInCompactProg" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 63)))) (Variable (QualIdent Nothing (Ident "options" 63))))),(StmtDecl [(PatternDecl (172,7) (VariablePattern (Ident "initFuncTable" 66)) (SimpleRhs (172,23) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendFuncTable" 0))) (Paren (Apply (Variable (QualIdent (Just "TableRBT") (Ident "emptyTableRBT" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "leqQName" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0)))) (Variable (QualIdent Nothing (Ident "loadedmods" 65)))))) [])),(PatternDecl (174,7) (VariablePattern (Ident "required" 66)) (SimpleRhs (174,18) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getRequiredFromOptions" 0))) (Variable (QualIdent Nothing (Ident "options" 63)))) [])),(PatternDecl (175,7) (VariablePattern (Ident "loadedreqfuns" 66)) (SimpleRhs (175,23) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getRequiredInModule" 0))) (Variable (QualIdent Nothing (Ident "required" 66)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleName" 0)))) (Variable (QualIdent Nothing (Ident "loadedmods" 65)))))) [])),(PatternDecl (177,7) (VariablePattern (Ident "initreqfuncs" 66)) (SimpleRhs (177,22) (InfixApply (Variable (QualIdent Nothing (Ident "initfuncs" 65))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "loadedreqfuns" 66)))) []))]),(StmtBind (TuplePattern [(VariablePattern (Ident "finalmods" 71)),(VariablePattern (Ident "finalfuncs" 71)),(VariablePattern (Ident "finalcons" 71)),(VariablePattern (Ident "finaltcons" 71))]) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getCalledFuncs" 0))) (Variable (QualIdent Nothing (Ident "required" 66)))) (Variable (QualIdent Nothing (Ident "loadedmnames" 65)))) (Variable (QualIdent Nothing (Ident "loadedmods" 65)))) (Variable (QualIdent Nothing (Ident "initFuncTable" 66)))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Paren (Apply (Variable (QualIdent (Just "SetRBT") (Ident "emptySetRBT" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "leqQName" 0)))))) (Variable (QualIdent Nothing (Ident "initreqfuncs" 66)))))) (Paren (Apply (Variable (QualIdent (Just "SetRBT") (Ident "emptySetRBT" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "leqQName" 0)))))) (Paren (Apply (Variable (QualIdent (Just "SetRBT") (Ident "emptySetRBT" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "leqQName" 0)))))) (Variable (QualIdent Nothing (Ident "initreqfuncs" 66))))),(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (Paren (InfixApply (Literal (String "\nCompactFlat: Total number of functions (without unused imports): ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "Prelude") (Ident "+" 0)))) (Literal (Int (Ident "_" 72) 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0)))))) (Variable (QualIdent Nothing (Ident "finalmods" 71)))))))))))),(StmtDecl [(PatternDecl (186,7) (VariablePattern (Ident "finalfnames" 73)) (SimpleRhs (186,22) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "functionName" 0)))) (Variable (QualIdent Nothing (Ident "finalfuncs" 71)))) []))])] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Prog" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleName" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 63)))))) (List [])) (Paren (Let [(PatternDecl (189,21) (VariablePattern (Ident "allTDecls" 75)) (SimpleRhs (189,33) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleTypes" 0)))) (Variable (QualIdent Nothing (Ident "finalmods" 71)))) [])),(PatternDecl (190,21) (VariablePattern (Ident "reqTCons" 75)) (SimpleRhs (190,33) (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendTConsWithConsType" 0))) (Variable (QualIdent Nothing (Ident "finalcons" 71)))) (Variable (QualIdent Nothing (Ident "finaltcons" 71)))) (Variable (QualIdent Nothing (Ident "allTDecls" 75)))) [])),(PatternDecl (192,21) (VariablePattern (Ident "allReqTCons" 75)) (SimpleRhs (192,35) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "requiredDatatypes" 0))) (Variable (QualIdent Nothing (Ident "reqTCons" 75)))) (Variable (QualIdent Nothing (Ident "allTDecls" 75)))) []))] (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(VariablePattern (Ident "tdecl" 79))] (InfixApply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "tconsName" 0))) (Variable (QualIdent Nothing (Ident "tdecl" 79)))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "allReqTCons" 75))))))) (Variable (QualIdent Nothing (Ident "allTDecls" 75))))))) (Variable (QualIdent Nothing (Ident "finalfuncs" 71)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "oname" 80)),(VariablePattern (Ident "_" 81)),(VariablePattern (Ident "_" 82))]))] (InfixApply (Variable (QualIdent Nothing (Ident "oname" 80))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "finalfnames" 73))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleOps" 0)))) (Variable (QualIdent Nothing (Ident "finalmods" 71))))))))))) []))])+,(TypeSig (202,1) [(Ident "requiredDatatypes" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))))+,(FunctionDecl (203,1) (Ident "requiredDatatypes" 0) [(Equation (203,1) (FunLhs (Ident "requiredDatatypes" 0) [(VariablePattern (Ident "tcnames" 83)),(VariablePattern (Ident "tdecls" 83))]) (SimpleRhs (204,3) (Let [(PatternDecl (204,7) (VariablePattern (Ident "newtcons" 85)) (SimpleRhs (204,18) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "newTypeConsOfTDecl" 0))) (Variable (QualIdent Nothing (Ident "tcnames" 83)))))) (Variable (QualIdent Nothing (Ident "tdecls" 83)))) []))] (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "newtcons" 85)))) (Variable (QualIdent Nothing (Ident "tcnames" 83))) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "requiredDatatypes" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "tcnames" 83)))) (Variable (QualIdent Nothing (Ident "newtcons" 85)))))) (Variable (QualIdent Nothing (Ident "tdecls" 83)))))) []))])+,(TypeSig (211,1) [(Ident "newTypeConsOfTDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))))+,(FunctionDecl (212,1) (Ident "newTypeConsOfTDecl" 0) [(Equation (212,1) (FunLhs (Ident "newTypeConsOfTDecl" 0) [(VariablePattern (Ident "tcnames" 87)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "tcons" 87)),(VariablePattern (Ident "_" 88)),(VariablePattern (Ident "_" 89)),(VariablePattern (Ident "texp" 87))]))]) (SimpleRhs (213,3) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "tcons" 87))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "tcnames" 87)))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(VariablePattern (Ident "tc" 91))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "tc" 91))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "tcnames" 87))))))))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0))) (Variable (QualIdent Nothing (Ident "texp" 87)))))) (List [])) [])),(Equation (216,1) (FunLhs (Ident "newTypeConsOfTDecl" 0) [(VariablePattern (Ident "tcnames" 92)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "tcons" 92)),(VariablePattern (Ident "_" 93)),(VariablePattern (Ident "_" 94)),(VariablePattern (Ident "cdecls" 92))]))]) (SimpleRhs (217,3) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "tcons" 92))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "tcnames" 92)))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(VariablePattern (Ident "tc" 96))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "tc" 96))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "tcnames" 92))))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "_" 98)),(VariablePattern (Ident "_" 99)),(VariablePattern (Ident "_" 100)),(VariablePattern (Ident "texps" 97))]))] (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0)))) (Variable (QualIdent Nothing (Ident "texps" 97))))))) (Variable (QualIdent Nothing (Ident "cdecls" 92)))))) (List [])) []))])+,(TypeSig (225,1) [(Ident "extendTConsWithConsType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])])))))+,(FunctionDecl (227,1) (Ident "extendTConsWithConsType" 0) [(Equation (227,1) (FunLhs (Ident "extendTConsWithConsType" 0) [(VariablePattern (Ident "_" 102)),(VariablePattern (Ident "tcons" 101)),(ListPattern [])]) (SimpleRhs (227,38) (Variable (QualIdent Nothing (Ident "tcons" 101))) [])),(Equation (228,1) (FunLhs (Ident "extendTConsWithConsType" 0) [(VariablePattern (Ident "cnames" 104)),(VariablePattern (Ident "tcons" 104)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "tname" 104)),(VariablePattern (Ident "_" 105)),(VariablePattern (Ident "_" 106)),(VariablePattern (Ident "_" 107))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "tds" 104))))]) (SimpleRhs (229,3) (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendTConsWithConsType" 0))) (Variable (QualIdent Nothing (Ident "cnames" 104)))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0))) (Variable (QualIdent Nothing (Ident "tname" 104)))) (Variable (QualIdent Nothing (Ident "tcons" 104)))))) (Variable (QualIdent Nothing (Ident "tds" 104)))) [])),(Equation (230,1) (FunLhs (Ident "extendTConsWithConsType" 0) [(VariablePattern (Ident "cnames" 109)),(VariablePattern (Ident "tcons" 109)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "tname" 109)),(VariablePattern (Ident "_" 110)),(VariablePattern (Ident "_" 111)),(VariablePattern (Ident "cdecls" 109))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "tds" 109))))]) (SimpleRhs (231,3) (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "tname" 109))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "defaultRequiredTypes" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "any" 0))) (Paren (Lambda [(VariablePattern (Ident "cdecl" 113))] (InfixApply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "consName" 0))) (Variable (QualIdent Nothing (Ident "cdecl" 113)))) (InfixOp (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "cnames" 109))))))) (Variable (QualIdent Nothing (Ident "cdecls" 109))))) (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendTConsWithConsType" 0))) (Variable (QualIdent Nothing (Ident "cnames" 109)))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0))) (Variable (QualIdent Nothing (Ident "tname" 109)))) (Variable (QualIdent Nothing (Ident "tcons" 109)))))) (Variable (QualIdent Nothing (Ident "tds" 109)))) (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendTConsWithConsType" 0))) (Variable (QualIdent Nothing (Ident "cnames" 109)))) (Variable (QualIdent Nothing (Ident "tcons" 109)))) (Variable (QualIdent Nothing (Ident "tds" 109))))) []))])+,(TypeSig (238,1) [(Ident "extendFuncTable" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TableRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])]) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "TableRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])]))))+,(FunctionDecl (240,1) (Ident "extendFuncTable" 0) [(Equation (240,1) (FunLhs (Ident "extendFuncTable" 0) [(VariablePattern (Ident "ftable" 114)),(VariablePattern (Ident "fdecls" 114))]) (SimpleRhs (241,3) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Paren (Lambda [(VariablePattern (Ident "f" 116)),(VariablePattern (Ident "t" 116))] (Apply (Apply (Apply (Variable (QualIdent (Just "TableRBT") (Ident "updateRBT" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "functionName" 0))) (Variable (QualIdent Nothing (Ident "f" 116)))))) (Variable (QualIdent Nothing (Ident "f" 116)))) (Variable (QualIdent Nothing (Ident "t" 116))))))) (Variable (QualIdent Nothing (Ident "ftable" 114)))) (Variable (QualIdent Nothing (Ident "fdecls" 114)))) []))])+,(TypeSig (250,1) [(Ident "requiredInCompactProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Option" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [(ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))])]))))+,(FunctionDecl (251,1) (Ident "requiredInCompactProg" 0) [(Equation (251,1) (FunLhs (Ident "requiredInCompactProg" 0) [(VariablePattern (Ident "mainmod" 117)),(VariablePattern (Ident "options" 117))]) (GuardedRhs [(CondExpr (252,2) (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "initfuncs" 118)))))) (Do [(StmtBind (VariablePattern (Ident "impprogs" 128)) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "mapIO" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0)))) (Variable (QualIdent Nothing (Ident "imports" 118)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Variable (QualIdent Nothing (Ident "initfuncs" 118)))),(Apply (Variable (QualIdent Nothing (Ident "add2mainmodset" 118))) (Variable (QualIdent Nothing (Ident "imports" 118)))),(InfixApply (Variable (QualIdent Nothing (Ident "mainmod" 117))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "impprogs" 128))))])))),(CondExpr (255,2) (InfixApply (Constructor (QualIdent (Just "CompactFlatCurry") (Ident "Exports" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "options" 117)))) (Do [(StmtBind (VariablePattern (Ident "impprogs" 129)) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "mapIO" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0)))) (Variable (QualIdent Nothing (Ident "imports" 118)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (Variable (QualIdent Nothing (Ident "mainexports" 118)))),(Apply (Variable (QualIdent Nothing (Ident "add2mainmodset" 118))) (Variable (QualIdent Nothing (Ident "imports" 118)))),(InfixApply (Variable (QualIdent Nothing (Ident "mainmod" 117))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "impprogs" 129))))])))),(CondExpr (258,2) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "any" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "isMainOption" 0)))) (Variable (QualIdent Nothing (Ident "options" 117)))) (Let [(PatternDecl (259,9) (VariablePattern (Ident "func" 130)) (SimpleRhs (259,16) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getMainFuncFromOptions" 0))) (Variable (QualIdent Nothing (Ident "options" 117)))) []))] (IfThenElse (InfixApply (Tuple [(Variable (QualIdent Nothing (Ident "mainmodname" 118))),(Variable (QualIdent Nothing (Ident "func" 130)))]) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "functionName" 0)))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 117)))))))) (Do [(StmtBind (VariablePattern (Ident "impprogs" 132)) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "mapIO" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0)))) (Variable (QualIdent Nothing (Ident "imports" 118)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(List [(Tuple [(Variable (QualIdent Nothing (Ident "mainmodname" 118))),(Variable (QualIdent Nothing (Ident "func" 130)))])]),(Apply (Variable (QualIdent Nothing (Ident "add2mainmodset" 118))) (Variable (QualIdent Nothing (Ident "imports" 118)))),(InfixApply (Variable (QualIdent Nothing (Ident "mainmod" 117))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "impprogs" 132))))]))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String "CompactFlat: Cannot find main function \"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "func" 130))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\"!")))))))),(CondExpr (265,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Do [(StmtBind (VariablePattern (Ident "impprogs" 133)) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "mapIO" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0)))) (Paren (Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "imports" 118))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleImports" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 117))))))))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "mainexports" 118))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (InfixApply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "exportedFuncNames" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0)))))) (Variable (QualIdent Nothing (Ident "impprogs" 133))))))),(Apply (Variable (QualIdent Nothing (Ident "add2mainmodset" 118))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleName" 0)))) (Variable (QualIdent Nothing (Ident "impprogs" 133)))))),(InfixApply (Variable (QualIdent Nothing (Ident "mainmod" 117))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "impprogs" 133))))]))))] [(PatternDecl (273,4) (VariablePattern (Ident "imports" 118)) (SimpleRhs (273,14) (Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (ListCompr (Variable (QualIdent Nothing (Ident "mname" 120))) [(StmtBind (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "Import" 0)) [(VariablePattern (Ident "mname" 120))]) (Variable (QualIdent Nothing (Ident "options" 117))))])) [])),(PatternDecl (275,4) (VariablePattern (Ident "mainmodname" 118)) (SimpleRhs (275,18) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleName" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 117)))) [])),(PatternDecl (277,4) (VariablePattern (Ident "initfuncs" 118)) (SimpleRhs (277,16) (ListCompr (Variable (QualIdent Nothing (Ident "fs" 123))) [(StmtBind (ConstructorPattern (QualIdent (Just "CompactFlatCurry") (Ident "InitFuncs" 0)) [(VariablePattern (Ident "fs" 123))]) (Variable (QualIdent Nothing (Ident "options" 117))))]) [])),(PatternDecl (279,4) (VariablePattern (Ident "mainexports" 118)) (SimpleRhs (279,18) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "exportedFuncNames" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0))) (Variable (QualIdent Nothing (Ident "mainmod" 117)))))) [])),(PatternDecl (281,4) (VariablePattern (Ident "mainmodset" 118)) (SimpleRhs (281,17) (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0))) (Variable (QualIdent Nothing (Ident "mainmodname" 118)))) (Paren (Apply (Variable (QualIdent (Just "SetRBT") (Ident "emptySetRBT" 0))) (Variable (QualIdent (Just "Sort") (Ident "leqString" 0)))))) [])),(FunctionDecl (283,4) (Ident "add2mainmodset" 118) [(Equation (283,4) (FunLhs (Ident "add2mainmodset" 118) [(VariablePattern (Ident "mnames" 126))]) (SimpleRhs (283,28) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "mainmodset" 118)))) (Variable (QualIdent Nothing (Ident "mnames" 126)))) []))])]))])+,(TypeSig (287,1) [(Ident "exportedFuncNames" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (288,1) (Ident "exportedFuncNames" 0) [(Equation (288,1) (FunLhs (Ident "exportedFuncNames" 0) [(VariablePattern (Ident "funs" 134))]) (SimpleRhs (289,4) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 136)),(VariablePattern (Ident "_" 137)),(VariablePattern (Ident "_" 138)),(VariablePattern (Ident "_" 139)),(VariablePattern (Ident "_" 140))]))] (Variable (QualIdent Nothing (Ident "name" 136)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 142)),(VariablePattern (Ident "_" 143)),(VariablePattern (Ident "vis" 141)),(VariablePattern (Ident "_" 144)),(VariablePattern (Ident "_" 145))]))] (InfixApply (Variable (QualIdent Nothing (Ident "vis" 141))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Public" 0))))))) (Variable (QualIdent Nothing (Ident "funs" 134)))))) []))])+,(TypeSig (305,1) [(Ident "getCalledFuncs" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "RequiredSpec" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TableRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]),(ConstructorType (QualIdent Nothing (Ident "SetRBT" 0)) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])])])]))))))))))+,(FunctionDecl (310,1) (Ident "getCalledFuncs" 0) [(Equation (310,1) (FunLhs (Ident "getCalledFuncs" 0) [(VariablePattern (Ident "_" 147)),(VariablePattern (Ident "_" 148)),(VariablePattern (Ident "progs" 146)),(VariablePattern (Ident "_" 149)),(VariablePattern (Ident "_" 150)),(VariablePattern (Ident "dcs" 146)),(VariablePattern (Ident "ts" 146)),(ListPattern [])]) (SimpleRhs (310,42) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "progs" 146))),(List []),(Variable (QualIdent Nothing (Ident "dcs" 146))),(Variable (QualIdent Nothing (Ident "ts" 146)))])) [])),(Equation (311,1) (FunLhs (Ident "getCalledFuncs" 0) [(VariablePattern (Ident "required" 152)),(VariablePattern (Ident "loadedmnames" 152)),(VariablePattern (Ident "progs" 152)),(VariablePattern (Ident "functable" 152)),(VariablePattern (Ident "loadedfnames" 152)),(VariablePattern (Ident "loadedcnames" 152)),(VariablePattern (Ident "loadedtnames" 152)),(ParenPattern (InfixPattern (TuplePattern [(VariablePattern (Ident "m" 152)),(VariablePattern (Ident "f" 152))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "fs" 152))))]) (GuardedRhs [(CondExpr (313,3) (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "m" 152)))) (Variable (QualIdent Nothing (Ident "loadedmnames" 152)))))) (Do [(StmtBind (VariablePattern (Ident "newmod" 154)) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readCurrentFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "m" 152))))),(StmtDecl [(PatternDecl (315,13) (VariablePattern (Ident "reqnewfun" 155)) (SimpleRhs (315,25) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getRequiredInModule" 0))) (Variable (QualIdent Nothing (Ident "required" 152)))) (Variable (QualIdent Nothing (Ident "m" 152)))) []))])] (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getCalledFuncs" 0))) (Variable (QualIdent Nothing (Ident "required" 152)))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0))) (Variable (QualIdent Nothing (Ident "m" 152)))) (Variable (QualIdent Nothing (Ident "loadedmnames" 152)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "newmod" 154))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "progs" 152)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "extendFuncTable" 0))) (Variable (QualIdent Nothing (Ident "functable" 152)))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleFuns" 0))) (Variable (QualIdent Nothing (Ident "newmod" 154)))))))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "loadedfnames" 152)))) (Variable (QualIdent Nothing (Ident "reqnewfun" 155)))))) (Variable (QualIdent Nothing (Ident "loadedcnames" 152)))) (Variable (QualIdent Nothing (Ident "loadedtnames" 152)))) (Paren (InfixApply (Tuple [(Variable (QualIdent Nothing (Ident "m" 152))),(Variable (QualIdent Nothing (Ident "f" 152)))]) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "fs" 152))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "reqnewfun" 155))))))))),(CondExpr (320,3) (InfixApply (Apply (Apply (Variable (QualIdent (Just "TableRBT") (Ident "lookupRBT" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "m" 152))),(Variable (QualIdent Nothing (Ident "f" 152)))])) (Variable (QualIdent Nothing (Ident "functable" 152)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getCalledFuncs" 0))) (Variable (QualIdent Nothing (Ident "required" 152)))) (Variable (QualIdent Nothing (Ident "loadedmnames" 152)))) (Variable (QualIdent Nothing (Ident "progs" 152)))) (Variable (QualIdent Nothing (Ident "functable" 152)))) (Variable (QualIdent Nothing (Ident "loadedfnames" 152)))) (Variable (QualIdent Nothing (Ident "loadedcnames" 152)))) (Variable (QualIdent Nothing (Ident "loadedtnames" 152)))) (Variable (QualIdent Nothing (Ident "fs" 152))))),(CondExpr (324,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Do [(StmtDecl [(PatternDecl (325,8) (VariablePattern (Ident "fdecl" 157)) (SimpleRhs (325,16) (Apply (Variable (QualIdent (Just "Maybe") (Ident "fromJust" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "TableRBT") (Ident "lookupRBT" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "m" 152))),(Variable (QualIdent Nothing (Ident "f" 152)))])) (Variable (QualIdent Nothing (Ident "functable" 152)))))) [])),(PatternDecl (326,8) (VariablePattern (Ident "funcCalls" 157)) (SimpleRhs (326,20) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCalls" 0))) (Variable (QualIdent Nothing (Ident "fdecl" 157)))) [])),(PatternDecl (327,8) (VariablePattern (Ident "newFuncCalls" 157)) (SimpleRhs (327,23) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(VariablePattern (Ident "qn" 161))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "qn" 161)))) (Variable (QualIdent Nothing (Ident "loadedfnames" 152))))))))) (Variable (QualIdent Nothing (Ident "funcCalls" 157)))) [])),(PatternDecl (328,8) (VariablePattern (Ident "newReqs" 157)) (SimpleRhs (328,18) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getImplicitlyRequired" 0))) (Variable (QualIdent Nothing (Ident "required" 152)))))) (Variable (QualIdent Nothing (Ident "newFuncCalls" 157)))) [])),(PatternDecl (329,8) (VariablePattern (Ident "consCalls" 157)) (SimpleRhs (329,20) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConstructorsOfFunc" 0))) (Variable (QualIdent Nothing (Ident "fdecl" 157)))) [])),(PatternDecl (330,8) (VariablePattern (Ident "newConsCalls" 157)) (SimpleRhs (330,23) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (Lambda [(VariablePattern (Ident "qn" 165))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "SetRBT") (Ident "elemRBT" 0))) (Variable (QualIdent Nothing (Ident "qn" 165)))) (Variable (QualIdent Nothing (Ident "loadedcnames" 152))))))))) (Variable (QualIdent Nothing (Ident "consCalls" 157)))) [])),(PatternDecl (331,8) (VariablePattern (Ident "newtcons" 157)) (SimpleRhs (331,19) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfFunc" 0))) (Variable (QualIdent Nothing (Ident "fdecl" 157)))) []))]),(StmtBind (TuplePattern [(VariablePattern (Ident "newprogs" 167)),(VariablePattern (Ident "newfuns" 167)),(VariablePattern (Ident "newcons" 167)),(VariablePattern (Ident "newtypes" 167))]) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getCalledFuncs" 0))) (Variable (QualIdent Nothing (Ident "required" 152)))) (Variable (QualIdent Nothing (Ident "loadedmnames" 152)))) (Variable (QualIdent Nothing (Ident "progs" 152)))) (Variable (QualIdent Nothing (Ident "functable" 152)))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "loadedfnames" 152)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "newFuncCalls" 157))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "newReqs" 157)))))))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "loadedcnames" 152)))) (Variable (QualIdent Nothing (Ident "consCalls" 157)))))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "SetRBT") (Ident "insertRBT" 0)))) (Variable (QualIdent Nothing (Ident "loadedtnames" 152)))) (Variable (QualIdent Nothing (Ident "newtcons" 157)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "fs" 152))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "newFuncCalls" 157))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "newReqs" 157))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "newConsCalls" 157)))))))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "newprogs" 167))),(InfixApply (Variable (QualIdent Nothing (Ident "fdecl" 157))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "newfuns" 167)))),(Variable (QualIdent Nothing (Ident "newcons" 167))),(Variable (QualIdent Nothing (Ident "newtypes" 167)))]))))] []))])+,(TypeSig (348,1) [(Ident "allFuncCalls" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (349,1) (Ident "allFuncCalls" 0) [(Equation (349,1) (FunLhs (Ident "allFuncCalls" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 169)),(VariablePattern (Ident "_" 170)),(VariablePattern (Ident "_" 171)),(VariablePattern (Ident "_" 172)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "_" 173))]))]))]) (SimpleRhs (349,44) (List []) [])),(Equation (350,1) (FunLhs (Ident "allFuncCalls" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 176)),(VariablePattern (Ident "_" 177)),(VariablePattern (Ident "_" 178)),(VariablePattern (Ident "_" 179)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "_" 180)),(VariablePattern (Ident "expr" 175))]))]))]) (SimpleRhs (350,45) (Apply (Variable (QualIdent (Just "List") (Ident "nub" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 175)))))) []))])+,(TypeSig (356,1) [(Ident "allFuncCallsOfExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (357,1) (Ident "allFuncCallsOfExpr" 0) [(Equation (357,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 183))]))]) (SimpleRhs (357,30) (List []) [])),(Equation (358,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 186))]))]) (SimpleRhs (358,30) (List []) [])),(Equation (359,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ctype" 188)),(VariablePattern (Ident "fname" 188)),(VariablePattern (Ident "exprs" 188))]))]) (SimpleRhs (359,47) (Case (Variable (QualIdent Nothing (Ident "ctype" 188))) [(Alt (360,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)) []) (SimpleRhs (360,21) (InfixApply (Variable (QualIdent Nothing (Ident "fname" 188))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "fnames" 189)))) [])),(Alt (361,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0)) [(VariablePattern (Ident "_" 194))]) (SimpleRhs (361,21) (InfixApply (Variable (QualIdent Nothing (Ident "fname" 188))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "fnames" 189)))) [])),(Alt (362,3) (VariablePattern (Ident "_" 197)) (SimpleRhs (362,8) (Variable (QualIdent Nothing (Ident "fnames" 189))) []))]) [(PatternDecl (364,3) (VariablePattern (Ident "fnames" 189)) (SimpleRhs (364,12) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0)))) (Variable (QualIdent Nothing (Ident "exprs" 188)))) []))])),(Equation (365,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 200)),(VariablePattern (Ident "expr" 199))]))]) (SimpleRhs (366,5) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 199)))) [])),(Equation (367,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bs" 202)),(VariablePattern (Ident "expr" 202))]))]) (SimpleRhs (368,5) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (InfixApply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "snd" 0)))))) (Variable (QualIdent Nothing (Ident "bs" 202)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 202))))) [])),(Equation (369,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "expr1" 204)),(VariablePattern (Ident "expr2" 204))]))]) (SimpleRhs (370,5) (InfixApply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr1" 204)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr2" 204))))) [])),(Equation (371,1) (FunLhs (Ident "allFuncCallsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 207)),(VariablePattern (Ident "expr" 206)),(VariablePattern (Ident "branchExprs" 206))]))]) (SimpleRhs (372,5) (InfixApply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 206)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfBranchExpr" 0)))) (Variable (QualIdent Nothing (Ident "branchExprs" 206))))) []))])+,(TypeSig (379,1) [(Ident "allFuncCallsOfBranchExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (380,1) (Ident "allFuncCallsOfBranchExpr" 0) [(Equation (380,1) (FunLhs (Ident "allFuncCallsOfBranchExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "_" 210)),(VariablePattern (Ident "expr" 209))]))]) (SimpleRhs (380,44) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allFuncCallsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 209)))) []))])+,(TypeSig (385,1) [(Ident "allConstructorsOfFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (386,1) (Ident "allConstructorsOfFunc" 0) [(Equation (386,1) (FunLhs (Ident "allConstructorsOfFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 213)),(VariablePattern (Ident "_" 214)),(VariablePattern (Ident "_" 215)),(VariablePattern (Ident "_" 216)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "_" 217))]))]))]) (SimpleRhs (386,53) (List []) [])),(Equation (387,1) (FunLhs (Ident "allConstructorsOfFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 220)),(VariablePattern (Ident "_" 221)),(VariablePattern (Ident "_" 222)),(VariablePattern (Ident "_" 223)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "_" 224)),(VariablePattern (Ident "expr" 219))]))]))]) (SimpleRhs (387,54) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 219)))) []))])+,(TypeSig (390,1) [(Ident "allConsOfExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (391,1) (Ident "allConsOfExpr" 0) [(Equation (391,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 227))]))]) (SimpleRhs (391,25) (List []) [])),(Equation (392,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 230))]))]) (SimpleRhs (392,25) (List []) [])),(Equation (393,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ctype" 232)),(VariablePattern (Ident "cname" 232)),(VariablePattern (Ident "exprs" 232))]))]) (SimpleRhs (393,42) (Case (Variable (QualIdent Nothing (Ident "ctype" 232))) [(Alt (394,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []) (SimpleRhs (394,21) (InfixApply (Variable (QualIdent Nothing (Ident "cname" 232))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cnames" 233)))) [])),(Alt (395,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0)) [(VariablePattern (Ident "_" 238))]) (SimpleRhs (395,21) (InfixApply (Variable (QualIdent Nothing (Ident "cname" 232))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cnames" 233)))) [])),(Alt (396,3) (VariablePattern (Ident "_" 241)) (SimpleRhs (396,8) (Variable (QualIdent Nothing (Ident "cnames" 233))) []))]) [(PatternDecl (398,3) (VariablePattern (Ident "cnames" 233)) (SimpleRhs (398,12) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "unionMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0)))) (Variable (QualIdent Nothing (Ident "exprs" 232)))) []))])),(Equation (399,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 244)),(VariablePattern (Ident "expr" 243))]))]) (SimpleRhs (400,4) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 243)))) [])),(Equation (401,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bs" 246)),(VariablePattern (Ident "expr" 246))]))]) (SimpleRhs (402,4) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "unionMap" 0))) (Paren (InfixApply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "snd" 0)))))) (Variable (QualIdent Nothing (Ident "bs" 246)))))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 246)))))) [])),(Equation (403,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "expr1" 248)),(VariablePattern (Ident "expr2" 248))]))]) (SimpleRhs (404,4) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr1" 248)))))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr2" 248)))))) [])),(Equation (405,1) (FunLhs (Ident "allConsOfExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 251)),(VariablePattern (Ident "expr" 250)),(VariablePattern (Ident "branchExprs" 250))]))]) (SimpleRhs (406,4) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 250)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "unionMap" 0))) (Variable (QualIdent Nothing (Ident "consOfBranch" 252)))) (Variable (QualIdent Nothing (Ident "branchExprs" 250)))))) [(FunctionDecl (408,3) (Ident "consOfBranch" 252) [(Equation (408,3) (FunLhs (Ident "consOfBranch" 252) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "_" 254))])),(VariablePattern (Ident "e" 253))]))]) (SimpleRhs (408,42) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 253)))) [])),(Equation (409,3) (FunLhs (Ident "consOfBranch" 252) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "c" 256)),(VariablePattern (Ident "_" 257))])),(VariablePattern (Ident "e" 256))]))]) (SimpleRhs (409,43) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 256)))])) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allConsOfExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 256)))))) []))])]))])+,(TypeSig (413,1) [(Ident "allTypesOfFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (414,1) (Ident "allTypesOfFunc" 0) [(Equation (414,1) (FunLhs (Ident "allTypesOfFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "_" 260)),(VariablePattern (Ident "_" 261)),(VariablePattern (Ident "_" 262)),(VariablePattern (Ident "texp" 259)),(VariablePattern (Ident "_" 263))]))]) (SimpleRhs (414,38) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0))) (Variable (QualIdent Nothing (Ident "texp" 259)))) []))])+,(TypeSig (417,1) [(Ident "allTypesOfTExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []))))+,(FunctionDecl (418,1) (Ident "allTypesOfTExpr" 0) [(Equation (418,1) (FunLhs (Ident "allTypesOfTExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "_" 266))]))]) (SimpleRhs (418,28) (List []) [])),(Equation (419,1) (FunLhs (Ident "allTypesOfTExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "texp1" 268)),(VariablePattern (Ident "texp2" 268))]))]) (SimpleRhs (420,4) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0))) (Variable (QualIdent Nothing (Ident "texp1" 268)))))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0))) (Variable (QualIdent Nothing (Ident "texp2" 268)))))) [])),(Equation (421,1) (FunLhs (Ident "allTypesOfTExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tcons" 270)),(VariablePattern (Ident "args" 270))]))]) (SimpleRhs (422,3) (Apply (Apply (Variable (QualIdent (Just "List") (Ident "union" 0))) (List [(Variable (QualIdent Nothing (Ident "tcons" 270)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "unionMap" 0))) (Variable (QualIdent (Just "CompactFlatCurry") (Ident "allTypesOfTExpr" 0)))) (Variable (QualIdent Nothing (Ident "args" 270)))))) []))])+,(FunctionDecl (424,1) (Ident "unionMap" 0) [(Equation (424,1) (FunLhs (Ident "unionMap" 0) [(VariablePattern (Ident "f" 272))]) (SimpleRhs (424,14) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "List") (Ident "union" 0)))) (List [])) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 272))))) []))])+,(TypeSig (432,1) [(Ident "functionName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (433,1) (Ident "functionName" 0) [(Equation (433,1) (FunLhs (Ident "functionName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 274)),(VariablePattern (Ident "_" 275)),(VariablePattern (Ident "_" 276)),(VariablePattern (Ident "_" 277)),(VariablePattern (Ident "_" 278))]))]) (SimpleRhs (433,36) (Variable (QualIdent Nothing (Ident "name" 274))) []))])+,(TypeSig (436,1) [(Ident "consName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (437,1) (Ident "consName" 0) [(Equation (437,1) (FunLhs (Ident "consName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "name" 280)),(VariablePattern (Ident "_" 281)),(VariablePattern (Ident "_" 282)),(VariablePattern (Ident "_" 283))]))]) (SimpleRhs (437,30) (Variable (QualIdent Nothing (Ident "name" 280))) []))])+,(TypeSig (440,1) [(Ident "tconsName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (441,1) (Ident "tconsName" 0) [(Equation (441,1) (FunLhs (Ident "tconsName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 285)),(VariablePattern (Ident "_" 286)),(VariablePattern (Ident "_" 287)),(VariablePattern (Ident "_" 288))]))]) (SimpleRhs (441,31) (Variable (QualIdent Nothing (Ident "name" 285))) [])),(Equation (442,1) (FunLhs (Ident "tconsName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 290)),(VariablePattern (Ident "_" 291)),(VariablePattern (Ident "_" 292)),(VariablePattern (Ident "_" 293))]))]) (SimpleRhs (442,34) (Variable (QualIdent Nothing (Ident "name" 290))) []))])+,(TypeSig (445,1) [(Ident "moduleImports" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (446,1) (Ident "moduleImports" 0) [(Equation (446,1) (FunLhs (Ident "moduleImports" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 296)),(VariablePattern (Ident "imports" 295)),(VariablePattern (Ident "_" 297)),(VariablePattern (Ident "_" 298)),(VariablePattern (Ident "_" 299))]))]) (SimpleRhs (446,40) (Variable (QualIdent Nothing (Ident "imports" 295))) []))])+,(TypeSig (450,1) [(Ident "moduleTypes" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []))))+,(FunctionDecl (451,1) (Ident "moduleTypes" 0) [(Equation (451,1) (FunLhs (Ident "moduleTypes" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 302)),(VariablePattern (Ident "_" 303)),(VariablePattern (Ident "types" 301)),(VariablePattern (Ident "_" 304)),(VariablePattern (Ident "_" 305))]))]) (SimpleRhs (451,36) (Variable (QualIdent Nothing (Ident "types" 301))) []))])+,(TypeSig (454,1) [(Ident "moduleOps" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))))+,(FunctionDecl (455,1) (Ident "moduleOps" 0) [(Equation (455,1) (FunLhs (Ident "moduleOps" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 308)),(VariablePattern (Ident "_" 309)),(VariablePattern (Ident "_" 310)),(VariablePattern (Ident "_" 311)),(VariablePattern (Ident "ops" 307))]))]) (SimpleRhs (455,32) (Variable (QualIdent Nothing (Ident "ops" 307))) []))])+,(TypeSig (458,1) [(Ident "moduleName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (459,1) (Ident "moduleName" 0) [(Equation (459,1) (FunLhs (Ident "moduleName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "name" 313)),(VariablePattern (Ident "_" 314)),(VariablePattern (Ident "_" 315)),(VariablePattern (Ident "_" 316)),(VariablePattern (Ident "_" 317))]))]) (SimpleRhs (459,34) (Variable (QualIdent Nothing (Ident "name" 313))) []))])+,(TypeSig (462,1) [(Ident "moduleFuns" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []))))+,(FunctionDecl (463,1) (Ident "moduleFuns" 0) [(Equation (463,1) (FunLhs (Ident "moduleFuns" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 320)),(VariablePattern (Ident "_" 321)),(VariablePattern (Ident "_" 322)),(VariablePattern (Ident "funs" 319)),(VariablePattern (Ident "_" 323))]))]) (SimpleRhs (463,34) (Variable (QualIdent Nothing (Ident "funs" 319))) []))])+,(TypeSig (473,1) [(Ident "leqQName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))))+,(FunctionDecl (474,1) (Ident "leqQName" 0) [(Equation (474,1) (FunLhs (Ident "leqQName" 0) [(TuplePattern [(VariablePattern (Ident "m1" 325)),(VariablePattern (Ident "n1" 325))]),(TuplePattern [(VariablePattern (Ident "m2" 325)),(VariablePattern (Ident "n2" 325))])]) (SimpleRhs (474,28) (Let [(PatternDecl (474,32) (VariablePattern (Ident "cm" 327)) (SimpleRhs (474,37) (Apply (Apply (Variable (QualIdent (Just "Sort") (Ident "cmpString" 0))) (Variable (QualIdent Nothing (Ident "m1" 325)))) (Variable (QualIdent Nothing (Ident "m2" 325)))) []))] (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "cm" 327))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "LT" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "cm" 327))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "EQ" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Apply (Variable (QualIdent (Just "Sort") (Ident "leqString" 0))) (Variable (QualIdent Nothing (Ident "n1" 325)))) (Variable (QualIdent Nothing (Ident "n2" 325)))))))) []))])+,(TypeSig (483,1) [(Ident "readCurrentFlatCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])))+,(FunctionDecl (484,1) (Ident "readCurrentFlatCurry" 0) [(Equation (484,1) (FunLhs (Ident "readCurrentFlatCurry" 0) [(VariablePattern (Ident "modname" 329))]) (SimpleRhs (484,32) (Do [(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "modname" 329))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "...")))))),(StmtBind (VariablePattern (Ident "progname" 331)) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "findSourceFileInLoadPath" 0))) (Variable (QualIdent Nothing (Ident "modname" 329))))),(StmtBind (VariablePattern (Ident "fcyexists" 332)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "flatCurryFileName" 0))) (Variable (QualIdent Nothing (Ident "progname" 331)))))))] (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Variable (QualIdent Nothing (Ident "fcyexists" 332)))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "progname" 331)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "processPrimitives" 0))) (Variable (QualIdent Nothing (Ident "progname" 331))))) (Do [(StmtBind (VariablePattern (Ident "ctime" 333)) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "getSourceModificationTime" 0))) (Variable (QualIdent Nothing (Ident "progname" 331))))),(StmtBind (VariablePattern (Ident "ftime" 334)) (Apply (Variable (QualIdent (Just "Directory") (Ident "getModificationTime" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "flatCurryFileName" 0))) (Variable (QualIdent Nothing (Ident "progname" 331)))))))] (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "Time") (Ident "clockTimeToInt" 0))) (Variable (QualIdent Nothing (Ident "ctime" 333)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Apply (Variable (QualIdent (Just "Time") (Ident "clockTimeToInt" 0))) (Variable (QualIdent Nothing (Ident "ftime" 334))))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "progname" 331)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "processPrimitives" 0))) (Variable (QualIdent Nothing (Ident "progname" 331))))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "flatCurryFileName" 0))) (Variable (QualIdent Nothing (Ident "progname" 331)))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "processPrimitives" 0))) (Variable (QualIdent Nothing (Ident "progname" 331))))))))) []))])+,(FunctionDecl (498,1) (Ident "getSourceModificationTime" 0) [(Equation (498,1) (FunLhs (Ident "getSourceModificationTime" 0) [(VariablePattern (Ident "progname" 335))]) (SimpleRhs (498,38) (Do [(StmtBind (VariablePattern (Ident "lexists" 337)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 335))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry"))))))] (IfThenElse (Variable (QualIdent Nothing (Ident "lexists" 337))) (Apply (Variable (QualIdent (Just "Directory") (Ident "getModificationTime" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 335))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry"))))) (Apply (Variable (QualIdent (Just "Directory") (Ident "getModificationTime" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 335))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".curry"))))))) []))])+,(FunctionDecl (505,1) (Ident "findSourceFileInLoadPath" 0) [(Equation (505,1) (FunLhs (Ident "findSourceFileInLoadPath" 0) [(VariablePattern (Ident "modname" 338))]) (SimpleRhs (505,36) (Do [(StmtBind (VariablePattern (Ident "loadpath" 340)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Variable (QualIdent Nothing (Ident "modname" 338))))),(StmtBind (VariablePattern (Ident "mbfname" 341)) (Apply (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Paren (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "modname" 338)))))) (List [(Literal (String ".lcurry")),(Literal (String ".curry"))])) (Variable (QualIdent Nothing (Ident "loadpath" 340)))))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Paren (InfixApply (Literal (String "Curry file for module \"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "modname" 338))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\" not found!")))))))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FileGoodies") (Ident "stripSuffix" 0)))))) (Variable (QualIdent Nothing (Ident "mbfname" 341))))) []))])+,(TypeSig (513,1) [(Ident "processPrimitives" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])]))))+,(FunctionDecl (514,1) (Ident "processPrimitives" 0) [(Equation (514,1) (FunLhs (Ident "processPrimitives" 0) [(VariablePattern (Ident "progname" 342)),(VariablePattern (Ident "prog" 342))]) (SimpleRhs (514,35) (Do [(StmtBind (VariablePattern (Ident "pspecs" 344)) (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "readPrimSpec" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "moduleName" 0))) (Variable (QualIdent Nothing (Ident "prog" 342)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 342))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".prim_c2p"))))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "mergePrimSpecIntoModule" 0))) (Variable (QualIdent Nothing (Ident "pspecs" 344)))) (Variable (QualIdent Nothing (Ident "prog" 342))))))) []))])+,(FunctionDecl (518,1) (Ident "mergePrimSpecIntoModule" 0) [(Equation (518,1) (FunLhs (Ident "mergePrimSpecIntoModule" 0) [(VariablePattern (Ident "trans" 345)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "name" 345)),(VariablePattern (Ident "imps" 345)),(VariablePattern (Ident "types" 345)),(VariablePattern (Ident "funcs" 345)),(VariablePattern (Ident "ops" 345))]))]) (SimpleRhs (519,3) (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Prog" 0))) (Variable (QualIdent Nothing (Ident "name" 345)))) (Variable (QualIdent Nothing (Ident "imps" 345)))) (Variable (QualIdent Nothing (Ident "types" 345)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "mergePrimSpecIntoFunc" 0))) (Variable (QualIdent Nothing (Ident "trans" 345)))))) (Variable (QualIdent Nothing (Ident "funcs" 345)))))) (Variable (QualIdent Nothing (Ident "ops" 345)))) []))])+,(FunctionDecl (521,1) (Ident "mergePrimSpecIntoFunc" 0) [(Equation (521,1) (FunLhs (Ident "mergePrimSpecIntoFunc" 0) [(VariablePattern (Ident "trans" 347)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 347)),(VariablePattern (Ident "ar" 347)),(VariablePattern (Ident "vis" 347)),(VariablePattern (Ident "tp" 347)),(VariablePattern (Ident "rule" 347))]))]) (SimpleRhs (522,2) (Let [(PatternDecl (522,6) (VariablePattern (Ident "fname" 349)) (SimpleRhs (522,14) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "lookup" 0))) (Variable (QualIdent Nothing (Ident "name" 347)))) (Variable (QualIdent Nothing (Ident "trans" 347)))) []))] (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "fname" 349))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (List [(Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Func" 0))) (Variable (QualIdent Nothing (Ident "name" 347)))) (Variable (QualIdent Nothing (Ident "ar" 347)))) (Variable (QualIdent Nothing (Ident "vis" 347)))) (Variable (QualIdent Nothing (Ident "tp" 347)))) (Variable (QualIdent Nothing (Ident "rule" 347))))]) (Let [(PatternDecl (525,11) (ConstructorPattern (QualIdent (Just "Prelude") (Ident "Just" 0)) [(TuplePattern [(VariablePattern (Ident "lib" 351)),(VariablePattern (Ident "entry" 351))])]) (SimpleRhs (525,30) (Variable (QualIdent Nothing (Ident "fname" 349))) []))] (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "entry" 351)))) (List []) (List [(Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Func" 0))) (Variable (QualIdent Nothing (Ident "name" 347)))) (Variable (QualIdent Nothing (Ident "ar" 347)))) (Variable (QualIdent Nothing (Ident "vis" 347)))) (Variable (QualIdent Nothing (Ident "tp" 347)))) (Paren (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "External" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "lib" 351))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char ' ')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "entry" 351)))))))))]))))) []))])+,(TypeSig (531,1) [(Ident "readPrimSpec" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))]))))+,(FunctionDecl (532,1) (Ident "readPrimSpec" 0) [(Equation (532,1) (FunLhs (Ident "readPrimSpec" 0) [(VariablePattern (Ident "mod" 353)),(VariablePattern (Ident "xmlfilename" 353))]) (SimpleRhs (532,32) (Do [(StmtBind (VariablePattern (Ident "existsXml" 355)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "xmlfilename" 353)))))] (IfThenElse (Variable (QualIdent Nothing (Ident "existsXml" 355))) (Do [(StmtBind (VariablePattern (Ident "xmldoc" 356)) (Apply (Variable (QualIdent (Just "XML") (Ident "readXmlFile" 0))) (Variable (QualIdent Nothing (Ident "xmlfilename" 353)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CompactFlatCurry") (Ident "xml2primtrans" 0))) (Variable (QualIdent Nothing (Ident "mod" 353)))) (Variable (QualIdent Nothing (Ident "xmldoc" 356))))))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (List [])))) []))])+,(FunctionDecl (540,1) (Ident "xml2primtrans" 0) [(Equation (540,1) (FunLhs (Ident "xml2primtrans" 0) [(VariablePattern (Ident "mod" 357)),(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "primitives")),(ListPattern []),(VariablePattern (Ident "primitives" 357))]))]) (SimpleRhs (540,56) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "xml2prim" 358)))) (Variable (QualIdent Nothing (Ident "primitives" 357)))) [(FunctionDecl (542,4) (Ident "xml2prim" 358) [(Equation (542,4) (FunLhs (Ident "xml2prim" 358) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "primitive")),(ParenPattern (InfixPattern (TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "fname" 359))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "_" 360)))),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "library")),(ListPattern []),(VariablePattern (Ident "xlib" 359))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "entry")),(ListPattern []),(VariablePattern (Ident "xfun" 359))])])]))]) (SimpleRhs (544,8) (Tuple [(Tuple [(Variable (QualIdent Nothing (Ident "mod" 357))),(Variable (QualIdent Nothing (Ident "fname" 359)))]),(Tuple [(Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xlib" 359)))),(Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xfun" 359))))])]) [])),(Equation (545,4) (FunLhs (Ident "xml2prim" 358) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "ignore")),(ParenPattern (InfixPattern (TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "fname" 362))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "_" 363)))),(ListPattern [])]))]) (SimpleRhs (545,54) (Tuple [(Tuple [(Variable (QualIdent Nothing (Ident "mod" 357))),(Variable (QualIdent Nothing (Ident "fname" 362)))]),(Tuple [(Literal (String "")),(Literal (String ""))])]) []))])]))])+]
+ src/lib/Curry/Module/.curry/CompactFlatCurry.efc view
@@ -0,0 +1,1 @@+Prog "CompactFlatCurry" ["Directory","Distribution","FileGoodies","FlatCurry","List","Maybe","Prelude","RedBlackTree","SetRBT","Sort","TableRBT","Time","XML"] [Type ((Nothing,Nothing,"CompactFlatCurry","Option")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) 0 Public [],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) 0 Public [],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Type ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) Public [] [Cons ((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,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","AlwaysReq")) 1 Private [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Cons ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","Requires")) 2 Private [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")) []]]]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CompactFlatCurry","isMainOption")) 1 Private (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []])),"CompactFlatCurry","getRequiredFromOptions")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []])),"Prelude","concat")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]))),"CompactFlatCurry","getRequiredFromOptions._#lambda6")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]))),"CompactFlatCurry","getRequiredFromOptions._#lambda6")) 2 Private (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []])),"CompactFlatCurry","addImport2Options")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]))),"Prelude","map")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"List","nub")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","addImport2Options.alwaysReqMod.21")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []])),"CompactFlatCurry","getRequiredFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1))]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","addImport2Options.alwaysReqMod.21")) 1 Private (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []),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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","AlwaysReq")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Case  Flex (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))) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TVar 4),4)]) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","Requires")) [(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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) [])])),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) 2 Public (FuncType (TCons ((Nothing,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,"CompactFlatCurry","RequiredSpec")) []))) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","Requires")) [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)),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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","alwaysRequired")) 1 Public (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,"CompactFlatCurry","RequiredSpec")) [])) (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 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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","AlwaysReq")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),"CompactFlatCurry","defaultRequired")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","alwaysRequired")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","alwaysRequired")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","alwaysRequired")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","alwaysRequired")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'V'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '$'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'K'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'K'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getRequiredInModule")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [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,"CompactFlatCurry","RequiredSpec") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getRequiredInModule.getImpReq.38")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getRequiredInModule.getImpReq.38")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char") []]),1),(Just (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []),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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","AlwaysReq")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)]) (Case  Flex (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))) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Var ((Just (TVar 4),5))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","Requires")) [(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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getImplicitlyRequired")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]) (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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),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)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [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,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getImplicitlyRequired.getImpReq.46")) [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,"CompactFlatCurry","RequiredSpec") []]),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,"CompactFlatCurry","RequiredSpec") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getImplicitlyRequired.getImpReq.46")) 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,"CompactFlatCurry","RequiredSpec")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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,"CompactFlatCurry","RequiredSpec") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []),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") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") [])),"CompactFlatCurry","AlwaysReq")) [(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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","Requires")) [(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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [])])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"CompactFlatCurry","defaultRequiredTypes")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (Rule [] (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CompactFlatCurry","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"CompactFlatCurry","generateCompactFlatCurryFile")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","computeCompactFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"CompactFlatCurry","generateCompactFlatCurryFile._#lambda8")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"CompactFlatCurry","generateCompactFlatCurryFile._#lambda8")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"FlatCurry","writeFCY")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","done")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","computeCompactFlatCurry")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []])),"CompactFlatCurry","addImport2Options")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1))])] (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","any")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CompactFlatCurry","isMainOption")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","computeCompactFlatCurry._#lambda9")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),3))]]])]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","computeCompactFlatCurry._#lambda9")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","makeCompactFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'z'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","return")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","makeCompactFlatCurry")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"CompactFlatCurry","requiredInCompactProg")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11")) 3 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","(,,)")) [(Just (TVar 3),4),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6)]) (Let [((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"CompactFlatCurry","extendFuncTable")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 6) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 6,TVar 7]])),"TableRBT","emptyTableRBT")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","leqQName")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 10) (TVar 11)) (FuncType (TVar 10) (TVar 11))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 8) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []])),"CompactFlatCurry","getRequiredFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),9),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 16) (TVar 17)) (FuncType (TVar 16) (TVar 17))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 12) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getRequiredInModule")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),8))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 14) (TVar 15)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 14]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude","++")) [Var ((Just (TVar 3),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),9))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))))))))),"CompactFlatCurry","getCalledFuncs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),8)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),7)),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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],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") []]]) (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","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"SetRBT","emptySetRBT")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","leqQName")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10))],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") []]]) (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","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"SetRBT","emptySetRBT")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","leqQName")) []],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") []]]) (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","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"SetRBT","emptySetRBT")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","leqQName")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]])))))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [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","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TVar 6) (FuncType (TVar 7) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TVar 6),5),(Just (TVar 7),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [],Lit (Intc  0),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (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","Int") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3))]]]]],Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 87) (TVar 88)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude","map")) [Comb (FuncPartCall 1) ((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") []]])),"CompactFlatCurry","functionName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","return")) [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 (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) [],Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 92) (TVar 93)) (FuncType (TVar 92) (TVar 93))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 90) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"CompactFlatCurry","moduleTypes")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),9),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"CompactFlatCurry","extendTConsWithConsType")) [Var ((Just (TVar 6),5)),Var ((Just (TVar 7),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8))])] (Let [((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","requiredDatatypes")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),9)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),8))]))),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"CompactFlatCurry","moduleOps")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3))]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","TypeDecl") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [Comb FuncCall ((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") []]])),"CompactFlatCurry","tconsName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),2))]],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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","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","[]") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") []))),"Prelude","apply")) [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [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,"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,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","requiredDatatypes")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","TypeDecl")) []]) (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree") [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,"FlatCurry","TypeDecl") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [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 (TVar 4) (TVar 5)) (FuncType (TVar 4) (TVar 5))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 2]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","newTypeConsOfTDecl")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"FlatCurry","TypeDecl") []]),2))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),1))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","requiredDatatypes")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","[]") [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","TypeDecl") []]),2))])]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","newTypeConsOfTDecl")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","TypeDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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","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") []]]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","newTypeConsOfTDecl._#lambda15")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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 (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"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,"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") []]]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),10)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","newTypeConsOfTDecl._#lambda16")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","newTypeConsOfTDecl._#lambda17")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),10))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","newTypeConsOfTDecl._#lambda15")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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)] (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,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","newTypeConsOfTDecl._#lambda16")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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)] (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,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [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,"RedBlackTree","RedBlackTree") [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","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","newTypeConsOfTDecl._#lambda17")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"CompactFlatCurry","extendTConsWithConsType")) 3 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","TypeDecl")) []]) (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","TypeDecl") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2))),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),4))) [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") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"CompactFlatCurry","extendTConsWithConsType")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],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))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","TypeDecl") []]),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,"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") []]]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),13)]) (Case  Rigid (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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") []))),"Prelude","apply")) [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),10))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"CompactFlatCurry","defaultRequiredTypes")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","any")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","extendTConsWithConsType._#lambda18")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"FlatCurry","ConsDecl") []]),13))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"CompactFlatCurry","extendTConsWithConsType")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),10))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","TypeDecl") []]),5))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","TypeDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"CompactFlatCurry","extendTConsWithConsType")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","TypeDecl") []]),5))])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","extendTConsWithConsType._#lambda18")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","ConsDecl") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [Comb FuncCall ((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") []]])),"CompactFlatCurry","consName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),2))]],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"CompactFlatCurry","extendFuncTable")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"CompactFlatCurry","extendFuncTable._#lambda19")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"CompactFlatCurry","extendFuncTable._#lambda19")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]) (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"Prelude","apply")) [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","FuncDecl") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]])))),"TableRBT","updateRBT")) [Comb FuncCall ((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") []]])),"CompactFlatCurry","functionName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"CompactFlatCurry","requiredInCompactProg")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10])),"List","nub")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 8) (FuncType (TVar 9) (TVar 9))) (FuncType (TVar 9) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TVar 9)))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (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") []]]))),"CompactFlatCurry","requiredInCompactProg._#lambda22")) [],Comb ConsCall ((Nothing,Just (TVar 7),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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 (TVar 12) (FuncType (TVar 13) (TVar 13))) (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (TVar 13)))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"CompactFlatCurry","requiredInCompactProg._#lambda26")) [],Comb ConsCall ((Nothing,Just (TVar 11),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","exportedFuncNames")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]])] (Let [((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 20) (TVar 21)) (FuncType (TVar 20) (TVar 21))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 15) (TVar 16)) (FuncType (TVar 15) (TVar 16))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 14) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TVar 14]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TVar 14]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 18) (TVar 19)) (FuncType (TVar 18) (TVar 19))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 17) (FuncType (TVar 17) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TVar 17])),"SetRBT","emptySetRBT")) [],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") []))),"Sort","leqString")) []]])] (Case  Rigid (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,"Prelude","[]") [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","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),5))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude","mapIO")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))))),"CompactFlatCurry","requiredInCompactProg._#lambda28")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),5)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude","mapIO")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))))),"CompactFlatCurry","requiredInCompactProg._#lambda29")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","any")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CompactFlatCurry","isMainOption")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","getMainFuncFromOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","Option") []]),2))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","Bool") []))),"Prelude","apply")) [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))]],Comb FuncCall ((Nothing,Just (FuncType (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") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((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") []]])),"CompactFlatCurry","functionName")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude","mapIO")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb (FuncPartCall 1) ((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,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"CompactFlatCurry","requiredInCompactProg._#lambda30")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude","mapIO")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"List","nub")) [Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","moduleImports")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"CompactFlatCurry","requiredInCompactProg._#lambda31")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]),"Prelude","failed")) [])])])])]))))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (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") []]]))),"CompactFlatCurry","requiredInCompactProg._#lambda22")) 2 Private (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []) (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")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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") []]]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"CompactFlatCurry","requiredInCompactProg._#lambda26")) 2 Private (FuncType (TCons ((Nothing,Nothing,"CompactFlatCurry","Option")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]]))) (Rule [(Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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,"CompactFlatCurry","Option") [])),"CompactFlatCurry","InitFuncs")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","(,)") [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Verbose")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Main")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"CompactFlatCurry","Option") []),"CompactFlatCurry","Exports")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Required")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CompactFlatCurry","Option") [])),"CompactFlatCurry","Import")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","requiredInCompactProg.add2mainmodset.118")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude","foldr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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") []]]),2))])),Func ((Nothing,Just (FuncType (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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))))),"CompactFlatCurry","requiredInCompactProg._#lambda28")) 5 Private (FuncType (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","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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,"FlatCurry","Prog") []),3),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),5)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","(,,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","concat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","requiredInCompactProg.add2mainmodset.118")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),5))]]])),Func ((Nothing,Just (FuncType (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))))),"CompactFlatCurry","requiredInCompactProg._#lambda29")) 5 Private (FuncType (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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"FlatCurry","Prog") []),3),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),5)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","(,,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"List","nub")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","requiredInCompactProg.add2mainmodset.118")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),5))]]])),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,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"CompactFlatCurry","requiredInCompactProg._#lambda30")) 6 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,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))))))) (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,"FlatCurry","Prog") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","(,,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 6) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 6))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","requiredInCompactProg.add2mainmodset.118")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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") []) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"CompactFlatCurry","requiredInCompactProg._#lambda31")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,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")) []) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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","Prog") []),2),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","(,,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"List","nub")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [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","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","exportedFuncNames")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),4))]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","requiredInCompactProg.add2mainmodset.118")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),4))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),4))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","exportedFuncNames")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [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,"FlatCurry","FuncDecl") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (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") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((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") []]])),"CompactFlatCurry","exportedFuncNames._#lambda32")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CompactFlatCurry","exportedFuncNames._#lambda33")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),1))]])),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") []]])),"CompactFlatCurry","exportedFuncNames._#lambda32")) 1 Private (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 [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (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","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CompactFlatCurry","exportedFuncNames._#lambda33")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))))))))),"CompactFlatCurry","getCalledFuncs")) 8 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [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,"CompactFlatCurry","RequiredSpec") []]),1),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TVar 12) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))))),"Prelude","(,,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3)),Comb ConsCall ((Nothing,Just (TVar 12),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),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,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"SetRBT","elemRBT")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))],Comb (FuncPartCall 1) ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]])))))))))))),"CompactFlatCurry","getCalledFuncs._#lambda34")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"TableRBT","lookupRBT")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))]],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),"Prelude","Nothing")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))))))))),"CompactFlatCurry","getCalledFuncs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),1)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10))]),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")) []) (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),13),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 32]) (TVar 32)),"Maybe","fromJust")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 30) (TVar 31)) (FuncType (TVar 30) (TVar 31))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 28,TVar 29]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 29]))),"TableRBT","lookupRBT")) [Comb ConsCall ((Nothing,Just (TVar 27),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))]],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),14),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCalls")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),13))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),15),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 33) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","getCalledFuncs._#lambda35")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),14))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),16),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 36) (TVar 37)) (FuncType (TVar 36) (TVar 37))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 34) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getImplicitlyRequired")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),1))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),15))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),17),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConstructorsOfFunc")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),13))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),18),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 38) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]))),"Prelude","filter")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","getCalledFuncs._#lambda36")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),17))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),19),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfFunc")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),13))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))))))))),"CompactFlatCurry","getCalledFuncs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),1)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),3)),Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),4)),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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),15)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),16))]],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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),17))],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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),19))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),15)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),16)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),18))]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))),"CompactFlatCurry","getCalledFuncs._#lambda37")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),13))]])))))))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]])))))))))))),"CompactFlatCurry","getCalledFuncs._#lambda34")) 11 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"FlatCurry","FuncDecl")) []]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CompactFlatCurry","RequiredSpec")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [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","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),3),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6),(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"Prelude","Char") []]),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),11)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),12),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","getRequiredInModule")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))))))))),"CompactFlatCurry","getCalledFuncs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []]),10)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),9))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]))),"CompactFlatCurry","extendFuncTable")) [Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]]),3)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),11))]],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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude","foldr")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"SetRBT","insertRBT")) [],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),12))],Var ((Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)),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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),12))]]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","getCalledFuncs._#lambda35")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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)] (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,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [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,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,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","Bool") []))),"CompactFlatCurry","getCalledFuncs._#lambda36")) 2 Private (FuncType (TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [TCons ((Nothing,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","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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)] (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,"RedBlackTree","RedBlackTree") [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","Bool") [])) (FuncType (TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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","Bool") []))),"Prelude","apply")) [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,"RedBlackTree","RedBlackTree") [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","Bool") []))),"SetRBT","elemRBT")) [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,"RedBlackTree","RedBlackTree") [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") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]]))),"CompactFlatCurry","getCalledFuncs._#lambda37")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [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","IO")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"RedBlackTree","RedBlackTree")) [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,"RedBlackTree","RedBlackTree")) [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","FuncDecl") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TVar 4) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))))),"Prelude","(,,,)")) [(Just (TVar 2),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4),(Just (TVar 4),5),(Just (TVar 5),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [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","IO") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TVar 4) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []],TCons (Nothing,Nothing,"RedBlackTree","RedBlackTree") [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,"RedBlackTree","RedBlackTree") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))))),"Prelude","(,,,)")) [Var ((Just (TVar 2),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),4))],Var ((Just (TVar 4),5)),Var ((Just (TVar 5),6))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCalls")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))) [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") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"List","nub")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9))]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 25) (TVar 26)) (FuncType (TVar 25) (TVar 26))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 23) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))])] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),9)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)))])),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") []]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))]),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") []]]),12),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (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","[]") [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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [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","(,)") [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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [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,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","snd")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),12))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13))]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),15))]]),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") []),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfBranchExpr")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfBranchExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allFuncCallsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConstructorsOfFunc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))) [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") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),9))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []),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)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 25) (TVar 26)) (FuncType (TVar 25) (TVar 26))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 23) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"CompactFlatCurry","unionMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))])] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),9)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7)))])),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") []]),10),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))]),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") []]]),12),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [Comb FuncCall ((Nothing,Just (FuncType (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","[]") [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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [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","(,)") [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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","unionMap")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [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,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","snd")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),12))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),13))]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),15))]]),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") []),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","unionMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr.consOfBranch.252")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr.consOfBranch.252")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),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") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allConsOfExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfFunc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"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") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4))]]),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") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"List","union")) [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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CompactFlatCurry","unionMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CompactFlatCurry","allTypesOfTExpr")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]))),"CompactFlatCurry","unionMap")) 1 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]))),"List","union")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]),"Prelude","[]")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])),1))]])),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") []]])),"CompactFlatCurry","functionName")) 1 Private (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 [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (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","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","consName")) 1 Private (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 [(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),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") []]]),2)))])),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") []]])),"CompactFlatCurry","tconsName")) 1 Private (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 [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),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") []]]),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","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") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (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)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","moduleImports")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []])),"CompactFlatCurry","moduleTypes")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []])),"CompactFlatCurry","moduleOps")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (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","FuncDecl") []])),"CompactFlatCurry","moduleFuns")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5)))])),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"CompactFlatCurry","leqQName")) 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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (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","(,)")) [(Just (TVar 3),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (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","(,)")) [(Just (TVar 6),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),7),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 10) (TVar 11)) (FuncType (TVar 10) (TVar 11))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 8) (TVar 9)) (FuncType (TVar 8) (TVar 9))),"Prelude","apply")) [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","Ordering") []))),"Sort","cmpString")) [],Var ((Just (TVar 3),3))],Var ((Just (TVar 6),5))])] (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,"Prelude","Ordering") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","LT")) []],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,"Prelude","Ordering") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","EQ")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"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","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (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","apply")) [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") []))),"Sort","leqString")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]]]))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","findSourceFileInLoadPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry._#lambda40")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"CompactFlatCurry","readCurrentFlatCurry._#lambda40")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryFileName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41")) [Var ((Just (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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"CompactFlatCurry","getSourceModificationTime")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42")) [Var ((Just (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,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"Directory","getModificationTime")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryFileName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Time","clockTimeToInt")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Time","clockTimeToInt")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),3))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryFileName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"CompactFlatCurry","getSourceModificationTime")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Time","ClockTime")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]))),"CompactFlatCurry","getSourceModificationTime._#lambda44")) [Var ((Just (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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]))),"CompactFlatCurry","getSourceModificationTime._#lambda44")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Time","ClockTime")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"Directory","getModificationTime")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"Directory","getModificationTime")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"CompactFlatCurry","findSourceFileInLoadPath")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((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") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","findSourceFileInLoadPath._#lambda45")) [Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","findSourceFileInLoadPath._#lambda45")) 2 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")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [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)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46")) [Var ((Just (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,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"CompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","error")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","return")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","stripSuffix")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [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 (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","(,)") [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") []]]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]]))),"CompactFlatCurry","readPrimSpec")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CompactFlatCurry","moduleName")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '2'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives._#lambda47")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"CompactFlatCurry","processPrimitives._#lambda47")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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")) []]]]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []))),"CompactFlatCurry","mergePrimSpecIntoModule")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","Prog") []),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []))),"CompactFlatCurry","mergePrimSpecIntoModule")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","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 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")) [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)),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")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (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","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"CompactFlatCurry","mergePrimSpecIntoFunc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"FlatCurry","FuncDecl") []]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),7))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"CompactFlatCurry","mergePrimSpecIntoFunc")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","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)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8),Comb FuncCall ((Nothing,Just (FuncType (TVar 11) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TVar 12]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 12]))),"Prelude","lookup")) [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,"Prelude","(,)") [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))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,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","Maybe") [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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","Nothing")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [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")) [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))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TVar 8),9),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),8)))] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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","Char") []])),"CompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib")) [Var ((Just (TVar 8),9))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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","Char") []])),"CompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry")) [Var ((Just (TVar 8),9))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [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")) [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)),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 (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),"Prelude","[]")) []])]))))]))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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","Char") []])),"CompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [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","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),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") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","Just")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Case  Flex (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))) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TVar 4),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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","Char") []])),"CompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [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","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),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") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","Just")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (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","(,)")) [(Just (TVar 3),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)))])])),Func ((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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]]))),"CompactFlatCurry","readPrimSpec")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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")) []]]]]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],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") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]])))),"CompactFlatCurry","readPrimSpec._#lambda48")) [Var ((Just (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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]])))),"CompactFlatCurry","readPrimSpec._#lambda48")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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")) []]]]]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]]))),"CompactFlatCurry","readPrimSpec._#lambda48._#lambda49")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]]))),"CompactFlatCurry","readPrimSpec._#lambda48._#lambda49")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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")) []]]]]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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") []]]]]))),"CompactFlatCurry","xml2primtrans")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))]])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,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") []]]]]))),"CompactFlatCurry","xml2primtrans")) 2 Private (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,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")) []]]]]))) (Rule [(Just (TVar 0),1),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 288]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 288) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 288]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 288]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 287]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 287) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 287]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 287]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 286]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 286) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 286]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 286]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 285]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 285) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 285]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 285]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 284]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 284) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 284]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 284]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 283) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 283]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 282]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 282) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 282]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 282]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 281]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 281) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 281]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 281]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 280]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 280) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 280]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 280]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 272),25))) [Branch (Pattern ((Nothing,Just (TVar 272),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 273),4))) [Branch (Pattern ((Nothing,Just (TVar 273),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,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,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,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","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,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") []]]]))),"CompactFlatCurry","xml2primtrans.xml2prim.358")) [Var ((Just (TVar 0),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),5))])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TVar 248) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 248,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") []]]]))),"CompactFlatCurry","xml2primtrans.xml2prim.358")) 2 Private (FuncType (TVar 248) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 248,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")) []]]]))) (Rule [(Just (TVar 248),1),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 355) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 354]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 354) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 354]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 354]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 353) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 352) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 351) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 350) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 349]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 349) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 349]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 349]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 348]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 348) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 348]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 348]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 270),23))) [Branch (Pattern ((Nothing,Just (TVar 270),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 346]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 346) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 346]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 346]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TVar 272),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 418) (FuncType (TVar 419) (TVar 272))),"Prelude","(,)")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 344]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 344) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 344]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 344]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 343]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 343) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 343]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 343]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 342]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 342) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 342]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 342]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 341]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 341) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 341]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 341]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 281),35))) [Branch (Pattern ((Nothing,Just (TVar 281),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 339]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 339) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 339]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 339]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),36))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,38),(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 338]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 338) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 338]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 338]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 337]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 337) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 337]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 337]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 336]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 336) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 336]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 336]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 335]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 335) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 335]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 335]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 334]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 334) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 334]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 334]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 333]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 333) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 333]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 333]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 332]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 332) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 332]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 332]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 298),54))) [Branch (Pattern ((Nothing,Just (TVar 298),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 299),39))) [Branch (Pattern ((Nothing,Just (TVar 299),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 329]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 329) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 329]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 329]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),55))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,57),(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 328]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 328) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 328]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 328]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 327]),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 327) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 327]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 327]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),62))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 326]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 326) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 326]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 326]))),"Prelude",":")) [(Nothing,64),(Nothing,65)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),64))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 325]),65))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 325) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 325]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 325]))),"Prelude",":")) [(Nothing,66),(Nothing,67)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),66))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 324]),67))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 324) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 324]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 324]))),"Prelude",":")) [(Nothing,68),(Nothing,69)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),68))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 312),69))) [Branch (Pattern ((Nothing,Just (TVar 312),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 313),58))) [Branch (Pattern ((Nothing,Just (TVar 313),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 314),56))) [Branch (Pattern ((Nothing,Just (TVar 314),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 463) (FuncType (TVar 464) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 248,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","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 248) (FuncType (TVar 315) (TVar 463))),"Prelude","(,)")) [Var ((Just (TVar 248),1)),Var ((Just (TVar 315),27))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 464))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),40))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),59))]]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 398]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 398) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 398]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 398]))),"Prelude",":")) [(Nothing,70),(Nothing,71)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),70))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 397]),71))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 397) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 397]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 397]))),"Prelude",":")) [(Nothing,72),(Nothing,73)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),72))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 396]),73))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 396) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 396]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 396]))),"Prelude",":")) [(Nothing,74),(Nothing,75)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),74))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 395]),75))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 395) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 395]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 395]))),"Prelude",":")) [(Nothing,76),(Nothing,77)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),76))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 394]),77))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 394) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 394]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 394]))),"Prelude",":")) [(Nothing,78),(Nothing,79)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),78))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 366),79))) [Branch (Pattern ((Nothing,Just (TVar 366),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 392]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 392) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 392]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 392]))),"Prelude",":")) [(Nothing,80),(Nothing,81)]) (Case  Flex (Var ((Just (TVar 368),80))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 479) (FuncType (TVar 480) (TVar 368))),"Prelude","(,)")) [(Nothing,82),(Nothing,83)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 390]),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 390) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 390]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 390]))),"Prelude",":")) [(Nothing,84),(Nothing,85)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),84))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 389]),85))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 389) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 389]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 389]))),"Prelude",":")) [(Nothing,86),(Nothing,87)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),86))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 388]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 388) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 388]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 388]))),"Prelude",":")) [(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),88))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 387]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 387) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 387]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 387]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 377),91))) [Branch (Pattern ((Nothing,Just (TVar 377),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 378),5))) [Branch (Pattern ((Nothing,Just (TVar 378),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 490) (FuncType (TVar 491) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 248,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","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 248) (FuncType (TVar 379) (TVar 490))),"Prelude","(,)")) [Var ((Just (TVar 248),1)),Var ((Just (TVar 379),83))],Comb ConsCall ((Nothing,Just (FuncType (TVar 381) (FuncType (TVar 382) (TVar 491))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 381),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 382),"Prelude","[]")) []]])])])])])])])])])])])])])])])])])])])])])])])])])])]))] [Op ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"CompactFlatCurry","RequiredSpec") []))),"CompactFlatCurry","requires")) InfixOp 0]
+ src/lib/Curry/Module/.curry/CompactFlatCurry.fcy view
@@ -0,0 +1,1 @@+Prog "CompactFlatCurry" ["Directory","Distribution","FileGoodies","FlatCurry","List","Maybe","Prelude","RedBlackTree","SetRBT","Sort","TableRBT","Time","XML"] [Type ("CompactFlatCurry","Option") Public [] [Cons ("CompactFlatCurry","Verbose") 0 Public [],Cons ("CompactFlatCurry","Main") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CompactFlatCurry","Exports") 0 Public [],Cons ("CompactFlatCurry","InitFuncs") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]],Cons ("CompactFlatCurry","Required") 1 Public [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]],Cons ("CompactFlatCurry","Import") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CompactFlatCurry","RequiredSpec") Public [] [Cons ("CompactFlatCurry","AlwaysReq") 1 Private [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Cons ("CompactFlatCurry","Requires") 2 Private [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]] [Func ("CompactFlatCurry","isMainOption") 1 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CompactFlatCurry","Main") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CompactFlatCurry","InitFuncs") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CompactFlatCurry","Required") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CompactFlatCurry","Import") [5]) (Comb ConsCall ("Prelude","False") [])])),Func ("CompactFlatCurry","getMainFuncFromOptions") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Main") [4]) (Var 4),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 3]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [5]) (Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 3]),Branch (Pattern ("CompactFlatCurry","Required") [6]) (Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 3]),Branch (Pattern ("CompactFlatCurry","Import") [7]) (Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 3])])])),Func ("CompactFlatCurry","getRequiredFromOptions") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []])) (Rule [1] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("CompactFlatCurry","getRequiredFromOptions._#lambda6") [],Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("CompactFlatCurry","getRequiredFromOptions._#lambda6") 2 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("CompactFlatCurry","Required") [3]) (Comb ConsCall ("Prelude",":") [Var 3,Var 2]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Var 2),Branch (Pattern ("CompactFlatCurry","Main") [4]) (Var 2),Branch (Pattern ("CompactFlatCurry","Exports") []) (Var 2),Branch (Pattern ("CompactFlatCurry","InitFuncs") [5]) (Var 2),Branch (Pattern ("CompactFlatCurry","Import") [6]) (Var 2)])),Func ("CompactFlatCurry","addImport2Options") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","map") [Comb (ConsPartCall 1) ("CompactFlatCurry","Import") [],Comb FuncCall ("List","nub") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","addImport2Options.alwaysReqMod.21") []],Comb FuncCall ("CompactFlatCurry","getRequiredFromOptions") [Var 1]]]]])),Func ("CompactFlatCurry","addImport2Options.alwaysReqMod.21") 1 Private (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("CompactFlatCurry","Requires") [5,6]) (Comb ConsCall ("Prelude","[]") [])])),Func ("CompactFlatCurry","requires") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("CompactFlatCurry","RequiredSpec") []))) (Rule [1,2] (Comb ConsCall ("CompactFlatCurry","Requires") [Var 1,Var 2])),Func ("CompactFlatCurry","alwaysRequired") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("CompactFlatCurry","RequiredSpec") [])) (Rule [1] (Comb ConsCall ("CompactFlatCurry","AlwaysReq") [Var 1])),Func ("CompactFlatCurry","defaultRequired") 0 Public (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'V'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '$'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'N'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("CompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'K'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'K'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]])),Func ("CompactFlatCurry","prelude") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("CompactFlatCurry","getRequiredInModule") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","getRequiredInModule.getImpReq.38") [Var 2]],Var 1])),Func ("CompactFlatCurry","getRequiredInModule.getImpReq.38") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 5],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])])]),Branch (Pattern ("CompactFlatCurry","Requires") [6,7]) (Comb ConsCall ("Prelude","[]") [])])),Func ("CompactFlatCurry","getImplicitlyRequired") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","getImplicitlyRequired.getImpReq.46") [Var 2]],Var 1])),Func ("CompactFlatCurry","getImplicitlyRequired.getImpReq.46") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [3]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("CompactFlatCurry","Requires") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])])])),Func ("CompactFlatCurry","defaultRequiredTypes") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("CompactFlatCurry","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("CompactFlatCurry","generateCompactFlatCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","computeCompactFlatCurry") [Var 1,Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","generateCompactFlatCurryFile._#lambda8") [Var 3]])),Func ("CompactFlatCurry","generateCompactFlatCurryFile._#lambda8") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("FlatCurry","writeFCY") [Var 1,Var 2],Comb FuncCall ("Prelude","done") []])),Func ("CompactFlatCurry","computeCompactFlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("CompactFlatCurry","addImport2Options") [Var 1])] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") []],Var 3],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CompactFlatCurry","isMainOption") []],Var 3]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","readCurrentFlatCurry") [Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","computeCompactFlatCurry._#lambda9") [Var 3]]])]))),Func ("CompactFlatCurry","computeCompactFlatCurry._#lambda9") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","makeCompactFlatCurry") [Var 2,Var 1],Comb (FuncPartCall 1) ("CompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") []])),Func ("CompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStrLn") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'N'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'z'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","length") [Comb FuncCall ("CompactFlatCurry","moduleFuns") [Var 1]]]]],Comb FuncCall ("Prelude","return") [Var 1]])),Func ("CompactFlatCurry","makeCompactFlatCurry") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","requiredInCompactProg") [Var 1,Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","makeCompactFlatCurry._#lambda11") [Var 1,Var 2]])),Func ("CompactFlatCurry","makeCompactFlatCurry._#lambda11") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,,)") [4,5,6]) (Let [(7,Comb FuncCall ("CompactFlatCurry","extendFuncTable") [Comb FuncCall ("TableRBT","emptyTableRBT") [Comb (FuncPartCall 2) ("CompactFlatCurry","leqQName") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","moduleFuns") []],Var 6]])] (Let [(8,Comb FuncCall ("CompactFlatCurry","getRequiredFromOptions") [Var 2])] (Let [(9,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","getRequiredInModule") [Var 8]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","moduleName") [],Var 6]])] (Let [(10,Comb FuncCall ("Prelude","++") [Var 4,Var 9])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","getCalledFuncs") [Var 8,Var 5,Var 6,Var 7,Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","emptySetRBT") [],Comb (FuncPartCall 2) ("CompactFlatCurry","leqQName") []],Var 10],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","emptySetRBT") [],Comb (FuncPartCall 2) ("CompactFlatCurry","leqQName") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","emptySetRBT") [],Comb (FuncPartCall 2) ("CompactFlatCurry","leqQName") []],Var 10],Comb (FuncPartCall 1) ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") [Var 1]])))))])),Func ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStrLn") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude","+") [],Lit (Intc  0),Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","length") [],Comb (FuncPartCall 1) ("CompactFlatCurry","moduleFuns") []],Var 3]]]]],Let [(7,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","functionName") [],Var 4])] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("CompactFlatCurry","moduleName") [Var 1],Comb ConsCall ("Prelude","[]") [],Let [(8,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","moduleTypes") []],Var 3])] (Let [(9,Comb FuncCall ("CompactFlatCurry","extendTConsWithConsType") [Var 5,Var 6,Var 8])] (Let [(10,Comb FuncCall ("CompactFlatCurry","requiredDatatypes") [Var 9,Var 8])] (Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") [Var 10],Var 8]))),Var 4,Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") [Var 7],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","moduleOps") []],Var 3]]]])])])),Func ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Comb FuncCall ("CompactFlatCurry","tconsName") [Var 2]],Var 1])),Func ("CompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 3],Var 1])])),Func ("CompactFlatCurry","requiredDatatypes") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","newTypeConsOfTDecl") [Var 1]],Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CompactFlatCurry","requiredDatatypes") [Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 1,Var 3],Var 2])]))),Func ("CompactFlatCurry","newTypeConsOfTDecl") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","TypeSyn") [3,4,5,6]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 3],Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","newTypeConsOfTDecl._#lambda15") [Var 1],Comb FuncCall ("CompactFlatCurry","allTypesOfTExpr") [Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])]),Branch (Pattern ("FlatCurry","Type") [7,8,9,10]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 7],Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","newTypeConsOfTDecl._#lambda16") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","newTypeConsOfTDecl._#lambda17") []],Var 10]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])])])),Func ("CompactFlatCurry","newTypeConsOfTDecl._#lambda15") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 2],Var 1]])),Func ("CompactFlatCurry","newTypeConsOfTDecl._#lambda16") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 2],Var 1]])),Func ("CompactFlatCurry","newTypeConsOfTDecl._#lambda17") 1 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Cons") [2,3,4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allTypesOfTExpr") []],Var 5])])),Func ("CompactFlatCurry","extendTConsWithConsType") 3 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","TypeSyn") [6,7,8,9]) (Comb FuncCall ("CompactFlatCurry","extendTConsWithConsType") [Var 1,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","insertRBT") [],Var 6],Var 2],Var 5]),Branch (Pattern ("FlatCurry","Type") [10,11,12,13]) (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 10],Comb FuncCall ("CompactFlatCurry","defaultRequiredTypes") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CompactFlatCurry","extendTConsWithConsType._#lambda18") [Var 1]],Var 13]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CompactFlatCurry","extendTConsWithConsType") [Var 1,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","insertRBT") [],Var 10],Var 2],Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CompactFlatCurry","extendTConsWithConsType") [Var 1,Var 2,Var 5])])])])),Func ("CompactFlatCurry","extendTConsWithConsType._#lambda18") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Comb FuncCall ("CompactFlatCurry","consName") [Var 2]],Var 1])),Func ("CompactFlatCurry","extendFuncTable") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("CompactFlatCurry","extendFuncTable._#lambda19") [],Var 1,Var 2])),Func ("CompactFlatCurry","extendFuncTable._#lambda19") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("TableRBT","updateRBT") [Comb FuncCall ("CompactFlatCurry","functionName") [Var 1],Var 1],Var 2])),Func ("CompactFlatCurry","requiredInCompactProg") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))) (Rule [1,2] (Let [(3,Comb FuncCall ("List","nub") [Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("CompactFlatCurry","requiredInCompactProg._#lambda22") [],Comb ConsCall ("Prelude","[]") [],Var 2]])] (Let [(4,Comb FuncCall ("CompactFlatCurry","moduleName") [Var 1])] (Let [(5,Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("CompactFlatCurry","requiredInCompactProg._#lambda26") [],Comb ConsCall ("Prelude","[]") [],Var 2])] (Let [(6,Comb FuncCall ("CompactFlatCurry","exportedFuncNames") [Comb FuncCall ("CompactFlatCurry","moduleFuns") [Var 1]])] (Let [(7,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","insertRBT") [],Var 4],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","emptySetRBT") [],Comb FuncCall ("Sort","leqString") []]])] (Case  Rigid (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","null") [Var 5]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","mapIO") [Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry") []],Var 3],Comb (FuncPartCall 1) ("CompactFlatCurry","requiredInCompactProg._#lambda28") [Var 3,Var 5,Var 1,Var 7]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") []],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","mapIO") [Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry") []],Var 3],Comb (FuncPartCall 1) ("CompactFlatCurry","requiredInCompactProg._#lambda29") [Var 3,Var 6,Var 1,Var 7]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CompactFlatCurry","isMainOption") []],Var 2]) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CompactFlatCurry","getMainFuncFromOptions") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 8]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","functionName") [],Comb FuncCall ("CompactFlatCurry","moduleFuns") [Var 1]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","mapIO") [Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry") []],Var 3],Comb (FuncPartCall 1) ("CompactFlatCurry","requiredInCompactProg._#lambda30") [Var 8,Var 3,Var 1,Var 4,Var 7]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 8,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]])])),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","mapIO") [Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry") []],Comb FuncCall ("List","nub") [Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("CompactFlatCurry","moduleImports") [Var 1]]]],Comb (FuncPartCall 1) ("CompactFlatCurry","requiredInCompactProg._#lambda31") [Var 6,Var 1,Var 7]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]))))))),Func ("CompactFlatCurry","requiredInCompactProg._#lambda22") 2 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("CompactFlatCurry","Import") [3]) (Comb ConsCall ("Prelude",":") [Var 3,Var 2]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Var 2),Branch (Pattern ("CompactFlatCurry","Main") [4]) (Var 2),Branch (Pattern ("CompactFlatCurry","Exports") []) (Var 2),Branch (Pattern ("CompactFlatCurry","InitFuncs") [5]) (Var 2),Branch (Pattern ("CompactFlatCurry","Required") [6]) (Var 2)])),Func ("CompactFlatCurry","requiredInCompactProg._#lambda26") 2 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("CompactFlatCurry","InitFuncs") [3]) (Comb ConsCall ("Prelude",":") [Var 3,Var 2]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Var 2),Branch (Pattern ("CompactFlatCurry","Main") [4]) (Var 2),Branch (Pattern ("CompactFlatCurry","Exports") []) (Var 2),Branch (Pattern ("CompactFlatCurry","Required") [5]) (Var 2),Branch (Pattern ("CompactFlatCurry","Import") [6]) (Var 2)])),Func ("CompactFlatCurry","requiredInCompactProg.add2mainmodset.118") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 1,Var 2])),Func ("CompactFlatCurry","requiredInCompactProg._#lambda28") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [1,2,3,4,5] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("Prelude","concat") [Var 2],Comb FuncCall ("CompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Var 3,Var 5]]])),Func ("CompactFlatCurry","requiredInCompactProg._#lambda29") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [1,2,3,4,5] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("List","nub") [Var 2],Comb FuncCall ("CompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Var 3,Var 5]]])),Func ("CompactFlatCurry","requiredInCompactProg._#lambda30") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 1],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 5,Var 2],Comb ConsCall ("Prelude",":") [Var 3,Var 6]]])),Func ("CompactFlatCurry","requiredInCompactProg._#lambda31") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("List","nub") [Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("CompactFlatCurry","exportedFuncNames") [],Comb (FuncPartCall 1) ("CompactFlatCurry","moduleFuns") []]],Var 4]]],Comb FuncCall ("CompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 3,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","moduleName") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 2,Var 4]]])),Func ("CompactFlatCurry","exportedFuncNames") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","exportedFuncNames._#lambda32") [],Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","exportedFuncNames._#lambda33") [],Var 1]])),Func ("CompactFlatCurry","exportedFuncNames._#lambda32") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Var 2)])),Func ("CompactFlatCurry","exportedFuncNames._#lambda33") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("FlatCurry","Public") []])])),Func ("CompactFlatCurry","getCalledFuncs") 8 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))))))))) (Rule [1,2,3,4,5,6,7,8] (Case  Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 3,Comb ConsCall ("Prelude","[]") [],Var 6,Var 7]]),Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [11,12]) (Case  Rigid (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 11],Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","readCurrentFlatCurry") [Var 11],Comb (FuncPartCall 1) ("CompactFlatCurry","getCalledFuncs._#lambda34") [Var 12,Var 10,Var 4,Var 6,Var 5,Var 2,Var 7,Var 11,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("TableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 11,Var 12]],Var 4],Comb ConsCall ("Prelude","Nothing") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CompactFlatCurry","getCalledFuncs") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 10]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("Maybe","fromJust") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("TableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 11,Var 12]],Var 4]])] (Let [(14,Comb FuncCall ("CompactFlatCurry","allFuncCalls") [Var 13])] (Let [(15,Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","getCalledFuncs._#lambda35") [Var 5],Var 14])] (Let [(16,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","getImplicitlyRequired") [Var 1]],Var 15])] (Let [(17,Comb FuncCall ("CompactFlatCurry","allConstructorsOfFunc") [Var 13])] (Let [(18,Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("CompactFlatCurry","getCalledFuncs._#lambda36") [Var 6],Var 17])] (Let [(19,Comb FuncCall ("CompactFlatCurry","allTypesOfFunc") [Var 13])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","getCalledFuncs") [Var 1,Var 2,Var 3,Var 4,Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 5,Comb FuncCall ("Prelude","++") [Var 15,Var 16]],Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 6,Var 17],Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 7,Var 19],Comb FuncCall ("Prelude","++") [Var 10,Comb FuncCall ("Prelude","++") [Var 15,Comb FuncCall ("Prelude","++") [Var 16,Var 18]]]],Comb (FuncPartCall 1) ("CompactFlatCurry","getCalledFuncs._#lambda37") [Var 13]])))))))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("CompactFlatCurry","getCalledFuncs._#lambda34") 11 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))))))))))) (Rule [1,2,3,4,5,6,7,8,9,10,11] (Let [(12,Comb FuncCall ("CompactFlatCurry","getRequiredInModule") [Var 10,Var 8])] (Comb FuncCall ("CompactFlatCurry","getCalledFuncs") [Var 10,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","insertRBT") [],Var 8],Var 6],Comb ConsCall ("Prelude",":") [Var 11,Var 9],Comb FuncCall ("CompactFlatCurry","extendFuncTable") [Var 3,Comb FuncCall ("CompactFlatCurry","moduleFuns") [Var 11]],Comb FuncCall ("Prelude","foldr") [Comb FuncCall ("SetRBT","insertRBT") [],Var 5,Var 12],Var 4,Var 7,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 8,Var 1],Comb FuncCall ("Prelude","++") [Var 2,Var 12]]]))),Func ("CompactFlatCurry","getCalledFuncs._#lambda35") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 2],Var 1]])),Func ("CompactFlatCurry","getCalledFuncs._#lambda36") 2 Private (FuncType (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("SetRBT","elemRBT") [Var 2],Var 1]])),Func ("CompactFlatCurry","getCalledFuncs._#lambda37") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 3,Comb ConsCall ("Prelude",":") [Var 1,Var 4],Var 5,Var 6]])])),Func ("CompactFlatCurry","allFuncCalls") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Case  Flex (Var 6) [Branch (Pattern ("FlatCurry","External") [7]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Rule") [8,9]) (Comb FuncCall ("List","nub") [Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 9]])])])),Func ("CompactFlatCurry","allFuncCallsOfExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Let [(7,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allFuncCallsOfExpr") []],Var 6])] (Case  Rigid (Var 4) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("Prelude",":") [Var 5,Var 7]),Branch (Pattern ("FlatCurry","FuncPartCall") [8]) (Comb ConsCall ("Prelude",":") [Var 5,Var 7]),Branch (Pattern ("FlatCurry","ConsCall") []) (Var 7),Branch (Pattern ("FlatCurry","ConsPartCall") [9]) (Var 7)])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 11]),Branch (Pattern ("FlatCurry","Let") [12,13]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("CompactFlatCurry","allFuncCallsOfExpr") [],Comb (FuncPartCall 1) ("Prelude","snd") []]],Var 12],Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 13]]),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 14],Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 15]]),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 17],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allFuncCallsOfBranchExpr") []],Var 18]])])),Func ("CompactFlatCurry","allFuncCallsOfBranchExpr") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Comb FuncCall ("CompactFlatCurry","allFuncCallsOfExpr") [Var 3])])),Func ("CompactFlatCurry","allConstructorsOfFunc") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Case  Flex (Var 6) [Branch (Pattern ("FlatCurry","External") [7]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Rule") [8,9]) (Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 9])])])),Func ("CompactFlatCurry","allConsOfExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Let [(7,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CompactFlatCurry","unionMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allConsOfExpr") []],Var 6])] (Case  Rigid (Var 4) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb ConsCall ("Prelude",":") [Var 5,Var 7]),Branch (Pattern ("FlatCurry","ConsPartCall") [8]) (Comb ConsCall ("Prelude",":") [Var 5,Var 7]),Branch (Pattern ("FlatCurry","FuncCall") []) (Var 7),Branch (Pattern ("FlatCurry","FuncPartCall") [9]) (Var 7)])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 11]),Branch (Pattern ("FlatCurry","Let") [12,13]) (Comb FuncCall ("List","union") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CompactFlatCurry","unionMap") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("CompactFlatCurry","allConsOfExpr") [],Comb (FuncPartCall 1) ("Prelude","snd") []]],Var 12],Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 13]]),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb FuncCall ("List","union") [Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 14],Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 15]]),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb FuncCall ("List","union") [Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 17],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CompactFlatCurry","unionMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allConsOfExpr.consOfBranch.252") []],Var 18]])])),Func ("CompactFlatCurry","allConsOfExpr.consOfBranch.252") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","LPattern") [4]) (Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 3]),Branch (Pattern ("FlatCurry","Pattern") [5,6]) (Comb FuncCall ("List","union") [Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CompactFlatCurry","allConsOfExpr") [Var 3]])])])),Func ("CompactFlatCurry","allTypesOfFunc") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Comb FuncCall ("CompactFlatCurry","allTypesOfTExpr") [Var 5])])),Func ("CompactFlatCurry","allTypesOfTExpr") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb FuncCall ("List","union") [Comb FuncCall ("CompactFlatCurry","allTypesOfTExpr") [Var 3],Comb FuncCall ("CompactFlatCurry","allTypesOfTExpr") [Var 4]]),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Comb FuncCall ("List","union") [Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CompactFlatCurry","unionMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","allTypesOfTExpr") []],Var 6]])])),Func ("CompactFlatCurry","unionMap") 1 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("List","union") [],Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("CompactFlatCurry","functionName") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Var 2)])),Func ("CompactFlatCurry","consName") 1 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Cons") [2,3,4,5]) (Var 2)])),Func ("CompactFlatCurry","tconsName") 1 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Type") [2,3,4,5]) (Var 2),Branch (Pattern ("FlatCurry","TypeSyn") [6,7,8,9]) (Var 6)])),Func ("CompactFlatCurry","moduleImports") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 3)])),Func ("CompactFlatCurry","moduleTypes") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 4)])),Func ("CompactFlatCurry","moduleOps") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 6)])),Func ("CompactFlatCurry","moduleName") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 2)])),Func ("CompactFlatCurry","moduleFuns") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 5)])),Func ("CompactFlatCurry","leqQName") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Sort","cmpString") [],Var 3],Var 5])] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","LT") []],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","EQ") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Sort","leqString") [],Var 4],Var 6]]]))])])),Func ("CompactFlatCurry","readCurrentFlatCurry") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","findSourceFileInLoadPath") [Var 1],Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry._#lambda40") []]])),Func ("CompactFlatCurry","readCurrentFlatCurry._#lambda40") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("FlatCurry","flatCurryFileName") [Var 1]],Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") [Var 1]])),Func ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","not") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurry") [Var 1],Comb (FuncPartCall 1) ("CompactFlatCurry","processPrimitives") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","getSourceModificationTime") [Var 1],Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") [Var 1]])])),Func ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","getModificationTime") [Comb FuncCall ("FlatCurry","flatCurryFileName") [Var 1]],Comb (FuncPartCall 1) ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") [Var 2,Var 1]])),Func ("CompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") 3 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude",">") [Comb FuncCall ("Time","clockTimeToInt") [Var 1],Comb FuncCall ("Time","clockTimeToInt") [Var 3]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurry") [Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","processPrimitives") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurryFile") [Comb FuncCall ("FlatCurry","flatCurryFileName") [Var 2]],Comb (FuncPartCall 1) ("CompactFlatCurry","processPrimitives") [Var 2]])])),Func ("CompactFlatCurry","getSourceModificationTime") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb (FuncPartCall 1) ("CompactFlatCurry","getSourceModificationTime._#lambda44") [Var 1]])),Func ("CompactFlatCurry","getSourceModificationTime._#lambda44") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))) (Rule [1,2] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Directory","getModificationTime") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Directory","getModificationTime") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]])])),Func ("CompactFlatCurry","findSourceFileInLoadPath") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getLoadPathForFile") [Var 1],Comb (FuncPartCall 1) ("CompactFlatCurry","findSourceFileInLoadPath._#lambda45") [Var 1]])),Func ("CompactFlatCurry","findSourceFileInLoadPath._#lambda45") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Comb FuncCall ("FileGoodies","baseName") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude","[]") []]],Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") [Var 1]])),Func ("CompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb FuncCall ("FileGoodies","stripSuffix") []],Var 2])),Func ("CompactFlatCurry","processPrimitives") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CompactFlatCurry","readPrimSpec") [Comb FuncCall ("CompactFlatCurry","moduleName") [Var 2],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  '2'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb (FuncPartCall 1) ("CompactFlatCurry","processPrimitives._#lambda47") [Var 2]])),Func ("CompactFlatCurry","processPrimitives._#lambda47") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("CompactFlatCurry","mergePrimSpecIntoModule") [Var 2,Var 1]])),Func ("CompactFlatCurry","mergePrimSpecIntoModule") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb ConsCall ("FlatCurry","Prog") [Var 3,Var 4,Var 5,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CompactFlatCurry","mergePrimSpecIntoFunc") [Var 1]],Var 6],Var 7])])),Func ("CompactFlatCurry","mergePrimSpecIntoFunc") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("Prelude","lookup") [Var 3,Var 1])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","Nothing") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 3,Var 4,Var 5,Var 6,Var 7],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Var 8)] (Let [(10,Comb FuncCall ("CompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") [Var 9])] (Let [(11,Comb FuncCall ("CompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") [Var 9])] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 11]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 3,Var 4,Var 5,Var 6,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("Prelude","++") [Var 10,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Var 11]]]],Comb ConsCall ("Prelude","[]") []])]))))]))])),Func ("CompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") 1 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Just") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Var 3)])])),Func ("CompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") 1 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Just") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Var 4)])])),Func ("CompactFlatCurry","readPrimSpec") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","readPrimSpec._#lambda48") [Var 1,Var 2]])),Func ("CompactFlatCurry","readPrimSpec._#lambda48") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))) (Rule [1,2,3] (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 2],Comb (FuncPartCall 1) ("CompactFlatCurry","readPrimSpec._#lambda48._#lambda49") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","[]") []])])),Func ("CompactFlatCurry","readPrimSpec._#lambda48._#lambda49") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("CompactFlatCurry","xml2primtrans") [Var 1,Var 2]])),Func ("CompactFlatCurry","xml2primtrans") 2 Private (FuncType (TVar 0) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  't')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (LPattern (Charc  's')) (Case  Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CompactFlatCurry","xml2primtrans.xml2prim.358") [Var 1],Var 5])])])])])])])])])])])])])])])])])])])])])])])])),Func ("CompactFlatCurry","xml2primtrans.xml2prim.358") 2 Private (FuncType (TVar 248) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TVar 248,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  't')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","(,)") [26,27]) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [28,29]) (Case  Flex (Var 28) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Case  Flex (Var 30) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Case  Flex (Var 32) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Case  Flex (Var 34) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [36,37]) (Case  Flex (Var 36) [Branch (Pattern ("XML","XElem") [38,39,40]) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'b')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 39) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 37) [Branch (Pattern ("Prelude",":") [55,56]) (Case  Flex (Var 55) [Branch (Pattern ("XML","XElem") [57,58,59]) (Case  Flex (Var 57) [Branch (Pattern ("Prelude",":") [60,61]) (Case  Flex (Var 60) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 61) [Branch (Pattern ("Prelude",":") [62,63]) (Case  Flex (Var 62) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Case  Flex (Var 64) [Branch (LPattern (Charc  't')) (Case  Flex (Var 65) [Branch (Pattern ("Prelude",":") [66,67]) (Case  Flex (Var 66) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 67) [Branch (Pattern ("Prelude",":") [68,69]) (Case  Flex (Var 68) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 69) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 58) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 56) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 1,Var 27],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("XML","textOfXml") [Var 40],Comb FuncCall ("XML","textOfXml") [Var 59]]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'i')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [70,71]) (Case  Flex (Var 70) [Branch (LPattern (Charc  'g')) (Case  Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Case  Flex (Var 72) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 73) [Branch (Pattern ("Prelude",":") [74,75]) (Case  Flex (Var 74) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Case  Flex (Var 76) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Case  Flex (Var 78) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 79) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [80,81]) (Case  Flex (Var 80) [Branch (Pattern ("Prelude","(,)") [82,83]) (Case  Flex (Var 82) [Branch (Pattern ("Prelude",":") [84,85]) (Case  Flex (Var 84) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 85) [Branch (Pattern ("Prelude",":") [86,87]) (Case  Flex (Var 86) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 87) [Branch (Pattern ("Prelude",":") [88,89]) (Case  Flex (Var 88) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 89) [Branch (Pattern ("Prelude",":") [90,91]) (Case  Flex (Var 90) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 91) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 1,Var 83],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]])])])])])])])])])])])])])])])])])])])])])])])])])])]))] [Op ("CompactFlatCurry","requires") InfixOp 0]
+ src/lib/Curry/Module/.curry/CompactFlatCurry.fint view
@@ -0,0 +1,1 @@+Prog "CompactFlatCurry" ["Directory","Distribution","FileGoodies","FlatCurry","List","Maybe","Prelude","RedBlackTree","SetRBT","Sort","TableRBT","Time","XML"] [Type ("CompactFlatCurry","Option") Public [] [Cons ("CompactFlatCurry","Verbose") 0 Public [],Cons ("CompactFlatCurry","Main") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CompactFlatCurry","Exports") 0 Public [],Cons ("CompactFlatCurry","InitFuncs") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]],Cons ("CompactFlatCurry","Required") 1 Public [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]],Cons ("CompactFlatCurry","Import") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CompactFlatCurry","RequiredSpec") Public [] []] [Func ("CompactFlatCurry","requires") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("CompactFlatCurry","RequiredSpec") []))) (Rule [] (Var 0)),Func ("CompactFlatCurry","alwaysRequired") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("CompactFlatCurry","RequiredSpec") [])) (Rule [] (Var 0)),Func ("CompactFlatCurry","defaultRequired") 0 Public (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (Rule [] (Var 0)),Func ("CompactFlatCurry","generateCompactFlatCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [] (Var 0)),Func ("CompactFlatCurry","computeCompactFlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [] (Var 0))] [Op ("CompactFlatCurry","requires") InfixOp 0]
+ src/lib/Curry/Module/.curry/CompactFlatCurry.uacy view
@@ -0,0 +1,51 @@+CurryProg "CompactFlatCurry"+ ["Prelude","FlatCurry","SetRBT","TableRBT","Maybe","List","FileGoodies","Directory","Sort","XML","Distribution","Time"]+ [CType ("CompactFlatCurry","Option") Public [] [CCons ("CompactFlatCurry","Verbose") 0 Public [],CCons ("CompactFlatCurry","Main") 1 Public [CTCons ("Prelude","String") []],CCons ("CompactFlatCurry","Exports") 0 Public [],CCons ("CompactFlatCurry","InitFuncs") 1 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []]],CCons ("CompactFlatCurry","Required") 1 Public [CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]],CCons ("CompactFlatCurry","Import") 1 Public [CTCons ("Prelude","String") []]],+  CType ("CompactFlatCurry","RequiredSpec") Public [] [CCons ("CompactFlatCurry","AlwaysReq") 1 Private [CTCons ("FlatCurry","QName") []],CCons ("CompactFlatCurry","Requires") 2 Private [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","QName") []]]]+ [CFunc ("CompactFlatCurry","addImport2Options") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []])) (CRules CFlex [CRule [CPVar (0,"options")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"options"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","Import"))) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","alwaysReqMod"))) (CApply (CSymbol ("CompactFlatCurry","getRequiredFromOptions")) (CVar (0,"options")))))))] [CLocalFunc (CFunc ("CompactFlatCurry","alwaysReqMod") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPComb ("Prelude","(,)") [CPVar (1,"m"),CPVar (2,"_")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"m"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("CompactFlatCurry","allConsOfExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cname"),CPVar (4,"exprs")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"ctype")) [CBranch (CPComb ("FlatCurry","ConsCall") []) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"cname"))) (CVar (5,"cnames"))),CBranch (CPComb ("FlatCurry","ConsPartCall") [CPVar (6,"_")]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"cname"))) (CVar (5,"cnames"))),CBranch (CPVar (7,"_")) (CVar (5,"cnames"))])] [CLocalPat (CPVar (5,"cnames")) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","allConsOfExpr"))) (CVar (4,"exprs"))) []],CRule [CPComb ("FlatCurry","Free") [CPVar (8,"_"),CPVar (9,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (9,"expr")))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (10,"bs"),CPVar (11,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","allConsOfExpr"))) (CSymbol ("Prelude","snd")))) (CVar (10,"bs")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (11,"expr"))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (12,"expr1"),CPVar (13,"expr2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (12,"expr1")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (13,"expr2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (14,"_"),CPVar (15,"expr"),CPVar (16,"branchExprs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (15,"expr")))) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","consOfBranch"))) (CVar (16,"branchExprs"))))] [CLocalFunc (CFunc ("CompactFlatCurry","consOfBranch") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (17,"_")],CPVar (18,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (18,"e")))] [],CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (19,"c"),CPVar (20,"_")],CPVar (21,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (19,"c"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (21,"e"))))] []]))]]),+  CFunc ("CompactFlatCurry","allConstructorsOfFunc") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","External") [CPVar (4,"_")]]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Func") [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Rule") [CPVar (9,"_"),CPVar (10,"expr")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allConsOfExpr")) (CVar (10,"expr")))] []]),+  CFunc ("CompactFlatCurry","allFuncCalls") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","External") [CPVar (4,"_")]]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Func") [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Rule") [CPVar (9,"_"),CPVar (10,"expr")]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("List","nub")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (10,"expr"))))] []]),+  CFunc ("CompactFlatCurry","allFuncCallsOfBranchExpr") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"_"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (1,"expr")))] []]),+  CFunc ("CompactFlatCurry","allFuncCallsOfExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"fname"),CPVar (4,"exprs")]] [(CSymbol ("Prelude","success"),CCase (CVar (2,"ctype")) [CBranch (CPComb ("FlatCurry","FuncCall") []) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"fname"))) (CVar (5,"fnames"))),CBranch (CPComb ("FlatCurry","FuncPartCall") [CPVar (6,"_")]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"fname"))) (CVar (5,"fnames"))),CBranch (CPVar (7,"_")) (CVar (5,"fnames"))])] [CLocalPat (CPVar (5,"fnames")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr"))) (CVar (4,"exprs"))) []],CRule [CPComb ("FlatCurry","Free") [CPVar (8,"_"),CPVar (9,"expr")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (9,"expr")))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (10,"bs"),CPVar (11,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr"))) (CSymbol ("Prelude","snd")))) (CVar (10,"bs")))) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (11,"expr"))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (12,"expr1"),CPVar (13,"expr2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (12,"expr1")))) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (13,"expr2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (14,"_"),CPVar (15,"expr"),CPVar (16,"branchExprs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("CompactFlatCurry","allFuncCallsOfExpr")) (CVar (15,"expr")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allFuncCallsOfBranchExpr"))) (CVar (16,"branchExprs"))))] []]),+  CFunc ("CompactFlatCurry","allTypesOfFunc") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"texp"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (3,"texp")))] []]),+  CFunc ("CompactFlatCurry","allTypesOfTExpr") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"texp1"),CPVar (2,"texp2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (1,"texp1")))) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (2,"texp2"))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"tcons"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("List","union")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"tcons"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CompactFlatCurry","unionMap")) (CSymbol ("CompactFlatCurry","allTypesOfTExpr"))) (CVar (4,"args"))))] []]),+  CFunc ("CompactFlatCurry","alwaysRequired") 1 Public (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("CompactFlatCurry","RequiredSpec") [])) (CRules CFlex [CRule [CPVar (0,"fun")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CompactFlatCurry","AlwaysReq")) (CVar (0,"fun")))] []]),+  CFunc ("CompactFlatCurry","computeCompactFlatCurry") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"orgoptions"),CPVar (1,"progname")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"options")) (CApply (CSymbol ("CompactFlatCurry","addImport2Options")) (CVar (0,"orgoptions"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","elem")) (CSymbol ("CompactFlatCurry","Exports"))) (CVar (2,"options")))) (CApply (CApply (CSymbol ("Prelude","any")) (CSymbol ("CompactFlatCurry","isMainOption"))) (CVar (2,"options"))))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))),CSPat (CPVar (3,"prog")) (CApply (CSymbol ("CompactFlatCurry","readCurrentFlatCurry")) (CVar (1,"progname"))),CSPat (CPVar (4,"resultprog")) (CApply (CApply (CSymbol ("CompactFlatCurry","makeCompactFlatCurry")) (CVar (3,"prog"))) (CVar (2,"options"))),CSExpr (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'z'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","length")) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (4,"resultprog"))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CVar (4,"resultprog")))])))] []]),+  CFunc ("CompactFlatCurry","consName") 1 Private (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","defaultRequired") 0 Public (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CompactFlatCurry","alwaysRequired")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CSymbol ("Prelude","[]"))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]")))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("CompactFlatCurry","requires")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CSymbol ("Prelude","[]"))))))))))))))))))] []]),+  CFunc ("CompactFlatCurry","defaultRequiredTypes") 0 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("CompactFlatCurry","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CompactFlatCurry","exportedFuncNames") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []])) (CRules CFlex [CRule [CPVar (0,"funs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_")]] (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPComb ("FlatCurry","Func") [CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"vis"),CPVar (9,"_"),CPVar (10,"_")]] (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"vis"))) (CSymbol ("FlatCurry","Public"))))) (CVar (0,"funs"))))] []]),+  CFunc ("CompactFlatCurry","extendFuncTable") 2 Private (CFuncType (CTCons ("TableRBT","TableRBT") [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","FuncDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("TableRBT","TableRBT") [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","FuncDecl") []]))) (CRules CFlex [CRule [CPVar (0,"ftable"),CPVar (1,"fdecls")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CLambda [CPVar (2,"f"),CPVar (3,"t")] (CApply (CApply (CApply (CSymbol ("TableRBT","updateRBT")) (CApply (CSymbol ("CompactFlatCurry","functionName")) (CVar (2,"f")))) (CVar (2,"f"))) (CVar (3,"t"))))) (CVar (0,"ftable"))) (CVar (1,"fdecls")))] []]),+  CFunc ("CompactFlatCurry","extendTConsWithConsType") 3 Private (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"tcons"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (1,"tcons"))] [],CRule [CPVar (2,"cnames"),CPVar (3,"tcons"),CPComb ("Prelude",":") [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"tname"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")],CPVar (8,"tds")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (2,"cnames"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (4,"tname"))) (CVar (3,"tcons")))) (CVar (8,"tds")))] [],CRule [CPVar (9,"cnames"),CPVar (10,"tcons"),CPComb ("Prelude",":") [CPComb ("FlatCurry","Type") [CPVar (11,"tname"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"cdecls")],CPVar (15,"tds")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (11,"tname"))) (CSymbol ("CompactFlatCurry","defaultRequiredTypes")))) (CApply (CApply (CSymbol ("Prelude","any")) (CLambda [CPVar (16,"cdecl")] (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CApply (CSymbol ("CompactFlatCurry","consName")) (CVar (16,"cdecl")))) (CVar (9,"cnames"))))) (CVar (14,"cdecls"))))) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (9,"cnames"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (11,"tname"))) (CVar (10,"tcons")))) (CVar (15,"tds")))) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (9,"cnames"))) (CVar (10,"tcons"))) (CVar (15,"tds"))))] []]),+  CFunc ("CompactFlatCurry","findSourceFileInLoadPath") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"modname"))),CSPat (CPVar (2,"mbfname")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))) (CVar (1,"loadpath"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("FileGoodies","stripSuffix")))) (CVar (2,"mbfname")))])] []]),+  CFunc ("CompactFlatCurry","functionName") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","generateCompactFlatCurryFile") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"options"),CPVar (1,"progname"),CPVar (2,"target")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"optprog")) (CApply (CApply (CSymbol ("CompactFlatCurry","computeCompactFlatCurry")) (CVar (0,"options"))) (CVar (1,"progname"))),CSExpr (CApply (CApply (CSymbol ("FlatCurry","writeFCY")) (CVar (2,"target"))) (CVar (3,"optprog"))),CSExpr (CSymbol ("Prelude","done"))])] []]),+  CFunc ("CompactFlatCurry","getCalledFuncs") 8 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []]) (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]) (CFuncType (CTCons ("TableRBT","TableRBT") [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","FuncDecl") []]) (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","(,,,)") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []],CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []],CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]]]))))))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"progs"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"dcs"),CPVar (6,"ts"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CSymbol ("Prelude","(,,,)")) (CVar (2,"progs"))) (CSymbol ("Prelude","[]"))) (CVar (5,"dcs"))) (CVar (6,"ts"))))] [],CRule [CPVar (7,"required"),CPVar (8,"loadedmnames"),CPVar (9,"progs"),CPVar (10,"functable"),CPVar (11,"loadedfnames"),CPVar (12,"loadedcnames"),CPVar (13,"loadedtnames"),CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPVar (14,"m"),CPVar (15,"f")],CPVar (16,"fs")]] [(CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (14,"m"))) (CVar (8,"loadedmnames"))),CDoExpr [CSPat (CPVar (17,"newmod")) (CApply (CSymbol ("CompactFlatCurry","readCurrentFlatCurry")) (CVar (14,"m"))),CSLet [CLocalPat (CPVar (18,"reqnewfun")) (CApply (CApply (CSymbol ("CompactFlatCurry","getRequiredInModule")) (CVar (7,"required"))) (CVar (14,"m"))) []],CSExpr (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (14,"m"))) (CVar (8,"loadedmnames")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (17,"newmod"))) (CVar (9,"progs")))) (CApply (CApply (CSymbol ("CompactFlatCurry","extendFuncTable")) (CVar (10,"functable"))) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (17,"newmod"))))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (11,"loadedfnames"))) (CVar (18,"reqnewfun")))) (CVar (12,"loadedcnames"))) (CVar (13,"loadedtnames"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"fs"))) (CVar (18,"reqnewfun")))))]),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("TableRBT","lookupRBT")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CVar (10,"functable")))) (CSymbol ("Prelude","Nothing")),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CVar (8,"loadedmnames"))) (CVar (9,"progs"))) (CVar (10,"functable"))) (CVar (11,"loadedfnames"))) (CVar (12,"loadedcnames"))) (CVar (13,"loadedtnames"))) (CVar (16,"fs"))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSLet [CLocalPat (CPVar (19,"fdecl")) (CApply (CSymbol ("Maybe","fromJust")) (CApply (CApply (CSymbol ("TableRBT","lookupRBT")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (14,"m"))) (CVar (15,"f")))) (CVar (10,"functable")))) [],CLocalPat (CPVar (20,"funcCalls")) (CApply (CSymbol ("CompactFlatCurry","allFuncCalls")) (CVar (19,"fdecl"))) [],CLocalPat (CPVar (21,"newFuncCalls")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (26,"qn")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (26,"qn"))) (CVar (11,"loadedfnames")))))) (CVar (20,"funcCalls"))) [],CLocalPat (CPVar (22,"newReqs")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","getImplicitlyRequired")) (CVar (7,"required")))) (CVar (21,"newFuncCalls"))) [],CLocalPat (CPVar (23,"consCalls")) (CApply (CSymbol ("CompactFlatCurry","allConstructorsOfFunc")) (CVar (19,"fdecl"))) [],CLocalPat (CPVar (24,"newConsCalls")) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (27,"qn")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (27,"qn"))) (CVar (12,"loadedcnames")))))) (CVar (23,"consCalls"))) [],CLocalPat (CPVar (25,"newtcons")) (CApply (CSymbol ("CompactFlatCurry","allTypesOfFunc")) (CVar (19,"fdecl"))) []],CSPat (CPComb ("Prelude","(,,,)") [CPVar (28,"newprogs"),CPVar (29,"newfuns"),CPVar (30,"newcons"),CPVar (31,"newtypes")]) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (7,"required"))) (CVar (8,"loadedmnames"))) (CVar (9,"progs"))) (CVar (10,"functable"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (11,"loadedfnames"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"newFuncCalls"))) (CVar (22,"newReqs"))))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (12,"loadedcnames"))) (CVar (23,"consCalls")))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (13,"loadedtnames"))) (CVar (25,"newtcons")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"fs"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (21,"newFuncCalls"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (22,"newReqs"))) (CVar (24,"newConsCalls")))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CSymbol ("Prelude","(,,,)")) (CVar (28,"newprogs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (19,"fdecl"))) (CVar (29,"newfuns")))) (CVar (30,"newcons"))) (CVar (31,"newtypes"))))])] []]),+  CFunc ("CompactFlatCurry","getImplicitlyRequired") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"reqspecs"),CPVar (1,"fun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","getImpReq"))) (CVar (0,"reqspecs")))] [CLocalFunc (CFunc ("CompactFlatCurry","getImpReq") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (3,"f"),CPVar (4,"reqf")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"f"))) (CVar (1,"fun")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"reqf"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] []]))]]),+  CFunc ("CompactFlatCurry","getMainFuncFromOptions") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"o"),CPVar (1,"os")]] [(CSymbol ("Prelude","success"),CCase (CVar (0,"o")) [CBranch (CPComb ("CompactFlatCurry","Main") [CPVar (2,"f")]) (CVar (2,"f")),CBranch (CPVar (3,"_")) (CApply (CSymbol ("CompactFlatCurry","getMainFuncFromOptions")) (CVar (1,"os")))])] []]),+  CFunc ("CompactFlatCurry","getRequiredFromOptions") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","RequiredSpec") []])) (CRules CFlex [CRule [CPVar (0,"options")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CListComp (CVar (1,"fs")) [CSPat (CPComb ("CompactFlatCurry","Required") [CPVar (1,"fs")]) (CVar (0,"options"))]))] []]),+  CFunc ("CompactFlatCurry","getRequiredInModule") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"reqspecs"),CPVar (1,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","getImpReq"))) (CVar (0,"reqspecs")))] [CLocalFunc (CFunc ("CompactFlatCurry","getImpReq") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("CompactFlatCurry","AlwaysReq") [CPComb ("Prelude","(,)") [CPVar (2,"mf"),CPVar (3,"f")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mf"))) (CVar (1,"mod")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mf"))) (CVar (3,"f")))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("CompactFlatCurry","Requires") [CPVar (4,"_"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("CompactFlatCurry","getSourceModificationTime") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"lexists")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"lexists"))) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))])] []]),+  CFunc ("CompactFlatCurry","isMainOption") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"o")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"o")) [CBranch (CPComb ("CompactFlatCurry","Main") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CompactFlatCurry","leqQName") 2 Private (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("Prelude","Bool") []))) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"m1"),CPVar (1,"n1")],CPComb ("Prelude","(,)") [CPVar (2,"m2"),CPVar (3,"n2")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (4,"cm")) (CApply (CApply (CSymbol ("Sort","cmpString")) (CVar (0,"m1"))) (CVar (2,"m2"))) []] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cm"))) (CSymbol ("Prelude","LT")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"cm"))) (CSymbol ("Prelude","EQ")))) (CApply (CApply (CSymbol ("Sort","leqString")) (CVar (1,"n1"))) (CVar (3,"n2"))))))] []]),+  CFunc ("CompactFlatCurry","makeCompactFlatCurry") 2 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"mainmod"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPComb ("Prelude","(,,)") [CPVar (2,"initfuncs"),CPVar (3,"loadedmnames"),CPVar (4,"loadedmods")]) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredInCompactProg")) (CVar (0,"mainmod"))) (CVar (1,"options"))),CSLet [CLocalPat (CPVar (5,"initFuncTable")) (CApply (CApply (CSymbol ("CompactFlatCurry","extendFuncTable")) (CApply (CSymbol ("TableRBT","emptyTableRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleFuns"))) (CVar (4,"loadedmods")))) [],CLocalPat (CPVar (6,"required")) (CApply (CSymbol ("CompactFlatCurry","getRequiredFromOptions")) (CVar (1,"options"))) [],CLocalPat (CPVar (7,"loadedreqfuns")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","getRequiredInModule")) (CVar (6,"required")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","moduleName"))) (CVar (4,"loadedmods")))) [],CLocalPat (CPVar (8,"initreqfuncs")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"initfuncs"))) (CVar (7,"loadedreqfuns"))) []],CSPat (CPComb ("Prelude","(,,,)") [CPVar (9,"finalmods"),CPVar (10,"finalfuncs"),CPVar (11,"finalcons"),CPVar (12,"finaltcons")]) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","getCalledFuncs")) (CVar (6,"required"))) (CVar (3,"loadedmnames"))) (CVar (4,"loadedmods"))) (CVar (5,"initFuncTable"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CVar (8,"initreqfuncs")))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("CompactFlatCurry","leqQName")))) (CVar (8,"initreqfuncs"))),CSExpr (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","+"))) (CLit (CIntc 0))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","length"))) (CSymbol ("CompactFlatCurry","moduleFuns")))) (CVar (9,"finalmods"))))))),CSLet [CLocalPat (CPVar (13,"finalfnames")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","functionName"))) (CVar (10,"finalfuncs"))) []],CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (0,"mainmod")))) (CSymbol ("Prelude","[]"))) (CLetDecl [CLocalPat (CPVar (14,"allTDecls")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleTypes"))) (CVar (9,"finalmods"))) [],CLocalPat (CPVar (15,"reqTCons")) (CApply (CApply (CApply (CSymbol ("CompactFlatCurry","extendTConsWithConsType")) (CVar (11,"finalcons"))) (CVar (12,"finaltcons"))) (CVar (14,"allTDecls"))) [],CLocalPat (CPVar (16,"allReqTCons")) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredDatatypes")) (CVar (15,"reqTCons"))) (CVar (14,"allTDecls"))) []] (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (17,"tdecl")] (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CApply (CSymbol ("CompactFlatCurry","tconsName")) (CVar (17,"tdecl")))) (CVar (16,"allReqTCons"))))) (CVar (14,"allTDecls"))))) (CVar (10,"finalfuncs"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPComb ("FlatCurry","Op") [CPVar (18,"oname"),CPVar (19,"_"),CPVar (20,"_")]] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (18,"oname"))) (CVar (13,"finalfnames"))))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","moduleOps"))) (CVar (9,"finalmods"))))))])] []]),+  CFunc ("CompactFlatCurry","mergePrimSpecIntoFunc") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"trans"),CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"ar"),CPVar (3,"vis"),CPVar (4,"tp"),CPVar (5,"rule")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (6,"fname")) (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (1,"name"))) (CVar (0,"trans"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (6,"fname"))) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CVar (1,"name"))) (CVar (2,"ar"))) (CVar (3,"vis"))) (CVar (4,"tp"))) (CVar (5,"rule")))) (CSymbol ("Prelude","[]")))) (CLetDecl [CLocalPat (CPComb ("Prelude","Just") [CPComb ("Prelude","(,)") [CPVar (7,"lib"),CPVar (8,"entry")]]) (CVar (6,"fname")) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (8,"entry")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CVar (1,"name"))) (CVar (2,"ar"))) (CVar (3,"vis"))) (CVar (4,"tp"))) (CApply (CSymbol ("FlatCurry","External")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"lib"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CVar (8,"entry"))))))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("CompactFlatCurry","mergePrimSpecIntoModule") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"trans"),CPComb ("FlatCurry","Prog") [CPVar (1,"name"),CPVar (2,"imps"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CVar (1,"name"))) (CVar (2,"imps"))) (CVar (3,"types"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","mergePrimSpecIntoFunc")) (CVar (0,"trans")))) (CVar (4,"funcs")))) (CVar (5,"ops")))] []]),+  CFunc ("CompactFlatCurry","moduleFuns") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"funs"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (3,"funs"))] []]),+  CFunc ("CompactFlatCurry","moduleImports") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"imports"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"imports"))] []]),+  CFunc ("CompactFlatCurry","moduleName") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("CompactFlatCurry","moduleOps") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CVar (4,"ops"))] []]),+  CFunc ("CompactFlatCurry","moduleTypes") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"types"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"types"))] []]),+  CFunc ("CompactFlatCurry","newTypeConsOfTDecl") 2 Private (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []]))) (CRules CFlex [CRule [CPVar (0,"tcnames"),CPComb ("FlatCurry","TypeSyn") [CPVar (1,"tcons"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (1,"tcons"))) (CVar (0,"tcnames")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (5,"tc")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (5,"tc"))) (CVar (0,"tcnames")))))) (CApply (CSymbol ("CompactFlatCurry","allTypesOfTExpr")) (CVar (4,"texp"))))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (6,"tcnames"),CPComb ("FlatCurry","Type") [CPVar (7,"tcons"),CPVar (8,"_"),CPVar (9,"_"),CPVar (10,"cdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (7,"tcons"))) (CVar (6,"tcnames")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CLambda [CPVar (11,"tc")] (CApply (CSymbol ("Prelude","not")) (CApply (CApply (CSymbol ("SetRBT","elemRBT")) (CVar (11,"tc"))) (CVar (6,"tcnames")))))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPComb ("FlatCurry","Cons") [CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"texps")]] (CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("CompactFlatCurry","allTypesOfTExpr"))) (CVar (15,"texps"))))) (CVar (10,"cdecls"))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("CompactFlatCurry","prelude") 0 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("CompactFlatCurry","processPrimitives") 2 Private (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"pspecs")) (CApply (CApply (CSymbol ("CompactFlatCurry","readPrimSpec")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (1,"prog")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '2'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))))))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("CompactFlatCurry","mergePrimSpecIntoModule")) (CVar (2,"pspecs"))) (CVar (1,"prog"))))])] []]),+  CFunc ("CompactFlatCurry","readCurrentFlatCurry") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))),CSPat (CPVar (1,"progname")) (CApply (CSymbol ("CompactFlatCurry","findSourceFileInLoadPath")) (CVar (0,"modname"))),CSPat (CPVar (2,"fcyexists")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname")))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","not")) (CVar (2,"fcyexists")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (1,"progname")))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname"))))) (CDoExpr [CSPat (CPVar (3,"ctime")) (CApply (CSymbol ("CompactFlatCurry","getSourceModificationTime")) (CVar (1,"progname"))),CSPat (CPVar (4,"ftime")) (CApply (CSymbol ("Directory","getModificationTime")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname")))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (3,"ctime")))) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (4,"ftime"))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (1,"progname")))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname"))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (1,"progname"))))) (CApply (CSymbol ("CompactFlatCurry","processPrimitives")) (CVar (1,"progname")))))]))])] []]),+  CFunc ("CompactFlatCurry","readPrimSpec") 2 Private (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","QName") []]]]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"xmlfilename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"existsXml")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (1,"xmlfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (2,"existsXml"))) (CDoExpr [CSPat (CPVar (3,"xmldoc")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (1,"xmlfilename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("CompactFlatCurry","xml2primtrans")) (CVar (0,"mod"))) (CVar (3,"xmldoc"))))])) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","[]"))))])] []]),+  CFunc ("CompactFlatCurry","requiredDatatypes") 2 Private (CFuncType (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("SetRBT","SetRBT") [CTCons ("FlatCurry","QName") []]))) (CRules CFlex [CRule [CPVar (0,"tcnames"),CPVar (1,"tdecls")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (2,"newtcons")) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CSymbol ("CompactFlatCurry","newTypeConsOfTDecl")) (CVar (0,"tcnames")))) (CVar (1,"tdecls"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (2,"newtcons")))) (CVar (0,"tcnames"))) (CApply (CApply (CSymbol ("CompactFlatCurry","requiredDatatypes")) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (0,"tcnames"))) (CVar (2,"newtcons")))) (CVar (1,"tdecls")))))] []]),+  CFunc ("CompactFlatCurry","requiredInCompactProg") 2 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CompactFlatCurry","Option") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","(,,)") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","QName") []],CTCons ("SetRBT","SetRBT") [CTCons ("Prelude","String") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]]))) (CRules CFlex [CRule [CPVar (0,"mainmod"),CPVar (1,"options")] [(CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (4,"initfuncs"))),CDoExpr [CSPat (CPVar (9,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("Prelude","concat")) (CVar (4,"initfuncs")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (9,"impprogs")))))]),(CApply (CApply (CSymbol ("Prelude","elem")) (CSymbol ("CompactFlatCurry","Exports"))) (CVar (1,"options")),CDoExpr [CSPat (CPVar (10,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("List","nub")) (CVar (5,"mainexports")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (10,"impprogs")))))]),(CApply (CApply (CSymbol ("Prelude","any")) (CSymbol ("CompactFlatCurry","isMainOption"))) (CVar (1,"options")),CLetDecl [CLocalPat (CPVar (11,"func")) (CApply (CSymbol ("CompactFlatCurry","getMainFuncFromOptions")) (CVar (1,"options"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mainmodname"))) (CVar (11,"func")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","functionName"))) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (0,"mainmod")))))) (CDoExpr [CSPat (CPVar (12,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CVar (2,"imports"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mainmodname"))) (CVar (11,"func")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CVar (2,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (12,"impprogs")))))])) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"func"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSPat (CPVar (13,"impprogs")) (CApply (CApply (CSymbol ("Prelude","mapIO")) (CSymbol ("CompactFlatCurry","readCurrentFlatCurry"))) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"imports"))) (CApply (CSymbol ("CompactFlatCurry","moduleImports")) (CVar (0,"mainmod")))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","(,,)")) (CApply (CSymbol ("List","nub")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mainexports"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("CompactFlatCurry","exportedFuncNames"))) (CSymbol ("CompactFlatCurry","moduleFuns")))) (CVar (13,"impprogs")))))) (CApply (CSymbol ("CompactFlatCurry","add2mainmodset")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","moduleName"))) (CVar (13,"impprogs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"mainmod"))) (CVar (13,"impprogs")))))])] [CLocalPat (CPVar (2,"imports")) (CApply (CSymbol ("List","nub")) (CListComp (CVar (7,"mname")) [CSPat (CPComb ("CompactFlatCurry","Import") [CPVar (7,"mname")]) (CVar (1,"options"))])) [],CLocalPat (CPVar (3,"mainmodname")) (CApply (CSymbol ("CompactFlatCurry","moduleName")) (CVar (0,"mainmod"))) [],CLocalPat (CPVar (4,"initfuncs")) (CListComp (CVar (8,"fs")) [CSPat (CPComb ("CompactFlatCurry","InitFuncs") [CPVar (8,"fs")]) (CVar (1,"options"))]) [],CLocalPat (CPVar (5,"mainexports")) (CApply (CSymbol ("CompactFlatCurry","exportedFuncNames")) (CApply (CSymbol ("CompactFlatCurry","moduleFuns")) (CVar (0,"mainmod")))) [],CLocalPat (CPVar (6,"mainmodset")) (CApply (CApply (CSymbol ("SetRBT","insertRBT")) (CVar (3,"mainmodname"))) (CApply (CSymbol ("SetRBT","emptySetRBT")) (CSymbol ("Sort","leqString")))) [],CLocalFunc (CFunc ("CompactFlatCurry","add2mainmodset") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (9,"mnames")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("SetRBT","insertRBT"))) (CVar (6,"mainmodset"))) (CVar (9,"mnames")))] []]))]]),+  CFunc ("CompactFlatCurry","requires") 2 Public (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("CompactFlatCurry","RequiredSpec") []))) (CRules CFlex [CRule [CPVar (0,"fun"),CPVar (1,"reqfun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CompactFlatCurry","Requires")) (CVar (0,"fun"))) (CVar (1,"reqfun")))] []]),+  CFunc ("CompactFlatCurry","tconsName") 1 Private (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")]] [(CSymbol ("Prelude","success"),CVar (4,"name"))] []]),+  CFunc ("CompactFlatCurry","unionMap") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("List","union"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))] []]),+  CFunc ("CompactFlatCurry","xml2primtrans") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"primitives")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("CompactFlatCurry","xml2prim"))) (CVar (1,"primitives")))] [CLocalFunc (CFunc ("CompactFlatCurry","xml2prim") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (2,"fname")],CPVar (3,"_")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude","[]") [],CPVar (4,"xlib")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (5,"xfun")],CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (2,"fname")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("XML","textOfXml")) (CVar (4,"xlib")))) (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xfun")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (6,"fname")],CPVar (7,"_")],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (6,"fname")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]"))))] []]))]])]+ [COp ("CompactFlatCurry","requires") CInfixOp 0]
+ src/lib/Curry/Module/.curry/CurryStringClassifier.acy view
@@ -0,0 +1,33 @@+CurryProg "CurryStringClassifier"+ ["Prelude","Char"]+ [CType ("CurryStringClassifier","Token") Public [] [CCons ("CurryStringClassifier","SmallComment") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","BigComment") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Text") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Letter") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Code") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","ModuleHead") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Meta") 1 Public [CTCons ("Prelude","String") []]],+  CTypeSyn ("CurryStringClassifier","Tokens") Public [] (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []])]+ [CFunc ("CurryStringClassifier","delimiters") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("CurryStringClassifier","headers") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CurryStringClassifier","infixIDs") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("CurryStringClassifier","isBigComment") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","BigComment") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isCode") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Code") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isComment") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("CurryStringClassifier","isSmallComment")) (CVar (0,"x")))) (CApply (CSymbol ("CurryStringClassifier","isBigComment")) (CVar (0,"x"))))] []]),+  CFunc ("CurryStringClassifier","isLetter") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Letter") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isMeta") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Meta") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isModuleHead") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","ModuleHead") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isSep") 1 Private (CFuncType (CTCons ("Prelude","Char") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("Char","isSpace")) (CVar (0,"c")))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"c"))) (CSymbol ("CurryStringClassifier","infixIDs")))) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CurryStringClassifier","isSmallComment") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","SmallComment") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isText") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Text") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","lineBeginsWith") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") []))) (CRules CFlex [CRule [CPVar (0,"line"),CPVar (1,"s")] [(CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","length")) (CVar (0,"line")))) (CVar (2,"lens")),CSymbol ("Prelude","False")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"line"))) (CVar (1,"s")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"s'"),CPVar (4,"rest")]) (CApply (CApply (CSymbol ("Prelude","splitAt")) (CApply (CSymbol ("Prelude","length")) (CVar (1,"s")))) (CVar (0,"line"))) []] (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"s"))) (CVar (3,"s'")))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("Prelude","null")) (CVar (4,"rest")))) (CApply (CSymbol ("CurryStringClassifier","isSep")) (CApply (CSymbol ("Prelude","head")) (CVar (4,"rest"))))))))] [CLocalPat (CPVar (2,"lens")) (CApply (CSymbol ("Prelude","length")) (CVar (1,"s"))) []]]),+  CFunc ("CurryStringClassifier","maybeCode") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (0,"s")))) (CVar (1,"ts")))] []]),+  CFunc ("CurryStringClassifier","maybeMo") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"s"))) (CSymbol ("Prelude","[]")))) (CVar (1,"ts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","ModuleHead")) (CVar (0,"s")))) (CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts'")]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CVar (2,"c"))))) (CVar (3,"ts'"))),CBranch (CPVar (4,"_")) (CVar (1,"ts"))])))] []]),+  CFunc ("CurryStringClassifier","modHead") 2 Private (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))) (CRules CFlex [CRule [CPVar (0,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (1,"c")],CPVar (2,"ts")]] [(CSymbol ("Prelude","success"),CCase (CApply (CApply (CSymbol ("Prelude","break")) (CLambda [CPVar (3,"x")] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"x"))) (CLit (CCharc '\n')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"x"))) (CLit (CCharc '\r')))))) (CVar (1,"c"))) [CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CVar (0,"fs"))) (CVar (2,"ts"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (4,"n"),CPVar (5,"rest")]]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (0,"fs"))) (CLambda [CPVar (6,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (6,"x0")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (5,"rest")))) (CVar (2,"ts")))),CBranch (CPComb ("Prelude","(,)") [CPVar (7,"line"),CPComb ("Prelude","[]") []]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","any")) (CApply (CSymbol ("CurryStringClassifier","lineBeginsWith")) (CVar (7,"line")))) (CSymbol ("CurryStringClassifier","headers")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","ModuleHead")) (CApply (CVar (0,"fs")) (CVar (7,"line"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (2,"ts"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"c")))) (CVar (2,"ts"))))),CBranch (CPComb ("Prelude","(,)") [CPVar (8,"line"),CPComb ("Prelude",":") [CPVar (9,"n"),CPVar (10,"rest")]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","any")) (CApply (CSymbol ("CurryStringClassifier","lineBeginsWith")) (CVar (8,"line")))) (CSymbol ("CurryStringClassifier","headers")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (0,"fs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (11,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"line"))) (CVar (11,"x0"))))) (CLambda [CPVar (12,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (9,"n"))) (CVar (12,"x0"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (10,"rest")))) (CVar (2,"ts"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"c")))) (CVar (2,"ts")))))])] [],CRule [CPVar (13,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (14,"c")],CPVar (15,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (13,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (14,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CVar (15,"ts")))))] [],CRule [CPVar (16,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (17,"c")],CPVar (18,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (16,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (17,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CVar (18,"ts")))))] [],CRule [CPVar (19,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (20,"c")],CPVar (21,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (19,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (20,"c")))) (CVar (21,"ts"))))] [],CRule [CPVar (22,"fs"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (22,"fs")) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("CurryStringClassifier","modHeadInLine") 2 Private (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))) (CRules CFlex [CRule [CPVar (0,"fs"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CCase (CApply (CApply (CSymbol ("Prelude","break")) (CLambda [CPVar (4,"x")] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"x"))) (CLit (CCharc '\n')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"x"))) (CLit (CCharc '\r')))))) (CVar (2,"c"))) [CBranch (CPComb ("Prelude","(,)") [CPVar (5,"line"),CPComb ("Prelude",":") [CPVar (6,"n"),CPVar (7,"rest")]]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (1,"fs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (8,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"line"))) (CVar (8,"x0"))))) (CLambda [CPVar (9,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (6,"n"))) (CVar (9,"x0"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (7,"rest")))) (CVar (3,"ts")))),CBranch (CPVar (10,"_")) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CVar (1,"fs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (2,"c")))) (CVar (3,"ts"))))])] [],CRule [CPVar (11,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"c")],CPVar (13,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (11,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (12,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (13,"ts")))))] [],CRule [CPVar (14,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (15,"c")],CPVar (16,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (14,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (15,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (16,"ts")))))] [],CRule [CPVar (17,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (18,"c")],CPVar (19,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (17,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (18,"c")))) (CVar (19,"ts"))))] []]),+  CFunc ("CurryStringClassifier","plainCode") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","ModuleHead") [CPVar (0,"s")],CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts'")]) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 1))) (CVar (2,"c")))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (3,"ts'"))))),CBranch (CPVar (4,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (1,"ts"))))])] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (5,"s")],CPVar (6,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"s"))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (6,"ts"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Text") [CPVar (7,"s")],CPVar (8,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (8,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Letter") [CPVar (9,"s")],CPVar (10,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (9,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (10,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (11,"_")],CPVar (12,"ts")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (12,"ts")))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (13,"_")],CPVar (14,"ts")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (14,"ts")))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (15,"s")],CPVar (16,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (15,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (16,"ts"))))))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]),+  CFunc ("CurryStringClassifier","readScan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("CurryStringClassifier","scan"))))] []]),+  CFunc ("CurryStringClassifier","scan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CLit (CIntc 1))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"x")))) (CVar (1,"x"))) (CVar (0,"s"))))] [CLocalVar (1,"x")]]),+  CFunc ("CurryStringClassifier","stateScan") 4 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"token"),CPVar (2,"x"),CPComb ("Prelude","[]") []] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (2,"x"))) (CSymbol ("Prelude","[]")),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"token"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (3,"_"),CPComb ("CurryStringClassifier","Code") [CPVar (4,"co")],CPVar (5,"x"),CPComb ("Prelude",":") [CPVar (6,"c"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (5,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (6,"c"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (4,"co"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (7,"_"),CPComb ("CurryStringClassifier","Text") [CPVar (8,"t")],CPVar (9,"x"),CPComb ("Prelude",":") [CPVar (10,"c"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (9,"x"))) (CSymbol ("Prelude","[]")),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"c"))) (CLit (CCharc '"')))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (8,"t")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))] [],CRule [CPVar (11,"_"),CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"_")],CPVar (13,"x"),CPComb ("Prelude",":") [CPVar (14,"_"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (13,"x"))) (CSymbol ("Prelude","[]")),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))] [],CRule [CPVar (15,"_"),CPComb ("CurryStringClassifier","Meta") [CPVar (16,"_")],CPVar (17,"x"),CPComb ("Prelude",":") [CPVar (18,"_"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (17,"x"))) (CSymbol ("Prelude","[]")),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))] [],CRule [CPVar (19,"line"),CPComb ("CurryStringClassifier","Code") [CPVar (20,"co")],CPVar (21,"x"),CPComb ("Prelude",":") [CPVar (22,"c"),CPComb ("Prelude",":") [CPVar (23,"c'"),CPVar (24,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (25,"y")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs")))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '-'))),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (26,"comment"),CPVar (27,"rest")]) (CApply (CApply (CSymbol ("Prelude","span")) (CLambda [CPVar (28,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (28,"x0"))) (CLit (CCharc '\n'))))) (CVar (24,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (26,"comment")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (27,"rest"))))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '{')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '-'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (24,"cs"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '{')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '+'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (24,"cs"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '\'')))) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (22,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("CurryStringClassifier","infixIDs"))) (CSymbol ("CurryStringClassifier","delimiters")))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co")))) (CCase (CVar (24,"cs")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc '\\'),CPComb ("Prelude",":") [CPVar (29,"l"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (30,"rest")]]]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (29,"l"))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (30,"rest")))),CBranch (CPComb ("Prelude",":") [CPLit (CCharc '\\'),CPComb ("Prelude",":") [CPVar (31,"a"),CPComb ("Prelude",":") [CPVar (32,"b"),CPComb ("Prelude",":") [CPVar (33,"d"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (34,"rest")]]]]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("Char","isDigit"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"a"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"b"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"d"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"a"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"b"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"d"))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (34,"rest"))))) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (19,"line")))))),CBranch (CPComb ("Prelude",":") [CPVar (35,"l"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (36,"rest")]]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (35,"l"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (36,"rest")))),CBranch (CPVar (37,"_")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (19,"line")))))]))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CVar (25,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (19,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (20,"co")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CVar (25,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (20,"co")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs")))))] [CLocalVar (25,"y")],CRule [CPVar (38,"line"),CPComb ("CurryStringClassifier","BigComment") [CPVar (39,"co")],CPVar (40,"x"),CPComb ("Prelude",":") [CPVar (41,"c"),CPComb ("Prelude",":") [CPVar (42,"c'"),CPVar (43,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (41,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (42,"c'"))) (CLit (CCharc '}'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (38,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (44,"y")))) (CVar (44,"y"))) (CVar (43,"cs"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (41,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (41,"c"))) (CVar (44,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (38,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CVar (44,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (42,"c'"))) (CVar (43,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (41,"c"))) (CVar (44,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (38,"line"))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CVar (44,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (42,"c'"))) (CVar (43,"cs")))))] [CLocalVar (44,"y")],CRule [CPVar (45,"line"),CPComb ("CurryStringClassifier","Meta") [CPVar (46,"co")],CPVar (47,"x"),CPComb ("Prelude",":") [CPVar (48,"c"),CPComb ("Prelude",":") [CPVar (49,"c'"),CPVar (50,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (48,"c"))) (CLit (CCharc '+')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (49,"c'"))) (CLit (CCharc '}'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (45,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (51,"y")))) (CVar (51,"y"))) (CVar (50,"cs"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (48,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (48,"c"))) (CVar (51,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (45,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CVar (51,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"c'"))) (CVar (50,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (48,"c"))) (CVar (51,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (45,"line"))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CVar (51,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"c'"))) (CVar (50,"cs")))))] [CLocalVar (51,"y")],CRule [CPVar (52,"line"),CPComb ("CurryStringClassifier","Text") [CPVar (53,"t")],CPVar (54,"x"),CPComb ("Prelude",":") [CPVar (55,"c"),CPComb ("Prelude",":") [CPVar (56,"c'"),CPVar (57,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (55,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (58,"y")))) (CVar (58,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (57,"cs")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (55,"c"))) (CLit (CCharc '\\')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (58,"y")))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CVar (58,"y"))) (CVar (57,"cs")))),(CApply (CApply (CSymbol ("Prelude","elem")) (CVar (55,"c"))) (CSymbol ("CurryStringClassifier","toBeEscaped")),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (52,"line"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CVar (58,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CVar (58,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (57,"cs")))))] [CLocalVar (58,"y")]]),+  CFunc ("CurryStringClassifier","testScan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"c")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn"))),CSExpr (CApply (CSymbol ("Prelude","print")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CSymbol ("CurryStringClassifier","scan")) (CVar (1,"c"))))) (CVar (1,"c"))))])] []]),+  CFunc ("CurryStringClassifier","testWeave") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"c")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn"))),CSExpr (CApply (CSymbol ("Prelude","print")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CApply (CSymbol ("CurryStringClassifier","scan")) (CVar (1,"c"))))))) (CVar (1,"c"))))])] []]),+  CFunc ("CurryStringClassifier","toBeEscaped") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\t'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("CurryStringClassifier","unscan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","ModuleHead") [CPVar (0,"s")],CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPComb ("Prelude",":") [CPVar (2,"_"),CPVar (3,"c")]],CPVar (4,"ts'")]) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (3,"c")))) (CVar (4,"ts'")))),CBranch (CPVar (5,"_")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (1,"ts")))]))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (6,"s")],CPVar (7,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"s"))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (7,"ts"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Text") [CPVar (8,"s")],CPVar (9,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (9,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Letter") [CPVar (10,"s")],CPVar (11,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (11,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"s")],CPVar (13,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (12,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (13,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (14,"s")],CPVar (15,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (14,"s"))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (15,"ts")))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (16,"s")],CPVar (17,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (17,"ts"))))))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]),+  CFunc ("CurryStringClassifier","unweaveCode") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []],CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"t"),CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"cs"),CPVar (3,"ncs")]) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CVar (1,"ts"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("CurryStringClassifier","isCode")) (CVar (0,"t")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"t"))) (CVar (2,"cs")))) (CVar (3,"ncs")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"cs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"t"))) (CVar (3,"ncs"))))))] []]),+  CFunc ("CurryStringClassifier","weave") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTVar (0,"a")]]) (CTCons ("Prelude","[]") [CTVar (0,"a")])) (CRules CFlex [CRule [CPVar (0,"xys")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"xys")) [CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude","[]") []]) (CSymbol ("Prelude","[]")),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"y"),CPComb ("Prelude","[]") []]]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"y"))) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPVar (2,"x"),CPComb ("Prelude","[]") []],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"x"))) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPVar (3,"x"),CPVar (4,"xs")],CPComb ("Prelude",":") [CPVar (5,"y"),CPVar (6,"ys")]]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"y"))) (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (4,"xs"))) (CVar (6,"ys"))))))])] []]),+  CFunc ("CurryStringClassifier","weaveIntoCode") 2 Private (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []])) (CFuncType (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]) (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []]))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"cs"),CPVar (3,"ncs")]) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CVar (1,"ts"))) []] (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CVar (0,"f")) (CVar (2,"cs")))) (CVar (3,"ncs")))))] []])]+ []
+ src/lib/Curry/Module/.curry/CurryStringClassifier.cy view
@@ -0,0 +1,53 @@+Module "CurryStringClassifier"+(Just (Exporting (29,10) [(Export (QualIdent Nothing (Ident "Tokens" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Token" 0))),(Export (QualIdent Nothing (Ident "scan" 0))),(Export (QualIdent Nothing (Ident "plainCode" 0))),(Export (QualIdent Nothing (Ident "unscan" 0))),(Export (QualIdent Nothing (Ident "isSmallComment" 0))),(Export (QualIdent Nothing (Ident "isBigComment" 0))),(Export (QualIdent Nothing (Ident "isComment" 0))),(Export (QualIdent Nothing (Ident "isText" 0))),(Export (QualIdent Nothing (Ident "isLetter" 0))),(Export (QualIdent Nothing (Ident "isCode" 0))),(Export (QualIdent Nothing (Ident "isModuleHead" 0))),(Export (QualIdent Nothing (Ident "isMeta" 0))),(Export (QualIdent Nothing (Ident "readScan" 0))),(Export (QualIdent Nothing (Ident "testScan" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (34,1) "Char" False Nothing (Just (Importing (34,12) [(Import (Ident "isDigit" 0)),(Import (Ident "isSpace" 0))])))+,(DataDecl (37,1) (Ident "Token" 0) [] [(ConstrDecl (37,15) [] (Ident "SmallComment" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (38,15) [] (Ident "BigComment" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (39,15) [] (Ident "Text" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (40,15) [] (Ident "Letter" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (41,15) [] (Ident "Code" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (42,15) [] (Ident "ModuleHead" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (43,15) [] (Ident "Meta" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(TypeDecl (45,1) (Ident "Tokens" 0) [] (ListType (ConstructorType (QualIdent Nothing (Ident "Token" 0)) [])))+,(FunctionDecl (49,1) (Ident "isSmallComment" 0) [(Equation (49,1) (FunLhs (Ident "isSmallComment" 0) [(VariablePattern (Ident "x" 2))]) (SimpleRhs (49,20) (Case (Variable (QualIdent Nothing (Ident "x" 2))) [(Alt (50,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0)) [(VariablePattern (Ident "_" 5))]) (SimpleRhs (50,39) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (51,21) (VariablePattern (Ident "_" 8)) (SimpleRhs (51,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (54,1) (Ident "isBigComment" 0) [(Equation (54,1) (FunLhs (Ident "isBigComment" 0) [(VariablePattern (Ident "x" 10))]) (SimpleRhs (54,18) (Case (Variable (QualIdent Nothing (Ident "x" 10))) [(Alt (55,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "_" 13))]) (SimpleRhs (55,37) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (56,21) (VariablePattern (Ident "_" 16)) (SimpleRhs (56,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (59,1) (Ident "isComment" 0) [(Equation (59,1) (FunLhs (Ident "isComment" 0) [(VariablePattern (Ident "x" 18))]) (SimpleRhs (59,15) (InfixApply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "isSmallComment" 0))) (Variable (QualIdent Nothing (Ident "x" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "isBigComment" 0))) (Variable (QualIdent Nothing (Ident "x" 18))))) []))])+,(FunctionDecl (62,1) (Ident "isText" 0) [(Equation (62,1) (FunLhs (Ident "isText" 0) [(VariablePattern (Ident "x" 20))]) (SimpleRhs (62,12) (Case (Variable (QualIdent Nothing (Ident "x" 20))) [(Alt (63,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0)) [(VariablePattern (Ident "_" 23))]) (SimpleRhs (63,31) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (64,21) (VariablePattern (Ident "_" 26)) (SimpleRhs (64,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (67,1) (Ident "isLetter" 0) [(Equation (67,1) (FunLhs (Ident "isLetter" 0) [(VariablePattern (Ident "x" 28))]) (SimpleRhs (67,14) (Case (Variable (QualIdent Nothing (Ident "x" 28))) [(Alt (68,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0)) [(VariablePattern (Ident "_" 31))]) (SimpleRhs (68,33) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (69,21) (VariablePattern (Ident "_" 34)) (SimpleRhs (69,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (72,1) (Ident "isCode" 0) [(Equation (72,1) (FunLhs (Ident "isCode" 0) [(VariablePattern (Ident "x" 36))]) (SimpleRhs (72,12) (Case (Variable (QualIdent Nothing (Ident "x" 36))) [(Alt (73,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "_" 39))]) (SimpleRhs (73,31) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (74,21) (VariablePattern (Ident "_" 42)) (SimpleRhs (74,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (77,1) (Ident "isModuleHead" 0) [(Equation (77,1) (FunLhs (Ident "isModuleHead" 0) [(VariablePattern (Ident "x" 44))]) (SimpleRhs (77,18) (Case (Variable (QualIdent Nothing (Ident "x" 44))) [(Alt (78,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "ModuleHead" 0)) [(VariablePattern (Ident "_" 47))]) (SimpleRhs (78,37) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (79,21) (VariablePattern (Ident "_" 50)) (SimpleRhs (79,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(FunctionDecl (82,1) (Ident "isMeta" 0) [(Equation (82,1) (FunLhs (Ident "isMeta" 0) [(VariablePattern (Ident "x" 52))]) (SimpleRhs (82,12) (Case (Variable (QualIdent Nothing (Ident "x" 52))) [(Alt (83,21) (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "_" 55))]) (SimpleRhs (83,31) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (84,21) (VariablePattern (Ident "_" 58)) (SimpleRhs (84,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (86,1) [(Ident "weaveIntoCode" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []))))+,(FunctionDecl (87,1) (Ident "weaveIntoCode" 0) [(Equation (87,1) (FunLhs (Ident "weaveIntoCode" 0) [(VariablePattern (Ident "f" 60)),(VariablePattern (Ident "ts" 60))]) (SimpleRhs (88,4) (Let [(PatternDecl (88,8) (TuplePattern [(VariablePattern (Ident "cs" 62)),(VariablePattern (Ident "ncs" 62))]) (SimpleRhs (88,19) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unweaveCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 60)))) []))] (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "weave" 0))) (Tuple [(Apply (Variable (QualIdent Nothing (Ident "f" 60))) (Variable (QualIdent Nothing (Ident "cs" 62)))),(Variable (QualIdent Nothing (Ident "ncs" 62)))]))) []))])+,(TypeSig (90,1) [(Ident "unweaveCode" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (TupleType [(ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) [])])))+,(FunctionDecl (91,1) (Ident "unweaveCode" 0) [(Equation (91,1) (FunLhs (Ident "unweaveCode" 0) [(ListPattern [])]) (SimpleRhs (91,18) (Tuple [(List []),(List [])]) [])),(Equation (92,1) (FunLhs (Ident "unweaveCode" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "t" 66)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 66))))]) (SimpleRhs (92,22) (Let [(PatternDecl (92,26) (TuplePattern [(VariablePattern (Ident "cs" 68)),(VariablePattern (Ident "ncs" 68))]) (SimpleRhs (92,37) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unweaveCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 66)))) []))] (IfThenElse (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "isCode" 0))) (Variable (QualIdent Nothing (Ident "t" 66)))) (Tuple [(InfixApply (Variable (QualIdent Nothing (Ident "t" 66))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 68)))),(Variable (QualIdent Nothing (Ident "ncs" 68)))]) (Tuple [(Variable (QualIdent Nothing (Ident "cs" 68))),(InfixApply (Variable (QualIdent Nothing (Ident "t" 66))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ncs" 68))))]))) []))])+,(FunctionDecl (95,1) (Ident "weave" 0) [(Equation (95,1) (FunLhs (Ident "weave" 0) [(VariablePattern (Ident "xys" 70))]) (SimpleRhs (95,13) (Case (Variable (QualIdent Nothing (Ident "xys" 70))) [(Alt (96,8) (TuplePattern [(ListPattern []),(ListPattern [])]) (SimpleRhs (96,19) (List []) [])),(Alt (97,8) (TuplePattern [(ListPattern []),(ListPattern [(VariablePattern (Ident "y" 74))])]) (SimpleRhs (97,20) (List [(Variable (QualIdent Nothing (Ident "y" 74)))]) [])),(Alt (98,8) (TuplePattern [(ListPattern [(VariablePattern (Ident "x" 76))]),(ListPattern [])]) (SimpleRhs (98,20) (List [(Variable (QualIdent Nothing (Ident "x" 76)))]) [])),(Alt (99,8) (TuplePattern [(InfixPattern (VariablePattern (Ident "x" 78)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 78))),(InfixPattern (VariablePattern (Ident "y" 78)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ys" 78)))]) (SimpleRhs (99,23) (InfixApply (Variable (QualIdent Nothing (Ident "x" 78))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "y" 78))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "weave" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "xs" 78))),(Variable (QualIdent Nothing (Ident "ys" 78)))])))) []))]) []))])+,(TypeSig (108,1) [(Ident "scan" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) [])))+,(FunctionDecl (109,1) (Ident "scan" 0) [(Equation (109,1) (FunLhs (Ident "scan" 0) [(VariablePattern (Ident "s" 80))]) (SimpleRhs (109,10) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Literal (Int (Ident "_" 82) 1))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "x" 81)))))) (Variable (QualIdent Nothing (Ident "x" 81)))) (Variable (QualIdent Nothing (Ident "s" 80)))))) [(ExtraVariables (109,54) [(Ident "x" 81)])]))])+,(TypeSig (111,1) [(Ident "stateScan" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Token" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []))))))+,(FunctionDecl (112,1) (Ident "stateScan" 0) [(Equation (112,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "_" 84)),(VariablePattern (Ident "token" 83)),(VariablePattern (Ident "x" 83)),(LiteralPattern (String ""))]) (GuardedRhs [(CondExpr (112,25) (InfixApply (Variable (QualIdent Nothing (Ident "x" 83))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String ""))) (List [(Variable (QualIdent Nothing (Ident "token" 83)))]))] [])),(Equation (113,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "_" 87)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "co" 86))])),(VariablePattern (Ident "x" 86)),(ListPattern [(VariablePattern (Ident "c" 86))])]) (GuardedRhs [(CondExpr (113,29) (InfixApply (Variable (QualIdent Nothing (Ident "x" 86))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 86)))])) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 86)))) (List [])))] [])),(Equation (114,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "_" 90)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0)) [(VariablePattern (Ident "t" 89))])),(VariablePattern (Ident "x" 89)),(ListPattern [(VariablePattern (Ident "c" 89))])]) (GuardedRhs [(CondExpr (115,3) (InfixApply (Variable (QualIdent Nothing (Ident "x" 89))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String ""))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "c" 89))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (List [(Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0))) (Variable (QualIdent Nothing (Ident "t" 89))))]) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "File ended while scanning string.")))))] [])),(Equation (117,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "_" 93)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "_" 94))])),(VariablePattern (Ident "x" 92)),(ListPattern [(VariablePattern (Ident "_" 95))])]) (GuardedRhs [(CondExpr (118,3) (InfixApply (Variable (QualIdent Nothing (Ident "x" 92))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String ""))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "File ended while expecting -}"))))] [])),(Equation (119,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "_" 98)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "_" 99))])),(VariablePattern (Ident "x" 97)),(ListPattern [(VariablePattern (Ident "_" 100))])]) (GuardedRhs [(CondExpr (120,3) (InfixApply (Variable (QualIdent Nothing (Ident "x" 97))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String ""))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "File ended while expecting +}"))))] [])),(Equation (121,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "line" 102)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "co" 102))])),(VariablePattern (Ident "x" 102)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 102)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "c'" 102)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 102)))))]) (GuardedRhs [(CondExpr (122,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 102))))))))))),(CondExpr (124,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '-'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '-')))) (Let [(PatternDecl (125,9) (TuplePattern [(VariablePattern (Ident "comment" 104)),(VariablePattern (Ident "rest" 104))]) (SimpleRhs (125,26) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "span" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char '\n')))) (Variable (QualIdent Nothing (Ident "cs" 102)))) []))] (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0))) (Variable (QualIdent Nothing (Ident "comment" 104)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "rest" 104))))))))))),(CondExpr (129,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '{'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '-')))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "cs" 102)))))))),(CondExpr (131,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '{'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '+')))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "cs" 102)))))))),(CondExpr (133,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\''))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "c" 102)))) (Paren (InfixApply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "infixIDs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "delimiters" 0))))))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 102)))]))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (InfixApply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeCode" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Case (Variable (QualIdent Nothing (Ident "cs" 102))) [(Alt (136,8) (InfixPattern (LiteralPattern (Char '\\')) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "l" 106)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (LiteralPattern (Char '\'')) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 106))))) (SimpleRhs (136,28) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0))) (List [(Literal (Char '\\')),(Variable (QualIdent Nothing (Ident "l" 106)))])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "rest" 106)))))) [])),(Alt (137,8) (InfixPattern (LiteralPattern (Char '\\')) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "a" 108)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "b" 108)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "d" 108)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (LiteralPattern (Char '\'')) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 108))))))) (SimpleRhs (138,10) (IfThenElse (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "all" 0))) (Variable (QualIdent (Just "Char") (Ident "isDigit" 0)))) (List [(Variable (QualIdent Nothing (Ident "a" 108))),(Variable (QualIdent Nothing (Ident "b" 108))),(Variable (QualIdent Nothing (Ident "d" 108)))])) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0))) (List [(Literal (Char '\\')),(Variable (QualIdent Nothing (Ident "a" 108))),(Variable (QualIdent Nothing (Ident "b" 108))),(Variable (QualIdent Nothing (Ident "d" 108)))])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "rest" 108)))))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String "Improperly terminated character found in line ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "line" 102))))))) [])),(Alt (142,8) (InfixPattern (VariablePattern (Ident "l" 110)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (LiteralPattern (Char '\'')) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 110)))) (SimpleRhs (142,28) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0))) (List [(Variable (QualIdent Nothing (Ident "l" 110)))])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Variable (QualIdent Nothing (Ident "rest" 110)))))) [])),(Alt (143,8) (VariablePattern (Ident "_" 113)) (SimpleRhs (143,13) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String "Improperly terminated character in line ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))))) []))])))),(CondExpr (144,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "line" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 115) 1))))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 102)))))))),(CondExpr (146,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 102))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 103)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 102)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "co" 102)))))) (Variable (QualIdent Nothing (Ident "y" 103)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 102))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 102))))))))] [(ExtraVariables (149,5) [(Ident "y" 103)])])),(Equation (150,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "line" 116)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "co" 116))])),(VariablePattern (Ident "x" 116)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 116)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "c'" 116)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 116)))))]) (GuardedRhs [(CondExpr (151,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '-'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '}')))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "co" 116)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 116)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 117)))))) (Variable (QualIdent Nothing (Ident "y" 117)))) (Variable (QualIdent Nothing (Ident "cs" 116)))))))),(CondExpr (153,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 116))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 117)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "line" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 118) 1))))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "co" 116)))))) (Variable (QualIdent Nothing (Ident "y" 117)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 116))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 116)))))))),(CondExpr (155,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 116))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 117)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 116)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "co" 116)))))) (Variable (QualIdent Nothing (Ident "y" 117)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 116))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 116))))))))] [(ExtraVariables (158,4) [(Ident "y" 117)])])),(Equation (159,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "line" 119)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "co" 119))])),(VariablePattern (Ident "x" 119)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 119)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "c'" 119)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 119)))))]) (GuardedRhs [(CondExpr (160,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '+'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '}')))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "co" 119)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 119)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 120)))))) (Variable (QualIdent Nothing (Ident "y" 120)))) (Variable (QualIdent Nothing (Ident "cs" 119)))))))),(CondExpr (162,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 120)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "line" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 121) 1))))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "co" 119)))))) (Variable (QualIdent Nothing (Ident "y" 120)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 119)))))))),(CondExpr (164,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 120)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 119)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "co" 119)))))) (Variable (QualIdent Nothing (Ident "y" 120)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 119))))))))] [(ExtraVariables (167,4) [(Ident "y" 120)])])),(Equation (168,1) (FunLhs (Ident "stateScan" 0) [(VariablePattern (Ident "line" 122)),(ParenPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0)) [(VariablePattern (Ident "t" 122))])),(VariablePattern (Ident "x" 122)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 122)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "c'" 122)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 122)))))]) (GuardedRhs [(CondExpr (169,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 122))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 122))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0))) (Variable (QualIdent Nothing (Ident "t" 122)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 122)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "y" 123)))))) (Variable (QualIdent Nothing (Ident "y" 123)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 122)))))))))),(CondExpr (170,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 122))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\\'))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 122))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c'" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 123))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 122)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0))) (Variable (QualIdent Nothing (Ident "t" 122)))))) (Variable (QualIdent Nothing (Ident "y" 123)))) (Variable (QualIdent Nothing (Ident "cs" 122)))))),(CondExpr (171,3) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "c" 122)))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "toBeEscaped" 0)))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String "unescaped ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Literal (String " encountered in line ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "line" 122))))))))),(CondExpr (173,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 122))) (InfixOp (QualIdent (Just "Prelude") (Ident "=:=" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "y" 123)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "stateScan" 0))) (Variable (QualIdent Nothing (Ident "line" 122)))) (Paren (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0))) (Variable (QualIdent Nothing (Ident "t" 122)))))) (Variable (QualIdent Nothing (Ident "y" 123)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c'" 122))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 122))))))))] [(ExtraVariables (175,4) [(Ident "y" 123)])]))])+,(TypeSig (177,1) [(Ident "modHead" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []))))+,(FunctionDecl (178,1) (Ident "modHead" 0) [(Equation (178,1) (FunLhs (Ident "modHead" 0) [(VariablePattern (Ident "fs" 124)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "c" 124))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 124))))]) (SimpleRhs (179,5) (Case (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "break" 0))) (Paren (Lambda [(VariablePattern (Ident "x" 126))] (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "x" 126))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x" 126))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\r'))))))) (Variable (QualIdent Nothing (Ident "c" 124)))) [(Alt (180,7) (TuplePattern [(LiteralPattern (String "")),(LiteralPattern (String ""))]) (SimpleRhs (180,23) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Variable (QualIdent Nothing (Ident "fs" 124)))) (Variable (QualIdent Nothing (Ident "ts" 124)))) [])),(Alt (181,7) (TuplePattern [(LiteralPattern (String "")),(InfixPattern (VariablePattern (Ident "n" 129)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 129)))]) (SimpleRhs (181,23) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "fs" 124))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (LeftSection (Variable (QualIdent Nothing (Ident "n" 129))) (InfixConstr (QualIdent Nothing (Ident ":" 0))))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "rest" 129)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 124)))))) [])),(Alt (182,7) (TuplePattern [(VariablePattern (Ident "line" 131)),(LiteralPattern (String ""))]) (SimpleRhs (182,23) (IfThenElse (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "any" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "lineBeginsWith" 0))) (Variable (QualIdent Nothing (Ident "line" 131)))))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "headers" 0)))) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "ModuleHead" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 124))) (Variable (QualIdent Nothing (Ident "line" 131)))))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHeadInLine" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "ts" 124)))))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 124))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "c" 124)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 124))))))) [])),(Alt (185,7) (TuplePattern [(VariablePattern (Ident "line" 133)),(InfixPattern (VariablePattern (Ident "n" 133)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 133)))]) (SimpleRhs (185,23) (IfThenElse (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "any" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "lineBeginsWith" 0))) (Variable (QualIdent Nothing (Ident "line" 133)))))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "headers" 0)))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "fs" 124))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (LeftSection (Variable (QualIdent Nothing (Ident "line" 133))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (LeftSection (Variable (QualIdent Nothing (Ident "n" 133))) (InfixConstr (QualIdent Nothing (Ident ":" 0)))))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "rest" 133)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 124)))))) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 124))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "c" 124)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 124))))))) []))]) [])),(Equation (188,1) (FunLhs (Ident "modHead" 0) [(VariablePattern (Ident "fs" 135)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "c" 135))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 135))))]) (SimpleRhs (188,34) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 135))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "c" 135)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "ts" 135)))))))) [])),(Equation (189,1) (FunLhs (Ident "modHead" 0) [(VariablePattern (Ident "fs" 137)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0)) [(VariablePattern (Ident "c" 137))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 137))))]) (SimpleRhs (189,37) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 137))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0))) (Variable (QualIdent Nothing (Ident "c" 137)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "ts" 137)))))))) [])),(Equation (190,1) (FunLhs (Ident "modHead" 0) [(VariablePattern (Ident "fs" 139)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "c" 139))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 139))))]) (SimpleRhs (190,29) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 139))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "c" 139)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 139)))))) [])),(Equation (191,1) (FunLhs (Ident "modHead" 0) [(VariablePattern (Ident "fs" 141)),(ListPattern [])]) (SimpleRhs (191,17) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 141))) (Literal (String ""))))) (List [])) []))])+,(TypeSig (193,1) [(Ident "modHeadInLine" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []))))+,(FunctionDecl (194,1) (Ident "modHeadInLine" 0) [(Equation (194,1) (FunLhs (Ident "modHeadInLine" 0) [(VariablePattern (Ident "fs" 143)),(ListPattern [])]) (SimpleRhs (194,23) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 143))) (Literal (String ""))))) (List [])) [])),(Equation (195,1) (FunLhs (Ident "modHeadInLine" 0) [(VariablePattern (Ident "fs" 145)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "c" 145))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 145))))]) (SimpleRhs (196,5) (Case (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "break" 0))) (Paren (Lambda [(VariablePattern (Ident "x" 147))] (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "x" 147))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x" 147))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\r'))))))) (Variable (QualIdent Nothing (Ident "c" 145)))) [(Alt (197,7) (TuplePattern [(VariablePattern (Ident "line" 148)),(InfixPattern (VariablePattern (Ident "n" 148)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "rest" 148)))]) (SimpleRhs (197,24) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "fs" 145))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (LeftSection (Variable (QualIdent Nothing (Ident "line" 148))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (LeftSection (Variable (QualIdent Nothing (Ident "n" 148))) (InfixConstr (QualIdent Nothing (Ident ":" 0)))))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "rest" 148)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 145)))))) [])),(Alt (198,7) (VariablePattern (Ident "_" 151)) (SimpleRhs (198,12) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHead" 0))) (Variable (QualIdent Nothing (Ident "fs" 145)))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "c" 145)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 145)))))) []))]) [])),(Equation (199,1) (FunLhs (Ident "modHeadInLine" 0) [(VariablePattern (Ident "fs" 153)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "c" 153))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 153))))]) (SimpleRhs (200,3) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 153))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0))) (Variable (QualIdent Nothing (Ident "c" 153)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHeadInLine" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "ts" 153)))))))) [])),(Equation (201,1) (FunLhs (Ident "modHeadInLine" 0) [(VariablePattern (Ident "fs" 155)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0)) [(VariablePattern (Ident "c" 155))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 155))))]) (SimpleRhs (202,3) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 155))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0))) (Variable (QualIdent Nothing (Ident "c" 155)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "modHeadInLine" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "ts" 155)))))))) [])),(Equation (203,1) (FunLhs (Ident "modHeadInLine" 0) [(VariablePattern (Ident "fs" 157)),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "c" 157))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 157))))]) (SimpleRhs (203,34) (Apply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "maybeMo" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 157))) (Literal (String ""))))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0))) (Variable (QualIdent Nothing (Ident "c" 157)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 157)))))) []))])+,(TypeSig (205,1) [(Ident "headers" 0)] (ListType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) []))))+,(FunctionDecl (206,1) (Ident "headers" 0) [(Equation (206,1) (FunLhs (Ident "headers" 0) []) (SimpleRhs (206,11) (List [(Literal (String " ")),(Literal (String "import")),(Literal (String "infix")),(Literal (String "infixl")),(Literal (String "infixr")),(Literal (String "module"))]) []))])+,(TypeSig (208,1) [(Ident "lineBeginsWith" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []))))+,(FunctionDecl (209,1) (Ident "lineBeginsWith" 0) [(Equation (209,1) (FunLhs (Ident "lineBeginsWith" 0) [(VariablePattern (Ident "line" 161)),(VariablePattern (Ident "s" 161))]) (GuardedRhs [(CondExpr (209,23) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "line" 161)))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Variable (QualIdent Nothing (Ident "lens" 162)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))),(CondExpr (210,23) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "line" 161))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "s" 161)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Let [(PatternDecl (212,29) (TuplePattern [(VariablePattern (Ident "s'" 164)),(VariablePattern (Ident "rest" 164))]) (SimpleRhs (212,41) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "splitAt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "s" 161)))))) (Variable (QualIdent Nothing (Ident "line" 161)))) []))] (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "s" 161))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "s'" 164)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "rest" 164)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "isSep" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "rest" 164))))))))))))] [(PatternDecl (215,5) (VariablePattern (Ident "lens" 162)) (SimpleRhs (215,12) (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "s" 161)))) []))]))])+,(TypeSig (218,1) [(Ident "isSep" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (219,1) (Ident "isSep" 0) [(Equation (219,1) (FunLhs (Ident "isSep" 0) [(VariablePattern (Ident "c" 166))]) (SimpleRhs (219,11) (InfixApply (Apply (Variable (QualIdent (Just "Char") (Ident "isSpace" 0))) (Variable (QualIdent Nothing (Ident "c" 166)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "c" 166)))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "infixIDs" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "c" 166)))) (Literal (String "([{"))))) []))])+,(TypeSig (221,1) [(Ident "infixIDs" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FunctionDecl (222,1) (Ident "infixIDs" 0) [(Equation (222,1) (FunLhs (Ident "infixIDs" 0) []) (SimpleRhs (222,13) (Literal (String "~!@#$%^&*+-=<>?./|\\:")) []))])+,(TypeSig (224,1) [(Ident "delimiters" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FunctionDecl (225,1) (Ident "delimiters" 0) [(Equation (225,1) (FunLhs (Ident "delimiters" 0) []) (SimpleRhs (225,14) (Literal (String " ([{,}])")) []))])+,(TypeSig (227,1) [(Ident "toBeEscaped" 0)] (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])))+,(FunctionDecl (228,1) (Ident "toBeEscaped" 0) [(Equation (228,1) (FunLhs (Ident "toBeEscaped" 0) []) (SimpleRhs (228,15) (Literal (String "\\\n\r\t\"")) []))])+,(TypeSig (230,1) [(Ident "maybeCode" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []))))+,(FunctionDecl (231,1) (Ident "maybeCode" 0) [(Equation (231,1) (FunLhs (Ident "maybeCode" 0) [(VariablePattern (Ident "s" 174)),(VariablePattern (Ident "ts" 174))]) (SimpleRhs (231,44) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "s" 174)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 174)))) []))])+,(FunctionDecl (233,1) (Ident "maybeMo" 0) [(Equation (233,1) (FunLhs (Ident "maybeMo" 0) [(VariablePattern (Ident "s" 176)),(VariablePattern (Ident "ts" 176))]) (SimpleRhs (233,16) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "s" 176))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String ""))) (Variable (QualIdent Nothing (Ident "ts" 176))) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "ModuleHead" 0))) (Variable (QualIdent Nothing (Ident "s" 176)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Case (Variable (QualIdent Nothing (Ident "ts" 176))) [(Alt (234,3) (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "c" 178))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts'" 178))) (SimpleRhs (234,17) (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Paren (InfixApply (Literal (Char '\n')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "c" 178)))))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts'" 178)))) [])),(Alt (235,3) (VariablePattern (Ident "_" 181)) (SimpleRhs (235,8) (Variable (QualIdent Nothing (Ident "ts" 176))) []))]))) []))])+,(TypeSig (240,1) [(Ident "plainCode" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (241,1) (Ident "plainCode" 0) [(Equation (241,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "ModuleHead" 0)) [(VariablePattern (Ident "s" 183))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 183))))]) (SimpleRhs (241,31) (Case (Variable (QualIdent Nothing (Ident "ts" 183))) [(Alt (242,29) (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "c" 185))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts'" 185))) (SimpleRhs (242,45) (InfixApply (Variable (QualIdent Nothing (Ident "s" 183))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "drop" 0))) (Literal (Int (Ident "_" 187) 1))) (Variable (QualIdent Nothing (Ident "c" 185)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts'" 185)))))) [])),(Alt (243,29) (VariablePattern (Ident "_" 189)) (SimpleRhs (243,34) (InfixApply (Variable (QualIdent Nothing (Ident "s" 183))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 183))))) []))]) [])),(Equation (244,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "s" 191))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 191))))]) (SimpleRhs (244,25) (InfixApply (Variable (QualIdent Nothing (Ident "s" 191))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 191))))) [])),(Equation (245,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0)) [(VariablePattern (Ident "s" 193))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 193))))]) (SimpleRhs (245,25) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 193))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 193))))))) [])),(Equation (246,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0)) [(VariablePattern (Ident "s" 195))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 195))))]) (SimpleRhs (246,27) (InfixApply (Literal (Char '\'')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 195))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '\'')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 195))))))) [])),(Equation (247,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "_" 198))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 197))))]) (SimpleRhs (247,31) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 197)))) [])),(Equation (248,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0)) [(VariablePattern (Ident "_" 201))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 200))))]) (SimpleRhs (248,33) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 200)))) [])),(Equation (249,1) (FunLhs (Ident "plainCode" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "s" 203))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 203))))]) (SimpleRhs (249,25) (InfixApply (Literal (String "{+")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 203))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "+}")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "plainCode" 0))) (Variable (QualIdent Nothing (Ident "ts" 203))))))) [])),(Equation (250,1) (FunLhs (Ident "plainCode" 0) [(ListPattern [])]) (SimpleRhs (250,16) (Literal (String "")) []))])+,(TypeSig (256,1) [(Ident "unscan" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (257,1) (Ident "unscan" 0) [(Equation (257,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "ModuleHead" 0)) [(VariablePattern (Ident "s" 207))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 207))))]) (SimpleRhs (257,28) (InfixApply (Variable (QualIdent Nothing (Ident "s" 207))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Case (Variable (QualIdent Nothing (Ident "ts" 207))) [(Alt (258,33) (ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(ParenPattern (InfixPattern (VariablePattern (Ident "_" 210)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "c" 209))))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts'" 209)))) (SimpleRhs (258,53) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Paren (InfixApply (Apply (Constructor (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0))) (Variable (QualIdent Nothing (Ident "c" 209)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts'" 209)))))) [])),(Alt (259,33) (VariablePattern (Ident "_" 213)) (SimpleRhs (259,38) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 207)))) []))])) [])),(Equation (260,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Code" 0)) [(VariablePattern (Ident "s" 215))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 215))))]) (SimpleRhs (260,22) (InfixApply (Variable (QualIdent Nothing (Ident "s" 215))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 215))))) [])),(Equation (261,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Text" 0)) [(VariablePattern (Ident "s" 217))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 217))))]) (SimpleRhs (261,22) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 217))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 217))))))) [])),(Equation (262,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Letter" 0)) [(VariablePattern (Ident "s" 219))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 219))))]) (SimpleRhs (262,24) (InfixApply (Literal (Char '\'')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 219))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '\'')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 219))))))) [])),(Equation (263,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "BigComment" 0)) [(VariablePattern (Ident "s" 221))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 221))))]) (SimpleRhs (263,28) (InfixApply (Literal (String "{-")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 221))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "-}")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 221))))))) [])),(Equation (264,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "SmallComment" 0)) [(VariablePattern (Ident "s" 223))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 223))))]) (SimpleRhs (264,30) (InfixApply (Literal (String "--")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 223))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 223)))))) [])),(Equation (265,1) (FunLhs (Ident "unscan" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "CurryStringClassifier") (Ident "Meta" 0)) [(VariablePattern (Ident "s" 225))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 225))))]) (SimpleRhs (265,22) (InfixApply (Literal (String "{+")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 225))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "+}")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Variable (QualIdent Nothing (Ident "ts" 225))))))) [])),(Equation (266,1) (FunLhs (Ident "unscan" 0) [(ListPattern [])]) (SimpleRhs (266,13) (Literal (String "")) []))])+,(TypeSig (269,1) [(Ident "readScan" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Tokens" 0)) [])])))+,(FunctionDecl (270,1) (Ident "readScan" 0) [(Equation (270,1) (FunLhs (Ident "readScan" 0) [(VariablePattern (Ident "fn" 229))]) (SimpleRhs (270,15) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "fn" 229)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "CurryStringClassifier") (Ident "scan" 0))))) []))])+,(TypeSig (274,1) [(Ident "testScan" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (275,1) (Ident "testScan" 0) [(Equation (275,1) (FunLhs (Ident "testScan" 0) [(VariablePattern (Ident "fn" 231))]) (SimpleRhs (275,15) (Do [(StmtBind (VariablePattern (Ident "c" 233)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "fn" 231)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "print" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "scan" 0))) (Variable (QualIdent Nothing (Ident "c" 233)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "c" 233))))))) []))])+,(TypeSig (278,1) [(Ident "testWeave" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (279,1) (Ident "testWeave" 0) [(Equation (279,1) (FunLhs (Ident "testWeave" 0) [(VariablePattern (Ident "fn" 234))]) (SimpleRhs (279,16) (Do [(StmtBind (VariablePattern (Ident "c" 236)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "fn" 234)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "print" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unscan" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "weave" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "unweaveCode" 0))) (Paren (Apply (Variable (QualIdent (Just "CurryStringClassifier") (Ident "scan" 0))) (Variable (QualIdent Nothing (Ident "c" 236)))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "c" 236))))))) []))])+]
+ src/lib/Curry/Module/.curry/CurryStringClassifier.efc view
@@ -0,0 +1,1 @@+Prog "CurryStringClassifier" ["Char","Prelude"] [TypeSyn ((Nothing,Nothing,"CurryStringClassifier","Tokens")) Public [] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]),Type ((Nothing,Nothing,"CurryStringClassifier","Token")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isSmallComment")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isBigComment")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isComment")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),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,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isSmallComment")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isBigComment")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isText")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isLetter")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isCode")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isModuleHead")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isMeta")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","weaveIntoCode")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)] (Let [((Just (TVar 2),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"CurryStringClassifier","unweaveCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weaveIntoCode._#selFP3#cs")) [Var ((Just (TVar 2),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weaveIntoCode._#selFP4#ncs")) [Var ((Just (TVar 2),3))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weave")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),5))]]))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weaveIntoCode._#selFP3#cs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weaveIntoCode._#selFP4#ncs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"CurryStringClassifier","unweaveCode")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 10) (FuncType (TVar 11) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 10),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 11),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)]) (Let [((Just (TVar 7),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"CurryStringClassifier","unweaveCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","unweaveCode._#selFP6#cs")) [Var ((Just (TVar 7),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","unweaveCode._#selFP7#ncs")) [Var ((Just (TVar 7),4))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isCode")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6))]])]))))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","unweaveCode._#selFP6#cs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","unweaveCode._#selFP7#ncs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"CurryStringClassifier","weave")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),3)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),5)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),7)]) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","failed")) [])])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),9)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),9))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),11)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),8)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),10)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"CurryStringClassifier","weave")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),9)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),11))]]]])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),13)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),15)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),8)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),14)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"CurryStringClassifier","weave")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),12)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),13))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),15))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","scan")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Free [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Lit (Intc  1),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []) (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,"CurryStringClassifier","Token")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","cond")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","cond")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (Free [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '-')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Lit (Charc  '-')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 15),11),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 101) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 101],TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]]))),"Prelude","span")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 98) (FuncType (TVar 99) (TVar 100))) (FuncType (TVar 99) (FuncType (TVar 98) (TVar 100)))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 97) (FuncType (TVar 97) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  '\n')],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","stateScan._#selFP9#comment")) [Var ((Just (TVar 15),11))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","stateScan._#selFP10#rest")) [Var ((Just (TVar 15),11))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))]]]])))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '{')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Lit (Charc  '-')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '{')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Lit (Charc  '+')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Lit (Charc  '\'')],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","infixIDs")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","delimiters")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Lit (Charc  '\\')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),16),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),18),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),22),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","all")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isDigit")) []],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),23))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),24),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),25)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),25))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]]])]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  1)],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","failed")) [])])])])])])])]))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","cond")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),26))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),27),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28)]) (Free [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),26))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '\\')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29))]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),26))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","toBeEscaped")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),26))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),29)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","failed")) [])])])])]))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","cond")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),31),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),32)]) (Free [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33)] (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '-')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31)),Lit (Charc  '}')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),30))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),32))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  1)],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),30))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),32))]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),30))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),33)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),32))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","failed")) [])])])]))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","cond")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),35),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36)]) (Free [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37)] (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '+')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35)),Lit (Charc  '}')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),34))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  1)],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),34))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36))]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Success") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude","&>")) [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","Success") []))),"Prelude","=:=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (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,"CurryStringClassifier","Token") []]))))),"CurryStringClassifier","stateScan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),34))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),37)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","stateScan._#selFP9#comment")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","stateScan._#selFP10#rest")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) 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,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]))) (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,"CurryStringClassifier","Token") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (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","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")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (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","break")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","modHead._#lambda11")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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,"CurryStringClassifier","Token") []]),4))]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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","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",".")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Comb (ConsPartCall 1) ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","any")) [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","Bool") []))),"CurryStringClassifier","lineBeginsWith")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"CurryStringClassifier","headers")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [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)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]]],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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHeadInLine")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","any")) [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","Bool") []))),"CurryStringClassifier","lineBeginsWith")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"CurryStringClassifier","headers")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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","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",".")) [Var ((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","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",".")) [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","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))]],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14))],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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15))],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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","modHead._#lambda11")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Char")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Lit (Charc  '\n')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Lit (Charc  '\r')]])),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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHeadInLine")) 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,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]))) (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,"CurryStringClassifier","Token") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (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","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")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (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","break")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","modHeadInLine._#lambda13")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [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","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",".")) [Var ((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","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",".")) [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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHead")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))],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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHeadInLine")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11))],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,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","modHeadInLine")) [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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) [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)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","modHeadInLine._#lambda13")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Char")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Lit (Charc  '\n')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Lit (Charc  '\r')]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"CurryStringClassifier","headers")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (Rule [] (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]]]]])),Func ((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") []))),"CurryStringClassifier","lineBeginsWith")) 2 Private (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")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 2]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),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 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,"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") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Let [((Just (TVar 1),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 6],TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]]))),"Prelude","splitAt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 5]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","lineBeginsWith._#selFP12#s'")) [Var ((Just (TVar 1),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","lineBeginsWith._#selFP13#rest")) [Var ((Just (TVar 1),4))])] (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,"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") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isSep")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]]]])))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","lineBeginsWith._#selFP12#s'")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","lineBeginsWith._#selFP13#rest")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"CurryStringClassifier","isSep")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Char")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isSpace")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","infixIDs")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '{'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","infixIDs")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '~'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '@'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '$'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '%'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '^'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '*'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","delimiters")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '{'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"CurryStringClassifier","toBeEscaped")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\t'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeCode")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"CurryStringClassifier","maybeMo")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)] (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") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),4))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),2)))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),5))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","drop")) [Lit (Intc  1),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '{'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","plainCode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []),5))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurryStringClassifier","Token") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),6))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","ModuleHead")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),15)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))])]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Code")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Text")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)]) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),17)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Letter")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18)]) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","BigComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '{'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),19)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","SmallComment")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurryStringClassifier","Token") [])),"CurryStringClassifier","Meta")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '{'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),21)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '}'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),3))]]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"CurryStringClassifier","readScan")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurryStringClassifier","Token")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"Prelude","return")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","scan")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testScan")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testScan._#lambda18")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testScan._#lambda18")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","print")) [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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","scan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testWeave")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testWeave._#lambda19")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurryStringClassifier","testWeave._#lambda19")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","print")) [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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurryStringClassifier","unscan")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","weave")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []]])),"CurryStringClassifier","unweaveCode")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurryStringClassifier","Token") []])),"CurryStringClassifier","scan")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]))] []
+ src/lib/Curry/Module/.curry/CurryStringClassifier.fcy view
@@ -0,0 +1,1 @@+Prog "CurryStringClassifier" ["Char","Prelude"] [TypeSyn ("CurryStringClassifier","Tokens") Public [] (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]),Type ("CurryStringClassifier","Token") Public [] [Cons ("CurryStringClassifier","SmallComment") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","BigComment") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Text") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Letter") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Code") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","ModuleHead") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Meta") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]] [Func ("CurryStringClassifier","isSmallComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","SmallComment") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","BigComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isBigComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","BigComment") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("CurryStringClassifier","isSmallComment") [Var 1],Comb FuncCall ("CurryStringClassifier","isBigComment") [Var 1]])),Func ("CurryStringClassifier","isText") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","Text") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isLetter") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","Letter") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isCode") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","Code") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isModuleHead") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Meta") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","isMeta") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("CurryStringClassifier","Meta") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb ConsCall ("Prelude","False") [])])),Func ("CurryStringClassifier","weaveIntoCode") 2 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("CurryStringClassifier","unweaveCode") [Var 2])] (Let [(4,Comb FuncCall ("CurryStringClassifier","weaveIntoCode._#selFP3#cs") [Var 3])] (Let [(5,Comb FuncCall ("CurryStringClassifier","weaveIntoCode._#selFP4#ncs") [Var 3])] (Comb FuncCall ("CurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 5]]))))),Func ("CurryStringClassifier","weaveIntoCode._#selFP3#cs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("CurryStringClassifier","weaveIntoCode._#selFP4#ncs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("CurryStringClassifier","unweaveCode") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Let [(4,Comb FuncCall ("CurryStringClassifier","unweaveCode") [Var 3])] (Let [(5,Comb FuncCall ("CurryStringClassifier","unweaveCode._#selFP6#cs") [Var 4])] (Let [(6,Comb FuncCall ("CurryStringClassifier","unweaveCode._#selFP7#ncs") [Var 4])] (Case  Rigid (Comb FuncCall ("CurryStringClassifier","isCode") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","(,)") [Var 5,Comb ConsCall ("Prelude",":") [Var 2,Var 6]])]))))])),Func ("CurryStringClassifier","unweaveCode._#selFP6#cs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("CurryStringClassifier","unweaveCode._#selFP7#ncs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("CurryStringClassifier","weave") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("Prelude","failed") [])])]),Branch (Pattern ("Prelude",":") [8,9]) (Case  Rigid (Var 9) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [10,11]) (Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb FuncCall ("CurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Var 9,Var 11]]]])]),Branch (Pattern ("Prelude",":") [12,13]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude",":") [14,15]) (Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 14,Comb FuncCall ("CurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 12,Var 13],Var 15]]]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("CurryStringClassifier","scan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [1] (Free [2] (Comb FuncCall ("CurryStringClassifier","modHead") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("CurryStringClassifier","stateScan") [Lit (Intc  1),Comb ConsCall ("CurryStringClassifier","Code") [Var 2],Var 2,Var 1]]))),Func ("CurryStringClassifier","stateScan") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))))) (Rule [1,2,3,4] (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","cond") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 2) [Branch (Pattern ("CurryStringClassifier","Code") [7]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","cond") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","maybeCode") [Var 7,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [8,9]) (Free [10] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CurryStringClassifier","maybeCode") [Var 7,Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Text") [Var 10],Var 10,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '-')],Comb FuncCall ("Prelude","==") [Var 8,Lit (Charc  '-')]]) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("Prelude","span") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  '\n')],Var 9])] (Let [(12,Comb FuncCall ("CurryStringClassifier","stateScan._#selFP9#comment") [Var 11])] (Let [(13,Comb FuncCall ("CurryStringClassifier","stateScan._#selFP10#rest") [Var 11])] (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CurryStringClassifier","maybeCode") [Var 7,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 12],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 13]]]])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '{')],Comb FuncCall ("Prelude","==") [Var 8,Lit (Charc  '-')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CurryStringClassifier","maybeCode") [Var 7,Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 10],Var 10,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '{')],Comb FuncCall ("Prelude","==") [Var 8,Lit (Charc  '+')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("CurryStringClassifier","maybeCode") [Var 7,Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Meta") [Var 10],Var 10,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Lit (Charc  '\'')],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 5],Comb FuncCall ("Prelude","++") [Comb FuncCall ("CurryStringClassifier","infixIDs") [],Comb FuncCall ("CurryStringClassifier","delimiters") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("CurryStringClassifier","maybeCode") [Var 7],Case  Rigid (Var 9) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 14,Lit (Charc  '\\')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 18,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 19]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Rigid (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 22,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Char","isDigit") []],Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 23]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 16,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 17]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])])]),Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 16,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 17]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])])]),Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 16,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 17]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])])])]),Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 16,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Var 15) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 24,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 10,Var 25]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]])]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 10]],Comb FuncCall ("CurryStringClassifier","stateScan") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  1)],Comb ConsCall ("CurryStringClassifier","Code") [Var 7],Var 10,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 10]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 7],Var 10,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])]))]),Branch (Pattern ("CurryStringClassifier","Text") [26]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","cond") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 26],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]]),Branch (Pattern ("Prelude",":") [27,28]) (Free [29] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 26],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 29],Var 29,Comb ConsCall ("Prelude",":") [Var 27,Var 28]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '\\')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 27,Var 29]]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Text") [Var 26],Var 29,Var 28]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 5],Comb FuncCall ("CurryStringClassifier","toBeEscaped") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","show") [Var 1]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 29]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Text") [Var 26],Var 29,Comb ConsCall ("Prelude",":") [Var 27,Var 28]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]))]),Branch (Pattern ("CurryStringClassifier","BigComment") [30]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","cond") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude",":") [31,32]) (Free [33] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '-')],Comb FuncCall ("Prelude","==") [Var 31,Lit (Charc  '}')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 30],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 33],Var 33,Var 32]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 33]],Comb FuncCall ("CurryStringClassifier","stateScan") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  1)],Comb ConsCall ("CurryStringClassifier","BigComment") [Var 30],Var 33,Comb ConsCall ("Prelude",":") [Var 31,Var 32]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 33]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 30],Var 33,Comb ConsCall ("Prelude",":") [Var 31,Var 32]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]))]),Branch (Pattern ("CurryStringClassifier","Meta") [34]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","cond") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude",":") [35,36]) (Free [37] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '+')],Comb FuncCall ("Prelude","==") [Var 35,Lit (Charc  '}')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 34],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Code") [Var 37],Var 37,Var 36]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 37]],Comb FuncCall ("CurryStringClassifier","stateScan") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  1)],Comb ConsCall ("CurryStringClassifier","Meta") [Var 34],Var 37,Comb ConsCall ("Prelude",":") [Var 35,Var 36]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","&>") [Comb FuncCall ("Prelude","=:=") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 37]],Comb FuncCall ("CurryStringClassifier","stateScan") [Var 1,Comb ConsCall ("CurryStringClassifier","Meta") [Var 34],Var 37,Comb ConsCall ("Prelude",":") [Var 35,Var 36]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]))])])])),Func ("CurryStringClassifier","stateScan._#selFP9#comment") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("CurryStringClassifier","stateScan._#selFP10#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("CurryStringClassifier","modHead") 2 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","Code") [5]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("CurryStringClassifier","modHead._#lambda11") []],Var 5]) [Branch (Pattern ("Prelude","(,)") [6,7]) (Case  Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","modHead") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CurryStringClassifier","modHead") [Comb FuncCall ("Prelude",".") [Var 1,Comb (ConsPartCall 1) ("Prelude",":") [Var 8]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 9],Var 4]])]),Branch (Pattern ("Prelude",":") [10,11]) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 10,Var 11]]],Comb FuncCall ("CurryStringClassifier","headers") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Var 11]]],Comb FuncCall ("CurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 5],Var 4]])]),Branch (Pattern ("Prelude",":") [12,13]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 10,Var 11]]],Comb FuncCall ("CurryStringClassifier","headers") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CurryStringClassifier","modHead") [Comb FuncCall ("Prelude",".") [Var 1,Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Var 10,Var 11]],Comb (ConsPartCall 1) ("Prelude",":") [Var 12]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 13],Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 5],Var 4]])])])])]),Branch (Pattern ("CurryStringClassifier","BigComment") [14]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 14],Comb FuncCall ("CurryStringClassifier","modHead") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 4]]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [15]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 15],Comb FuncCall ("CurryStringClassifier","modHead") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 4]]]),Branch (Pattern ("CurryStringClassifier","Meta") [16]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 16],Var 4]])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []])])),Func ("CurryStringClassifier","modHead._#lambda11") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\n')],Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\r')]])),Func ("CurryStringClassifier","modHeadInLine") 2 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","Code") [5]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("CurryStringClassifier","modHeadInLine._#lambda13") []],Var 5]) [Branch (Pattern ("Prelude","(,)") [6,7]) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CurryStringClassifier","modHead") [Comb FuncCall ("Prelude",".") [Var 1,Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Var 6],Comb (ConsPartCall 1) ("Prelude",":") [Var 8]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 9],Var 4]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","modHead") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 5],Var 4]])])]),Branch (Pattern ("CurryStringClassifier","BigComment") [10]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 10],Comb FuncCall ("CurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 4]]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [11]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 11],Comb FuncCall ("CurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 4]]]),Branch (Pattern ("CurryStringClassifier","Meta") [12]) (Comb FuncCall ("CurryStringClassifier","maybeMo") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 12],Var 4]])])])),Func ("CurryStringClassifier","modHeadInLine._#lambda13") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\n')],Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\r')]])),Func ("CurryStringClassifier","headers") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (Rule [] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("CurryStringClassifier","lineBeginsWith") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","length") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","<") [Comb FuncCall ("Prelude","length") [Var 1],Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Var 2],Let [(4,Comb FuncCall ("Prelude","splitAt") [Comb FuncCall ("Prelude","length") [Var 2],Var 1])] (Let [(5,Comb FuncCall ("CurryStringClassifier","lineBeginsWith._#selFP12#s'") [Var 4])] (Let [(6,Comb FuncCall ("CurryStringClassifier","lineBeginsWith._#selFP13#rest") [Var 4])] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Var 5],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","null") [Var 6],Comb FuncCall ("CurryStringClassifier","isSep") [Comb FuncCall ("Prelude","head") [Var 6]]]])))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])]))),Func ("CurryStringClassifier","lineBeginsWith._#selFP12#s'") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("CurryStringClassifier","lineBeginsWith._#selFP13#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("CurryStringClassifier","isSep") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Char","isSpace") [Var 1],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 1],Comb FuncCall ("CurryStringClassifier","infixIDs") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  '{'),Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("CurryStringClassifier","infixIDs") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  '~'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude",":") [Lit (Charc  '@'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude",":") [Lit (Charc  '$'),Comb ConsCall ("Prelude",":") [Lit (Charc  '%'),Comb ConsCall ("Prelude",":") [Lit (Charc  '^'),Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '*'),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]])),Func ("CurryStringClassifier","delimiters") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  '{'),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]]])),Func ("CurryStringClassifier","toBeEscaped") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\r'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\t'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]])),Func ("CurryStringClassifier","maybeCode") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [1,2] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 1],Var 2])),Func ("CurryStringClassifier","maybeMo") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Var 1],Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Var 3) [Branch (Pattern ("CurryStringClassifier","Code") [5]) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Var 5]],Var 4]),Branch (Pattern ("CurryStringClassifier","SmallComment") [6]) (Var 2),Branch (Pattern ("CurryStringClassifier","BigComment") [7]) (Var 2),Branch (Pattern ("CurryStringClassifier","Text") [8]) (Var 2),Branch (Pattern ("CurryStringClassifier","Letter") [9]) (Var 2),Branch (Pattern ("CurryStringClassifier","ModuleHead") [10]) (Var 2),Branch (Pattern ("CurryStringClassifier","Meta") [11]) (Var 2)]),Branch (Pattern ("Prelude","[]") []) (Var 2)]])])),Func ("CurryStringClassifier","plainCode") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [4]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Rigid (Var 5) [Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","drop") [Lit (Intc  1),Var 7],Comb FuncCall ("CurryStringClassifier","plainCode") [Var 6]]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [8]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","BigComment") [9]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","Text") [10]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","Letter") [11]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [12]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","Meta") [13]) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]])]),Branch (Pattern ("CurryStringClassifier","Code") [14]) (Comb FuncCall ("Prelude","++") [Var 14,Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]),Branch (Pattern ("CurryStringClassifier","Text") [15]) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("Prelude","++") [Var 15,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]]]),Branch (Pattern ("CurryStringClassifier","Letter") [16]) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("Prelude","++") [Var 16,Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]]]),Branch (Pattern ("CurryStringClassifier","BigComment") [17]) (Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]),Branch (Pattern ("CurryStringClassifier","SmallComment") [18]) (Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]),Branch (Pattern ("CurryStringClassifier","Meta") [19]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '{'),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 19,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","plainCode") [Var 3]]]])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])),Func ("CurryStringClassifier","unscan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [4]) (Comb FuncCall ("Prelude","++") [Var 4,Case  Rigid (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Rigid (Var 5) [Branch (Pattern ("CurryStringClassifier","Code") [7]) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CurryStringClassifier","unscan") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 9],Var 6]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3])]),Branch (Pattern ("CurryStringClassifier","SmallComment") [10]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]),Branch (Pattern ("CurryStringClassifier","BigComment") [11]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]),Branch (Pattern ("CurryStringClassifier","Text") [12]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]),Branch (Pattern ("CurryStringClassifier","Letter") [13]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [14]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]),Branch (Pattern ("CurryStringClassifier","Meta") [15]) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CurryStringClassifier","unscan") [Var 3])]]),Branch (Pattern ("CurryStringClassifier","Code") [16]) (Comb FuncCall ("Prelude","++") [Var 16,Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]),Branch (Pattern ("CurryStringClassifier","Text") [17]) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("Prelude","++") [Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]]]),Branch (Pattern ("CurryStringClassifier","Letter") [18]) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("Prelude","++") [Var 18,Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]]]),Branch (Pattern ("CurryStringClassifier","BigComment") [19]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '{'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 19,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [20]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 20,Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]]),Branch (Pattern ("CurryStringClassifier","Meta") [21]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '{'),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 21,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("CurryStringClassifier","unscan") [Var 3]]]])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])),Func ("CurryStringClassifier","readScan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("CurryStringClassifier","scan") []]])),Func ("CurryStringClassifier","testScan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("CurryStringClassifier","testScan._#lambda18") []])),Func ("CurryStringClassifier","testScan._#lambda18") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","print") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("CurryStringClassifier","unscan") [Comb FuncCall ("CurryStringClassifier","scan") [Var 1]],Var 1]])),Func ("CurryStringClassifier","testWeave") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("CurryStringClassifier","testWeave._#lambda19") []])),Func ("CurryStringClassifier","testWeave._#lambda19") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","print") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("CurryStringClassifier","unscan") [Comb FuncCall ("CurryStringClassifier","weave") [Comb FuncCall ("CurryStringClassifier","unweaveCode") [Comb FuncCall ("CurryStringClassifier","scan") [Var 1]]]],Var 1]]))] []
+ src/lib/Curry/Module/.curry/CurryStringClassifier.fint view
@@ -0,0 +1,1 @@+Prog "CurryStringClassifier" ["Char","Prelude"] [TypeSyn ("CurryStringClassifier","Tokens") Public [] (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]),Type ("CurryStringClassifier","Token") Public [] [Cons ("CurryStringClassifier","SmallComment") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","BigComment") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Text") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Letter") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Code") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","ModuleHead") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("CurryStringClassifier","Meta") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]] [Func ("CurryStringClassifier","isSmallComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isBigComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isComment") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isText") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isLetter") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isCode") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isModuleHead") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","isMeta") 1 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("CurryStringClassifier","scan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])) (Rule [] (Var 0)),Func ("CurryStringClassifier","plainCode") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("CurryStringClassifier","unscan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("CurryStringClassifier","readScan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]])) (Rule [] (Var 0)),Func ("CurryStringClassifier","testScan") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/CurryStringClassifier.uacy view
@@ -0,0 +1,33 @@+CurryProg "CurryStringClassifier"+ ["Prelude","Char"]+ [CType ("CurryStringClassifier","Token") Public [] [CCons ("CurryStringClassifier","SmallComment") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","BigComment") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Text") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Letter") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Code") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","ModuleHead") 1 Public [CTCons ("Prelude","String") []],CCons ("CurryStringClassifier","Meta") 1 Public [CTCons ("Prelude","String") []]],+  CTypeSyn ("CurryStringClassifier","Tokens") Public [] (CTCons ("Prelude","[]") [CTCons ("CurryStringClassifier","Token") []])]+ [CFunc ("CurryStringClassifier","delimiters") 0 Private (CTCons ("Prelude","String") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("CurryStringClassifier","headers") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CurryStringClassifier","infixIDs") 0 Private (CTCons ("Prelude","String") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("CurryStringClassifier","isBigComment") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","BigComment") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isCode") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Code") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isComment") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("CurryStringClassifier","isSmallComment")) (CVar (0,"x")))) (CApply (CSymbol ("CurryStringClassifier","isBigComment")) (CVar (0,"x"))))] []]),+  CFunc ("CurryStringClassifier","isLetter") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Letter") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isMeta") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Meta") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isModuleHead") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","ModuleHead") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isSep") 1 Private (CFuncType (CTCons ("Prelude","Char") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("Char","isSpace")) (CVar (0,"c")))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"c"))) (CSymbol ("CurryStringClassifier","infixIDs")))) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (0,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("CurryStringClassifier","isSmallComment") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","SmallComment") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","isText") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"x")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"x")) [CBranch (CPComb ("CurryStringClassifier","Text") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("CurryStringClassifier","lineBeginsWith") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","Bool") []))) (CRules CFlex [CRule [CPVar (0,"line"),CPVar (1,"s")] [(CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","length")) (CVar (0,"line")))) (CVar (2,"lens")),CSymbol ("Prelude","False")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"line"))) (CVar (1,"s")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"s'"),CPVar (4,"rest")]) (CApply (CApply (CSymbol ("Prelude","splitAt")) (CApply (CSymbol ("Prelude","length")) (CVar (1,"s")))) (CVar (0,"line"))) []] (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"s"))) (CVar (3,"s'")))) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CSymbol ("Prelude","null")) (CVar (4,"rest")))) (CApply (CSymbol ("CurryStringClassifier","isSep")) (CApply (CSymbol ("Prelude","head")) (CVar (4,"rest"))))))))] [CLocalPat (CPVar (2,"lens")) (CApply (CSymbol ("Prelude","length")) (CVar (1,"s"))) []]]),+  CFunc ("CurryStringClassifier","maybeCode") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("CurryStringClassifier","Tokens") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (0,"s")))) (CVar (1,"ts")))] []]),+  CFunc ("CurryStringClassifier","maybeMo") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"s"))) (CSymbol ("Prelude","[]")))) (CVar (1,"ts"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","ModuleHead")) (CVar (0,"s")))) (CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts'")]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CVar (2,"c"))))) (CVar (3,"ts'"))),CBranch (CPVar (4,"_")) (CVar (1,"ts"))])))] []]),+  CFunc ("CurryStringClassifier","modHead") 2 Private (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("CurryStringClassifier","Tokens") []))) (CRules CFlex [CRule [CPVar (0,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (1,"c")],CPVar (2,"ts")]] [(CSymbol ("Prelude","success"),CCase (CApply (CApply (CSymbol ("Prelude","break")) (CLambda [CPVar (3,"x")] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"x"))) (CLit (CCharc '\n')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"x"))) (CLit (CCharc '\r')))))) (CVar (1,"c"))) [CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CVar (0,"fs"))) (CVar (2,"ts"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (4,"n"),CPVar (5,"rest")]]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (0,"fs"))) (CLambda [CPVar (6,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (6,"x0")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (5,"rest")))) (CVar (2,"ts")))),CBranch (CPComb ("Prelude","(,)") [CPVar (7,"line"),CPComb ("Prelude","[]") []]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","any")) (CApply (CSymbol ("CurryStringClassifier","lineBeginsWith")) (CVar (7,"line")))) (CSymbol ("CurryStringClassifier","headers")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","ModuleHead")) (CApply (CVar (0,"fs")) (CVar (7,"line"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (2,"ts"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"c")))) (CVar (2,"ts"))))),CBranch (CPComb ("Prelude","(,)") [CPVar (8,"line"),CPComb ("Prelude",":") [CPVar (9,"n"),CPVar (10,"rest")]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","any")) (CApply (CSymbol ("CurryStringClassifier","lineBeginsWith")) (CVar (8,"line")))) (CSymbol ("CurryStringClassifier","headers")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (0,"fs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (11,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"line"))) (CVar (11,"x0"))))) (CLambda [CPVar (12,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (9,"n"))) (CVar (12,"x0"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (10,"rest")))) (CVar (2,"ts"))))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"c")))) (CVar (2,"ts")))))])] [],CRule [CPVar (13,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (14,"c")],CPVar (15,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (13,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (14,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CVar (15,"ts")))))] [],CRule [CPVar (16,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (17,"c")],CPVar (18,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (16,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (17,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CVar (18,"ts")))))] [],CRule [CPVar (19,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (20,"c")],CPVar (21,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (19,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (20,"c")))) (CVar (21,"ts"))))] [],CRule [CPVar (22,"fs"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (22,"fs")) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("CurryStringClassifier","modHeadInLine") 2 Private (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("CurryStringClassifier","Tokens") []))) (CRules CFlex [CRule [CPVar (0,"fs"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (0,"fs")) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CCase (CApply (CApply (CSymbol ("Prelude","break")) (CLambda [CPVar (4,"x")] (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"x"))) (CLit (CCharc '\n')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"x"))) (CLit (CCharc '\r')))))) (CVar (2,"c"))) [CBranch (CPComb ("Prelude","(,)") [CPVar (5,"line"),CPComb ("Prelude",":") [CPVar (6,"n"),CPVar (7,"rest")]]) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CApply (CApply (CSymbol ("Prelude",".")) (CVar (1,"fs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (8,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"line"))) (CVar (8,"x0"))))) (CLambda [CPVar (9,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (6,"n"))) (CVar (9,"x0"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (7,"rest")))) (CVar (3,"ts")))),CBranch (CPVar (10,"_")) (CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CVar (1,"fs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (2,"c")))) (CVar (3,"ts"))))])] [],CRule [CPVar (11,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"c")],CPVar (13,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (11,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (12,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (13,"ts")))))] [],CRule [CPVar (14,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (15,"c")],CPVar (16,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (14,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (15,"c")))) (CApply (CApply (CSymbol ("CurryStringClassifier","modHeadInLine")) (CSymbol ("Prelude","id"))) (CVar (16,"ts")))))] [],CRule [CPVar (17,"fs"),CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (18,"c")],CPVar (19,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","maybeMo")) (CApply (CVar (17,"fs")) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (18,"c")))) (CVar (19,"ts"))))] []]),+  CFunc ("CurryStringClassifier","plainCode") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","ModuleHead") [CPVar (0,"s")],CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (2,"c")],CPVar (3,"ts'")]) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 1))) (CVar (2,"c")))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (3,"ts'"))))),CBranch (CPVar (4,"_")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (1,"ts"))))])] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (5,"s")],CPVar (6,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"s"))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (6,"ts"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Text") [CPVar (7,"s")],CPVar (8,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (8,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Letter") [CPVar (9,"s")],CPVar (10,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (9,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (10,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (11,"_")],CPVar (12,"ts")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (12,"ts")))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (13,"_")],CPVar (14,"ts")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (14,"ts")))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (15,"s")],CPVar (16,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (15,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","plainCode")) (CVar (16,"ts"))))))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]),+  CFunc ("CurryStringClassifier","readScan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("CurryStringClassifier","Tokens") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("CurryStringClassifier","scan"))))] []]),+  CFunc ("CurryStringClassifier","scan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("CurryStringClassifier","Tokens") [])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurryStringClassifier","modHead")) (CSymbol ("Prelude","id"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CLit (CIntc 1))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (1,"x")))) (CVar (1,"x"))) (CVar (0,"s"))))] [CLocalVar (1,"x")]]),+  CFunc ("CurryStringClassifier","stateScan") 4 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("CurryStringClassifier","Token") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("CurryStringClassifier","Tokens") []))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"token"),CPVar (2,"x"),CPComb ("Prelude","[]") []] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (2,"x"))) (CSymbol ("Prelude","[]")),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"token"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (3,"_"),CPComb ("CurryStringClassifier","Code") [CPVar (4,"co")],CPVar (5,"x"),CPComb ("Prelude",":") [CPVar (6,"c"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (5,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (6,"c"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (4,"co"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (7,"_"),CPComb ("CurryStringClassifier","Text") [CPVar (8,"t")],CPVar (9,"x"),CPComb ("Prelude",":") [CPVar (10,"c"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (9,"x"))) (CSymbol ("Prelude","[]")),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"c"))) (CLit (CCharc '"')))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (8,"t")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))] [],CRule [CPVar (11,"_"),CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"_")],CPVar (13,"x"),CPComb ("Prelude",":") [CPVar (14,"_"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (13,"x"))) (CSymbol ("Prelude","[]")),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))] [],CRule [CPVar (15,"_"),CPComb ("CurryStringClassifier","Meta") [CPVar (16,"_")],CPVar (17,"x"),CPComb ("Prelude",":") [CPVar (18,"_"),CPComb ("Prelude","[]") []]] [(CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (17,"x"))) (CSymbol ("Prelude","[]")),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))] [],CRule [CPVar (19,"line"),CPComb ("CurryStringClassifier","Code") [CPVar (20,"co")],CPVar (21,"x"),CPComb ("Prelude",":") [CPVar (22,"c"),CPComb ("Prelude",":") [CPVar (23,"c'"),CPVar (24,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (25,"y")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs")))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '-'))),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (26,"comment"),CPVar (27,"rest")]) (CApply (CApply (CSymbol ("Prelude","span")) (CLambda [CPVar (28,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (28,"x0"))) (CLit (CCharc '\n'))))) (CVar (24,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","SmallComment")) (CVar (26,"comment")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (27,"rest"))))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '{')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '-'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (24,"cs"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '{')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '+'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co"))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (24,"cs"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"c'"))) (CLit (CCharc '\'')))) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (22,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("CurryStringClassifier","infixIDs"))) (CSymbol ("CurryStringClassifier","delimiters")))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("CurryStringClassifier","maybeCode")) (CVar (20,"co")))) (CCase (CVar (24,"cs")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc '\\'),CPComb ("Prelude",":") [CPVar (29,"l"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (30,"rest")]]]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (29,"l"))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (30,"rest")))),CBranch (CPComb ("Prelude",":") [CPLit (CCharc '\\'),CPComb ("Prelude",":") [CPVar (31,"a"),CPComb ("Prelude",":") [CPVar (32,"b"),CPComb ("Prelude",":") [CPVar (33,"d"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (34,"rest")]]]]]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("Char","isDigit"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"a"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"b"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"d"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"a"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"b"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"d"))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (34,"rest"))))) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (19,"line")))))),CBranch (CPComb ("Prelude",":") [CPVar (35,"l"),CPComb ("Prelude",":") [CPLit (CCharc '\''),CPVar (36,"rest")]]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Letter")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (35,"l"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (25,"y")))) (CVar (25,"y"))) (CVar (36,"rest")))),CBranch (CPVar (37,"_")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (19,"line")))))]))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (22,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CVar (25,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (19,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (20,"co")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (21,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (22,"c"))) (CVar (25,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (19,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (20,"co")))) (CVar (25,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (23,"c'"))) (CVar (24,"cs")))))] [CLocalVar (25,"y")],CRule [CPVar (38,"line"),CPComb ("CurryStringClassifier","BigComment") [CPVar (39,"co")],CPVar (40,"x"),CPComb ("Prelude",":") [CPVar (41,"c"),CPComb ("Prelude",":") [CPVar (42,"c'"),CPVar (43,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (41,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (42,"c'"))) (CLit (CCharc '}'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (38,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (44,"y")))) (CVar (44,"y"))) (CVar (43,"cs"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (41,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (41,"c"))) (CVar (44,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (38,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CVar (44,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (42,"c'"))) (CVar (43,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (40,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (41,"c"))) (CVar (44,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (38,"line"))) (CApply (CSymbol ("CurryStringClassifier","BigComment")) (CVar (39,"co")))) (CVar (44,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (42,"c'"))) (CVar (43,"cs")))))] [CLocalVar (44,"y")],CRule [CPVar (45,"line"),CPComb ("CurryStringClassifier","Meta") [CPVar (46,"co")],CPVar (47,"x"),CPComb ("Prelude",":") [CPVar (48,"c"),CPComb ("Prelude",":") [CPVar (49,"c'"),CPVar (50,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (48,"c"))) (CLit (CCharc '+')))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (49,"c'"))) (CLit (CCharc '}'))),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (45,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (51,"y")))) (CVar (51,"y"))) (CVar (50,"cs"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (48,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (48,"c"))) (CVar (51,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (45,"line"))) (CLit (CIntc 1)))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CVar (51,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"c'"))) (CVar (50,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (47,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (48,"c"))) (CVar (51,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (45,"line"))) (CApply (CSymbol ("CurryStringClassifier","Meta")) (CVar (46,"co")))) (CVar (51,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"c'"))) (CVar (50,"cs")))))] [CLocalVar (51,"y")],CRule [CPVar (52,"line"),CPComb ("CurryStringClassifier","Text") [CPVar (53,"t")],CPVar (54,"x"),CPComb ("Prelude",":") [CPVar (55,"c"),CPComb ("Prelude",":") [CPVar (56,"c'"),CPVar (57,"cs")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (55,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (58,"y")))) (CVar (58,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (57,"cs")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (55,"c"))) (CLit (CCharc '\\')),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (58,"y")))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CVar (58,"y"))) (CVar (57,"cs")))),(CApply (CApply (CSymbol ("Prelude","elem")) (CVar (55,"c"))) (CSymbol ("CurryStringClassifier","toBeEscaped")),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (52,"line"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","&>")) (CApply (CApply (CSymbol ("Prelude","=:=")) (CVar (54,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (55,"c"))) (CVar (58,"y"))))) (CApply (CApply (CApply (CApply (CSymbol ("CurryStringClassifier","stateScan")) (CVar (52,"line"))) (CApply (CSymbol ("CurryStringClassifier","Text")) (CVar (53,"t")))) (CVar (58,"y"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (56,"c'"))) (CVar (57,"cs")))))] [CLocalVar (58,"y")]]),+  CFunc ("CurryStringClassifier","testScan") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"c")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn"))),CSExpr (CApply (CSymbol ("Prelude","print")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CSymbol ("CurryStringClassifier","scan")) (CVar (1,"c"))))) (CVar (1,"c"))))])] []]),+  CFunc ("CurryStringClassifier","testWeave") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"c")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"fn"))),CSExpr (CApply (CSymbol ("Prelude","print")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CApply (CSymbol ("CurryStringClassifier","scan")) (CVar (1,"c"))))))) (CVar (1,"c"))))])] []]),+  CFunc ("CurryStringClassifier","toBeEscaped") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\t'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("CurryStringClassifier","unscan") 1 Public (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","ModuleHead") [CPVar (0,"s")],CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CCase (CVar (1,"ts")) [CBranch (CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPComb ("Prelude",":") [CPVar (2,"_"),CPVar (3,"c")]],CPVar (4,"ts'")]) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("CurryStringClassifier","Code")) (CVar (3,"c")))) (CVar (4,"ts'")))),CBranch (CPVar (5,"_")) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (1,"ts")))]))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Code") [CPVar (6,"s")],CPVar (7,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"s"))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (7,"ts"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Text") [CPVar (8,"s")],CPVar (9,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (9,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Letter") [CPVar (10,"s")],CPVar (11,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (11,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","BigComment") [CPVar (12,"s")],CPVar (13,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (12,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (13,"ts"))))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","SmallComment") [CPVar (14,"s")],CPVar (15,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (14,"s"))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (15,"ts")))))] [],CRule [CPComb ("Prelude",":") [CPComb ("CurryStringClassifier","Meta") [CPVar (16,"s")],CPVar (17,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '{'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (16,"s"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '}'))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("CurryStringClassifier","unscan")) (CVar (17,"ts"))))))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] []]),+  CFunc ("CurryStringClassifier","unweaveCode") 1 Private (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("Prelude","(,)") [CTCons ("CurryStringClassifier","Tokens") [],CTCons ("CurryStringClassifier","Tokens") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"t"),CPVar (1,"ts")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"cs"),CPVar (3,"ncs")]) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CVar (1,"ts"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("CurryStringClassifier","isCode")) (CVar (0,"t")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"t"))) (CVar (2,"cs")))) (CVar (3,"ncs")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"cs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"t"))) (CVar (3,"ncs"))))))] []]),+  CFunc ("CurryStringClassifier","weave") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"xys")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"xys")) [CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude","[]") []]) (CSymbol ("Prelude","[]")),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"y"),CPComb ("Prelude","[]") []]]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"y"))) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPVar (2,"x"),CPComb ("Prelude","[]") []],CPComb ("Prelude","[]") []]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"x"))) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPVar (3,"x"),CPVar (4,"xs")],CPComb ("Prelude",":") [CPVar (5,"y"),CPVar (6,"ys")]]) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"x"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"y"))) (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (4,"xs"))) (CVar (6,"ys"))))))])] []]),+  CFunc ("CurryStringClassifier","weaveIntoCode") 2 Private (CFuncType (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("CurryStringClassifier","Tokens") [])) (CFuncType (CTCons ("CurryStringClassifier","Tokens") []) (CTCons ("CurryStringClassifier","Tokens") []))) (CRules CFlex [CRule [CPVar (0,"f"),CPVar (1,"ts")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"cs"),CPVar (3,"ncs")]) (CApply (CSymbol ("CurryStringClassifier","unweaveCode")) (CVar (1,"ts"))) []] (CApply (CSymbol ("CurryStringClassifier","weave")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CVar (0,"f")) (CVar (2,"cs")))) (CVar (3,"ncs")))))] []])]+ []
+ src/lib/Curry/Module/.curry/CurrySyntax.acy view
@@ -0,0 +1,39 @@+CurryProg "CurrySyntax"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CTypeSyn ("CurrySyntax","Pos") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]),+  CType ("CurrySyntax","Position") Public [] [CCons ("CurrySyntax","Position") 3 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]],+  CType ("CurrySyntax","Ident") Public [] [CCons ("CurrySyntax","Ident") 2 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","Int") []]],+  CType ("CurrySyntax","QualIdent") Public [] [CCons ("CurrySyntax","UnqualIdent") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","QualIdent") 2 Public [CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("CurrySyntax","Ident") []]],+  CTypeSyn ("CurrySyntax","ModuleIdent") Public [] (CTCons ("Prelude","String") []),+  CType ("CurrySyntax","Module") Public [(0,"a")] [CCons ("CurrySyntax","Module") 3 Public [CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ExportSpec") [CTVar (0,"a")]],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","ExportSpec") Public [(0,"a")] [CCons ("CurrySyntax","Exporting") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Export") []]]],+  CType ("CurrySyntax","Export") Public [] [CCons ("CurrySyntax","Export") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","ExportTypeWith") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","ExportTypeAll") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","ExportModule") 1 Public [CTCons ("CurrySyntax","ModuleIdent") []]],+  CType ("CurrySyntax","ImportSpec") Public [(0,"a")] [CCons ("CurrySyntax","Importing") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Import") []]],CCons ("CurrySyntax","Hiding") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Import") []]]],+  CType ("CurrySyntax","Import") Public [] [CCons ("CurrySyntax","Import") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","ImportTypeWith") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","ImportTypeAll") 1 Public [CTCons ("CurrySyntax","Ident") []]],+  CType ("CurrySyntax","Decl") Public [(0,"a")] [CCons ("CurrySyntax","ImportDecl") 5 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("Prelude","Bool") [],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ModuleIdent") []],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ImportSpec") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Infix") [],CTCons ("Prelude","Int") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","DataDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrDecl") [CTVar (0,"a")]]],CCons ("CurrySyntax","NewtypeDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","NewConstrDecl") [CTVar (0,"a")]],CCons ("CurrySyntax","TypeDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","TypeSig") 3 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","EvalAnnot") 3 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","EvalAnnotation") []],CCons ("CurrySyntax","FunctionDecl") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Equation") [CTVar (0,"a")]]],CCons ("CurrySyntax","ExternalDecl") 5 Public [CTVar (0,"a"),CTCons ("CurrySyntax","CallConv") [],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","FlatExternalDecl") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","PatternDecl") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]],CCons ("CurrySyntax","ExtraVariables") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]]],+  CType ("CurrySyntax","ConstrDecl") Public [(0,"a")] [CCons ("CurrySyntax","ConstrDecl") 4 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","ConOpDecl") 5 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") [],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []]],+  CType ("CurrySyntax","NewConstrDecl") Public [(0,"a")] [CCons ("CurrySyntax","NewConstrDecl") 4 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []]],+  CType ("CurrySyntax","Infix") Public [] [CCons ("CurrySyntax","InfixL") 0 Public [],CCons ("CurrySyntax","InfixR") 0 Public [],CCons ("CurrySyntax","Infix") 0 Public []],+  CType ("CurrySyntax","EvalAnnotation") Public [] [CCons ("CurrySyntax","EvalRigid") 0 Public [],CCons ("CurrySyntax","EvalChoice") 0 Public []],+  CType ("CurrySyntax","CallConv") Public [] [CCons ("CurrySyntax","CallConvPrimitive") 0 Public [],CCons ("CurrySyntax","CallConvCCall") 0 Public []],+  CType ("CurrySyntax","TypeExpr") Public [] [CCons ("CurrySyntax","ConstructorType") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","VariableType") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","TupleType") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","ListType") 1 Public [CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","ArrowType") 2 Public [CTCons ("CurrySyntax","TypeExpr") [],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","RecordType") 2 Public [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []]],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","TypeExpr") []]]],+  CType ("CurrySyntax","Equation") Public [(0,"a")] [CCons ("CurrySyntax","Equation") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Lhs") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Lhs") Public [(0,"a")] [CCons ("CurrySyntax","FunLhs") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","OpLhs") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","ApLhs") 2 Public [CTCons ("CurrySyntax","Lhs") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","Rhs") Public [(0,"a")] [CCons ("CurrySyntax","SimpleRhs") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]],CCons ("CurrySyntax","GuardedRhs") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","CondExpr") [CTVar (0,"a")]],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","CondExpr") Public [(0,"a")] [CCons ("CurrySyntax","CondExpr") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Literal") Public [] [CCons ("CurrySyntax","Char") 1 Public [CTCons ("Prelude","Char") []],CCons ("CurrySyntax","Int") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","Int") []],CCons ("CurrySyntax","Float") 1 Public [CTCons ("Prelude","Float") []],CCons ("CurrySyntax","String") 1 Public [CTCons ("Prelude","String") []]],+  CType ("CurrySyntax","ConstrTerm") Public [(0,"a")] [CCons ("CurrySyntax","LiteralPattern") 1 Public [CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","NegativePattern") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","VariablePattern") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","ConstructorPattern") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixPattern") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","QualIdent") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","ParenPattern") 1 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","TuplePattern") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","ListPattern") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","AsPattern") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","LazyPattern") 1 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","FunctionPattern") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixFuncPattern") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","QualIdent") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","RecordPattern") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","Expression") Public [(0,"a")] [CCons ("CurrySyntax","Literal") 1 Public [CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","Variable") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","Constructor") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","Paren") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Typed") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","Tuple") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CCons ("CurrySyntax","List") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CCons ("CurrySyntax","ListCompr") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Statement") [CTVar (0,"a")]]],CCons ("CurrySyntax","EnumFrom") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromThen") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromTo") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromThenTo") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","UnaryMinus") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Apply") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","InfixApply") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","InfixOp") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","LeftSection") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","InfixOp") []],CCons ("CurrySyntax","RightSection") 2 Public [CTCons ("CurrySyntax","InfixOp") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Lambda") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Let") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Do") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Statement") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","IfThenElse") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Case") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Alt") [CTVar (0,"a")]]],CCons ("CurrySyntax","RecordConstr") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]]],CCons ("CurrySyntax","RecordSelection") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","RecordUpdate") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","InfixOp") Public [] [CCons ("CurrySyntax","InfixOp") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","InfixConstr") 1 Public [CTCons ("CurrySyntax","QualIdent") []]],+  CType ("CurrySyntax","Statement") Public [(0,"a")] [CCons ("CurrySyntax","StmtExpr") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","StmtDecl") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]],CCons ("CurrySyntax","StmtBind") 2 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Alt") Public [(0,"a")] [CCons ("CurrySyntax","Alt") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Field") Public [(0,"a"),(1,"b")] [CCons ("CurrySyntax","Field") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTVar (1,"b")]]]+ [CFunc ("CurrySyntax","absoluteFileName") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"name"))),CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CVar (0,"name"))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSPat (CPVar (1,"exists")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"name"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exists"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"name")))) (CSymbol ("Prelude","Nothing"))))])] []]),+  CFunc ("CurrySyntax","orElseDo") 2 Private (CFuncType (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]) (CFuncType (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]))) (CRules CFlex [CRule [CPVar (0,"ioma"),CPVar (1,"ioa")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CVar (0,"ioma"))) (CApply (CApply (CSymbol ("Prelude","maybe")) (CVar (1,"ioa"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))] []]),+  CFunc ("CurrySyntax","readCurry") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurrySyntax","readCurryWithParseOptions")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("CurrySyntax","readCurryFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filename")) (CApply (CSymbol ("CurrySyntax","absoluteFileName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CSymbol ("CurrySyntax","read"))) (CVar (2,"filename")))])] [CLocalPat (CPVar (1,"progname")) (CApply (CSymbol ("CurrySyntax","stripSuffix")) (CVar (0,"name"))) [],CLocalFunc (CFunc ("CurrySyntax","read") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTVar (0,"a")])) (CRules CFlex [CRule [CPVar (2,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (2,"filename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("ReadShowTerm","readUnqualifiedTerm")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CVar (3,"filecontents"))))])] []]))]]),+  CFunc ("CurrySyntax","readCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]]]))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CApply (CSymbol ("CurrySyntax","orElseDo")) (CApply (CSymbol ("CurrySyntax","parseCurry")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("CurrySyntax","parseCurry")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CSymbol ("CurrySyntax","readCurryFile")) (CVar (2,"progname")))])] [CLocalPat (CPVar (2,"progname")) (CApply (CSymbol ("CurrySyntax","stripSuffix")) (CVar (0,"name"))) [],CLocalFunc (CFunc ("CurrySyntax","parseCurry") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","()") []]])) (CRules CFlex [CRule [CPVar (3,"suffix")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("CurrySyntax","absoluteFileName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"progname"))) (CVar (3,"suffix"))))) (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CSymbol ("CurrySyntax","parse"))))] []])),CLocalFunc (CFunc ("CurrySyntax","parse") 1 Private (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","()") []]])) (CRules CFlex [CRule [CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","CY"))) (CVar (1,"options"))) (CVar (2,"progname")))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","()")))))] []]))]]),+  CFunc ("CurrySyntax","stripSuffix") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","takeWhile")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (0,"x0"))) (CLit (CCharc '.')))))] []]),+  CFunc ("CurrySyntax","writeCurryFile") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("CurrySyntax","Module") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"m")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"m"))))] []]),+  CFunc ("CurrySyntax","writeCurryModule") 1 Public (CFuncType (CTCons ("CurrySyntax","Module") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPAs (3,"m") (CPComb ("CurrySyntax","Module") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurrySyntax","writeCurryFile")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CVar (3,"m")))] []])]+ []
+ src/lib/Curry/Module/.curry/CurrySyntax.cy view
@@ -0,0 +1,52 @@+Module "CurrySyntax"+(Just (Exporting (11,20) [(ExportTypeAll (QualIdent Nothing (Ident "Module" 0))),(Export (QualIdent Nothing (Ident "Pos" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Position" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Ident" 0))),(ExportTypeAll (QualIdent Nothing (Ident "QualIdent" 0))),(Export (QualIdent Nothing (Ident "ModuleIdent" 0))),(ExportTypeAll (QualIdent Nothing (Ident "ExportSpec" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Export" 0))),(ExportTypeAll (QualIdent Nothing (Ident "ImportSpec" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Import" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Decl" 0))),(ExportTypeAll (QualIdent Nothing (Ident "ConstrDecl" 0))),(ExportTypeAll (QualIdent Nothing (Ident "NewConstrDecl" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Infix" 0))),(ExportTypeAll (QualIdent Nothing (Ident "EvalAnnotation" 0))),(ExportTypeAll (QualIdent Nothing (Ident "CallConv" 0))),(ExportTypeAll (QualIdent Nothing (Ident "TypeExpr" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Equation" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Lhs" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Rhs" 0))),(ExportTypeAll (QualIdent Nothing (Ident "CondExpr" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Literal" 0))),(ExportTypeAll (QualIdent Nothing (Ident "ConstrTerm" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Expression" 0))),(ExportTypeAll (QualIdent Nothing (Ident "InfixOp" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Statement" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Alt" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Field" 0))),(Export (QualIdent Nothing (Ident "readCurry" 0))),(Export (QualIdent Nothing (Ident "readCurryWithParseOptions" 0))),(Export (QualIdent Nothing (Ident "readCurryFile" 0))),(Export (QualIdent Nothing (Ident "writeCurryModule" 0))),(Export (QualIdent Nothing (Ident "writeCurryFile" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (33,1) "Directory" False Nothing (Just (Importing (33,18) [(Import (Ident "doesFileExist" 0))])))+,(ImportDecl (34,1) "ReadShowTerm" False Nothing (Just (Importing (34,21) [(Import (Ident "readUnqualifiedTerm" 0)),(Import (Ident "showTerm" 0))])))+,(ImportDecl (35,1) "Distribution" False Nothing (Just (Importing (36,3) [(Import (Ident "callFrontendWithParams" 0)),(ImportTypeAll (Ident "FrontendTarget" 0)),(Import (Ident "FrontendParams" 0)),(Import (Ident "defaultParams" 0)),(Import (Ident "setQuiet" 0)),(Import (Ident "lookupFileInLoadPath" 0))])))+,(ImportDecl (39,1) "FileGoodies" False Nothing (Just (Importing (39,20) [(Import (Ident "baseName" 0))])))+,(TypeDecl (43,1) (Ident "Pos" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]))+,(DataDecl (48,1) (Ident "Position" 0) [] [(ConstrDecl (48,17) [] (Ident "Position" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])])+,(DataDecl (55,1) (Ident "Ident" 0) [] [(ConstrDecl (55,14) [] (Ident "Ident" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])])+,(DataDecl (61,1) (Ident "QualIdent" 0) [] [(ConstrDecl (61,18) [] (Ident "UnqualIdent" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])]),(ConstrDecl (61,38) [] (Ident "QualIdent" 0) [(ConstructorType (QualIdent Nothing (Ident "ModuleIdent" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])])])+,(TypeDecl (65,1) (Ident "ModuleIdent" 0) [] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(DataDecl (73,1) (Ident "Module" 0) [(Ident "a" 0)] [(ConstrDecl (73,17) [] (Ident "Module" 0) [(ConstructorType (QualIdent Nothing (Ident "ModuleIdent" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "ExportSpec" 0)) [(VariableType (Ident "a" 0))])]),(ListType (ConstructorType (QualIdent Nothing (Ident "Decl" 0)) [(VariableType (Ident "a" 0))]))])])+,(DataDecl (78,1) (Ident "ExportSpec" 0) [(Ident "a" 0)] [(ConstrDecl (78,21) [] (Ident "Exporting" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Export" 0)) []))])])+,(DataDecl (86,1) (Ident "Export" 0) [] [(ConstrDecl (87,5) [] (Ident "Export" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])]),(ConstrDecl (88,5) [] (Ident "ExportTypeWith" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []))]),(ConstrDecl (89,5) [] (Ident "ExportTypeAll" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])]),(ConstrDecl (90,5) [] (Ident "ExportModule" 0) [(ConstructorType (QualIdent Nothing (Ident "ModuleIdent" 0)) [])])])+,(DataDecl (96,1) (Ident "ImportSpec" 0) [(Ident "a" 0)] [(ConstrDecl (97,5) [] (Ident "Importing" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Import" 0)) []))]),(ConstrDecl (98,5) [] (Ident "Hiding" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Import" 0)) []))])])+,(DataDecl (107,1) (Ident "Import" 0) [] [(ConstrDecl (108,5) [] (Ident "Import" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])]),(ConstrDecl (109,5) [] (Ident "ImportTypeWith" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []))]),(ConstrDecl (110,5) [] (Ident "ImportTypeAll" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])])])+,(DataDecl (151,1) (Ident "Decl" 0) [(Ident "a" 0)] [(ConstrDecl (152,5) [] (Ident "ImportDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "ModuleIdent" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "ModuleIdent" 0)) [])]),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "ImportSpec" 0)) [(VariableType (Ident "a" 0))])])]),(ConstrDecl (153,5) [] (Ident "InfixDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Infix" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []))]),(ConstrDecl (154,5) [] (Ident "DataDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrDecl" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (155,5) [] (Ident "NewtypeDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "NewConstrDecl" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (156,5) [] (Ident "TypeDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (157,5) [] (Ident "TypeSig" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (158,5) [] (Ident "EvalAnnot" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "EvalAnnotation" 0)) [])]),(ConstrDecl (159,5) [] (Ident "FunctionDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Equation" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (160,5) [] (Ident "ExternalDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "CallConv" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (161,5) [] (Ident "FlatExternalDecl" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []))]),(ConstrDecl (162,5) [] (Ident "PatternDecl" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Rhs" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (163,5) [] (Ident "ExtraVariables" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []))])])+,(DataDecl (169,1) (Ident "ConstrDecl" 0) [(Ident "a" 0)] [(ConstrDecl (170,5) [] (Ident "ConstrDecl" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))]),(ConstrDecl (171,5) [] (Ident "ConOpDecl" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])])])+,(DataDecl (177,1) (Ident "NewConstrDecl" 0) [(Ident "a" 0)] [(ConstrDecl (177,24) [] (Ident "NewConstrDecl" 0) [(VariableType (Ident "a" 0)),(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])])])+,(DataDecl (181,1) (Ident "Infix" 0) [] [(ConstrDecl (181,14) [] (Ident "InfixL" 0) []),(ConstrDecl (181,23) [] (Ident "InfixR" 0) []),(ConstrDecl (181,32) [] (Ident "Infix" 0) [])])+,(DataDecl (185,1) (Ident "EvalAnnotation" 0) [] [(ConstrDecl (185,23) [] (Ident "EvalRigid" 0) []),(ConstrDecl (185,35) [] (Ident "EvalChoice" 0) [])])+,(DataDecl (189,1) (Ident "CallConv" 0) [] [(ConstrDecl (189,17) [] (Ident "CallConvPrimitive" 0) []),(ConstrDecl (189,37) [] (Ident "CallConvCCall" 0) [])])+,(DataDecl (208,1) (Ident "TypeExpr" 0) [] [(ConstrDecl (209,5) [] (Ident "ConstructorType" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))]),(ConstrDecl (210,5) [] (Ident "VariableType" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])]),(ConstrDecl (211,5) [] (Ident "TupleType" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))]),(ConstrDecl (212,5) [] (Ident "ListType" 0) [(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (213,5) [] (Ident "ArrowType" 0) [(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (214,5) [] (Ident "RecordType" 0) [(ListType (TupleType [(ListType (ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])])),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])])])])+,(DataDecl (220,1) (Ident "Equation" 0) [(Ident "a" 0)] [(ConstrDecl (220,19) [] (Ident "Equation" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Lhs" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Rhs" 0)) [(VariableType (Ident "a" 0))])])])+,(DataDecl (234,1) (Ident "Lhs" 0) [(Ident "a" 0)] [(ConstrDecl (235,5) [] (Ident "FunLhs" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (236,5) [] (Ident "OpLhs" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (237,5) [] (Ident "ApLhs" 0) [(ConstructorType (QualIdent Nothing (Ident "Lhs" 0)) [(VariableType (Ident "a" 0))]),(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))])])+,(DataDecl (244,1) (Ident "Rhs" 0) [(Ident "a" 0)] [(ConstrDecl (245,5) [] (Ident "SimpleRhs" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ListType (ConstructorType (QualIdent Nothing (Ident "Decl" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (246,5) [] (Ident "GuardedRhs" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "CondExpr" 0)) [(VariableType (Ident "a" 0))])),(ListType (ConstructorType (QualIdent Nothing (Ident "Decl" 0)) [(VariableType (Ident "a" 0))]))])])+,(DataDecl (252,1) (Ident "CondExpr" 0) [(Ident "a" 0)] [(ConstrDecl (252,19) [] (Ident "CondExpr" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])])])+,(DataDecl (261,1) (Ident "Literal" 0) [] [(ConstrDecl (262,5) [] (Ident "Char" 0) [(ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])]),(ConstrDecl (263,5) [] (Ident "Int" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]),(ConstrDecl (264,5) [] (Ident "Float" 0) [(ConstructorType (QualIdent Nothing (Ident "Float" 0)) [])]),(ConstrDecl (265,5) [] (Ident "String" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(DataDecl (302,1) (Ident "ConstrTerm" 0) [(Ident "a" 0)] [(ConstrDecl (303,5) [] (Ident "LiteralPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])]),(ConstrDecl (304,5) [] (Ident "NegativePattern" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])]),(ConstrDecl (305,5) [] (Ident "VariablePattern" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])]),(ConstrDecl (306,5) [] (Ident "ConstructorPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (307,5) [] (Ident "InfixPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (308,5) [] (Ident "ParenPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (309,5) [] (Ident "TuplePattern" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (310,5) [] (Ident "ListPattern" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (311,5) [] (Ident "AsPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (312,5) [] (Ident "LazyPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (313,5) [] (Ident "FunctionPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (314,5) [] (Ident "InfixFuncPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) []),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (315,5) [] (Ident "RecordPattern" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Field" 0)) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])])),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])])])])+,(DataDecl (354,1) (Ident "Expression" 0) [(Ident "a" 0)] [(ConstrDecl (355,5) [] (Ident "Literal" 0) [(ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])]),(ConstrDecl (356,5) [] (Ident "Variable" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])]),(ConstrDecl (357,5) [] (Ident "Constructor" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])]),(ConstrDecl (358,5) [] (Ident "Paren" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (359,5) [] (Ident "Typed" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (360,5) [] (Ident "Tuple" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (361,5) [] (Ident "List" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (362,5) [] (Ident "ListCompr" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ListType (ConstructorType (QualIdent Nothing (Ident "Statement" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (363,5) [] (Ident "EnumFrom" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (364,5) [] (Ident "EnumFromThen" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (365,5) [] (Ident "EnumFromTo" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (366,5) [] (Ident "EnumFromThenTo" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (367,5) [] (Ident "UnaryMinus" 0) [(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (368,5) [] (Ident "Apply" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (369,5) [] (Ident "InfixApply" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "InfixOp" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (370,5) [] (Ident "LeftSection" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "InfixOp" 0)) [])]),(ConstrDecl (371,5) [] (Ident "RightSection" 0) [(ConstructorType (QualIdent Nothing (Ident "InfixOp" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (372,5) [] (Ident "Lambda" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))])),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (373,5) [] (Ident "Let" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Decl" 0)) [(VariableType (Ident "a" 0))])),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (374,5) [] (Ident "Do" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Statement" 0)) [(VariableType (Ident "a" 0))])),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (375,5) [] (Ident "IfThenElse" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (376,5) [] (Ident "Case" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ListType (ConstructorType (QualIdent Nothing (Ident "Alt" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (377,5) [] (Ident "RecordConstr" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Field" 0)) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]))]),(ConstrDecl (378,5) [] (Ident "RecordSelection" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) [])]),(ConstrDecl (379,5) [] (Ident "RecordUpdate" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Field" 0)) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])])),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])])])+,(DataDecl (383,1) (Ident "InfixOp" 0) [] [(ConstrDecl (383,16) [] (Ident "InfixOp" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])]),(ConstrDecl (383,36) [] (Ident "InfixConstr" 0) [(ConstructorType (QualIdent Nothing (Ident "QualIdent" 0)) [])])])+,(DataDecl (391,1) (Ident "Statement" 0) [(Ident "a" 0)] [(ConstrDecl (392,5) [] (Ident "StmtExpr" 0) [(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])]),(ConstrDecl (393,5) [] (Ident "StmtDecl" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "Decl" 0)) [(VariableType (Ident "a" 0))]))]),(ConstrDecl (394,5) [] (Ident "StmtBind" 0) [(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Expression" 0)) [(VariableType (Ident "a" 0))])])])+,(DataDecl (399,1) (Ident "Alt" 0) [(Ident "a" 0)] [(ConstrDecl (399,14) [] (Ident "Alt" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "ConstrTerm" 0)) [(VariableType (Ident "a" 0))]),(ConstructorType (QualIdent Nothing (Ident "Rhs" 0)) [(VariableType (Ident "a" 0))])])])+,(DataDecl (405,1) (Ident "Field" 0) [(Ident "a" 0),(Ident "b" 0)] [(ConstrDecl (405,18) [] (Ident "Field" 0) [(VariableType (Ident "a" 0)),(ConstructorType (QualIdent Nothing (Ident "Ident" 0)) []),(VariableType (Ident "b" 0))])])+,(TypeSig (414,1) [(Ident "readCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Module" 0)) [(ConstructorType (QualIdent Nothing (Ident "Pos" 0)) [])])])))+,(FunctionDecl (415,1) (Ident "readCurry" 0) [(Equation (415,1) (FunLhs (Ident "readCurry" 0) [(VariablePattern (Ident "name" 2))]) (SimpleRhs (415,18) (Apply (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "readCurryWithParseOptions" 0))) (Variable (QualIdent Nothing (Ident "name" 2)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setQuiet" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))))) []))])+,(TypeSig (424,1) [(Ident "readCurryWithParseOptions" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Module" 0)) [(ConstructorType (QualIdent Nothing (Ident "Pos" 0)) [])])]))))+,(FunctionDecl (425,1) (Ident "readCurryWithParseOptions" 0) [(Equation (425,1) (FunLhs (Ident "readCurryWithParseOptions" 0) [(VariablePattern (Ident "name" 4)),(VariablePattern (Ident "options" 4))]) (SimpleRhs (425,42) (Do [(StmtExpr (InfixApply (Apply (Variable (QualIdent Nothing (Ident "parseCurry" 5))) (Literal (String ".curry"))) (InfixOp (QualIdent (Just "CurrySyntax") (Ident "orElseDo" 0))) (Apply (Variable (QualIdent Nothing (Ident "parseCurry" 5))) (Literal (String ".lcurry")))))] (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "readCurryFile" 0))) (Variable (QualIdent Nothing (Ident "progname" 5))))) [(PatternDecl (429,3) (VariablePattern (Ident "progname" 5)) (SimpleRhs (429,14) (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "name" 4)))) [])),(FunctionDecl (430,3) (Ident "parseCurry" 5) [(Equation (430,3) (FunLhs (Ident "parseCurry" 5) [(VariablePattern (Ident "suffix" 7))]) (SimpleRhs (431,7) (InfixApply (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "absoluteFileName" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 5))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "suffix" 7)))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) (Variable (QualIdent Nothing (Ident "parse" 5))))) []))]),(FunctionDecl (432,3) (Ident "parse" 5) [(Equation (432,3) (FunLhs (Ident "parse" 5) [(VariablePattern (Ident "_" 10))]) (SimpleRhs (432,13) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "CY" 0)))) (Variable (QualIdent Nothing (Ident "options" 4)))) (Variable (QualIdent Nothing (Ident "progname" 5)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Tuple []))))) []))])]))])+,(TypeSig (439,1) [(Ident "readCurryFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Module" 0)) [(ConstructorType (QualIdent Nothing (Ident "Pos" 0)) [])])])))+,(FunctionDecl (440,1) (Ident "readCurryFile" 0) [(Equation (440,1) (FunLhs (Ident "readCurryFile" 0) [(VariablePattern (Ident "name" 12))]) (SimpleRhs (440,22) (Do [(StmtBind (VariablePattern (Ident "filename" 18)) (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "absoluteFileName" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 13))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".cy"))))))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "progname" 13))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".cy not found")))))) (Variable (QualIdent Nothing (Ident "read" 13)))) (Variable (QualIdent Nothing (Ident "filename" 18))))) [(PatternDecl (444,3) (VariablePattern (Ident "progname" 13)) (SimpleRhs (444,14) (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "name" 12)))) [])),(FunctionDecl (445,3) (Ident "read" 13) [(Equation (445,3) (FunLhs (Ident "read" 13) [(VariablePattern (Ident "filename" 15))]) (SimpleRhs (445,19) (Do [(StmtBind (VariablePattern (Ident "filecontents" 17)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 15)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "readUnqualifiedTerm" 0))) (List [(Literal (String "CurrySyntax")),(Literal (String "Prelude"))])) (Variable (QualIdent Nothing (Ident "filecontents" 17))))))) []))])]))])+,(TypeSig (452,1) [(Ident "writeCurryModule" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Module" 0)) [(ConstructorType (QualIdent Nothing (Ident "Pos" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (453,1) (Ident "writeCurryModule" 0) [(Equation (453,1) (FunLhs (Ident "writeCurryModule" 0) [(AsPattern (Ident "m" 19) (ParenPattern (ConstructorPattern (QualIdent (Just "CurrySyntax") (Ident "Module" 0)) [(VariablePattern (Ident "name" 19)),(VariablePattern (Ident "_" 20)),(VariablePattern (Ident "_" 21))])))]) (SimpleRhs (453,40) (Apply (Apply (Variable (QualIdent (Just "CurrySyntax") (Ident "writeCurryFile" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "name" 19))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".cy"))))) (Variable (QualIdent Nothing (Ident "m" 19)))) []))])+,(TypeSig (458,1) [(Ident "writeCurryFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Module" 0)) [(ConstructorType (QualIdent Nothing (Ident "Pos" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (459,1) (Ident "writeCurryFile" 0) [(Equation (459,1) (FunLhs (Ident "writeCurryFile" 0) [(VariablePattern (Ident "file" 23)),(VariablePattern (Ident "m" 23))]) (SimpleRhs (459,25) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "writeFile" 0))) (Variable (QualIdent Nothing (Ident "file" 23)))) (Paren (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "showTerm" 0))) (Variable (QualIdent Nothing (Ident "m" 23)))))) []))])+,(TypeSig (464,1) [(Ident "absoluteFileName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])))+,(FunctionDecl (465,1) (Ident "absoluteFileName" 0) [(Equation (465,1) (FunLhs (Ident "absoluteFileName" 0) [(VariablePattern (Ident "name" 25))]) (GuardedRhs [(CondExpr (466,3) (InfixApply (Variable (QualIdent Nothing (Ident "name" 25))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "name" 25))))) (Apply (Variable (QualIdent (Just "Distribution") (Ident "lookupFileInLoadPath" 0))) (Variable (QualIdent Nothing (Ident "name" 25))))),(CondExpr (467,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Do [(StmtBind (VariablePattern (Ident "exists" 27)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "name" 25)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (IfThenElse (Variable (QualIdent Nothing (Ident "exists" 27))) (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Variable (QualIdent Nothing (Ident "name" 25)))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0))))))))] []))])+,(TypeSig (471,1) [(Ident "orElseDo" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(VariableType (Ident "a" 0))])]) (ArrowType (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(VariableType (Ident "a" 0))])]) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(VariableType (Ident "a" 0))])]))))+,(FunctionDecl (472,1) (Ident "orElseDo" 0) [(Equation (472,1) (FunLhs (Ident "orElseDo" 0) [(VariablePattern (Ident "ioma" 28)),(VariablePattern (Ident "ioa" 28))]) (SimpleRhs (472,21) (InfixApply (Variable (QualIdent Nothing (Ident "ioma" 28))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Variable (QualIdent Nothing (Ident "ioa" 28)))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))))))) []))])+,(TypeSig (474,1) [(Ident "stripSuffix" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (475,1) (Ident "stripSuffix" 0) [(Equation (475,1) (FunLhs (Ident "stripSuffix" 0) []) (SimpleRhs (475,15) (Apply (Variable (QualIdent (Just "Prelude") (Ident "takeWhile" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char '.')))) []))])+]
+ src/lib/Curry/Module/.curry/CurrySyntax.efc view
@@ -0,0 +1,1 @@+Prog "CurrySyntax" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ((Nothing,Nothing,"CurrySyntax","Pos")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]),TypeSyn ((Nothing,Nothing,"CurrySyntax","ModuleIdent")) Public [] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]),Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"CurrySyntax","Position") [])))),"CurrySyntax","Position")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"CurrySyntax","Position") [])))),"CurrySyntax","Position")) 3 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"CurrySyntax","Ident") []))),"CurrySyntax","Ident")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"CurrySyntax","Ident") []))),"CurrySyntax","Ident")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","Int")) []]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []))),"CurrySyntax","QualIdent")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") [])),"CurrySyntax","UnqualIdent")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []))),"CurrySyntax","QualIdent")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ExportSpec") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Module") [TVar 0])))),"CurrySyntax","Module")) Public [0] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ExportSpec") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Module") [TVar 0])))),"CurrySyntax","Module")) 3 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"CurrySyntax","ExportSpec")) [TVar 0]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Decl")) [TVar 0]]]],Type ((Nothing,Nothing,"CurrySyntax","ExportSpec")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Export") []]) (TCons (Nothing,Nothing,"CurrySyntax","ExportSpec") [TVar 0]))),"CurrySyntax","Exporting")) 2 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Export")) []]]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","Export") [])),"CurrySyntax","Export")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","Export") [])),"CurrySyntax","Export")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (TCons (Nothing,Nothing,"CurrySyntax","Export") []))),"CurrySyntax","ExportTypeWith")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","Export") [])),"CurrySyntax","ExportTypeAll")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurrySyntax","Export") [])),"CurrySyntax","ExportModule")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Type ((Nothing,Nothing,"CurrySyntax","ImportSpec")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Import") []]) (TCons (Nothing,Nothing,"CurrySyntax","ImportSpec") [TVar 0]))),"CurrySyntax","Importing")) 2 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Import")) []]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Import") []]) (TCons (Nothing,Nothing,"CurrySyntax","ImportSpec") [TVar 0]))),"CurrySyntax","Hiding")) 2 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Import")) []]]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","Import") [])),"CurrySyntax","Import")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","Import") [])),"CurrySyntax","Import")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (TCons (Nothing,Nothing,"CurrySyntax","Import") []))),"CurrySyntax","ImportTypeWith")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","Import") [])),"CurrySyntax","ImportTypeAll")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Type ((Nothing,Nothing,"CurrySyntax","Decl")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ImportSpec") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))))),"CurrySyntax","ImportDecl")) 5 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","Bool")) [],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"CurrySyntax","ImportSpec")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Infix") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))))),"CurrySyntax","InfixDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Infix")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrDecl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))))),"CurrySyntax","DataDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrDecl")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","NewConstrDecl") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))))),"CurrySyntax","NewtypeDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","NewConstrDecl")) [TVar 0]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))))),"CurrySyntax","TypeDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))),"CurrySyntax","TypeSig")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","EvalAnnotation") []) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))),"CurrySyntax","EvalAnnot")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","EvalAnnotation")) []],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Equation") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))),"CurrySyntax","FunctionDecl")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Equation")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","CallConv") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))))),"CurrySyntax","ExternalDecl")) 5 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","CallConv")) [],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))),"CurrySyntax","FlatExternalDecl")) 2 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0])))),"CurrySyntax","PatternDecl")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Rhs")) [TVar 0]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]))),"CurrySyntax","ExtraVariables")) 2 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []]]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrDecl") [TVar 0]))))),"CurrySyntax","ConstrDecl")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrDecl") [TVar 0]))))),"CurrySyntax","ConstrDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","ConstrDecl") [TVar 0])))))),"CurrySyntax","ConOpDecl")) 5 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) [],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","NewConstrDecl") [TVar 0]))))),"CurrySyntax","NewConstrDecl")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","NewConstrDecl") [TVar 0]))))),"CurrySyntax","NewConstrDecl")) 4 Public [TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],Type ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","Infix") []),"CurrySyntax","Infix")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","Infix") []),"CurrySyntax","InfixL")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","Infix") []),"CurrySyntax","InfixR")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","Infix") []),"CurrySyntax","Infix")) 0 Public []],Type ((Nothing,Nothing,"CurrySyntax","EvalAnnotation")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","EvalAnnotation") []),"CurrySyntax","EvalRigid")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","EvalAnnotation") []),"CurrySyntax","EvalChoice")) 0 Public []],Type ((Nothing,Nothing,"CurrySyntax","CallConv")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","CallConv") []),"CurrySyntax","CallConvPrimitive")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"CurrySyntax","CallConv") []),"CurrySyntax","CallConvCCall")) 0 Public []],Type ((Nothing,Nothing,"CurrySyntax","TypeExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []))),"CurrySyntax","ConstructorType")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") [])),"CurrySyntax","VariableType")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") [])),"CurrySyntax","TupleType")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") [])),"CurrySyntax","ListType")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []))),"CurrySyntax","ArrowType")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) [],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Ident") []],TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []]) (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []))),"CurrySyntax","RecordType")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []]]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Equation") [TVar 0])))),"CurrySyntax","Equation")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Equation") [TVar 0])))),"CurrySyntax","Equation")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Lhs")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Rhs")) [TVar 0]]],Type ((Nothing,Nothing,"CurrySyntax","Lhs")) Public [0] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0]))),"CurrySyntax","FunLhs")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0])))),"CurrySyntax","OpLhs")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Lhs") [TVar 0]))),"CurrySyntax","ApLhs")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Lhs")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]]],Type ((Nothing,Nothing,"CurrySyntax","Rhs")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0])))),"CurrySyntax","SimpleRhs")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Decl")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","CondExpr") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]))),"CurrySyntax","GuardedRhs")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","CondExpr")) [TVar 0]],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Decl")) [TVar 0]]]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","CondExpr") [TVar 0])))),"CurrySyntax","CondExpr")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","CondExpr") [TVar 0])))),"CurrySyntax","CondExpr")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Literal") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Literal")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"CurrySyntax","Literal") [])),"CurrySyntax","Char")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Char")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"CurrySyntax","Literal") []))),"CurrySyntax","Int")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"CurrySyntax","Literal") [])),"CurrySyntax","Float")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Float")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"CurrySyntax","Literal") [])),"CurrySyntax","String")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Type ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) Public [0] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Literal") []) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","LiteralPattern")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Literal")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Literal") []) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]))),"CurrySyntax","NegativePattern")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","Literal")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","VariablePattern")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]))),"CurrySyntax","ConstructorPattern")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])))),"CurrySyntax","InfixPattern")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","ParenPattern")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","TuplePattern")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","ListPattern")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]))),"CurrySyntax","AsPattern")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])),"CurrySyntax","LazyPattern")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]))),"CurrySyntax","FunctionPattern")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0])))),"CurrySyntax","InfixFuncPattern")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) [],TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Field") [TVar 0,TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]))),"CurrySyntax","RecordPattern")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Field")) [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]]]],Type ((Nothing,Nothing,"CurrySyntax","Expression")) Public [0] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Literal") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Literal")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Literal")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Variable")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Constructor")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Paren")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","TypeExpr") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Typed")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","TypeExpr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","Tuple")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","List")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Statement") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","ListCompr")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Statement")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","EnumFrom")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","EnumFromThen")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","EnumFromTo")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])))),"CurrySyntax","EnumFromThenTo")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","UnaryMinus")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Apply")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])))),"CurrySyntax","InfixApply")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","InfixOp")) [],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","LeftSection")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","InfixOp")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") []) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","RightSection")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","InfixOp")) [],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Lambda")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0]],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Let")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Decl")) [TVar 0]],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Statement") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Do")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Statement")) [TVar 0]],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])))),"CurrySyntax","IfThenElse")) 3 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Alt") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","Case")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Alt")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Field") [TVar 0,TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]]]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0])),"CurrySyntax","RecordConstr")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Field")) [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","RecordSelection")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Ident")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Field") [TVar 0,TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]]]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]))),"CurrySyntax","RecordUpdate")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Field")) [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") [])),"CurrySyntax","InfixOp")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") [])),"CurrySyntax","InfixOp")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","QualIdent") []) (TCons (Nothing,Nothing,"CurrySyntax","InfixOp") [])),"CurrySyntax","InfixConstr")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","QualIdent")) []]],Type ((Nothing,Nothing,"CurrySyntax","Statement")) Public [0] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Statement") [TVar 0])),"CurrySyntax","StmtExpr")) 1 Public [TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TVar 0]]) (TCons (Nothing,Nothing,"CurrySyntax","Statement") [TVar 0])),"CurrySyntax","StmtDecl")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"CurrySyntax","Decl")) [TVar 0]]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Expression") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Statement") [TVar 0]))),"CurrySyntax","StmtBind")) 2 Public [TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Expression")) [TVar 0]]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Alt") [TVar 0])))),"CurrySyntax","Alt")) Public [0] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","ConstrTerm") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Rhs") [TVar 0]) (TCons (Nothing,Nothing,"CurrySyntax","Alt") [TVar 0])))),"CurrySyntax","Alt")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","ConstrTerm")) [TVar 0],TCons ((Nothing,Nothing,"CurrySyntax","Rhs")) [TVar 0]]],Type ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TVar 1) (TCons (Nothing,Nothing,"CurrySyntax","Field") [TVar 0,TVar 1])))),"CurrySyntax","Field")) Public [0,1] [Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Ident") []) (FuncType (TVar 1) (TCons (Nothing,Nothing,"CurrySyntax","Field") [TVar 0,TVar 1])))),"CurrySyntax","Field")) 3 Public [TVar 0,TCons ((Nothing,Nothing,"CurrySyntax","Ident")) [],TVar 1]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]])),"CurrySyntax","readCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"CurrySyntax","Module")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"CurrySyntax","readCurryWithParseOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"CurrySyntax","readCurryWithParseOptions")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"CurrySyntax","Module")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 4) (TVar 5)) (FuncType (TVar 4) (TVar 5))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurrySyntax","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]))),"CurrySyntax","orElseDo")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"CurrySyntax","readCurryWithParseOptions.parseCurry.5")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"CurrySyntax","readCurryWithParseOptions.parseCurry.5")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]])),"CurrySyntax","readCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"CurrySyntax","readCurryWithParseOptions.parse.5")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","()")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 0),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","CY")) [],Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"CurrySyntax","readCurryWithParseOptions.parseCurry.5")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","()")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CurrySyntax","absoluteFileName")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","Nothing")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","()") []]])))),"CurrySyntax","readCurryWithParseOptions.parse.5")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]])),"CurrySyntax","readCurryFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"CurrySyntax","Module")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 51) (TVar 52)) (FuncType (TVar 51) (TVar 52))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurrySyntax","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CurrySyntax","absoluteFileName")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"CurrySyntax","readCurryFile._#lambda3")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"CurrySyntax","readCurryFile.read.13")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"CurrySyntax","readCurryFile.read.13._#lambda2")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 48])),"CurrySyntax","readCurryFile.read.13._#lambda2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 48])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TVar 48) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 48])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 48))),"ReadShowTerm","readUnqualifiedTerm")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]],Var ((Just (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,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49]))),"CurrySyntax","readCurryFile._#lambda3")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 49]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 49])),"CurrySyntax","readCurryFile.read.13")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"CurrySyntax","writeCurryModule")) 1 Public (FuncType (TCons ((Nothing,Nothing,"CurrySyntax","Module")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ExportSpec") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]])))),"CurrySyntax","Module")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"CurrySyntax","ExportSpec") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"CurrySyntax","Decl") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"CurrySyntax","writeCurryFile")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Var ((Just (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),1))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"CurrySyntax","writeCurryFile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"CurrySyntax","Module")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),2)] (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"ReadShowTerm","showTerm")) [Var ((Just (TCons (Nothing,Nothing,"CurrySyntax","Module") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"CurrySyntax","absoluteFileName")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (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") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","lookupFileInLoadPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CurrySyntax","absoluteFileName._#lambda4")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","failed")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"CurrySyntax","absoluteFileName._#lambda4")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [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","Bool") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","return")) [Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),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") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","Just")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]))),"CurrySyntax","orElseDo")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 0]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 0]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 0]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]),1),(Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]))),"Prelude",">>=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]),1)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]) (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])))),"Prelude","maybe")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]]),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])) (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]])),"Prelude","return")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])),"Prelude","Just")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"CurrySyntax","stripSuffix")) 0 Private (FuncType (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","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","takeWhile")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  '.')]]))] []
+ src/lib/Curry/Module/.curry/CurrySyntax.fcy view
@@ -0,0 +1,1 @@+Prog "CurrySyntax" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("CurrySyntax","Pos") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]),TypeSyn ("CurrySyntax","ModuleIdent") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]),Type ("CurrySyntax","Position") Public [] [Cons ("CurrySyntax","Position") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]],Type ("CurrySyntax","Ident") Public [] [Cons ("CurrySyntax","Ident") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Int") []]],Type ("CurrySyntax","QualIdent") Public [] [Cons ("CurrySyntax","UnqualIdent") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","QualIdent") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("CurrySyntax","Ident") []]],Type ("CurrySyntax","Module") Public [0] [Cons ("CurrySyntax","Module") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ExportSpec") [TVar 0]],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]]],Type ("CurrySyntax","ExportSpec") Public [0] [Cons ("CurrySyntax","Exporting") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Export") []]]],Type ("CurrySyntax","Export") Public [] [Cons ("CurrySyntax","Export") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","ExportTypeWith") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","ExportTypeAll") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","ExportModule") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CurrySyntax","ImportSpec") Public [0] [Cons ("CurrySyntax","Importing") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Import") []]],Cons ("CurrySyntax","Hiding") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Import") []]]],Type ("CurrySyntax","Import") Public [] [Cons ("CurrySyntax","Import") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","ImportTypeWith") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","ImportTypeAll") 1 Public [TCons ("CurrySyntax","Ident") []]],Type ("CurrySyntax","Decl") Public [0] [Cons ("CurrySyntax","ImportDecl") 5 Public [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") [],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ImportSpec") [TVar 0]]],Cons ("CurrySyntax","InfixDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Infix") [],TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","DataDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrDecl") [TVar 0]]],Cons ("CurrySyntax","NewtypeDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","NewConstrDecl") [TVar 0]],Cons ("CurrySyntax","TypeDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","TypeSig") 3 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","EvalAnnot") 3 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","EvalAnnotation") []],Cons ("CurrySyntax","FunctionDecl") 3 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Equation") [TVar 0]]],Cons ("CurrySyntax","ExternalDecl") 5 Public [TVar 0,TCons ("CurrySyntax","CallConv") [],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","FlatExternalDecl") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","PatternDecl") 3 Public [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]],Cons ("CurrySyntax","ExtraVariables") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]]],Type ("CurrySyntax","ConstrDecl") Public [0] [Cons ("CurrySyntax","ConstrDecl") 4 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","ConOpDecl") 5 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") [],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []]],Type ("CurrySyntax","NewConstrDecl") Public [0] [Cons ("CurrySyntax","NewConstrDecl") 4 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []]],Type ("CurrySyntax","Infix") Public [] [Cons ("CurrySyntax","InfixL") 0 Public [],Cons ("CurrySyntax","InfixR") 0 Public [],Cons ("CurrySyntax","Infix") 0 Public []],Type ("CurrySyntax","EvalAnnotation") Public [] [Cons ("CurrySyntax","EvalRigid") 0 Public [],Cons ("CurrySyntax","EvalChoice") 0 Public []],Type ("CurrySyntax","CallConv") Public [] [Cons ("CurrySyntax","CallConvPrimitive") 0 Public [],Cons ("CurrySyntax","CallConvCCall") 0 Public []],Type ("CurrySyntax","TypeExpr") Public [] [Cons ("CurrySyntax","ConstructorType") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","VariableType") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","TupleType") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","ListType") 1 Public [TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","ArrowType") 2 Public [TCons ("CurrySyntax","TypeExpr") [],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","RecordType") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","TypeExpr") []]]],Type ("CurrySyntax","Equation") Public [0] [Cons ("CurrySyntax","Equation") 3 Public [TVar 0,TCons ("CurrySyntax","Lhs") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]]],Type ("CurrySyntax","Lhs") Public [0] [Cons ("CurrySyntax","FunLhs") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","OpLhs") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","ApLhs") 2 Public [TCons ("CurrySyntax","Lhs") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]]],Type ("CurrySyntax","Rhs") Public [0] [Cons ("CurrySyntax","SimpleRhs") 3 Public [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]],Cons ("CurrySyntax","GuardedRhs") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","CondExpr") [TVar 0]],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]]],Type ("CurrySyntax","CondExpr") Public [0] [Cons ("CurrySyntax","CondExpr") 3 Public [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","Literal") Public [] [Cons ("CurrySyntax","Char") 1 Public [TCons ("Prelude","Char") []],Cons ("CurrySyntax","Int") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","Int") []],Cons ("CurrySyntax","Float") 1 Public [TCons ("Prelude","Float") []],Cons ("CurrySyntax","String") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CurrySyntax","ConstrTerm") Public [0] [Cons ("CurrySyntax","LiteralPattern") 1 Public [TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","NegativePattern") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","VariablePattern") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","ConstructorPattern") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","InfixPattern") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","QualIdent") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","ParenPattern") 1 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","TuplePattern") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","ListPattern") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","AsPattern") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","LazyPattern") 1 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","FunctionPattern") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","InfixFuncPattern") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","QualIdent") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","RecordPattern") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]]],Type ("CurrySyntax","Expression") Public [0] [Cons ("CurrySyntax","Literal") 1 Public [TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","Variable") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","Constructor") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","Paren") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Typed") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","Tuple") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Expression") [TVar 0]]],Cons ("CurrySyntax","List") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Expression") [TVar 0]]],Cons ("CurrySyntax","ListCompr") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Statement") [TVar 0]]],Cons ("CurrySyntax","EnumFrom") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromThen") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromTo") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromThenTo") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","UnaryMinus") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Apply") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","InfixApply") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","InfixOp") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","LeftSection") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","InfixOp") []],Cons ("CurrySyntax","RightSection") 2 Public [TCons ("CurrySyntax","InfixOp") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Lambda") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Let") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Do") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Statement") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","IfThenElse") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Case") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Alt") [TVar 0]]],Cons ("CurrySyntax","RecordConstr") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0]]]],Cons ("CurrySyntax","RecordSelection") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","RecordUpdate") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0]]],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","InfixOp") Public [] [Cons ("CurrySyntax","InfixOp") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","InfixConstr") 1 Public [TCons ("CurrySyntax","QualIdent") []]],Type ("CurrySyntax","Statement") Public [0] [Cons ("CurrySyntax","StmtExpr") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","StmtDecl") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]],Cons ("CurrySyntax","StmtBind") 2 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","Alt") Public [0] [Cons ("CurrySyntax","Alt") 3 Public [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]]],Type ("CurrySyntax","Field") Public [0,1] [Cons ("CurrySyntax","Field") 3 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TVar 1]]] [Func ("CurrySyntax","readCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])) (Rule [1] (Comb FuncCall ("CurrySyntax","readCurryWithParseOptions") [Var 1,Comb FuncCall ("Distribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Distribution","defaultParams") []]])),Func ("CurrySyntax","readCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CurrySyntax","stripSuffix") [],Var 1])] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("CurrySyntax","orElseDo") [Comb FuncCall ("CurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 2,Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("CurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 2,Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("CurrySyntax","readCurryFile") [Var 3]]))),Func ("CurrySyntax","readCurryWithParseOptions.parse.5") 3 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Distribution","callFrontendWithParams") [Comb ConsCall ("Distribution","CY") [],Var 1,Var 2],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","()") []]]])),Func ("CurrySyntax","readCurryWithParseOptions.parseCurry.5") 3 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CurrySyntax","absoluteFileName") [Comb FuncCall ("Prelude","++") [Var 2,Var 3]],Comb (FuncPartCall 1) ("Prelude","maybe") [Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []],Comb (FuncPartCall 1) ("CurrySyntax","readCurryWithParseOptions.parse.5") [Var 1,Var 2]]])),Func ("CurrySyntax","readCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("CurrySyntax","stripSuffix") [],Var 1])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("CurrySyntax","absoluteFileName") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]],Comb (FuncPartCall 1) ("CurrySyntax","readCurryFile._#lambda3") [Var 2]]))),Func ("CurrySyntax","readCurryFile.read.13") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("CurrySyntax","readCurryFile.read.13._#lambda2") []])),Func ("CurrySyntax","readCurryFile.read.13._#lambda2") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 48])) (Rule [1] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("ReadShowTerm","readUnqualifiedTerm") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("CurrySyntax","readCurryFile._#lambda3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TVar 49]))) (Rule [1,2] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb (FuncPartCall 1) ("CurrySyntax","readCurryFile.read.13") [],Var 2])),Func ("CurrySyntax","writeCurryModule") 1 Public (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("CurrySyntax","Module") [2,3,4]) (Comb FuncCall ("CurrySyntax","writeCurryFile") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]],Var 1])])),Func ("CurrySyntax","writeCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("ReadShowTerm","showTerm") [Var 2]])),Func ("CurrySyntax","absoluteFileName") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb FuncCall ("FileGoodies","baseName") [Var 1]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Distribution","lookupFileInLoadPath") [Var 1]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 1],Comb (FuncPartCall 1) ("CurrySyntax","absoluteFileName._#lambda4") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("CurrySyntax","absoluteFileName._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Case  Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","Just") [Var 1]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]])),Func ("CurrySyntax","orElseDo") 2 Private (FuncType (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]) (FuncType (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Var 1,Comb (FuncPartCall 1) ("Prelude","maybe") [Var 2,Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []]]])),Func ("CurrySyntax","stripSuffix") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","takeWhile") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  '.')]]))] []
+ src/lib/Curry/Module/.curry/CurrySyntax.fint view
@@ -0,0 +1,1 @@+Prog "CurrySyntax" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("CurrySyntax","Pos") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]),TypeSyn ("CurrySyntax","ModuleIdent") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]),Type ("CurrySyntax","Position") Public [] [Cons ("CurrySyntax","Position") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]],Type ("CurrySyntax","Ident") Public [] [Cons ("CurrySyntax","Ident") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Int") []]],Type ("CurrySyntax","QualIdent") Public [] [Cons ("CurrySyntax","UnqualIdent") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","QualIdent") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("CurrySyntax","Ident") []]],Type ("CurrySyntax","Module") Public [0] [Cons ("CurrySyntax","Module") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ExportSpec") [TVar 0]],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]]],Type ("CurrySyntax","ExportSpec") Public [0] [Cons ("CurrySyntax","Exporting") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Export") []]]],Type ("CurrySyntax","Export") Public [] [Cons ("CurrySyntax","Export") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","ExportTypeWith") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","ExportTypeAll") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","ExportModule") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CurrySyntax","ImportSpec") Public [0] [Cons ("CurrySyntax","Importing") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Import") []]],Cons ("CurrySyntax","Hiding") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Import") []]]],Type ("CurrySyntax","Import") Public [] [Cons ("CurrySyntax","Import") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","ImportTypeWith") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","ImportTypeAll") 1 Public [TCons ("CurrySyntax","Ident") []]],Type ("CurrySyntax","Decl") Public [0] [Cons ("CurrySyntax","ImportDecl") 5 Public [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") [],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ImportSpec") [TVar 0]]],Cons ("CurrySyntax","InfixDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Infix") [],TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","DataDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrDecl") [TVar 0]]],Cons ("CurrySyntax","NewtypeDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","NewConstrDecl") [TVar 0]],Cons ("CurrySyntax","TypeDecl") 4 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","TypeSig") 3 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","EvalAnnot") 3 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","EvalAnnotation") []],Cons ("CurrySyntax","FunctionDecl") 3 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","Equation") [TVar 0]]],Cons ("CurrySyntax","ExternalDecl") 5 Public [TVar 0,TCons ("CurrySyntax","CallConv") [],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","FlatExternalDecl") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]],Cons ("CurrySyntax","PatternDecl") 3 Public [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]],Cons ("CurrySyntax","ExtraVariables") 2 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []]]],Type ("CurrySyntax","ConstrDecl") Public [0] [Cons ("CurrySyntax","ConstrDecl") 4 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","ConOpDecl") 5 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") [],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []]],Type ("CurrySyntax","NewConstrDecl") Public [0] [Cons ("CurrySyntax","NewConstrDecl") 4 Public [TVar 0,TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","TypeExpr") []]],Type ("CurrySyntax","Infix") Public [] [Cons ("CurrySyntax","InfixL") 0 Public [],Cons ("CurrySyntax","InfixR") 0 Public [],Cons ("CurrySyntax","Infix") 0 Public []],Type ("CurrySyntax","EvalAnnotation") Public [] [Cons ("CurrySyntax","EvalRigid") 0 Public [],Cons ("CurrySyntax","EvalChoice") 0 Public []],Type ("CurrySyntax","CallConv") Public [] [Cons ("CurrySyntax","CallConvPrimitive") 0 Public [],Cons ("CurrySyntax","CallConvCCall") 0 Public []],Type ("CurrySyntax","TypeExpr") Public [] [Cons ("CurrySyntax","ConstructorType") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","VariableType") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","TupleType") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","TypeExpr") []]],Cons ("CurrySyntax","ListType") 1 Public [TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","ArrowType") 2 Public [TCons ("CurrySyntax","TypeExpr") [],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","RecordType") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurrySyntax","Ident") []],TCons ("CurrySyntax","TypeExpr") []]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","TypeExpr") []]]],Type ("CurrySyntax","Equation") Public [0] [Cons ("CurrySyntax","Equation") 3 Public [TVar 0,TCons ("CurrySyntax","Lhs") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]]],Type ("CurrySyntax","Lhs") Public [0] [Cons ("CurrySyntax","FunLhs") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","OpLhs") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","ApLhs") 2 Public [TCons ("CurrySyntax","Lhs") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]]],Type ("CurrySyntax","Rhs") Public [0] [Cons ("CurrySyntax","SimpleRhs") 3 Public [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]],Cons ("CurrySyntax","GuardedRhs") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","CondExpr") [TVar 0]],TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]]],Type ("CurrySyntax","CondExpr") Public [0] [Cons ("CurrySyntax","CondExpr") 3 Public [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","Literal") Public [] [Cons ("CurrySyntax","Char") 1 Public [TCons ("Prelude","Char") []],Cons ("CurrySyntax","Int") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("Prelude","Int") []],Cons ("CurrySyntax","Float") 1 Public [TCons ("Prelude","Float") []],Cons ("CurrySyntax","String") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("CurrySyntax","ConstrTerm") Public [0] [Cons ("CurrySyntax","LiteralPattern") 1 Public [TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","NegativePattern") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","VariablePattern") 1 Public [TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","ConstructorPattern") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","InfixPattern") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","QualIdent") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","ParenPattern") 1 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","TuplePattern") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","ListPattern") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","AsPattern") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","LazyPattern") 1 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","FunctionPattern") 2 Public [TCons ("CurrySyntax","QualIdent") [],TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],Cons ("CurrySyntax","InfixFuncPattern") 3 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","QualIdent") [],TCons ("CurrySyntax","ConstrTerm") [TVar 0]],Cons ("CurrySyntax","RecordPattern") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0]]],TCons ("Prelude","Maybe") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]]]],Type ("CurrySyntax","Expression") Public [0] [Cons ("CurrySyntax","Literal") 1 Public [TCons ("CurrySyntax","Literal") []],Cons ("CurrySyntax","Variable") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","Constructor") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","Paren") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Typed") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","TypeExpr") []],Cons ("CurrySyntax","Tuple") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Expression") [TVar 0]]],Cons ("CurrySyntax","List") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Expression") [TVar 0]]],Cons ("CurrySyntax","ListCompr") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Statement") [TVar 0]]],Cons ("CurrySyntax","EnumFrom") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromThen") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromTo") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","EnumFromThenTo") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","UnaryMinus") 2 Public [TCons ("CurrySyntax","Ident") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Apply") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","InfixApply") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","InfixOp") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","LeftSection") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","InfixOp") []],Cons ("CurrySyntax","RightSection") 2 Public [TCons ("CurrySyntax","InfixOp") [],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Lambda") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","ConstrTerm") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Let") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Do") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Statement") [TVar 0]],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","IfThenElse") 3 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","Case") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("Prelude","[]") [TCons ("CurrySyntax","Alt") [TVar 0]]],Cons ("CurrySyntax","RecordConstr") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0]]]],Cons ("CurrySyntax","RecordSelection") 2 Public [TCons ("CurrySyntax","Expression") [TVar 0],TCons ("CurrySyntax","Ident") []],Cons ("CurrySyntax","RecordUpdate") 2 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Field") [TVar 0,TCons ("CurrySyntax","Expression") [TVar 0]]],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","InfixOp") Public [] [Cons ("CurrySyntax","InfixOp") 1 Public [TCons ("CurrySyntax","QualIdent") []],Cons ("CurrySyntax","InfixConstr") 1 Public [TCons ("CurrySyntax","QualIdent") []]],Type ("CurrySyntax","Statement") Public [0] [Cons ("CurrySyntax","StmtExpr") 1 Public [TCons ("CurrySyntax","Expression") [TVar 0]],Cons ("CurrySyntax","StmtDecl") 1 Public [TCons ("Prelude","[]") [TCons ("CurrySyntax","Decl") [TVar 0]]],Cons ("CurrySyntax","StmtBind") 2 Public [TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Expression") [TVar 0]]],Type ("CurrySyntax","Alt") Public [0] [Cons ("CurrySyntax","Alt") 3 Public [TVar 0,TCons ("CurrySyntax","ConstrTerm") [TVar 0],TCons ("CurrySyntax","Rhs") [TVar 0]]],Type ("CurrySyntax","Field") Public [0,1] [Cons ("CurrySyntax","Field") 3 Public [TVar 0,TCons ("CurrySyntax","Ident") [],TVar 1]]] [Func ("CurrySyntax","readCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])) (Rule [] (Var 0)),Func ("CurrySyntax","readCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))) (Rule [] (Var 0)),Func ("CurrySyntax","readCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])) (Rule [] (Var 0)),Func ("CurrySyntax","writeCurryModule") 1 Public (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [] (Var 0)),Func ("CurrySyntax","writeCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/CurrySyntax.uacy view
@@ -0,0 +1,39 @@+CurryProg "CurrySyntax"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CTypeSyn ("CurrySyntax","Pos") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]),+  CType ("CurrySyntax","Position") Public [] [CCons ("CurrySyntax","Position") 3 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","Int") [],CTCons ("Prelude","Int") []]],+  CType ("CurrySyntax","Ident") Public [] [CCons ("CurrySyntax","Ident") 2 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","Int") []]],+  CType ("CurrySyntax","QualIdent") Public [] [CCons ("CurrySyntax","UnqualIdent") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","QualIdent") 2 Public [CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("CurrySyntax","Ident") []]],+  CTypeSyn ("CurrySyntax","ModuleIdent") Public [] (CTCons ("Prelude","String") []),+  CType ("CurrySyntax","Module") Public [(0,"a")] [CCons ("CurrySyntax","Module") 3 Public [CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ExportSpec") [CTVar (0,"a")]],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","ExportSpec") Public [(0,"a")] [CCons ("CurrySyntax","Exporting") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Export") []]]],+  CType ("CurrySyntax","Export") Public [] [CCons ("CurrySyntax","Export") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","ExportTypeWith") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","ExportTypeAll") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","ExportModule") 1 Public [CTCons ("CurrySyntax","ModuleIdent") []]],+  CType ("CurrySyntax","ImportSpec") Public [(0,"a")] [CCons ("CurrySyntax","Importing") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Import") []]],CCons ("CurrySyntax","Hiding") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Import") []]]],+  CType ("CurrySyntax","Import") Public [] [CCons ("CurrySyntax","Import") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","ImportTypeWith") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","ImportTypeAll") 1 Public [CTCons ("CurrySyntax","Ident") []]],+  CType ("CurrySyntax","Decl") Public [(0,"a")] [CCons ("CurrySyntax","ImportDecl") 5 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ModuleIdent") [],CTCons ("Prelude","Bool") [],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ModuleIdent") []],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ImportSpec") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Infix") [],CTCons ("Prelude","Int") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","DataDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrDecl") [CTVar (0,"a")]]],CCons ("CurrySyntax","NewtypeDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","NewConstrDecl") [CTVar (0,"a")]],CCons ("CurrySyntax","TypeDecl") 4 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","TypeSig") 3 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","EvalAnnot") 3 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","EvalAnnotation") []],CCons ("CurrySyntax","FunctionDecl") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Equation") [CTVar (0,"a")]]],CCons ("CurrySyntax","ExternalDecl") 5 Public [CTVar (0,"a"),CTCons ("CurrySyntax","CallConv") [],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","FlatExternalDecl") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]],CCons ("CurrySyntax","PatternDecl") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]],CCons ("CurrySyntax","ExtraVariables") 2 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []]]],+  CType ("CurrySyntax","ConstrDecl") Public [(0,"a")] [CCons ("CurrySyntax","ConstrDecl") 4 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","ConOpDecl") 5 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") [],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []]],+  CType ("CurrySyntax","NewConstrDecl") Public [(0,"a")] [CCons ("CurrySyntax","NewConstrDecl") 4 Public [CTVar (0,"a"),CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","TypeExpr") []]],+  CType ("CurrySyntax","Infix") Public [] [CCons ("CurrySyntax","InfixL") 0 Public [],CCons ("CurrySyntax","InfixR") 0 Public [],CCons ("CurrySyntax","Infix") 0 Public []],+  CType ("CurrySyntax","EvalAnnotation") Public [] [CCons ("CurrySyntax","EvalRigid") 0 Public [],CCons ("CurrySyntax","EvalChoice") 0 Public []],+  CType ("CurrySyntax","CallConv") Public [] [CCons ("CurrySyntax","CallConvPrimitive") 0 Public [],CCons ("CurrySyntax","CallConvCCall") 0 Public []],+  CType ("CurrySyntax","TypeExpr") Public [] [CCons ("CurrySyntax","ConstructorType") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","VariableType") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","TupleType") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","TypeExpr") []]],CCons ("CurrySyntax","ListType") 1 Public [CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","ArrowType") 2 Public [CTCons ("CurrySyntax","TypeExpr") [],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","RecordType") 2 Public [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Ident") []],CTCons ("CurrySyntax","TypeExpr") []]],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","TypeExpr") []]]],+  CType ("CurrySyntax","Equation") Public [(0,"a")] [CCons ("CurrySyntax","Equation") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Lhs") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Lhs") Public [(0,"a")] [CCons ("CurrySyntax","FunLhs") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","OpLhs") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","ApLhs") 2 Public [CTCons ("CurrySyntax","Lhs") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","Rhs") Public [(0,"a")] [CCons ("CurrySyntax","SimpleRhs") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]],CCons ("CurrySyntax","GuardedRhs") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","CondExpr") [CTVar (0,"a")]],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","CondExpr") Public [(0,"a")] [CCons ("CurrySyntax","CondExpr") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Literal") Public [] [CCons ("CurrySyntax","Char") 1 Public [CTCons ("Prelude","Char") []],CCons ("CurrySyntax","Int") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("Prelude","Int") []],CCons ("CurrySyntax","Float") 1 Public [CTCons ("Prelude","Float") []],CCons ("CurrySyntax","String") 1 Public [CTCons ("Prelude","String") []]],+  CType ("CurrySyntax","ConstrTerm") Public [(0,"a")] [CCons ("CurrySyntax","LiteralPattern") 1 Public [CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","NegativePattern") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","VariablePattern") 1 Public [CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","ConstructorPattern") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixPattern") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","QualIdent") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","ParenPattern") 1 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","TuplePattern") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","ListPattern") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","AsPattern") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","LazyPattern") 1 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","FunctionPattern") 2 Public [CTCons ("CurrySyntax","QualIdent") [],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CCons ("CurrySyntax","InfixFuncPattern") 3 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","QualIdent") [],CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CCons ("CurrySyntax","RecordPattern") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]],CTCons ("Prelude","Maybe") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]]]],+  CType ("CurrySyntax","Expression") Public [(0,"a")] [CCons ("CurrySyntax","Literal") 1 Public [CTCons ("CurrySyntax","Literal") []],CCons ("CurrySyntax","Variable") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","Constructor") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","Paren") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Typed") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","TypeExpr") []],CCons ("CurrySyntax","Tuple") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CCons ("CurrySyntax","List") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CCons ("CurrySyntax","ListCompr") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Statement") [CTVar (0,"a")]]],CCons ("CurrySyntax","EnumFrom") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromThen") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromTo") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","EnumFromThenTo") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","UnaryMinus") 2 Public [CTCons ("CurrySyntax","Ident") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Apply") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","InfixApply") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","InfixOp") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","LeftSection") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","InfixOp") []],CCons ("CurrySyntax","RightSection") 2 Public [CTCons ("CurrySyntax","InfixOp") [],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Lambda") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Let") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Do") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Statement") [CTVar (0,"a")]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","IfThenElse") 3 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","Case") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Alt") [CTVar (0,"a")]]],CCons ("CurrySyntax","RecordConstr") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]]],CCons ("CurrySyntax","RecordSelection") 2 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")],CTCons ("CurrySyntax","Ident") []],CCons ("CurrySyntax","RecordUpdate") 2 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Field") [CTVar (0,"a"),CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","InfixOp") Public [] [CCons ("CurrySyntax","InfixOp") 1 Public [CTCons ("CurrySyntax","QualIdent") []],CCons ("CurrySyntax","InfixConstr") 1 Public [CTCons ("CurrySyntax","QualIdent") []]],+  CType ("CurrySyntax","Statement") Public [(0,"a")] [CCons ("CurrySyntax","StmtExpr") 1 Public [CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]],CCons ("CurrySyntax","StmtDecl") 1 Public [CTCons ("Prelude","[]") [CTCons ("CurrySyntax","Decl") [CTVar (0,"a")]]],CCons ("CurrySyntax","StmtBind") 2 Public [CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Expression") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Alt") Public [(0,"a")] [CCons ("CurrySyntax","Alt") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","ConstrTerm") [CTVar (0,"a")],CTCons ("CurrySyntax","Rhs") [CTVar (0,"a")]]],+  CType ("CurrySyntax","Field") Public [(0,"a"),(1,"b")] [CCons ("CurrySyntax","Field") 3 Public [CTVar (0,"a"),CTCons ("CurrySyntax","Ident") [],CTVar (1,"b")]]]+ [CFunc ("CurrySyntax","absoluteFileName") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"name"))),CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CVar (0,"name"))),(CSymbol ("Prelude","otherwise"),CDoExpr [CSPat (CPVar (1,"exists")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"name"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exists"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"name")))) (CSymbol ("Prelude","Nothing"))))])] []]),+  CFunc ("CurrySyntax","orElseDo") 2 Private (CFuncType (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]) (CFuncType (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTVar (0,"a")]]))) (CRules CFlex [CRule [CPVar (0,"ioma"),CPVar (1,"ioa")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CVar (0,"ioma"))) (CApply (CApply (CSymbol ("Prelude","maybe")) (CVar (1,"ioa"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))] []]),+  CFunc ("CurrySyntax","readCurry") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("CurrySyntax","Pos") []]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurrySyntax","readCurryWithParseOptions")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("CurrySyntax","readCurryFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("CurrySyntax","Pos") []]])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filename")) (CApply (CSymbol ("CurrySyntax","absoluteFileName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CSymbol ("CurrySyntax","read"))) (CVar (2,"filename")))])] [CLocalPat (CPVar (1,"progname")) (CApply (CSymbol ("CurrySyntax","stripSuffix")) (CVar (0,"name"))) [],CLocalFunc (CFunc ("CurrySyntax","read") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (2,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (2,"filename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("ReadShowTerm","readUnqualifiedTerm")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]"))))) (CVar (3,"filecontents"))))])] []]))]]),+  CFunc ("CurrySyntax","readCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("CurrySyntax","Module") [CTCons ("CurrySyntax","Pos") []]]))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CApply (CSymbol ("CurrySyntax","orElseDo")) (CApply (CSymbol ("CurrySyntax","parseCurry")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("CurrySyntax","parseCurry")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CSymbol ("CurrySyntax","readCurryFile")) (CVar (2,"progname")))])] [CLocalPat (CPVar (2,"progname")) (CApply (CSymbol ("CurrySyntax","stripSuffix")) (CVar (0,"name"))) [],CLocalFunc (CFunc ("CurrySyntax","parseCurry") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"suffix")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("CurrySyntax","absoluteFileName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"progname"))) (CVar (3,"suffix"))))) (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CSymbol ("CurrySyntax","parse"))))] []])),CLocalFunc (CFunc ("CurrySyntax","parse") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","CY"))) (CVar (1,"options"))) (CVar (2,"progname")))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","()")))))] []]))]]),+  CFunc ("CurrySyntax","stripSuffix") 0 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","takeWhile")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (0,"x0"))) (CLit (CCharc '.')))))] []]),+  CFunc ("CurrySyntax","writeCurryFile") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("CurrySyntax","Module") [CTCons ("CurrySyntax","Pos") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"m")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"m"))))] []]),+  CFunc ("CurrySyntax","writeCurryModule") 1 Public (CFuncType (CTCons ("CurrySyntax","Module") [CTCons ("CurrySyntax","Pos") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPAs (3,"m") (CPComb ("CurrySyntax","Module") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("CurrySyntax","writeCurryFile")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CVar (3,"m")))] []])]+ []
+ src/lib/Curry/Module/.curry/Distribution.acy view
@@ -0,0 +1,39 @@+CurryProg "Distribution"+ ["Prelude","List","Char","System","IO","Directory","FileGoodies","PropertyFile"]+ [CType ("Distribution","FrontendTarget") Public [] [CCons ("Distribution","FCY") 0 Public [],CCons ("Distribution","FINT") 0 Public [],CCons ("Distribution","ACY") 0 Public [],CCons ("Distribution","UACY") 0 Public [],CCons ("Distribution","HTML") 0 Public [],CCons ("Distribution","CY") 0 Public []],+  CType ("Distribution","FrontendParams") Public [] [CCons ("Distribution","FrontendParams") 4 Public [CTCons ("Prelude","Bool") [],CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]]]]+ [CFunc ("Distribution","addCurrySubdir") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"dir")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"dir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Distribution","currySubdir"))))] []]),+  CFunc ("Distribution","callFrontend") 1 Public (CFuncType (CTCons ("Distribution","FrontendTarget") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"target")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CVar (0,"target"))) (CSymbol ("Distribution","defaultParams")))] []]),+  CFunc ("Distribution","callFrontendWithParams") 3 Public (CFuncType (CTCons ("Distribution","FrontendTarget") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"target"),CPVar (1,"params"),CPVar (2,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (13,"parsecurry")) (CVar (4,"callParseCurry")),CSLet [CLocalPat (CPVar (14,"lf")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Distribution","logfile")) (CVar (1,"params")))) [],CLocalPat (CPVar (15,"syscall")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (13,"parsecurry"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Distribution","showFrontendTarget")) (CVar (0,"target")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"showFrontendParams"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CVar (2,"progname"))))))) []],CSExpr (CApply (CSymbol ("Prelude","print")) (CVar (15,"syscall"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (14,"lf")))) (CApply (CSymbol ("System","system")) (CVar (15,"syscall")))) (CApply (CSymbol ("System","system")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (15,"syscall"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (14,"lf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '2'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CSymbol ("Prelude","[]")))))))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","()")))])] [CLocalPat (CPVar (3,"isPakcs")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","True"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))) [],CLocalPat (CPVar (4,"callParseCurry")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"isPakcs"))) (CDoExpr [CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))))))))))])) (CDoExpr [CSPat (CPVar (7,"path")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Distribution","getLoadPath"))) (CSymbol ("Prelude","return"))) (CApply (CSymbol ("Distribution","fullPath")) (CVar (1,"params")))),CSPat (CPVar (8,"frontend")) (CSymbol ("Distribution","getFrontendCall")),CSLet [CLocalPat (CPVar (9,"call")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"frontend"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (10,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CSymbol ("Prelude","[]")))))) (CVar (10,"x0"))))) (CVar (7,"path")))) []],CSExpr (CApply (CSymbol ("Prelude","print")) (CVar (9,"call"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CVar (9,"call")))])) [],CLocalFunc (CFunc ("Distribution","showFrontendTarget") 1 Private (CFuncType (CTCons ("Distribution","FrontendTarget") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Distribution","FCY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","FINT") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","ACY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("Distribution","UACY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","HTML") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","CY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))))] []])),CLocalPat (CPVar (5,"showFrontendParams")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Distribution","quiet")) (CVar (1,"params")))) (CVar (6,"runQuiet"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CLambda [CPVar (11,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CVar (11,"x0"))))) (CApply (CSymbol ("Distribution","outfile")) (CVar (1,"params"))))) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CLambda [CPVar (12,"p")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CVar (12,"p"))))))) (CApply (CSymbol ("Distribution","fullPath")) (CVar (1,"params")))))) [],CLocalPat (CPVar (6,"runQuiet")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"isPakcs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))) []]]),+  CFunc ("Distribution","curryCompiler") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CExternal "curryCompiler"),+  CFunc ("Distribution","curryCompilerMajorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryCompilerMajorVersion"),+  CFunc ("Distribution","curryCompilerMinorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryCompilerMinorVersion"),+  CFunc ("Distribution","curryRuntime") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CExternal "curryRuntime"),+  CFunc ("Distribution","curryRuntimeMajorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryRuntimeMajorVersion"),+  CFunc ("Distribution","curryRuntimeMinorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryRuntimeMinorVersion"),+  CFunc ("Distribution","currySubdir") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("Distribution","defaultParams") 0 Public (CTCons ("Distribution","FrontendParams") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CSymbol ("Prelude","False"))) (CSymbol ("Prelude","Nothing"))) (CSymbol ("Prelude","Nothing"))) (CSymbol ("Prelude","Nothing")))] []]),+  CFunc ("Distribution","findFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("FileGoodies","getFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",":")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("Distribution","fullPath") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"x"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"x"))] []]),+  CFunc ("Distribution","getFrontendCall") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CExternal "getFrontendCall"),+  CFunc ("Distribution","getLoadPath") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("Distribution","getLoadPathForFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"syslib")) (CSymbol ("Distribution","getSysLibPath")),CSPat (CPVar (4,"mblib")) (CApply (CSymbol ("Distribution","getRcVar")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))),CSLet [CLocalPat (CPVar (5,"fileDir")) (CApply (CSymbol ("FileGoodies","dirName")) (CVar (0,"file"))) []],CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CDoExpr [CSPat (CPVar (6,"currypath")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'U'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CSymbol ("Prelude","[]")))))))))))),CSLet [CLocalPat (CPVar (7,"llib")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CSymbol ("FileGoodies","splitPath"))) (CVar (4,"mblib"))) []],CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CVar (1,"addCurrySubdirs")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"fileDir"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (6,"currypath")))) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("FileGoodies","splitPath")) (CVar (6,"currypath"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"llib"))) (CVar (3,"syslib")))))))])) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))])] [CLocalPat (CPVar (1,"addCurrySubdirs")) (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (2,"d")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"d"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Distribution","addCurrySubdir")) (CVar (2,"d")))) (CSymbol ("Prelude","[]")))))) []]]),+  CFunc ("Distribution","getRcVar") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPVar (0,"var")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getRcVars")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"var"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","head"))))] []]),+  CFunc ("Distribution","getRcVars") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]])) (CRules CFlex [CRule [CPVar (0,"vars")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"rcs")) (CSymbol ("Distribution","rcFileContents")),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","lookup"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (2,"a"),CPVar (3,"b")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("Char","toLower"))) (CVar (2,"a")))) (CVar (3,"b"))))) (CVar (1,"rcs"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("Prelude","map")) (CSymbol ("Char","toLower")))) (CVar (0,"vars")))))])] []]),+  CFunc ("Distribution","getStdLibDir") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CExternal "getStdLibDir"),+  CFunc ("Distribution","getSysLibPath") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CDoExpr [CSPat (CPVar (0,"pakcspath")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CSymbol ("Prelude","[]"))))))))))))))),CSExpr (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","return"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (0,"pakcspath")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CSymbol ("Prelude","[]"))))))))))))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("FileGoodies","splitPath")) (CVar (0,"pakcspath")))))])) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("Distribution","getStdLibDir"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"x0"))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("Distribution","inCurrySubdir") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (1,"base"),CPVar (2,"file")]) (CApply (CSymbol ("FileGoodies","splitDirectoryBaseName")) (CVar (0,"filename"))) []] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"base"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","currySubdir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CVar (2,"file")))))))] []]),+  CFunc ("Distribution","installDir") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CExternal "installDir"),+  CFunc ("Distribution","logfile") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"x")]] [(CSymbol ("Prelude","success"),CVar (3,"x"))] []]),+  CFunc ("Distribution","lookupFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",":")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("Distribution","outfile") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"x"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"x"))] []]),+  CFunc ("Distribution","quiet") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"x"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"x"))] []]),+  CFunc ("Distribution","rcErr") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","IO") [CTVar (0,"a")]))) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"x")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CApply (CSymbol ("IO","hPutStrLn")) (CSymbol ("IO","stderr"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","return")) (CVar (1,"x"))))] []]),+  CFunc ("Distribution","rcFileContents") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("Distribution","rcFileName"))) (CSymbol ("PropertyFile","readPropertyFile")))] []]),+  CFunc ("Distribution","rcFileName") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"x0"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("Distribution","readFirstFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CVar (0,"fn")))) (CSymbol ("Prelude","readFile")))] []]),+  CFunc ("Distribution","setFullPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"_"),CPVar (3,"y"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s")))) (CVar (3,"y"))) (CVar (4,"z")))] []]),+  CFunc ("Distribution","setLogfile") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"y"),CPVar (3,"z"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CVar (2,"y"))) (CVar (3,"z"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s"))))] []]),+  CFunc ("Distribution","setOutfile") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"y"),CPVar (3,"_"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CVar (2,"y"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s")))) (CVar (4,"z")))] []]),+  CFunc ("Distribution","setQuiet") 2 Public (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"_"),CPVar (2,"x"),CPVar (3,"y"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (0,"s"))) (CVar (2,"x"))) (CVar (3,"y"))) (CVar (4,"z")))] []])]+ []
+ src/lib/Curry/Module/.curry/Distribution.cy view
@@ -0,0 +1,81 @@+Module "Distribution"+(Just (Exporting (11,21) [(Export (QualIdent Nothing (Ident "curryCompiler" 0))),(Export (QualIdent Nothing (Ident "curryCompilerMajorVersion" 0))),(Export (QualIdent Nothing (Ident "curryCompilerMinorVersion" 0))),(Export (QualIdent Nothing (Ident "curryRuntime" 0))),(Export (QualIdent Nothing (Ident "curryRuntimeMajorVersion" 0))),(Export (QualIdent Nothing (Ident "curryRuntimeMinorVersion" 0))),(Export (QualIdent Nothing (Ident "currySubdir" 0))),(Export (QualIdent Nothing (Ident "inCurrySubdir" 0))),(Export (QualIdent Nothing (Ident "addCurrySubdir" 0))),(Export (QualIdent Nothing (Ident "rcFileName" 0))),(Export (QualIdent Nothing (Ident "rcFileContents" 0))),(Export (QualIdent Nothing (Ident "getRcVar" 0))),(Export (QualIdent Nothing (Ident "getRcVars" 0))),(Export (QualIdent Nothing (Ident "findFileInLoadPath" 0))),(Export (QualIdent Nothing (Ident "lookupFileInLoadPath" 0))),(Export (QualIdent Nothing (Ident "readFirstFileInLoadPath" 0))),(Export (QualIdent Nothing (Ident "getLoadPath" 0))),(Export (QualIdent Nothing (Ident "getLoadPathForFile" 0))),(ExportTypeAll (QualIdent Nothing (Ident "FrontendTarget" 0))),(Export (QualIdent Nothing (Ident "FrontendParams" 0))),(Export (QualIdent Nothing (Ident "defaultParams" 0))),(Export (QualIdent Nothing (Ident "quiet" 0))),(Export (QualIdent Nothing (Ident "fullPath" 0))),(Export (QualIdent Nothing (Ident "outfile" 0))),(Export (QualIdent Nothing (Ident "logfile" 0))),(Export (QualIdent Nothing (Ident "setQuiet" 0))),(Export (QualIdent Nothing (Ident "setFullPath" 0))),(Export (QualIdent Nothing (Ident "setOutfile" 0))),(Export (QualIdent Nothing (Ident "setLogfile" 0))),(Export (QualIdent Nothing (Ident "callFrontend" 0))),(Export (QualIdent Nothing (Ident "callFrontendWithParams" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (30,1) "List" False Nothing (Just (Importing (30,12) [(Import (Ident "intersperse" 0))])))+,(ImportDecl (31,1) "Char" False Nothing (Just (Importing (31,12) [(Import (Ident "toLower" 0))])))+,(ImportDecl (32,1) "System" False Nothing Nothing)+,(ImportDecl (33,1) "IO" False Nothing Nothing)+,(ImportDecl (34,1) "Directory" False Nothing Nothing)+,(ImportDecl (35,1) "FileGoodies" False Nothing Nothing)+,(ImportDecl (36,1) "PropertyFile" False Nothing Nothing)+,(DataDecl (208,1) (Ident "FrontendTarget" 0) [] [(ConstrDecl (208,23) [] (Ident "FCY" 0) []),(ConstrDecl (208,29) [] (Ident "FINT" 0) []),(ConstrDecl (208,36) [] (Ident "ACY" 0) []),(ConstrDecl (208,42) [] (Ident "UACY" 0) []),(ConstrDecl (208,49) [] (Ident "HTML" 0) []),(ConstrDecl (208,56) [] (Ident "CY" 0) [])])+,(DataDecl (219,1) (Ident "FrontendParams" 0) [] [(ConstrDecl (220,3) [] (Ident "FrontendParams" 0) [(ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))]),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])])+,(TypeSig (50,1) [(Ident "curryCompiler" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FlatExternalDecl (51,1) [(Ident "curryCompiler" 0)])+,(TypeSig (54,1) [(Ident "curryCompilerMajorVersion" 0)] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(FlatExternalDecl (55,1) [(Ident "curryCompilerMajorVersion" 0)])+,(TypeSig (58,1) [(Ident "curryCompilerMinorVersion" 0)] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(FlatExternalDecl (59,1) [(Ident "curryCompilerMinorVersion" 0)])+,(TypeSig (62,1) [(Ident "curryRuntime" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FlatExternalDecl (63,1) [(Ident "curryRuntime" 0)])+,(TypeSig (66,1) [(Ident "curryRuntimeMajorVersion" 0)] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(FlatExternalDecl (67,1) [(Ident "curryRuntimeMajorVersion" 0)])+,(TypeSig (70,1) [(Ident "curryRuntimeMinorVersion" 0)] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(FlatExternalDecl (71,1) [(Ident "curryRuntimeMinorVersion" 0)])+,(TypeSig (80,1) [(Ident "rcFileName" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(FunctionDecl (81,1) (Ident "rcFileName" 0) [(Equation (81,1) (FunLhs (Ident "rcFileName" 0) []) (SimpleRhs (81,14) (InfixApply (Apply (Variable (QualIdent (Just "System") (Ident "getEnviron" 0))) (Literal (String "HOME"))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "/.")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "rc"))))))) []))])+,(TypeSig (85,1) [(Ident "rcFileContents" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))]))+,(FunctionDecl (86,1) (Ident "rcFileContents" 0) [(Equation (86,1) (FunLhs (Ident "rcFileContents" 0) []) (SimpleRhs (86,18) (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "rcFileName" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Variable (QualIdent (Just "PropertyFile") (Ident "readPropertyFile" 0)))) []))])+,(TypeSig (90,1) [(Ident "getRcVar" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])))+,(FunctionDecl (91,1) (Ident "getRcVar" 0) [(Equation (91,1) (FunLhs (Ident "getRcVar" 0) [(VariablePattern (Ident "var" 6))]) (SimpleRhs (91,16) (InfixApply (Apply (Variable (QualIdent (Just "Distribution") (Ident "getRcVars" 0))) (List [(Variable (QualIdent Nothing (Ident "var" 6)))])) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "head" 0))))) []))])+,(TypeSig (95,1) [(Ident "getRcVars" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))])))+,(FunctionDecl (96,1) (Ident "getRcVars" 0) [(Equation (96,1) (FunLhs (Ident "getRcVars" 0) [(VariablePattern (Ident "vars" 8))]) (SimpleRhs (96,18) (Do [(StmtBind (VariablePattern (Ident "rcs" 10)) (Variable (QualIdent (Just "Distribution") (Ident "rcFileContents" 0))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "flip" 0))) (Variable (QualIdent (Just "Prelude") (Ident "lookup" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "a" 11)),(VariablePattern (Ident "b" 11))])] (Tuple [(Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "Char") (Ident "toLower" 0)))) (Variable (QualIdent Nothing (Ident "a" 11)))),(Variable (QualIdent Nothing (Ident "b" 11)))])))) (Variable (QualIdent Nothing (Ident "rcs" 10)))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "Char") (Ident "toLower" 0)))))) (Variable (QualIdent Nothing (Ident "vars" 8))))))))) []))])+,(TypeSig (106,1) [(Ident "getStdLibDir" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(FlatExternalDecl (107,1) [(Ident "getStdLibDir" 0)])+,(TypeSig (110,1) [(Ident "getFrontendCall" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(FlatExternalDecl (111,1) [(Ident "getFrontendCall" 0)])+,(TypeSig (114,1) [(Ident "installDir" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FlatExternalDecl (115,1) [(Ident "installDir" 0)])+,(TypeSig (119,1) [(Ident "currySubdir" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FunctionDecl (120,1) (Ident "currySubdir" 0) [(Equation (120,1) (FunLhs (Ident "currySubdir" 0) []) (SimpleRhs (120,15) (Literal (String ".curry")) []))])+,(TypeSig (123,1) [(Ident "inCurrySubdir" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (124,1) (Ident "inCurrySubdir" 0) [(Equation (124,1) (FunLhs (Ident "inCurrySubdir" 0) [(VariablePattern (Ident "filename" 14))]) (SimpleRhs (125,3) (Let [(PatternDecl (125,7) (TuplePattern [(VariablePattern (Ident "base" 16)),(VariablePattern (Ident "file" 16))]) (SimpleRhs (125,21) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "splitDirectoryBaseName" 0))) (Variable (QualIdent Nothing (Ident "filename" 14)))) []))] (InfixApply (Variable (QualIdent Nothing (Ident "base" 16))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '/')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "currySubdir" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '/')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "file" 16)))))))) []))])+,(TypeSig (130,1) [(Ident "addCurrySubdir" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (131,1) (Ident "addCurrySubdir" 0) [(Equation (131,1) (FunLhs (Ident "addCurrySubdir" 0) [(VariablePattern (Ident "dir" 18))]) (SimpleRhs (131,22) (InfixApply (Variable (QualIdent Nothing (Ident "dir" 18))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (Char '/')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent (Just "Distribution") (Ident "currySubdir" 0))))) []))])+,(TypeSig (135,1) [(Ident "getSysLibPath" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))]))+,(FunctionDecl (136,1) (Ident "getSysLibPath" 0) [(Equation (136,1) (FunLhs (Ident "getSysLibPath" 0) []) (SimpleRhs (137,3) (IfThenElse (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "pakcs"))) (Do [(StmtBind (VariablePattern (Ident "pakcspath" 22)) (Apply (Variable (QualIdent (Just "System") (Ident "getEnviron" 0))) (Literal (String "PAKCSLIBPATH"))))] (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Paren (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "pakcspath" 22)))) (List [(InfixApply (Variable (QualIdent (Just "Distribution") (Ident "installDir" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "/lib"))),(InfixApply (Variable (QualIdent (Just "Distribution") (Ident "installDir" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "/lib/meta")))]) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "splitPath" 0))) (Variable (QualIdent Nothing (Ident "pakcspath" 22)))))))) (IfThenElse (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "kics"))) (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "getStdLibDir" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (RightSection (InfixConstr (QualIdent Nothing (Ident ":" 0))) (List [])))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "Distribution.getSysLibPath: unknown curryCompiler"))))) []))])+,(TypeSig (150,1) [(Ident "lookupFileInLoadPath" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])))+,(FunctionDecl (151,1) (Ident "lookupFileInLoadPath" 0) [(Equation (151,1) (FunLhs (Ident "lookupFileInLoadPath" 0) [(VariablePattern (Ident "fn" 23))]) (SimpleRhs (152,3) (InfixApply (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Variable (QualIdent Nothing (Ident "fn" 23)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Paren (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "fn" 23)))))) (List [(Literal (String ""))]))) []))])+,(TypeSig (156,1) [(Ident "findFileInLoadPath" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (157,1) (Ident "findFileInLoadPath" 0) [(Equation (157,1) (FunLhs (Ident "findFileInLoadPath" 0) [(VariablePattern (Ident "fn" 25))]) (SimpleRhs (158,3) (InfixApply (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Variable (QualIdent Nothing (Ident "fn" 25)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "getFileInPath" 0))) (Paren (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "fn" 25)))))) (List [(Literal (String ""))]))) []))])+,(TypeSig (162,1) [(Ident "readFirstFileInLoadPath" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (163,1) (Ident "readFirstFileInLoadPath" 0) [(Equation (163,1) (FunLhs (Ident "readFirstFileInLoadPath" 0) [(VariablePattern (Ident "fn" 27))]) (SimpleRhs (163,30) (InfixApply (Apply (Variable (QualIdent (Just "Distribution") (Ident "findFileInLoadPath" 0))) (Variable (QualIdent Nothing (Ident "fn" 27)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0)))) []))])+,(TypeSig (167,1) [(Ident "getLoadPath" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))]))+,(FunctionDecl (168,1) (Ident "getLoadPath" 0) [(Equation (168,1) (FunLhs (Ident "getLoadPath" 0) []) (SimpleRhs (168,15) (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Literal (String "xxx"))) []))])+,(TypeSig (177,1) [(Ident "getLoadPathForFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))])))+,(FunctionDecl (178,1) (Ident "getLoadPathForFile" 0) [(Equation (178,1) (FunLhs (Ident "getLoadPathForFile" 0) [(VariablePattern (Ident "file" 31))]) (SimpleRhs (178,27) (Do [(StmtBind (VariablePattern (Ident "syslib" 35)) (Variable (QualIdent (Just "Distribution") (Ident "getSysLibPath" 0)))),(StmtBind (VariablePattern (Ident "mblib" 36)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "getRcVar" 0))) (Literal (String "Libraries")))),(StmtDecl [(PatternDecl (181,7) (VariablePattern (Ident "fileDir" 37)) (SimpleRhs (181,17) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "dirName" 0))) (Variable (QualIdent Nothing (Ident "file" 31)))) []))])] (IfThenElse (InfixApply (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "pakcs"))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "kics")))) (Do [(StmtBind (VariablePattern (Ident "currypath" 39)) (Apply (Variable (QualIdent (Just "System") (Ident "getEnviron" 0))) (Literal (String "CURRYPATH")))),(StmtDecl [(PatternDecl (184,12) (VariablePattern (Ident "llib" 40)) (SimpleRhs (184,19) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (List [])) (Variable (QualIdent (Just "FileGoodies") (Ident "splitPath" 0)))) (Variable (QualIdent Nothing (Ident "mblib" 36)))) []))])] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "addCurrySubdirs" 32))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "fileDir" 37))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Paren (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "currypath" 39)))) (List []) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "splitPath" 0))) (Variable (QualIdent Nothing (Ident "currypath" 39)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "llib" 40))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "syslib" 35))))))))))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "Distribution.getLoadPathForFile: unknown curryCompiler"))))) [(PatternDecl (193,3) (VariablePattern (Ident "addCurrySubdirs" 32)) (SimpleRhs (193,21) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Lambda [(VariablePattern (Ident "d" 34))] (List [(Variable (QualIdent Nothing (Ident "d" 34))),(Apply (Variable (QualIdent (Just "Distribution") (Ident "addCurrySubdir" 0))) (Variable (QualIdent Nothing (Ident "d" 34))))])))) []))]))])+,(TypeSig (223,1) [(Ident "defaultParams" 0)] (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []))+,(FunctionDecl (224,1) (Ident "defaultParams" 0) [(Equation (224,1) (FunLhs (Ident "defaultParams" 0) []) (SimpleRhs (224,17) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "Distribution") (Ident "FrontendParams" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) []))])+,(TypeSig (227,1) [(Ident "setQuiet" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []))))+,(FunctionDecl (228,1) (Ident "setQuiet" 0) [(Equation (228,1) (FunLhs (Ident "setQuiet" 0) [(VariablePattern (Ident "s" 44)),(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "_" 45)),(VariablePattern (Ident "x" 44)),(VariablePattern (Ident "y" 44)),(VariablePattern (Ident "z" 44))]))]) (SimpleRhs (228,39) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "Distribution") (Ident "FrontendParams" 0))) (Variable (QualIdent Nothing (Ident "s" 44)))) (Variable (QualIdent Nothing (Ident "x" 44)))) (Variable (QualIdent Nothing (Ident "y" 44)))) (Variable (QualIdent Nothing (Ident "z" 44)))) []))])+,(TypeSig (233,1) [(Ident "setFullPath" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []))))+,(FunctionDecl (234,1) (Ident "setFullPath" 0) [(Equation (234,1) (FunLhs (Ident "setFullPath" 0) [(VariablePattern (Ident "s" 47)),(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "x" 47)),(VariablePattern (Ident "_" 48)),(VariablePattern (Ident "y" 47)),(VariablePattern (Ident "z" 47))]))]) (SimpleRhs (234,42) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "Distribution") (Ident "FrontendParams" 0))) (Variable (QualIdent Nothing (Ident "x" 47)))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Variable (QualIdent Nothing (Ident "s" 47)))))) (Variable (QualIdent Nothing (Ident "y" 47)))) (Variable (QualIdent Nothing (Ident "z" 47)))) []))])+,(TypeSig (238,1) [(Ident "setOutfile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []))))+,(FunctionDecl (239,1) (Ident "setOutfile" 0) [(Equation (239,1) (FunLhs (Ident "setOutfile" 0) [(VariablePattern (Ident "s" 50)),(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "x" 50)),(VariablePattern (Ident "y" 50)),(VariablePattern (Ident "_" 51)),(VariablePattern (Ident "z" 50))]))]) (SimpleRhs (239,42) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "Distribution") (Ident "FrontendParams" 0))) (Variable (QualIdent Nothing (Ident "x" 50)))) (Variable (QualIdent Nothing (Ident "y" 50)))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Variable (QualIdent Nothing (Ident "s" 50)))))) (Variable (QualIdent Nothing (Ident "z" 50)))) []))])+,(TypeSig (244,1) [(Ident "setLogfile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []))))+,(FunctionDecl (245,1) (Ident "setLogfile" 0) [(Equation (245,1) (FunLhs (Ident "setLogfile" 0) [(VariablePattern (Ident "s" 53)),(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "x" 53)),(VariablePattern (Ident "y" 53)),(VariablePattern (Ident "z" 53)),(VariablePattern (Ident "_" 54))]))]) (SimpleRhs (245,42) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "Distribution") (Ident "FrontendParams" 0))) (Variable (QualIdent Nothing (Ident "x" 53)))) (Variable (QualIdent Nothing (Ident "y" 53)))) (Variable (QualIdent Nothing (Ident "z" 53)))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Variable (QualIdent Nothing (Ident "s" 53)))))) []))])+,(TypeSig (248,1) [(Ident "quiet" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (249,1) (Ident "quiet" 0) [(Equation (249,1) (FunLhs (Ident "quiet" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "x" 56)),(VariablePattern (Ident "_" 57)),(VariablePattern (Ident "_" 58)),(VariablePattern (Ident "_" 59))]))]) (SimpleRhs (249,34) (Variable (QualIdent Nothing (Ident "x" 56))) []))])+,(TypeSig (252,1) [(Ident "fullPath" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))])))+,(FunctionDecl (253,1) (Ident "fullPath" 0) [(Equation (253,1) (FunLhs (Ident "fullPath" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "_" 62)),(VariablePattern (Ident "x" 61)),(VariablePattern (Ident "_" 63)),(VariablePattern (Ident "_" 64))]))]) (SimpleRhs (253,37) (Variable (QualIdent Nothing (Ident "x" 61))) []))])+,(TypeSig (256,1) [(Ident "outfile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (257,1) (Ident "outfile" 0) [(Equation (257,1) (FunLhs (Ident "outfile" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "_" 67)),(VariablePattern (Ident "_" 68)),(VariablePattern (Ident "x" 66)),(VariablePattern (Ident "_" 69))]))]) (SimpleRhs (257,37) (Variable (QualIdent Nothing (Ident "x" 66))) []))])+,(TypeSig (260,1) [(Ident "logfile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (261,1) (Ident "logfile" 0) [(Equation (261,1) (FunLhs (Ident "logfile" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "Distribution") (Ident "FrontendParams" 0)) [(VariablePattern (Ident "_" 72)),(VariablePattern (Ident "_" 73)),(VariablePattern (Ident "_" 74)),(VariablePattern (Ident "x" 71))]))]) (SimpleRhs (261,37) (Variable (QualIdent Nothing (Ident "x" 71))) []))])+,(TypeSig (267,1) [(Ident "callFrontend" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendTarget" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (268,1) (Ident "callFrontend" 0) [(Equation (268,1) (FunLhs (Ident "callFrontend" 0) [(VariablePattern (Ident "target" 76))]) (SimpleRhs (268,23) (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Variable (QualIdent Nothing (Ident "target" 76)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))) []))])+,(TypeSig (276,1) [(Ident "callFrontendWithParams" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendTarget" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))))+,(FunctionDecl (277,1) (Ident "callFrontendWithParams" 0) [(Equation (277,1) (FunLhs (Ident "callFrontendWithParams" 0) [(VariablePattern (Ident "target" 78)),(VariablePattern (Ident "params" 78)),(VariablePattern (Ident "progname" 78))]) (SimpleRhs (277,49) (Do [(StmtBind (VariablePattern (Ident "parsecurry" 101)) (Variable (QualIdent Nothing (Ident "callParseCurry" 79)))),(StmtDecl [(PatternDecl (279,7) (VariablePattern (Ident "lf" 102)) (SimpleRhs (279,17) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Literal (String ""))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Variable (QualIdent (Just "Distribution") (Ident "logfile" 0))) (Variable (QualIdent Nothing (Ident "params" 78)))))) [])),(PatternDecl (280,7) (VariablePattern (Ident "syscall" 102)) (SimpleRhs (280,17) (InfixApply (Variable (QualIdent Nothing (Ident "parsecurry" 101))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent Nothing (Ident "showFrontendTarget" 79))) (Variable (QualIdent Nothing (Ident "target" 78)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "showFrontendParams" 79))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "progname" 78)))))))) []))]),(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "print" 0))) (Variable (QualIdent Nothing (Ident "syscall" 102))))),(StmtExpr (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "lf" 102)))) (Apply (Variable (QualIdent (Just "System") (Ident "system" 0))) (Variable (QualIdent Nothing (Ident "syscall" 102)))) (Apply (Variable (QualIdent (Just "System") (Ident "system" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "syscall" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " > ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "lf" 102))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " 2>&1")))))))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Tuple []))) [(PatternDecl (289,4) (VariablePattern (Ident "isPakcs" 79)) (SimpleRhs (290,6) (IfThenElse (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "pakcs"))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) (IfThenElse (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "curryCompiler" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "kics"))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "Distribution.callFrontend: unknown curryCompiler"))))) [])),(PatternDecl (294,4) (VariablePattern (Ident "callParseCurry" 79)) (SimpleRhs (295,6) (IfThenElse (Variable (QualIdent Nothing (Ident "isPakcs" 79))) (Do [] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Distribution") (Ident "installDir" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "/bin/parsecurry")))))) (Do [(StmtBind (VariablePattern (Ident "path" 82)) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Variable (QualIdent (Just "Distribution") (Ident "getLoadPath" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "return" 0)))) (Paren (Apply (Variable (QualIdent (Just "Distribution") (Ident "fullPath" 0))) (Variable (QualIdent Nothing (Ident "params" 78))))))),(StmtBind (VariablePattern (Ident "frontend" 83)) (Variable (QualIdent (Just "Distribution") (Ident "getFrontendCall" 0)))),(StmtDecl [(PatternDecl (300,14) (VariablePattern (Ident "call" 84)) (SimpleRhs (300,21) (InfixApply (Variable (QualIdent Nothing (Ident "frontend" 83))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (LeftSection (Literal (String " -i")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))))) (Variable (QualIdent Nothing (Ident "path" 82))))) []))]),(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "print" 0))) (Variable (QualIdent Nothing (Ident "call" 84)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Variable (QualIdent Nothing (Ident "call" 84)))))) [])),(FunctionDecl (304,4) (Ident "showFrontendTarget" 79) [(Equation (304,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "FCY" 0)) [])]) (SimpleRhs (304,30) (Literal (String "--flat")) [])),(Equation (305,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "FINT" 0)) [])]) (SimpleRhs (305,30) (Literal (String "--flat")) [])),(Equation (306,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "ACY" 0)) [])]) (SimpleRhs (306,30) (Literal (String "--acy")) [])),(Equation (307,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "UACY" 0)) [])]) (SimpleRhs (307,30) (Literal (String "--uacy")) [])),(Equation (308,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "HTML" 0)) [])]) (SimpleRhs (308,30) (Literal (String "--html")) [])),(Equation (309,4) (FunLhs (Ident "showFrontendTarget" 79) [(ConstructorPattern (QualIdent (Just "Distribution") (Ident "CY" 0)) [])]) (SimpleRhs (309,30) (Literal (String "--parse-only")) []))]),(PatternDecl (311,4) (VariablePattern (Ident "showFrontendParams" 79)) (SimpleRhs (312,6) (InfixApply (Paren (IfThenElse (Apply (Variable (QualIdent (Just "Distribution") (Ident "quiet" 0))) (Variable (QualIdent Nothing (Ident "params" 78)))) (Variable (QualIdent Nothing (Ident "runQuiet" 79))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Literal (String ""))) (LeftSection (Literal (String " -o ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))))) (Paren (Apply (Variable (QualIdent (Just "Distribution") (Ident "outfile" 0))) (Variable (QualIdent Nothing (Ident "params" 78))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Literal (String ""))) (Paren (Lambda [(VariablePattern (Ident "p" 99))] (InfixApply (Literal (String " --fullpath ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ":"))) (Variable (QualIdent Nothing (Ident "p" 99)))))))))) (Paren (Apply (Variable (QualIdent (Just "Distribution") (Ident "fullPath" 0))) (Variable (QualIdent Nothing (Ident "params" 78))))))))) [])),(PatternDecl (317,4) (VariablePattern (Ident "runQuiet" 79)) (SimpleRhs (317,15) (IfThenElse (Variable (QualIdent Nothing (Ident "isPakcs" 79))) (Literal (String " --quiet ")) (Literal (String " --no-verb --no-warn --no-overlap-warn "))) []))]))])+,(TypeSig (320,1) [(Ident "rcErr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(VariableType (Ident "a" 0))]))))+,(FunctionDecl (321,1) (Ident "rcErr" 0) [(Equation (321,1) (FunLhs (Ident "rcErr" 0) [(VariablePattern (Ident "s" 105)),(VariablePattern (Ident "x" 105))]) (SimpleRhs (321,13) (InfixApply (Apply (Apply (Variable (QualIdent (Just "IO") (Ident "hPutStrLn" 0))) (Variable (QualIdent (Just "IO") (Ident "stderr" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "s" 105))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " undefined in rc file"))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Variable (QualIdent Nothing (Ident "x" 105))))) []))])+]
+ src/lib/Curry/Module/.curry/Distribution.efc view
@@ -0,0 +1,1 @@+Prog "Distribution" ["Char","FileGoodies","IO","List","Prelude","PropertyFile","System","Directory"] [Type ((Nothing,Nothing,"Distribution","FrontendTarget")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FCY")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FINT")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","ACY")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","UACY")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","HTML")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","CY")) 0 Public []],Type ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) 4 Private [TCons ((Nothing,Nothing,"Prelude","Bool")) [],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]]] [Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (External "Distribution.curryCompiler"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"Distribution","curryCompilerMajorVersion")) 0 Public (TCons ((Nothing,Nothing,"Prelude","Int")) []) (External "Distribution.curryCompilerMajorVersion"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"Distribution","curryCompilerMinorVersion")) 0 Public (TCons ((Nothing,Nothing,"Prelude","Int")) []) (External "Distribution.curryCompilerMinorVersion"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryRuntime")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (External "Distribution.curryRuntime"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"Distribution","curryRuntimeMajorVersion")) 0 Public (TCons ((Nothing,Nothing,"Prelude","Int")) []) (External "Distribution.curryRuntimeMajorVersion"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"Distribution","curryRuntimeMinorVersion")) 0 Public (TCons ((Nothing,Nothing,"Prelude","Int")) []) (External "Distribution.curryRuntimeMinorVersion"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","rcFileName")) 0 Public (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"System","getEnviron")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'H'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","return")) [],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","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))) (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","flip")) [Comb (FuncPartCall 2) ((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","++")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),"Distribution","rcFileContents")) 0 Public (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]]) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","rcFileName")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]])),"PropertyFile","readPropertyFile")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getRcVar")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]])),"Distribution","getRcVars")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","return")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","head")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]])),"Distribution","getRcVars")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]),"Distribution","rcFileContents")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"Distribution","getRcVars._#lambda2")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]]))),"Distribution","getRcVars._#lambda2")) 2 Private (FuncType (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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","map")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","lookup")) [],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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","map")) [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") []]])),"Distribution","getRcVars._#lambda2._#lambda3")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (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","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Char","toLower")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","getRcVars._#lambda2._#lambda3")) 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")) []]]) (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)] (Case  Flex (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))) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 4),3)]) (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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (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","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Char","toLower")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Var ((Just (TVar 4),3))])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","getStdLibDir")) 0 Private (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (External "Distribution.getStdLibDir"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","getFrontendCall")) 0 Private (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (External "Distribution.getFrontendCall"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","installDir")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (External "Distribution.installDir"),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","currySubdir")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) 1 Public (FuncType (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","Char") []]),1)] (Let [((Just (TVar 1),2),Comb FuncCall ((Nothing,Just (FuncType (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") []]])),"FileGoodies","splitDirectoryBaseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir._#selFP3#base")) [Var ((Just (TVar 1),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir._#selFP4#file")) [Var ((Just (TVar 1),2))])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","currySubdir")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir._#selFP3#base")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir._#selFP4#file")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","addCurrySubdir")) 1 Public (FuncType (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","Char") []]),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","currySubdir")) []]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Distribution","getSysLibPath")) 0 Private (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (Rule [] (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","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"System","getEnviron")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'K'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'B'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'H'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getSysLibPath._#lambda4")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","getStdLibDir")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","return")) [],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") []]]) (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") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude","flip")) [Comb (ConsPartCall 2) ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getSysLibPath._#lambda4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [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)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","return")) [],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]) [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 (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",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","installDir")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","installDir")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FileGoodies","splitPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","lookupFileInLoadPath")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FileGoodies","getFileInPath")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","readFirstFileInLoadPath")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) []])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Distribution","getLoadPath")) 0 Public (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [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)] (Let [((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),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 2]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","getLoadPathForFile._#lambda5")) []])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Distribution","getSysLibPath")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Distribution","getLoadPathForFile._#lambda6")) [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","Char") []]),1))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","getLoadPathForFile._#lambda5")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (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)] (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","addCurrySubdir")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]])),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"Distribution","getLoadPathForFile._#lambda6")) 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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])))) (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),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getRcVar")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))))),"Distribution","getLoadPathForFile._#lambda6._#lambda7")) [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)),Var ((Just (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") []]]),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))))),"Distribution","getLoadPathForFile._#lambda6._#lambda7")) 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","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (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","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]))))) (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),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","dirName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))])] (Case  Rigid (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"System","getEnviron")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'U'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'Y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'H'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))))),"Distribution","getLoadPathForFile._#lambda6._#lambda7._#lambda8")) [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)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]))),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [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,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))))),"Distribution","getLoadPathForFile._#lambda6._#lambda7._#lambda8")) 5 Private (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","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [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,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])))))) (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),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [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,"Prelude","Char") []]),5)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6),Comb FuncCall ((Nothing,Just (FuncType (TVar 5) (FuncType (FuncType (TVar 6) (TVar 5)) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 6]) (TVar 5)))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TVar 4),"Prelude","[]")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FileGoodies","splitPath")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","return")) [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") []]])),1)),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FileGoodies","splitPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))])],Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))]]]]]))),Func ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) 0 Public (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","Nothing")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setFullPath")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Prelude","Just")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setOutfile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","Just")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setLogfile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","Just")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Distribution","quiet")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","fullPath")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","outfile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","logfile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))))),"Distribution","FrontendParams")) [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Distribution","callFrontend")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendTarget")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1)),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendTarget")) []) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4),Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 18) (FuncType (TVar 18) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TVar 16) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 15) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]))),"Prelude",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (TVar 14) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 14]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 14]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TVar 12),"Prelude","[]")) []]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 24) (FuncType (TVar 24) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","curryCompiler")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 23) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]))),"Prelude",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (TVar 22) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 21) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TVar 20) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TVar 19),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 74)),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 61) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (TVar 60) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TVar 59) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 54) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 54]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 54]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 53) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 52) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TVar 51) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 51]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 51]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 50) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 49) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TVar 47) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 46) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TVar 45) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 44) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 44]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 44]))),"Prelude",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 42) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 39) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 38) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TVar 37) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TVar 36) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 35) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 34) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TVar 33) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]))),"Prelude",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TVar 30) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TVar 29) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TVar 27) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 26) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TVar 25),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 92) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 92])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Distribution","installDir")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TVar 84) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TVar 75),"Prelude","[]")) []]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TVar 96]) (FuncType (FuncType (TVar 96) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 97])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 97]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 94) (FuncType (FuncType (TVar 95) (TVar 94)) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 95]) (TVar 94)))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Distribution","getLoadPath")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 93) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 93])),"Prelude","return")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","fullPath")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","callFrontendWithParams._#lambda9")) []])])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 107) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 107]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 107]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 106) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 106]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 106]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 105) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 104) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]))),"Prelude",":")) [Lit (Charc  'q'),Comb ConsCall ((Nothing,Just (FuncType (TVar 103) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TVar 102) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 102]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 102]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TVar 101) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 100) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 100]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 100]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TVar 99) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TVar 98),"Prelude","[]")) []]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 147) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 146) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 145) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 145]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 145]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 144) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 144]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 144]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 143) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 142) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 141) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TVar 140) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 139) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 138) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TVar 137) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 136) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 135) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 134) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 133) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 133]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 133]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 132) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 131) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TVar 130) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 129) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 128) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 127) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 125) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 124) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 123) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 122) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 121) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 120) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TVar 119) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TVar 118) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 117) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TVar 116) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 115) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TVar 114) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 113) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TVar 112) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TVar 111) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TVar 110) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TVar 109) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TVar 108),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Distribution","quiet")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TVar 148),"Prelude","[]")) [])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 156) (FuncType (FuncType (TVar 157) (TVar 156)) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 157]) (TVar 156)))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TVar 149),"Prelude","[]")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 154) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 153) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 153]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 153]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 152) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 152]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 152]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TVar 151) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TVar 150),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","outfile")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))]],Comb FuncCall ((Nothing,Just (FuncType (TVar 159) (FuncType (FuncType (TVar 160) (TVar 159)) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 160]) (TVar 159)))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TVar 158),"Prelude","[]")) [],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") []])),"Distribution","callFrontendWithParams._#lambda11")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","fullPath")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2))]]]])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))))),"Distribution","callFrontendWithParams._#lambda12")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1))]])))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","callFrontendWithParams._#lambda9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Distribution","getFrontendCall")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Distribution","callFrontendWithParams._#lambda9._#lambda10")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Distribution","callFrontendWithParams._#lambda9._#lambda10")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 10) (TVar 11)) (FuncType (TVar 10) (TVar 11))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 8) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 6) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 6]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 5]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 5]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (TVar 3),"Prelude","[]")) []]]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))]])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","print")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","return")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","callFrontendWithParams.showFrontendTarget.79")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendTarget")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FCY")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FINT")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","ACY")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","UACY")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","HTML")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","CY")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]])])),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") []])),"Distribution","callFrontendWithParams._#lambda11")) 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")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))))),"Distribution","callFrontendWithParams._#lambda12")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendTarget")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])))))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),Comb FuncCall ((Nothing,Just (FuncType (TVar 10) (FuncType (FuncType (TVar 11) (TVar 10)) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 11]) (TVar 10)))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TVar 8),"Prelude","[]")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 9) (TVar 9)),"Prelude","id")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","logfile")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TVar 12),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","callFrontendWithParams.showFrontendTarget.79")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),4))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 15) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TVar 14),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]]]])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","print")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Int") []])),"System","system")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Int") []])),"System","system")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '2'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '1'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []]]])))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]))),"Distribution","rcErr")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 0]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TVar 0),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"IO","Handle") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"IO","hPutStrLn")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"IO","Handle") []),"IO","stderr")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"Prelude","return")) [Var ((Just (TVar 0),2))]]))] []
+ src/lib/Curry/Module/.curry/Distribution.fcy view
@@ -0,0 +1,1 @@+Prog "Distribution" ["Char","FileGoodies","IO","List","Prelude","PropertyFile","System","Directory"] [Type ("Distribution","FrontendTarget") Public [] [Cons ("Distribution","FCY") 0 Public [],Cons ("Distribution","FINT") 0 Public [],Cons ("Distribution","ACY") 0 Public [],Cons ("Distribution","UACY") 0 Public [],Cons ("Distribution","HTML") 0 Public [],Cons ("Distribution","CY") 0 Public []],Type ("Distribution","FrontendParams") Public [] [Cons ("Distribution","FrontendParams") 4 Private [TCons ("Prelude","Bool") [],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]] [Func ("Distribution","curryCompiler") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (External "Distribution.curryCompiler"),Func ("Distribution","curryCompilerMajorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryCompilerMajorVersion"),Func ("Distribution","curryCompilerMinorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryCompilerMinorVersion"),Func ("Distribution","curryRuntime") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (External "Distribution.curryRuntime"),Func ("Distribution","curryRuntimeMajorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryRuntimeMajorVersion"),Func ("Distribution","curryRuntimeMinorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryRuntimeMinorVersion"),Func ("Distribution","rcFileName") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (Rule [] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("System","getEnviron") [Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","++") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("Distribution","rcFileContents") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (Rule [] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","rcFileName") [],Comb (FuncPartCall 1) ("PropertyFile","readPropertyFile") []])),Func ("Distribution","getRcVar") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getRcVars") [Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("Prelude","head") []]])),Func ("Distribution","getRcVars") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","rcFileContents") [],Comb (FuncPartCall 1) ("Distribution","getRcVars._#lambda2") [Var 1]])),Func ("Distribution","getRcVars._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","lookup") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Distribution","getRcVars._#lambda2._#lambda3") [],Var 2]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("Char","toLower") []],Var 1]]])),Func ("Distribution","getRcVars._#lambda2._#lambda3") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Char","toLower") [],Var 2],Var 3])])),Func ("Distribution","getStdLibDir") 0 Private (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (External "Distribution.getStdLibDir"),Func ("Distribution","getFrontendCall") 0 Private (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (External "Distribution.getFrontendCall"),Func ("Distribution","installDir") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (External "Distribution.installDir"),Func ("Distribution","currySubdir") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("Distribution","inCurrySubdir") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Let [(2,Comb FuncCall ("FileGoodies","splitDirectoryBaseName") [Var 1])] (Let [(3,Comb FuncCall ("Distribution","inCurrySubdir._#selFP3#base") [Var 2])] (Let [(4,Comb FuncCall ("Distribution","inCurrySubdir._#selFP4#file") [Var 2])] (Comb FuncCall ("Prelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","currySubdir") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Var 4]]]]))))),Func ("Distribution","inCurrySubdir._#selFP3#base") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Distribution","inCurrySubdir._#selFP4#file") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Distribution","addCurrySubdir") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb FuncCall ("Distribution","currySubdir") []]])),Func ("Distribution","getSysLibPath") 0 Private (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("System","getEnviron") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'K'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'B'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb (FuncPartCall 1) ("Distribution","getSysLibPath._#lambda4") []]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getStdLibDir") [],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (ConsPartCall 2) ("Prelude",":") [],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])),Func ("Distribution","getSysLibPath._#lambda4") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","return") [],Case  Rigid (Comb FuncCall ("Prelude","null") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","installDir") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","installDir") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("FileGoodies","splitPath") [Var 1])]])),Func ("Distribution","lookupFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getLoadPathForFile") [Var 1],Comb (FuncPartCall 1) ("FileGoodies","lookupFileInPath") [Comb FuncCall ("FileGoodies","baseName") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]])),Func ("Distribution","findFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getLoadPathForFile") [Var 1],Comb (FuncPartCall 1) ("FileGoodies","getFileInPath") [Comb FuncCall ("FileGoodies","baseName") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]])),Func ("Distribution","readFirstFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","findFileInLoadPath") [Var 1],Comb (FuncPartCall 1) ("Prelude","readFile") []])),Func ("Distribution","getLoadPath") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Comb FuncCall ("Distribution","getLoadPathForFile") [Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("Distribution","getLoadPathForFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("Distribution","getLoadPathForFile._#lambda5") []])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getSysLibPath") [],Comb (FuncPartCall 1) ("Distribution","getLoadPathForFile._#lambda6") [Var 2,Var 1]]))),Func ("Distribution","getLoadPathForFile._#lambda5") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("Distribution","addCurrySubdir") [Var 1],Comb ConsCall ("Prelude","[]") []]])),Func ("Distribution","getLoadPathForFile._#lambda6") 3 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getRcVar") [Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb (FuncPartCall 1) ("Distribution","getLoadPathForFile._#lambda6._#lambda7") [Var 1,Var 2,Var 3]])),Func ("Distribution","getLoadPathForFile._#lambda6._#lambda7") 4 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("FileGoodies","dirName") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("System","getEnviron") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'U'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'Y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb (FuncPartCall 1) ("Distribution","getLoadPathForFile._#lambda6._#lambda7._#lambda8") [Var 1,Var 5,Var 4,Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]))),Func ("Distribution","getLoadPathForFile._#lambda6._#lambda7._#lambda8") 5 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))) (Rule [1,2,3,4,5] (Let [(6,Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 1) ("FileGoodies","splitPath") [],Var 3])] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","null") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("FileGoodies","splitPath") [Var 5])],Comb FuncCall ("Prelude","++") [Var 6,Var 4]]]]]))),Func ("Distribution","defaultParams") 0 Public (TCons ("Distribution","FrontendParams") []) (Rule [] (Comb ConsCall ("Distribution","FrontendParams") [Comb ConsCall ("Prelude","False") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") []])),Func ("Distribution","setQuiet") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb ConsCall ("Distribution","FrontendParams") [Var 1,Var 4,Var 5,Var 6])])),Func ("Distribution","setFullPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb ConsCall ("Distribution","FrontendParams") [Var 3,Comb ConsCall ("Prelude","Just") [Var 1],Var 5,Var 6])])),Func ("Distribution","setOutfile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb ConsCall ("Distribution","FrontendParams") [Var 3,Var 4,Comb ConsCall ("Prelude","Just") [Var 1],Var 6])])),Func ("Distribution","setLogfile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb ConsCall ("Distribution","FrontendParams") [Var 3,Var 4,Var 5,Comb ConsCall ("Prelude","Just") [Var 1]])])),Func ("Distribution","quiet") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Distribution","FrontendParams") [2,3,4,5]) (Var 2)])),Func ("Distribution","fullPath") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Distribution","FrontendParams") [2,3,4,5]) (Var 3)])),Func ("Distribution","outfile") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Distribution","FrontendParams") [2,3,4,5]) (Var 4)])),Func ("Distribution","logfile") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Distribution","FrontendParams") [2,3,4,5]) (Var 5)])),Func ("Distribution","callFrontend") 1 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1] (Comb (FuncPartCall 1) ("Distribution","callFrontendWithParams") [Var 1,Comb FuncCall ("Distribution","defaultParams") []])),Func ("Distribution","callFrontendWithParams") 3 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1,2,3] (Let [(4,Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Distribution","curryCompiler") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])] (Let [(5,Case  Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","installDir") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Distribution","getLoadPath") [],Comb (FuncPartCall 1) ("Prelude","return") [],Comb FuncCall ("Distribution","fullPath") [Var 2]],Comb (FuncPartCall 1) ("Distribution","callFrontendWithParams._#lambda9") []])])] (Let [(6,Case  Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'q'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])] (Let [(7,Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Distribution","quiet") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Var 6),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Distribution","outfile") [Var 2]],Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 1) ("Distribution","callFrontendWithParams._#lambda11") [],Comb FuncCall ("Distribution","fullPath") [Var 2]]]])] (Comb FuncCall ("Prelude",">>=") [Var 5,Comb (FuncPartCall 1) ("Distribution","callFrontendWithParams._#lambda12") [Var 2,Var 3,Var 7,Var 1]])))))),Func ("Distribution","callFrontendWithParams._#lambda9") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getFrontendCall") [],Comb (FuncPartCall 1) ("Distribution","callFrontendWithParams._#lambda9._#lambda10") [Var 1]])),Func ("Distribution","callFrontendWithParams._#lambda9._#lambda10") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","++") [Var 2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude","[]") []]]]]],Var 1]])] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","print") [Var 3],Comb FuncCall ("Prelude","return") [Var 3]]))),Func ("Distribution","callFrontendWithParams.showFrontendTarget.79") 1 Private (FuncType (TCons ("Distribution","FrontendTarget") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Distribution","FCY") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Distribution","FINT") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Distribution","ACY") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Distribution","UACY") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Distribution","HTML") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Distribution","CY") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]])])),Func ("Distribution","callFrontendWithParams._#lambda11") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Var 1]]])),Func ("Distribution","callFrontendWithParams._#lambda12") 5 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1,2,3,4,5] (Let [(6,Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("Distribution","logfile") [Var 1]])] (Let [(7,Comb FuncCall ("Prelude","++") [Var 5,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Distribution","callFrontendWithParams.showFrontendTarget.79") [Var 4],Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Var 2]]]]])] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","print") [Var 7],Comb FuncCall ("Prelude",">>") [Case  Rigid (Comb FuncCall ("Prelude","null") [Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("System","system") [Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("System","system") [Comb FuncCall ("Prelude","++") [Var 7,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '2'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '1'),Comb ConsCall ("Prelude","[]") []]]]]]]]]])],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","()") []]]])))),Func ("Distribution","rcErr") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (TCons ("Prelude","IO") [TVar 0]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("IO","hPutStrLn") [Comb FuncCall ("IO","stderr") [],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","return") [Var 2]]))] []
+ src/lib/Curry/Module/.curry/Distribution.fint view
@@ -0,0 +1,1 @@+Prog "Distribution" ["Char","FileGoodies","IO","List","Prelude","PropertyFile","System","Directory"] [Type ("Distribution","FrontendTarget") Public [] [Cons ("Distribution","FCY") 0 Public [],Cons ("Distribution","FINT") 0 Public [],Cons ("Distribution","ACY") 0 Public [],Cons ("Distribution","UACY") 0 Public [],Cons ("Distribution","HTML") 0 Public [],Cons ("Distribution","CY") 0 Public []],Type ("Distribution","FrontendParams") Public [] []] [Func ("Distribution","curryCompiler") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (External "Distribution.curryCompiler"),Func ("Distribution","curryCompilerMajorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryCompilerMajorVersion"),Func ("Distribution","curryCompilerMinorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryCompilerMinorVersion"),Func ("Distribution","curryRuntime") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (External "Distribution.curryRuntime"),Func ("Distribution","curryRuntimeMajorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryRuntimeMajorVersion"),Func ("Distribution","curryRuntimeMinorVersion") 0 Public (TCons ("Prelude","Int") []) (External "Distribution.curryRuntimeMinorVersion"),Func ("Distribution","rcFileName") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (Rule [] (Var 0)),Func ("Distribution","rcFileContents") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (Rule [] (Var 0)),Func ("Distribution","getRcVar") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [] (Var 0)),Func ("Distribution","getRcVars") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])) (Rule [] (Var 0)),Func ("Distribution","currySubdir") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Var 0)),Func ("Distribution","inCurrySubdir") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("Distribution","addCurrySubdir") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("Distribution","lookupFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [] (Var 0)),Func ("Distribution","findFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("Distribution","readFirstFileInLoadPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("Distribution","getLoadPath") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Var 0)),Func ("Distribution","getLoadPathForFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [] (Var 0)),Func ("Distribution","defaultParams") 0 Public (TCons ("Distribution","FrontendParams") []) (Rule [] (Var 0)),Func ("Distribution","setQuiet") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [] (Var 0)),Func ("Distribution","setFullPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [] (Var 0)),Func ("Distribution","setOutfile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [] (Var 0)),Func ("Distribution","setLogfile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Distribution","FrontendParams") []))) (Rule [] (Var 0)),Func ("Distribution","quiet") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("Distribution","fullPath") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [] (Var 0)),Func ("Distribution","outfile") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("Distribution","logfile") 1 Public (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("Distribution","callFrontend") 1 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0)),Func ("Distribution","callFrontendWithParams") 3 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/Distribution.uacy view
@@ -0,0 +1,39 @@+CurryProg "Distribution"+ ["Prelude","List","Char","System","IO","Directory","FileGoodies","PropertyFile"]+ [CType ("Distribution","FrontendTarget") Public [] [CCons ("Distribution","FCY") 0 Public [],CCons ("Distribution","FINT") 0 Public [],CCons ("Distribution","ACY") 0 Public [],CCons ("Distribution","UACY") 0 Public [],CCons ("Distribution","HTML") 0 Public [],CCons ("Distribution","CY") 0 Public []],+  CType ("Distribution","FrontendParams") Public [] [CCons ("Distribution","FrontendParams") 4 Public [CTCons ("Prelude","Bool") [],CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []],CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]]]]+ [CFunc ("Distribution","addCurrySubdir") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"dir")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"dir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Distribution","currySubdir"))))] []]),+  CFunc ("Distribution","callFrontend") 1 Public (CFuncType (CTCons ("Distribution","FrontendTarget") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"target")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CVar (0,"target"))) (CSymbol ("Distribution","defaultParams")))] []]),+  CFunc ("Distribution","callFrontendWithParams") 3 Public (CFuncType (CTCons ("Distribution","FrontendTarget") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"target"),CPVar (1,"params"),CPVar (2,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (13,"parsecurry")) (CVar (4,"callParseCurry")),CSLet [CLocalPat (CPVar (14,"lf")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Distribution","logfile")) (CVar (1,"params")))) [],CLocalPat (CPVar (15,"syscall")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (13,"parsecurry"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Distribution","showFrontendTarget")) (CVar (0,"target")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"showFrontendParams"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CVar (2,"progname"))))))) []],CSExpr (CApply (CSymbol ("Prelude","print")) (CVar (15,"syscall"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (14,"lf")))) (CApply (CSymbol ("System","system")) (CVar (15,"syscall")))) (CApply (CSymbol ("System","system")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (15,"syscall"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (14,"lf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '2'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CSymbol ("Prelude","[]")))))))))))),CSExpr (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","()")))])] [CLocalPat (CPVar (3,"isPakcs")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","True"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))) [],CLocalPat (CPVar (4,"callParseCurry")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"isPakcs"))) (CDoExpr [CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))))))))))))])) (CDoExpr [CSPat (CPVar (7,"path")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Distribution","getLoadPath"))) (CSymbol ("Prelude","return"))) (CApply (CSymbol ("Distribution","fullPath")) (CVar (1,"params")))),CSPat (CPVar (8,"frontend")) (CSymbol ("Distribution","getFrontendCall")),CSLet [CLocalPat (CPVar (9,"call")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"frontend"))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (10,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CSymbol ("Prelude","[]")))))) (CVar (10,"x0"))))) (CVar (7,"path")))) []],CSExpr (CApply (CSymbol ("Prelude","print")) (CVar (9,"call"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CVar (9,"call")))])) [],CLocalFunc (CFunc ("Distribution","showFrontendTarget") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Distribution","FCY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","FINT") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","ACY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("Distribution","UACY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","HTML") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("Distribution","CY") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))))] []])),CLocalPat (CPVar (5,"showFrontendParams")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Distribution","quiet")) (CVar (1,"params")))) (CVar (6,"runQuiet"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CLambda [CPVar (11,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CVar (11,"x0"))))) (CApply (CSymbol ("Distribution","outfile")) (CVar (1,"params"))))) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CLambda [CPVar (12,"p")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))) (CVar (12,"p"))))))) (CApply (CSymbol ("Distribution","fullPath")) (CVar (1,"params")))))) [],CLocalPat (CPVar (6,"runQuiet")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"isPakcs"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))) []]]),+  CFunc ("Distribution","curryCompiler") 0 Public (CTCons ("Prelude","String") []) (CExternal "curryCompiler"),+  CFunc ("Distribution","curryCompilerMajorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryCompilerMajorVersion"),+  CFunc ("Distribution","curryCompilerMinorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryCompilerMinorVersion"),+  CFunc ("Distribution","curryRuntime") 0 Public (CTCons ("Prelude","String") []) (CExternal "curryRuntime"),+  CFunc ("Distribution","curryRuntimeMajorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryRuntimeMajorVersion"),+  CFunc ("Distribution","curryRuntimeMinorVersion") 0 Public (CTCons ("Prelude","Int") []) (CExternal "curryRuntimeMinorVersion"),+  CFunc ("Distribution","currySubdir") 0 Public (CTCons ("Prelude","String") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("Distribution","defaultParams") 0 Public (CTCons ("Distribution","FrontendParams") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CSymbol ("Prelude","False"))) (CSymbol ("Prelude","Nothing"))) (CSymbol ("Prelude","Nothing"))) (CSymbol ("Prelude","Nothing")))] []]),+  CFunc ("Distribution","findFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("FileGoodies","getFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",":")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("Distribution","fullPath") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"x"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"x"))] []]),+  CFunc ("Distribution","getFrontendCall") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","String") []]) (CExternal "getFrontendCall"),+  CFunc ("Distribution","getLoadPath") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("Distribution","getLoadPathForFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"syslib")) (CSymbol ("Distribution","getSysLibPath")),CSPat (CPVar (4,"mblib")) (CApply (CSymbol ("Distribution","getRcVar")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))),CSLet [CLocalPat (CPVar (5,"fileDir")) (CApply (CSymbol ("FileGoodies","dirName")) (CVar (0,"file"))) []],CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CDoExpr [CSPat (CPVar (6,"currypath")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'U'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CSymbol ("Prelude","[]")))))))))))),CSLet [CLocalPat (CPVar (7,"llib")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","[]"))) (CSymbol ("FileGoodies","splitPath"))) (CVar (4,"mblib"))) []],CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CVar (1,"addCurrySubdirs")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"fileDir"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (6,"currypath")))) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("FileGoodies","splitPath")) (CVar (6,"currypath"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (7,"llib"))) (CVar (3,"syslib")))))))])) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))])] [CLocalPat (CPVar (1,"addCurrySubdirs")) (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (2,"d")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"d"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Distribution","addCurrySubdir")) (CVar (2,"d")))) (CSymbol ("Prelude","[]")))))) []]]),+  CFunc ("Distribution","getRcVar") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]])) (CRules CFlex [CRule [CPVar (0,"var")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getRcVars")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"var"))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","head"))))] []]),+  CFunc ("Distribution","getRcVars") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]]])) (CRules CFlex [CRule [CPVar (0,"vars")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"rcs")) (CSymbol ("Distribution","rcFileContents")),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","lookup"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (2,"a"),CPVar (3,"b")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("Char","toLower"))) (CVar (2,"a")))) (CVar (3,"b"))))) (CVar (1,"rcs"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("Prelude","map")) (CSymbol ("Char","toLower")))) (CVar (0,"vars")))))])] []]),+  CFunc ("Distribution","getStdLibDir") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","String") []]) (CExternal "getStdLibDir"),+  CFunc ("Distribution","getSysLibPath") 0 Private (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CDoExpr [CSPat (CPVar (0,"pakcspath")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'K'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CSymbol ("Prelude","[]"))))))))))))))),CSExpr (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","return"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (0,"pakcspath")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","installDir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CSymbol ("Prelude","[]"))))))))))))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("FileGoodies","splitPath")) (CVar (0,"pakcspath")))))])) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("Distribution","getStdLibDir"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"x0"))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("Distribution","inCurrySubdir") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (1,"base"),CPVar (2,"file")]) (CApply (CSymbol ("FileGoodies","splitDirectoryBaseName")) (CVar (0,"filename"))) []] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"base"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","currySubdir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CVar (2,"file")))))))] []]),+  CFunc ("Distribution","installDir") 0 Private (CTCons ("Prelude","String") []) (CExternal "installDir"),+  CFunc ("Distribution","logfile") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"x")]] [(CSymbol ("Prelude","success"),CVar (3,"x"))] []]),+  CFunc ("Distribution","lookupFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"fn")))) (CApply (CApply (CSymbol ("Prelude",":")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("Distribution","outfile") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"x"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"x"))] []]),+  CFunc ("Distribution","quiet") 1 Public (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Distribution","FrontendParams") [CPVar (0,"x"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"x"))] []]),+  CFunc ("Distribution","rcErr") 2 Private (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","IO") [CTVar (0,"a")]))) (CRules CFlex [CRule [CPVar (0,"s"),CPVar (1,"x")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CApply (CSymbol ("IO","hPutStrLn")) (CSymbol ("IO","stderr"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","return")) (CVar (1,"x"))))] []]),+  CFunc ("Distribution","rcFileContents") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("Distribution","rcFileName"))) (CSymbol ("PropertyFile","readPropertyFile")))] []]),+  CFunc ("Distribution","rcFileName") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","String") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("System","getEnviron")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"x0"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CSymbol ("Distribution","curryCompiler"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))))] []]),+  CFunc ("Distribution","readFirstFileInLoadPath") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPVar (0,"fn")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CVar (0,"fn")))) (CSymbol ("Prelude","readFile")))] []]),+  CFunc ("Distribution","setFullPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"_"),CPVar (3,"y"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s")))) (CVar (3,"y"))) (CVar (4,"z")))] []]),+  CFunc ("Distribution","setLogfile") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"y"),CPVar (3,"z"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CVar (2,"y"))) (CVar (3,"z"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s"))))] []]),+  CFunc ("Distribution","setOutfile") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"x"),CPVar (2,"y"),CPVar (3,"_"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (1,"x"))) (CVar (2,"y"))) (CApply (CSymbol ("Prelude","Just")) (CVar (0,"s")))) (CVar (4,"z")))] []]),+  CFunc ("Distribution","setQuiet") 2 Public (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Distribution","FrontendParams") []))) (CRules CFlex [CRule [CPVar (0,"s"),CPComb ("Distribution","FrontendParams") [CPVar (1,"_"),CPVar (2,"x"),CPVar (3,"y"),CPVar (4,"z")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Distribution","FrontendParams")) (CVar (0,"s"))) (CVar (2,"x"))) (CVar (3,"y"))) (CVar (4,"z")))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurry.acy view
@@ -0,0 +1,29 @@+CurryProg "FlatCurry"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CType ("FlatCurry","Prog") Public [] [CCons ("FlatCurry","Prog") 5 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","String") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]]],+  CTypeSyn ("FlatCurry","QName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]),+  CType ("FlatCurry","Visibility") Public [] [CCons ("FlatCurry","Public") 0 Public [],CCons ("FlatCurry","Private") 0 Public []],+  CTypeSyn ("FlatCurry","TVarIndex") Public [] (CTCons ("Prelude","Int") []),+  CType ("FlatCurry","TypeDecl") Public [] [CCons ("FlatCurry","Type") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]],CCons ("FlatCurry","TypeSyn") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []],CTCons ("FlatCurry","TypeExpr") []]],+  CType ("FlatCurry","ConsDecl") Public [] [CCons ("FlatCurry","Cons") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]]],+  CType ("FlatCurry","TypeExpr") Public [] [CCons ("FlatCurry","TVar") 1 Public [CTCons ("FlatCurry","TVarIndex") []],CCons ("FlatCurry","FuncType") 2 Public [CTCons ("FlatCurry","TypeExpr") [],CTCons ("FlatCurry","TypeExpr") []],CCons ("FlatCurry","TCons") 2 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]]],+  CType ("FlatCurry","OpDecl") Public [] [CCons ("FlatCurry","Op") 3 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Fixity") [],CTCons ("Prelude","Int") []]],+  CType ("FlatCurry","Fixity") Public [] [CCons ("FlatCurry","InfixOp") 0 Public [],CCons ("FlatCurry","InfixlOp") 0 Public [],CCons ("FlatCurry","InfixrOp") 0 Public []],+  CTypeSyn ("FlatCurry","VarIndex") Public [] (CTCons ("Prelude","Int") []),+  CType ("FlatCurry","FuncDecl") Public [] [CCons ("FlatCurry","Func") 5 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Visibility") [],CTCons ("FlatCurry","TypeExpr") [],CTCons ("FlatCurry","Rule") []]],+  CType ("FlatCurry","Rule") Public [] [CCons ("FlatCurry","Rule") 2 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","External") 1 Public [CTCons ("Prelude","String") []]],+  CType ("FlatCurry","CaseType") Public [] [CCons ("FlatCurry","Rigid") 0 Public [],CCons ("FlatCurry","Flex") 0 Public []],+  CType ("FlatCurry","CombType") Public [] [CCons ("FlatCurry","FuncCall") 0 Public [],CCons ("FlatCurry","ConsCall") 0 Public [],CCons ("FlatCurry","FuncPartCall") 1 Public [CTCons ("Prelude","Int") []],CCons ("FlatCurry","ConsPartCall") 1 Public [CTCons ("Prelude","Int") []]],+  CType ("FlatCurry","Expr") Public [] [CCons ("FlatCurry","Var") 1 Public [CTCons ("FlatCurry","VarIndex") []],CCons ("FlatCurry","Lit") 1 Public [CTCons ("FlatCurry","Literal") []],CCons ("FlatCurry","Comb") 3 Public [CTCons ("FlatCurry","CombType") [],CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]],CCons ("FlatCurry","Let") 2 Public [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","VarIndex") [],CTCons ("FlatCurry","Expr") []]],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Free") 2 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Or") 2 Public [CTCons ("FlatCurry","Expr") [],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Case") 3 Public [CTCons ("FlatCurry","CaseType") [],CTCons ("FlatCurry","Expr") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []]]],+  CType ("FlatCurry","BranchExpr") Public [] [CCons ("FlatCurry","Branch") 2 Public [CTCons ("FlatCurry","Pattern") [],CTCons ("FlatCurry","Expr") []]],+  CType ("FlatCurry","Pattern") Public [] [CCons ("FlatCurry","Pattern") 2 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]],CCons ("FlatCurry","LPattern") 1 Public [CTCons ("FlatCurry","Literal") []]],+  CType ("FlatCurry","Literal") Public [] [CCons ("FlatCurry","Intc") 1 Public [CTCons ("Prelude","Int") []],CCons ("FlatCurry","Floatc") 1 Public [CTCons ("Prelude","Float") []],CCons ("FlatCurry","Charc") 1 Public [CTCons ("Prelude","Char") []]]]+ [CFunc ("FlatCurry","flatCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurry","flatCurryIntName") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurry","readFlatCurry") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"progfile")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","readFlatCurryWithParseOptions")) (CVar (0,"progfile"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("FlatCurry","readFlatCurryFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"exfcy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"filename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exfcy"))) (CApply (CSymbol ("FlatCurry","readExistingFCY")) (CVar (0,"filename")))) (CDoExpr [CSLet [CLocalPat (CPVar (2,"subdirfilename")) (CApply (CSymbol ("Distribution","inCurrySubdir")) (CVar (0,"filename"))) []],CSPat (CPVar (3,"exdirfcy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (2,"subdirfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"exdirfcy"))) (CApply (CSymbol ("FlatCurry","readExistingFCY")) (CVar (2,"subdirfilename")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))]))])] [CLocalFunc (CFunc ("FlatCurry","readExistingFCY") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTVar (0,"a")])) (CRules CFlex [CRule [CPVar (1,"fname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (1,"fname"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("ReadShowTerm","readTerm")) (CVar (2,"filecontents"))))])] []]))]]),+  CFunc ("FlatCurry","readFlatCurryInt") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (2,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (1,"existsCurry"))) (CVar (2,"existsLCurry")))) (CApply (CApply (CSymbol ("Distribution","callFrontend")) (CSymbol ("Distribution","FINT"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (3,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (3,"filename")))])] []]),+  CFunc ("FlatCurry","readFlatCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"mbCurryFile")) (CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"mbLCurryFile")) (CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mbCurryFile"))) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"mbLCurryFile"))) (CSymbol ("Prelude","Nothing"))))) (CSymbol ("Prelude","done"))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","FCY"))) (CVar (1,"options"))) (CVar (0,"progname")))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CSExpr (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("FlatCurry","showQNameInModule") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("Prelude","(,)") [CPVar (1,"qmod"),CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"qmod"))) (CVar (0,"mod")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"qmod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"qmod"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))) (CVar (2,"name")))))] []]),+  CFunc ("FlatCurry","writeFCY") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"prog"))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurry.cy view
@@ -0,0 +1,42 @@+Module "FlatCurry"+Nothing+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (14,1) "Directory" False Nothing (Just (Importing (14,17) [(Import (Ident "doesFileExist" 0))])))+,(ImportDecl (15,1) "ReadShowTerm" False Nothing Nothing)+,(ImportDecl (16,1) "Distribution" False Nothing Nothing)+,(ImportDecl (17,1) "FileGoodies" False Nothing (Just (Importing (17,19) [(Import (Ident "stripSuffix" 0))])))+,(DataDecl (33,1) (Ident "Prog" 0) [] [(ConstrDecl (33,13) [] (Ident "Prog" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))])])+,(TypeDecl (40,1) (Ident "QName" 0) [] (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(DataDecl (44,1) (Ident "Visibility" 0) [] [(ConstrDecl (44,19) [] (Ident "Public" 0) []),(ConstrDecl (45,19) [] (Ident "Private" 0) [])])+,(TypeDecl (49,1) (Ident "TVarIndex" 0) [] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(DataDecl (70,1) (Ident "TypeDecl" 0) [] [(ConstrDecl (70,17) [] (Ident "Type" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []))]),(ConstrDecl (71,17) [] (Ident "TypeSyn" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])])])+,(DataDecl (76,1) (Ident "ConsDecl" 0) [] [(ConstrDecl (76,17) [] (Ident "Cons" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))])])+,(DataDecl (87,1) (Ident "TypeExpr" 0) [] [(ConstrDecl (88,6) [] (Ident "TVar" 0) [(ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])]),(ConstrDecl (89,6) [] (Ident "FuncType" 0) [(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]),(ConstrDecl (90,6) [] (Ident "TCons" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))])])+,(DataDecl (98,1) (Ident "OpDecl" 0) [] [(ConstrDecl (98,15) [] (Ident "Op" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])])+,(DataDecl (101,1) (Ident "Fixity" 0) [] [(ConstrDecl (101,15) [] (Ident "InfixOp" 0) []),(ConstrDecl (101,25) [] (Ident "InfixlOp" 0) []),(ConstrDecl (101,36) [] (Ident "InfixrOp" 0) [])])+,(TypeDecl (108,1) (Ident "VarIndex" 0) [] (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []))+,(DataDecl (133,1) (Ident "FuncDecl" 0) [] [(ConstrDecl (133,17) [] (Ident "Func" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) [])])])+,(DataDecl (139,1) (Ident "Rule" 0) [] [(ConstrDecl (139,13) [] (Ident "Rule" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]),(ConstrDecl (140,13) [] (Ident "External" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(DataDecl (145,1) (Ident "CaseType" 0) [] [(ConstrDecl (145,17) [] (Ident "Rigid" 0) []),(ConstrDecl (145,25) [] (Ident "Flex" 0) [])])+,(DataDecl (158,1) (Ident "CombType" 0) [] [(ConstrDecl (158,17) [] (Ident "FuncCall" 0) []),(ConstrDecl (158,28) [] (Ident "ConsCall" 0) []),(ConstrDecl (158,39) [] (Ident "FuncPartCall" 0) [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]),(ConstrDecl (158,58) [] (Ident "ConsPartCall" 0) [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])])+,(DataDecl (208,1) (Ident "Expr" 0) [] [(ConstrDecl (208,13) [] (Ident "Var" 0) [(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])]),(ConstrDecl (209,13) [] (Ident "Lit" 0) [(ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])]),(ConstrDecl (210,13) [] (Ident "Comb" 0) [(ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))]),(ConstrDecl (211,13) [] (Ident "Let" 0) [(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])])),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]),(ConstrDecl (212,13) [] (Ident "Free" 0) [(ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]),(ConstrDecl (213,13) [] (Ident "Or" 0) [(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]),(ConstrDecl (214,13) [] (Ident "Case" 0) [(ConstructorType (QualIdent Nothing (Ident "CaseType" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []))])])+,(DataDecl (230,1) (Ident "BranchExpr" 0) [] [(ConstrDecl (230,19) [] (Ident "Branch" 0) [(ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])])])+,(DataDecl (234,1) (Ident "Pattern" 0) [] [(ConstrDecl (234,16) [] (Ident "Pattern" 0) [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))]),(ConstrDecl (235,16) [] (Ident "LPattern" 0) [(ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])])])+,(DataDecl (240,1) (Ident "Literal" 0) [] [(ConstrDecl (240,16) [] (Ident "Intc" 0) [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]),(ConstrDecl (241,16) [] (Ident "Floatc" 0) [(ConstructorType (QualIdent Nothing (Ident "Float" 0)) [])]),(ConstrDecl (242,16) [] (Ident "Charc" 0) [(ConstructorType (QualIdent Nothing (Ident "Char" 0)) [])])])+,(TypeSig (252,1) [(Ident "readFlatCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])))+,(FunctionDecl (253,1) (Ident "readFlatCurry" 0) [(Equation (253,1) (FunLhs (Ident "readFlatCurry" 0) [(VariablePattern (Ident "progfile" 2))]) (SimpleRhs (254,4) (Apply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryWithParseOptions" 0))) (Variable (QualIdent Nothing (Ident "progfile" 2)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setQuiet" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))))) []))])+,(TypeSig (263,1) [(Ident "readFlatCurryWithParseOptions" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FrontendParams" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])]))))+,(FunctionDecl (264,1) (Ident "readFlatCurryWithParseOptions" 0) [(Equation (264,1) (FunLhs (Ident "readFlatCurryWithParseOptions" 0) [(VariablePattern (Ident "progname" 4)),(VariablePattern (Ident "options" 4))]) (SimpleRhs (264,50) (Do [(StmtBind (VariablePattern (Ident "mbCurryFile" 6)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "lookupFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 4))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".curry")))))),(StmtBind (VariablePattern (Ident "mbLCurryFile" 7)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "lookupFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 4))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry")))))),(StmtExpr (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mbCurryFile" 6))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "mbLCurryFile" 7))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0))))) (Variable (QualIdent (Just "Prelude") (Ident "done" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "FCY" 0)))) (Variable (QualIdent Nothing (Ident "options" 4)))) (Variable (QualIdent Nothing (Ident "progname" 4)))))),(StmtBind (VariablePattern (Ident "filename" 8)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "findFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 4))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".fcy"))))))] (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 8))))) []))])+,(TypeSig (277,1) [(Ident "flatCurryFileName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (278,1) (Ident "flatCurryFileName" 0) [(Equation (278,1) (FunLhs (Ident "flatCurryFileName" 0) [(VariablePattern (Ident "prog" 9))]) (SimpleRhs (278,26) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "prog" 9)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".fcy"))))) []))])+,(TypeSig (283,1) [(Ident "flatCurryIntName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (284,1) (Ident "flatCurryIntName" 0) [(Equation (284,1) (FunLhs (Ident "flatCurryIntName" 0) [(VariablePattern (Ident "prog" 11))]) (SimpleRhs (284,25) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "stripSuffix" 0))) (Variable (QualIdent Nothing (Ident "prog" 11)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".fint"))))) []))])+,(TypeSig (292,1) [(Ident "readFlatCurryFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])))+,(FunctionDecl (293,1) (Ident "readFlatCurryFile" 0) [(Equation (293,1) (FunLhs (Ident "readFlatCurryFile" 0) [(VariablePattern (Ident "filename" 13))]) (SimpleRhs (293,30) (Do [(StmtBind (VariablePattern (Ident "exfcy" 18)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "filename" 13)))))] (IfThenElse (Variable (QualIdent Nothing (Ident "exfcy" 18))) (Apply (Variable (QualIdent Nothing (Ident "readExistingFCY" 14))) (Variable (QualIdent Nothing (Ident "filename" 13)))) (Do [(StmtDecl [(PatternDecl (297,16) (VariablePattern (Ident "subdirfilename" 19)) (SimpleRhs (297,33) (Apply (Variable (QualIdent (Just "Distribution") (Ident "inCurrySubdir" 0))) (Variable (QualIdent Nothing (Ident "filename" 13)))) []))]),(StmtBind (VariablePattern (Ident "exdirfcy" 21)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Variable (QualIdent Nothing (Ident "subdirfilename" 19)))))] (IfThenElse (Variable (QualIdent Nothing (Ident "exdirfcy" 21))) (Apply (Variable (QualIdent Nothing (Ident "readExistingFCY" 14))) (Variable (QualIdent Nothing (Ident "subdirfilename" 19)))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Paren (InfixApply (Literal (String "EXISTENCE ERROR: FlatCurry file '")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "filename" 13))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "' does not exist")))))))))) [(FunctionDecl (304,4) (Ident "readExistingFCY" 14) [(Equation (304,4) (FunLhs (Ident "readExistingFCY" 14) [(VariablePattern (Ident "fname" 15))]) (SimpleRhs (304,28) (Do [(StmtBind (VariablePattern (Ident "filecontents" 17)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "fname" 15)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "readTerm" 0))) (Variable (QualIdent Nothing (Ident "filecontents" 17))))))) []))])]))])+,(TypeSig (315,1) [(Ident "readFlatCurryInt" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])))+,(FunctionDecl (316,1) (Ident "readFlatCurryInt" 0) [(Equation (316,1) (FunLhs (Ident "readFlatCurryInt" 0) [(VariablePattern (Ident "progname" 22))]) (SimpleRhs (316,29) (Do [(StmtBind (VariablePattern (Ident "existsCurry" 24)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 22))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".curry")))))),(StmtBind (VariablePattern (Ident "existsLCurry" 25)) (Apply (Variable (QualIdent (Just "Directory") (Ident "doesFileExist" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 22))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".lcurry")))))),(StmtExpr (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "existsCurry" 24))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Variable (QualIdent Nothing (Ident "existsLCurry" 25)))) (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontend" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "FINT" 0)))) (Variable (QualIdent Nothing (Ident "progname" 22)))) (Variable (QualIdent (Just "Prelude") (Ident "done" 0))))),(StmtBind (VariablePattern (Ident "filename" 26)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "findFileInLoadPath" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "progname" 22))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ".fint"))))))] (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 26))))) []))])+,(TypeSig (329,1) [(Ident "writeFCY" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (330,1) (Ident "writeFCY" 0) [(Equation (330,1) (FunLhs (Ident "writeFCY" 0) [(VariablePattern (Ident "file" 27)),(VariablePattern (Ident "prog" 27))]) (SimpleRhs (330,22) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "writeFile" 0))) (Variable (QualIdent Nothing (Ident "file" 27)))) (Paren (Apply (Variable (QualIdent (Just "ReadShowTerm") (Ident "showTerm" 0))) (Variable (QualIdent Nothing (Ident "prog" 27)))))) []))])+,(TypeSig (337,1) [(Ident "showQNameInModule" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (338,1) (Ident "showQNameInModule" 0) [(Equation (338,1) (FunLhs (Ident "showQNameInModule" 0) [(VariablePattern (Ident "mod" 29)),(TuplePattern [(VariablePattern (Ident "qmod" 29)),(VariablePattern (Ident "name" 29))])]) (SimpleRhs (339,3) (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "qmod" 29))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "mod" 29)))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "qmod" 29))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Prelude")))) (Variable (QualIdent Nothing (Ident "name" 29))) (InfixApply (Variable (QualIdent Nothing (Ident "qmod" 29))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ".")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Variable (QualIdent Nothing (Ident "name" 29)))))) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurry.efc view
@@ -0,0 +1,1 @@+Prog "FlatCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ((Nothing,Nothing,"FlatCurry","QName")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]),TypeSyn ((Nothing,Nothing,"FlatCurry","TVarIndex")) Public [] (TCons ((Nothing,Nothing,"Prelude","Int")) []),TypeSyn ((Nothing,Nothing,"FlatCurry","VarIndex")) Public [] (TCons ((Nothing,Nothing,"Prelude","Int")) []),Type ((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")) Public [] [Cons ((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")) 5 Public [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,"FlatCurry","TypeDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]]],Type ((Nothing,Nothing,"FlatCurry","Visibility")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) 0 Public []],Type ((Nothing,Nothing,"FlatCurry","TypeDecl")) Public [] [Cons ((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")) 4 Public [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,"FlatCurry","Visibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]],Cons ((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")) 4 Public [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,"FlatCurry","Visibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]],Type ((Nothing,Nothing,"FlatCurry","ConsDecl")) Public [] [Cons ((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")) 4 Public [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","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]]],Type ((Nothing,Nothing,"FlatCurry","TypeExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) 2 Public [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [],TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []],Cons ((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")) 2 Public [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,"FlatCurry","TypeExpr")) []]]],Type ((Nothing,Nothing,"FlatCurry","OpDecl")) Public [] [Cons ((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")) 3 Public [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,"FlatCurry","Fixity")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]],Type ((Nothing,Nothing,"FlatCurry","Fixity")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) 0 Public []],Type ((Nothing,Nothing,"FlatCurry","FuncDecl")) Public [] [Cons ((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")) 5 Public [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","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [],TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [],TCons ((Nothing,Nothing,"FlatCurry","Rule")) []]],Type ((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")) Public [] [Cons ((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")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurry","External")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]],Type ((Nothing,Nothing,"FlatCurry","CaseType")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) 0 Public []],Type ((Nothing,Nothing,"FlatCurry","CombType")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) 0 Public [],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []]],Type ((Nothing,Nothing,"FlatCurry","Expr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) 1 Public [TCons ((Nothing,Nothing,"FlatCurry","Literal")) []],Cons ((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")) 3 Public [TCons ((Nothing,Nothing,"FlatCurry","CombType")) [],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,"FlatCurry","Expr")) []]],Cons ((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")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []],Cons ((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")) 2 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) 2 Public [TCons ((Nothing,Nothing,"FlatCurry","Expr")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []],Cons ((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")) 3 Public [TCons ((Nothing,Nothing,"FlatCurry","CaseType")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []]]],Type ((Nothing,Nothing,"FlatCurry","BranchExpr")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) 2 Public [TCons ((Nothing,Nothing,"FlatCurry","Pattern")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],Type ((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")) Public [] [Cons ((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")) 2 Public [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","Int")) []]],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) 1 Public [TCons ((Nothing,Nothing,"FlatCurry","Literal")) []]],Type ((Nothing,Nothing,"FlatCurry","Literal")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Int")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Float")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) 1 Public [TCons ((Nothing,Nothing,"Prelude","Char")) []]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"FlatCurry","readFlatCurryWithParseOptions")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"FlatCurry","readFlatCurryWithParseOptions")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","lookupFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"FlatCurry","readFlatCurryWithParseOptions._#lambda2")) [Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"FlatCurry","readFlatCurryWithParseOptions._#lambda2")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","lookupFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))))),"FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))))),"FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Distribution","FrontendParams")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Case  Rigid (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,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","done")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FCY")) [],Var ((Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryFileName")) 1 Public (FuncType (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","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryIntName")) 1 Public (FuncType (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","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","stripSuffix")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"FlatCurry","readFlatCurryFile._#lambda6")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"FlatCurry","readFlatCurryFile.readExistingFCY.14")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 0])),"FlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 1])),"FlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 1])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TVar 1)),"ReadShowTerm","readTerm")) [Var ((Just (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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2]))),"FlatCurry","readFlatCurryFile._#lambda6")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 2]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])),"FlatCurry","readFlatCurryFile.readExistingFCY.14")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","inCurrySubdir")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],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") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 2])))),"FlatCurry","readFlatCurryFile._#lambda6._#lambda7")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])))),"FlatCurry","readFlatCurryFile._#lambda6._#lambda7")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TVar 3])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])),"FlatCurry","readFlatCurryFile.readExistingFCY.14")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TVar 3])),"Prelude","error")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'X'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryInt")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"FlatCurry","readFlatCurryInt._#lambda8")) [Var ((Just (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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"FlatCurry","readFlatCurryInt._#lambda8")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Bool") []])),"Directory","doesFileExist")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"FlatCurry","readFlatCurryInt._#lambda8._#lambda9")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])))),"FlatCurry","readFlatCurryInt._#lambda8._#lambda9")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","||")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Distribution","callFrontend")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FINT")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"Prelude","done")) [])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Distribution","findFileInLoadPath")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (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,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"FlatCurry","writeFCY")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),2)] (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"ReadShowTerm","showTerm")) [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,"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","Char") []]))),"FlatCurry","showQNameInModule")) 2 Public (FuncType (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","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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Rigid (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,"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") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]])])]))] []
+ src/lib/Curry/Module/.curry/FlatCurry.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("FlatCurry","QName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("FlatCurry","TVarIndex") Public [] (TCons ("Prelude","Int") []),TypeSyn ("FlatCurry","VarIndex") Public [] (TCons ("Prelude","Int") []),Type ("FlatCurry","Prog") Public [] [Cons ("FlatCurry","Prog") 5 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]]],Type ("FlatCurry","Visibility") Public [] [Cons ("FlatCurry","Public") 0 Public [],Cons ("FlatCurry","Private") 0 Public []],Type ("FlatCurry","TypeDecl") Public [] [Cons ("FlatCurry","Type") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]],Cons ("FlatCurry","TypeSyn") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","TypeExpr") []]],Type ("FlatCurry","ConsDecl") Public [] [Cons ("FlatCurry","Cons") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]]],Type ("FlatCurry","TypeExpr") Public [] [Cons ("FlatCurry","TVar") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","FuncType") 2 Public [TCons ("FlatCurry","TypeExpr") [],TCons ("FlatCurry","TypeExpr") []],Cons ("FlatCurry","TCons") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]]],Type ("FlatCurry","OpDecl") Public [] [Cons ("FlatCurry","Op") 3 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Fixity") [],TCons ("Prelude","Int") []]],Type ("FlatCurry","Fixity") Public [] [Cons ("FlatCurry","InfixOp") 0 Public [],Cons ("FlatCurry","InfixlOp") 0 Public [],Cons ("FlatCurry","InfixrOp") 0 Public []],Type ("FlatCurry","FuncDecl") Public [] [Cons ("FlatCurry","Func") 5 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("FlatCurry","Visibility") [],TCons ("FlatCurry","TypeExpr") [],TCons ("FlatCurry","Rule") []]],Type ("FlatCurry","Rule") Public [] [Cons ("FlatCurry","Rule") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","External") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("FlatCurry","CaseType") Public [] [Cons ("FlatCurry","Rigid") 0 Public [],Cons ("FlatCurry","Flex") 0 Public []],Type ("FlatCurry","CombType") Public [] [Cons ("FlatCurry","FuncCall") 0 Public [],Cons ("FlatCurry","ConsCall") 0 Public [],Cons ("FlatCurry","FuncPartCall") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","ConsPartCall") 1 Public [TCons ("Prelude","Int") []]],Type ("FlatCurry","Expr") Public [] [Cons ("FlatCurry","Var") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","Lit") 1 Public [TCons ("FlatCurry","Literal") []],Cons ("FlatCurry","Comb") 3 Public [TCons ("FlatCurry","CombType") [],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]],Cons ("FlatCurry","Let") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Free") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Or") 2 Public [TCons ("FlatCurry","Expr") [],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Case") 3 Public [TCons ("FlatCurry","CaseType") [],TCons ("FlatCurry","Expr") [],TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]]],Type ("FlatCurry","BranchExpr") Public [] [Cons ("FlatCurry","Branch") 2 Public [TCons ("FlatCurry","Pattern") [],TCons ("FlatCurry","Expr") []]],Type ("FlatCurry","Pattern") Public [] [Cons ("FlatCurry","Pattern") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("Prelude","Int") []]],Cons ("FlatCurry","LPattern") 1 Public [TCons ("FlatCurry","Literal") []]],Type ("FlatCurry","Literal") Public [] [Cons ("FlatCurry","Intc") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","Floatc") 1 Public [TCons ("Prelude","Float") []],Cons ("FlatCurry","Charc") 1 Public [TCons ("Prelude","Char") []]]] [Func ("FlatCurry","readFlatCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("FlatCurry","readFlatCurryWithParseOptions") [Var 1,Comb FuncCall ("Distribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Distribution","defaultParams") []]])),Func ("FlatCurry","readFlatCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","lookupFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryWithParseOptions._#lambda2") [Var 2,Var 1]])),Func ("FlatCurry","readFlatCurryWithParseOptions._#lambda2") 3 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","lookupFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") [Var 3,Var 1,Var 2]])),Func ("FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") 4 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude",">>") [Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude","Nothing") []],Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude","Nothing") []]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","done") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Distribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Var 2,Var 3])],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","findFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []]])),Func ("FlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 1])),Func ("FlatCurry","flatCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Distribution","inCurrySubdir") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FileGoodies","stripSuffix") [],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("FlatCurry","flatCurryIntName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Distribution","inCurrySubdir") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FileGoodies","stripSuffix") [],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("FlatCurry","readFlatCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 1],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryFile._#lambda6") [Var 1]])),Func ("FlatCurry","readFlatCurryFile.readExistingFCY.14") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") []])),Func ("FlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 1])) (Rule [1] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("ReadShowTerm","readTerm") [Var 1]])),Func ("FlatCurry","readFlatCurryFile._#lambda6") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TVar 2]))) (Rule [1,2] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 1]),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Distribution","inCurrySubdir") [Var 1])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 3],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryFile._#lambda6._#lambda7") [Var 1,Var 3]]))])),Func ("FlatCurry","readFlatCurryFile._#lambda6._#lambda7") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TVar 3])))) (Rule [1,2,3] (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'N'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]])])),Func ("FlatCurry","readFlatCurryInt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryInt._#lambda8") [Var 1]])),Func ("FlatCurry","readFlatCurryInt._#lambda8") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryInt._#lambda8._#lambda9") [Var 2,Var 1]])),Func ("FlatCurry","readFlatCurryInt._#lambda8._#lambda9") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>") [Case  Rigid (Comb FuncCall ("Prelude","||") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Distribution","callFrontend") [Comb ConsCall ("Distribution","FINT") []],Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","done") [])],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","findFileInLoadPath") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb (FuncPartCall 1) ("FlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") []]])),Func ("FlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 1])),Func ("FlatCurry","writeFCY") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("ReadShowTerm","showTerm") [Var 2]])),Func ("FlatCurry","showQNameInModule") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 3,Var 1],Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Var 4),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []],Var 4]])])]))] []
+ src/lib/Curry/Module/.curry/FlatCurry.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurry" ["Directory","Distribution","FileGoodies","Prelude","ReadShowTerm"] [TypeSyn ("FlatCurry","QName") Public [] (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]),TypeSyn ("FlatCurry","TVarIndex") Public [] (TCons ("Prelude","Int") []),TypeSyn ("FlatCurry","VarIndex") Public [] (TCons ("Prelude","Int") []),Type ("FlatCurry","Prog") Public [] [Cons ("FlatCurry","Prog") 5 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]]],Type ("FlatCurry","Visibility") Public [] [Cons ("FlatCurry","Public") 0 Public [],Cons ("FlatCurry","Private") 0 Public []],Type ("FlatCurry","TypeDecl") Public [] [Cons ("FlatCurry","Type") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]],Cons ("FlatCurry","TypeSyn") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","TypeExpr") []]],Type ("FlatCurry","ConsDecl") Public [] [Cons ("FlatCurry","Cons") 4 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("FlatCurry","Visibility") [],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]]],Type ("FlatCurry","TypeExpr") Public [] [Cons ("FlatCurry","TVar") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","FuncType") 2 Public [TCons ("FlatCurry","TypeExpr") [],TCons ("FlatCurry","TypeExpr") []],Cons ("FlatCurry","TCons") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]]],Type ("FlatCurry","OpDecl") Public [] [Cons ("FlatCurry","Op") 3 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","Fixity") [],TCons ("Prelude","Int") []]],Type ("FlatCurry","Fixity") Public [] [Cons ("FlatCurry","InfixOp") 0 Public [],Cons ("FlatCurry","InfixlOp") 0 Public [],Cons ("FlatCurry","InfixrOp") 0 Public []],Type ("FlatCurry","FuncDecl") Public [] [Cons ("FlatCurry","Func") 5 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") [],TCons ("FlatCurry","Visibility") [],TCons ("FlatCurry","TypeExpr") [],TCons ("FlatCurry","Rule") []]],Type ("FlatCurry","Rule") Public [] [Cons ("FlatCurry","Rule") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","External") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("FlatCurry","CaseType") Public [] [Cons ("FlatCurry","Rigid") 0 Public [],Cons ("FlatCurry","Flex") 0 Public []],Type ("FlatCurry","CombType") Public [] [Cons ("FlatCurry","FuncCall") 0 Public [],Cons ("FlatCurry","ConsCall") 0 Public [],Cons ("FlatCurry","FuncPartCall") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","ConsPartCall") 1 Public [TCons ("Prelude","Int") []]],Type ("FlatCurry","Expr") Public [] [Cons ("FlatCurry","Var") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","Lit") 1 Public [TCons ("FlatCurry","Literal") []],Cons ("FlatCurry","Comb") 3 Public [TCons ("FlatCurry","CombType") [],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]],Cons ("FlatCurry","Let") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Free") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Int") []],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Or") 2 Public [TCons ("FlatCurry","Expr") [],TCons ("FlatCurry","Expr") []],Cons ("FlatCurry","Case") 3 Public [TCons ("FlatCurry","CaseType") [],TCons ("FlatCurry","Expr") [],TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]]],Type ("FlatCurry","BranchExpr") Public [] [Cons ("FlatCurry","Branch") 2 Public [TCons ("FlatCurry","Pattern") [],TCons ("FlatCurry","Expr") []]],Type ("FlatCurry","Pattern") Public [] [Cons ("FlatCurry","Pattern") 2 Public [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("Prelude","Int") []]],Cons ("FlatCurry","LPattern") 1 Public [TCons ("FlatCurry","Literal") []]],Type ("FlatCurry","Literal") Public [] [Cons ("FlatCurry","Intc") 1 Public [TCons ("Prelude","Int") []],Cons ("FlatCurry","Floatc") 1 Public [TCons ("Prelude","Float") []],Cons ("FlatCurry","Charc") 1 Public [TCons ("Prelude","Char") []]]] [Func ("FlatCurry","readFlatCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [] (Var 0)),Func ("FlatCurry","readFlatCurryWithParseOptions") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))) (Rule [] (Var 0)),Func ("FlatCurry","flatCurryFileName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurry","flatCurryIntName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurry","readFlatCurryFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [] (Var 0)),Func ("FlatCurry","readFlatCurryInt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [] (Var 0)),Func ("FlatCurry","writeFCY") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0)),Func ("FlatCurry","showQNameInModule") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurry.uacy view
@@ -0,0 +1,29 @@+CurryProg "FlatCurry"+ ["Prelude","Directory","ReadShowTerm","Distribution","FileGoodies"]+ [CType ("FlatCurry","Prog") Public [] [CCons ("FlatCurry","Prog") 5 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","String") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]]],+  CTypeSyn ("FlatCurry","QName") Public [] (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]),+  CType ("FlatCurry","Visibility") Public [] [CCons ("FlatCurry","Public") 0 Public [],CCons ("FlatCurry","Private") 0 Public []],+  CTypeSyn ("FlatCurry","TVarIndex") Public [] (CTCons ("Prelude","Int") []),+  CType ("FlatCurry","TypeDecl") Public [] [CCons ("FlatCurry","Type") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []],CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]],CCons ("FlatCurry","TypeSyn") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []],CTCons ("FlatCurry","TypeExpr") []]],+  CType ("FlatCurry","ConsDecl") Public [] [CCons ("FlatCurry","Cons") 4 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Visibility") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]]],+  CType ("FlatCurry","TypeExpr") Public [] [CCons ("FlatCurry","TVar") 1 Public [CTCons ("FlatCurry","TVarIndex") []],CCons ("FlatCurry","FuncType") 2 Public [CTCons ("FlatCurry","TypeExpr") [],CTCons ("FlatCurry","TypeExpr") []],CCons ("FlatCurry","TCons") 2 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]]],+  CType ("FlatCurry","OpDecl") Public [] [CCons ("FlatCurry","Op") 3 Public [CTCons ("FlatCurry","QName") [],CTCons ("FlatCurry","Fixity") [],CTCons ("Prelude","Int") []]],+  CType ("FlatCurry","Fixity") Public [] [CCons ("FlatCurry","InfixOp") 0 Public [],CCons ("FlatCurry","InfixlOp") 0 Public [],CCons ("FlatCurry","InfixrOp") 0 Public []],+  CTypeSyn ("FlatCurry","VarIndex") Public [] (CTCons ("Prelude","Int") []),+  CType ("FlatCurry","FuncDecl") Public [] [CCons ("FlatCurry","Func") 5 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Visibility") [],CTCons ("FlatCurry","TypeExpr") [],CTCons ("FlatCurry","Rule") []]],+  CType ("FlatCurry","Rule") Public [] [CCons ("FlatCurry","Rule") 2 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","External") 1 Public [CTCons ("Prelude","String") []]],+  CType ("FlatCurry","CaseType") Public [] [CCons ("FlatCurry","Rigid") 0 Public [],CCons ("FlatCurry","Flex") 0 Public []],+  CType ("FlatCurry","CombType") Public [] [CCons ("FlatCurry","FuncCall") 0 Public [],CCons ("FlatCurry","ConsCall") 0 Public [],CCons ("FlatCurry","FuncPartCall") 1 Public [CTCons ("Prelude","Int") []],CCons ("FlatCurry","ConsPartCall") 1 Public [CTCons ("Prelude","Int") []]],+  CType ("FlatCurry","Expr") Public [] [CCons ("FlatCurry","Var") 1 Public [CTCons ("FlatCurry","VarIndex") []],CCons ("FlatCurry","Lit") 1 Public [CTCons ("FlatCurry","Literal") []],CCons ("FlatCurry","Comb") 3 Public [CTCons ("FlatCurry","CombType") [],CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]],CCons ("FlatCurry","Let") 2 Public [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","VarIndex") [],CTCons ("FlatCurry","Expr") []]],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Free") 2 Public [CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Or") 2 Public [CTCons ("FlatCurry","Expr") [],CTCons ("FlatCurry","Expr") []],CCons ("FlatCurry","Case") 3 Public [CTCons ("FlatCurry","CaseType") [],CTCons ("FlatCurry","Expr") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []]]],+  CType ("FlatCurry","BranchExpr") Public [] [CCons ("FlatCurry","Branch") 2 Public [CTCons ("FlatCurry","Pattern") [],CTCons ("FlatCurry","Expr") []]],+  CType ("FlatCurry","Pattern") Public [] [CCons ("FlatCurry","Pattern") 2 Public [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]],CCons ("FlatCurry","LPattern") 1 Public [CTCons ("FlatCurry","Literal") []]],+  CType ("FlatCurry","Literal") Public [] [CCons ("FlatCurry","Intc") 1 Public [CTCons ("Prelude","Int") []],CCons ("FlatCurry","Floatc") 1 Public [CTCons ("Prelude","Float") []],CCons ("FlatCurry","Charc") 1 Public [CTCons ("Prelude","Char") []]]]+ [CFunc ("FlatCurry","flatCurryFileName") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurry","flatCurryIntName") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"prog")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Distribution","inCurrySubdir")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FileGoodies","stripSuffix")) (CVar (0,"prog")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurry","readFlatCurry") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"progfile")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","readFlatCurryWithParseOptions")) (CVar (0,"progfile"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CSymbol ("Distribution","defaultParams"))))] []]),+  CFunc ("FlatCurry","readFlatCurryFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"exfcy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (0,"filename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (1,"exfcy"))) (CApply (CSymbol ("FlatCurry","readExistingFCY")) (CVar (0,"filename")))) (CDoExpr [CSLet [CLocalPat (CPVar (2,"subdirfilename")) (CApply (CSymbol ("Distribution","inCurrySubdir")) (CVar (0,"filename"))) []],CSPat (CPVar (3,"exdirfcy")) (CApply (CSymbol ("Directory","doesFileExist")) (CVar (2,"subdirfilename"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (3,"exdirfcy"))) (CApply (CSymbol ("FlatCurry","readExistingFCY")) (CVar (2,"subdirfilename")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'N'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))]))])] [CLocalFunc (CFunc ("FlatCurry","readExistingFCY") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"fname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"filecontents")) (CApply (CSymbol ("Prelude","readFile")) (CVar (1,"fname"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("ReadShowTerm","readTerm")) (CVar (2,"filecontents"))))])] []]))]]),+  CFunc ("FlatCurry","readFlatCurryInt") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"progname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"existsCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (2,"existsLCurry")) (CApply (CSymbol ("Directory","doesFileExist")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CVar (1,"existsCurry"))) (CVar (2,"existsLCurry")))) (CApply (CApply (CSymbol ("Distribution","callFrontend")) (CSymbol ("Distribution","FINT"))) (CVar (0,"progname")))) (CSymbol ("Prelude","done"))),CSPat (CPVar (3,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (3,"filename")))])] []]),+  CFunc ("FlatCurry","readFlatCurryWithParseOptions") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Distribution","FrontendParams") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []]))) (CRules CFlex [CRule [CPVar (0,"progname"),CPVar (1,"options")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (2,"mbCurryFile")) (CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))),CSPat (CPVar (3,"mbLCurryFile")) (CApply (CSymbol ("Distribution","lookupFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mbCurryFile"))) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"mbLCurryFile"))) (CSymbol ("Prelude","Nothing"))))) (CSymbol ("Prelude","done"))) (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","FCY"))) (CVar (1,"options"))) (CVar (0,"progname")))),CSPat (CPVar (4,"filename")) (CApply (CSymbol ("Distribution","findFileInLoadPath")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"progname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CSExpr (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (4,"filename")))])] []]),+  CFunc ("FlatCurry","showQNameInModule") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("Prelude","(,)") [CPVar (1,"qmod"),CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"qmod"))) (CVar (0,"mod")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"qmod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))))) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"qmod"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]")))) (CVar (2,"name")))))] []]),+  CFunc ("FlatCurry","writeFCY") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"prog")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CSymbol ("ReadShowTerm","showTerm")) (CVar (1,"prog"))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.acy view
@@ -0,0 +1,166 @@+CurryProg "FlatCurryGoodies"+ ["Prelude","FlatCurry"]+ [CTypeSyn ("FlatCurryGoodies","Update") Public [(0,"a"),(1,"b")] (CFuncType (CFuncType (CTVar (1,"b")) (CTVar (1,"b"))) (CFuncType (CTVar (0,"a")) (CTVar (0,"a"))))]+ [CFunc ("FlatCurryGoodies","allVars") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("Prelude",":"))) (CApply (CSymbol ("Prelude","const")) (CSymbol ("Prelude","id")))) (CSymbol ("FlatCurryGoodies","comb"))) (CSymbol ("FlatCurryGoodies","lt"))) (CSymbol ("FlatCurryGoodies","fr"))) (CSymbol ("Prelude","."))) (CSymbol ("FlatCurryGoodies","cas"))) (CSymbol ("FlatCurryGoodies","branch"))) (CVar (0,"e"))) (CSymbol ("Prelude","[]")))] [CLocalFunc (CFunc ("FlatCurryGoodies","comb") 2 Private (CFuncType (CTVar (0,"a")) (CFuncType (CTVar (1,"b")) (CFuncType (CTCons ("Prelude","[]") [CFuncType (CTVar (2,"c")) (CTVar (2,"c"))]) (CFuncType (CTVar (2,"c")) (CTVar (2,"c")))))) (CRules CFlex [CRule [CPVar (1,"_"),CPVar (2,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","lt") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTVar (0,"a"),CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTVar (0,"a")])]]) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (1,"b"))) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (1,"b"))))) (CRules CFlex [CRule [CPVar (1,"bs"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CVar (2,"exp"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (3,"n"),CPVar (4,"ns")]] (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (5,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"n"))) (CVar (5,"x0"))))) (CVar (4,"ns"))))) (CVar (1,"bs")))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","fr") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CFuncType (CFuncType (CTVar (1,"b")) (CTCons ("Prelude","[]") [CTVar (0,"a")])) (CFuncType (CTVar (1,"b")) (CTCons ("Prelude","[]") [CTVar (0,"a")])))) (CRules CFlex [CRule [CPVar (1,"vs"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"vs"))) (CVar (3,"x0"))))) (CVar (2,"exp")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","cas") 3 Private (CFuncType (CTVar (0,"a")) (CFuncType (CFuncType (CTVar (1,"b")) (CTVar (2,"c"))) (CFuncType (CTCons ("Prelude","[]") [CFuncType (CTVar (1,"b")) (CTVar (1,"b"))]) (CFuncType (CTVar (1,"b")) (CTVar (2,"c")))))) (CRules CFlex [CRule [CPVar (1,"_"),CPVar (2,"exp"),CPVar (3,"bs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CVar (2,"exp"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id"))) (CVar (3,"bs"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","branch") 2 Private (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])))) (CRules CFlex [CRule [CPVar (1,"pat"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryGoodies","args")) (CVar (1,"pat")))) (CVar (3,"x0"))))) (CVar (2,"exp")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","args") 1 Private (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [CPVar (1,"pat")] [(CApply (CSymbol ("FlatCurryGoodies","isConsPattern")) (CVar (1,"pat")),CApply (CSymbol ("FlatCurryGoodies","patArgs")) (CVar (1,"pat"))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("FlatCurryGoodies","allVarsInFunc") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","allVarsInRule"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","allVarsInProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","allVarsInFunc")))) (CSymbol ("FlatCurryGoodies","progFuncs")))] []]),+  CFunc ("FlatCurryGoodies","allVarsInRule") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"args"),CPVar (1,"body")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"args"))) (CApply (CSymbol ("FlatCurryGoodies","allVars")) (CVar (1,"body")))))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryGoodies","allVarsInTypeExpr") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"x0"))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("Prelude","const")) (CSymbol ("Prelude","concat")))) (CSymbol ("Prelude","++")))] []]),+  CFunc ("FlatCurryGoodies","argTypes") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (3,"dom"),CPVar (4,"ran")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"dom"))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (4,"ran"))))] []]),+  CFunc ("FlatCurryGoodies","branchExpr") 0 Public (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CLambda [CPVar (0,"_"),CPVar (1,"e")] (CVar (1,"e"))))] []]),+  CFunc ("FlatCurryGoodies","branchPattern") 0 Public (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","Pattern") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CLambda [CPVar (0,"pat"),CPVar (1,"_")] (CVar (0,"pat"))))] []]),+  CFunc ("FlatCurryGoodies","caseBranches") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"bs")]] [(CSymbol ("Prelude","success"),CVar (2,"bs"))] []]),+  CFunc ("FlatCurryGoodies","caseExpr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"_"),CPVar (1,"e"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","caseType") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","CaseType") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"ct"),CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"ct"))] []]),+  CFunc ("FlatCurryGoodies","combArgs") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"args")]] [(CSymbol ("Prelude","success"),CVar (2,"args"))] []]),+  CFunc ("FlatCurryGoodies","combName") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPVar (1,"name"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"name"))] []]),+  CFunc ("FlatCurryGoodies","combType") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","CombType") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"ct"),CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"ct"))] []]),+  CFunc ("FlatCurryGoodies","consArgs") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"args")] (CVar (3,"args"))))] []]),+  CFunc ("FlatCurryGoodies","consArity") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"arity"),CPVar (2,"_"),CPVar (3,"_")] (CVar (1,"arity"))))] []]),+  CFunc ("FlatCurryGoodies","consName") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","consVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"vis"),CPVar (3,"_")] (CVar (2,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","domain") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"dom"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"dom"))] []]),+  CFunc ("FlatCurryGoodies","freeExpr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Free") [CPVar (0,"_"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","freeVars") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Free") [CPVar (0,"vs"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"vs"))] []]),+  CFunc ("FlatCurryGoodies","funcArgs") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","ruleArgs"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","funcArity") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"arity"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (1,"arity"))))] []]),+  CFunc ("FlatCurryGoodies","funcBody") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","ruleBody"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","funcName") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","funcRHS") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("FlatCurryGoodies","isExternal")) (CVar (0,"f"))),CApply (CSymbol ("FlatCurryGoodies","orCase")) (CApply (CSymbol ("FlatCurryGoodies","funcBody")) (CVar (0,"f")))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","[]"))] [CLocalFunc (CFunc ("FlatCurryGoodies","orCase") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPVar (1,"e")] [(CApply (CSymbol ("FlatCurryGoodies","isOr")) (CVar (1,"e")),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","orCase"))) (CApply (CSymbol ("FlatCurryGoodies","orExps")) (CVar (1,"e")))),(CApply (CSymbol ("FlatCurryGoodies","isCase")) (CVar (1,"e")),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","orCase"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryGoodies","branchExpr"))) (CApply (CSymbol ("FlatCurryGoodies","caseBranches")) (CVar (1,"e"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"e"))) (CSymbol ("Prelude","[]")))] []]))]]),+  CFunc ("FlatCurryGoodies","funcRule") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Rule") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"rule")] (CVar (4,"rule"))))] []]),+  CFunc ("FlatCurryGoodies","funcType") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"t"),CPVar (4,"_")] (CVar (3,"t"))))] []]),+  CFunc ("FlatCurryGoodies","funcVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"vis"),CPVar (3,"_"),CPVar (4,"_")] (CVar (2,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","isCase") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Case") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isComb") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isCombTypeConsCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","True"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeConsPartCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeFuncCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","True"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeFuncPartCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","True")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isConsCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeConsCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isConsPartCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeConsPartCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isConsPattern") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"_"),CPVar (1,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isDataTypeDecl") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (3,"cs")))))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isExternal") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","isRuleExternal"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","isExternalType") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CApply (CSymbol ("Prelude","null")) (CVar (3,"cs"))))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isFree") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Free") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isFuncCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeFuncCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isFuncPartCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeFuncPartCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isFuncType") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isGround") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPVar (1,"_"),CPVar (2,"args")]) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("FlatCurryGoodies","isGround"))) (CVar (2,"args"))),CBranch (CPVar (3,"_")) (CApply (CSymbol ("FlatCurryGoodies","isLit")) (CVar (0,"exp")))])] []]),+  CFunc ("FlatCurryGoodies","isLet") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Let") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isLit") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isOr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Or") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isRuleExternal") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"_"),CPVar (1,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isTCons") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isTVar") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isTypeSyn") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isVar") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Var") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","letBinds") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Let") [CPVar (0,"vs"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"vs"))] []]),+  CFunc ("FlatCurryGoodies","letBody") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Let") [CPVar (0,"_"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","literal") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPVar (0,"l")]] [(CSymbol ("Prelude","success"),CVar (0,"l"))] []]),+  CFunc ("FlatCurryGoodies","missingArgs") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CLit (CIntc 0))) (CSymbol ("Prelude","id"))) (CLit (CIntc 0))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","missingCombArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","missingArgs"))) (CSymbol ("FlatCurryGoodies","combType")))] []]),+  CFunc ("FlatCurryGoodies","opFixity") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","Fixity") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"_"),CPVar (1,"fix"),CPVar (2,"_")] (CVar (1,"fix"))))] []]),+  CFunc ("FlatCurryGoodies","opName") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","opPrecedence") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"prec")] (CVar (2,"prec"))))] []]),+  CFunc ("FlatCurryGoodies","orExps") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Or") [CPVar (0,"e1"),CPVar (1,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"e2"))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryGoodies","patArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"_"),CPVar (1,"args")] (CVar (1,"args")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","patCons") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"name"),CPVar (1,"_")] (CVar (0,"name")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","patExpr") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"name")] (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","ConsCall"))) (CVar (0,"name")))) (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurry","Var")))))) (CSymbol ("FlatCurry","Lit")))] []]),+  CFunc ("FlatCurryGoodies","patLiteral") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CSymbol ("Prelude","failed"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","progFuncs") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"funcs"),CPVar (4,"_")] (CVar (3,"funcs"))))] []]),+  CFunc ("FlatCurryGoodies","progImports") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"imps"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (1,"imps"))))] []]),+  CFunc ("FlatCurryGoodies","progName") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","progOps") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"ops")] (CVar (4,"ops"))))] []]),+  CFunc ("FlatCurryGoodies","progTypes") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"types"),CPVar (3,"_"),CPVar (4,"_")] (CVar (2,"types"))))] []]),+  CFunc ("FlatCurryGoodies","range") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"_"),CPVar (1,"ran")]] [(CSymbol ("Prelude","success"),CVar (1,"ran"))] []]),+  CFunc ("FlatCurryGoodies","resultType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","TVar")) (CVar (0,"n")))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (1,"name"),CPVar (2,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","TCons")) (CVar (1,"name"))) (CVar (2,"args")))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (3,"_"),CPVar (4,"ran")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (4,"ran")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVars") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Var"))) (CVar (0,"f")))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CVar (1,"lt"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Free"))) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CVar (2,"branch")))] [CLocalPat (CPVar (1,"lt")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Let"))) (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (3,"n"),CPVar (4,"exp")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CVar (0,"f")) (CVar (3,"n")))) (CVar (4,"exp")))))) [],CLocalPat (CPVar (2,"branch")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Branch"))) (CApply (CSymbol ("FlatCurryGoodies","updPatArgs")) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))) []]]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInFunc") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))) (CSymbol ("FlatCurryGoodies","rnmAllVarsInRule")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInProg") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updProgFuncs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","map"))) (CSymbol ("FlatCurryGoodies","rnmAllVarsInFunc"))))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInRule") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f")))) (CApply (CSymbol ("FlatCurryGoodies","rnmAllVars")) (CVar (0,"f")))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInTypeExpr") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updTVars")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","TVar"))) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","rnmProg") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"p")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updProgName")) (CApply (CSymbol ("Prelude","const")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("FlatCurryGoodies","updQNamesInProg")) (CSymbol ("FlatCurryGoodies","rnm"))) (CVar (1,"p"))))] [CLocalFunc (CFunc ("FlatCurryGoodies","rnm") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTVar (0,"a")]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTVar (0,"a")])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (2,"mod"),CPVar (3,"n")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","progName")) (CVar (1,"p"))),CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"name"))) (CVar (3,"n"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mod"))) (CVar (3,"n")))] []]))]]),+  CFunc ("FlatCurryGoodies","ruleArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"args"),CPVar (1,"_")] (CVar (0,"args")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","ruleBody") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"_"),CPVar (1,"exp")] (CVar (1,"exp")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","ruleExtDecl") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CSymbol ("Prelude","failed"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","tConsArgs") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","TCons") [CPVar (0,"_"),CPVar (1,"args")]] [(CSymbol ("Prelude","success"),CVar (1,"args"))] []]),+  CFunc ("FlatCurryGoodies","tConsName") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","TCons") [CPVar (0,"name"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("FlatCurryGoodies","tVarIndex") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CVar (0,"n"))] []]),+  CFunc ("FlatCurryGoodies","trBranch") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a")))) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"branch"),CPComb ("FlatCurry","Branch") [CPVar (1,"pat"),CPVar (2,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"branch")) (CVar (1,"pat"))) (CVar (2,"exp")))] []]),+  CFunc ("FlatCurryGoodies","trCombType") 5 Public (CFuncType (CTVar (0,"a")) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CTVar (0,"a")) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","CombType") []) (CTVar (0,"a"))))))) (CRules CFlex [CRule [CPVar (0,"fc"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CVar (0,"fc"))] [],CRule [CPVar (4,"_"),CPVar (5,"fpc"),CPVar (6,"_"),CPVar (7,"_"),CPComb ("FlatCurry","FuncPartCall") [CPVar (8,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"fpc")) (CVar (8,"n")))] [],CRule [CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"cc"),CPVar (12,"_"),CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CVar (11,"cc"))] [],CRule [CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"cpc"),CPComb ("FlatCurry","ConsPartCall") [CPVar (17,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (16,"cpc")) (CVar (17,"n")))] []]),+  CFunc ("FlatCurryGoodies","trCons") 2 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTVar (0,"a")))))) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"cons"),CPComb ("FlatCurry","Cons") [CPVar (1,"name"),CPVar (2,"arity"),CPVar (3,"vis"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (0,"cons")) (CVar (1,"name"))) (CVar (2,"arity"))) (CVar (3,"vis"))) (CVar (4,"args")))] []]),+  CFunc ("FlatCurryGoodies","trExpr") 9 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (0,"a"))))) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTVar (0,"a")]]) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTVar (0,"a")) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("FlatCurry","CaseType") []) (CFuncType (CTVar (0,"a")) (CFuncType (CTCons ("Prelude","[]") [CTVar (1,"b")]) (CTVar (0,"a"))))) (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTVar (0,"a")) (CTVar (1,"b")))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a"))))))))))) (CRules CFlex [CRule [CPVar (0,"var"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPComb ("FlatCurry","Var") [CPVar (8,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (0,"var")) (CVar (8,"n")))] [],CRule [CPVar (9,"_"),CPVar (10,"lit"),CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"_"),CPComb ("FlatCurry","Lit") [CPVar (17,"l")]] [(CSymbol ("Prelude","success"),CApply (CVar (10,"lit")) (CVar (17,"l")))] [],CRule [CPVar (18,"var"),CPVar (19,"lit"),CPVar (20,"comb"),CPVar (21,"lt"),CPVar (22,"fr"),CPVar (23,"or"),CPVar (24,"cas"),CPVar (25,"branch"),CPComb ("FlatCurry","Comb") [CPVar (26,"ct"),CPVar (27,"name"),CPVar (28,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (20,"comb")) (CVar (26,"ct"))) (CVar (27,"name"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (18,"var"))) (CVar (19,"lit"))) (CVar (20,"comb"))) (CVar (21,"lt"))) (CVar (22,"fr"))) (CVar (23,"or"))) (CVar (24,"cas"))) (CVar (25,"branch")))) (CVar (28,"args"))))] [],CRule [CPVar (29,"var"),CPVar (30,"lit"),CPVar (31,"comb"),CPVar (32,"lt"),CPVar (33,"fr"),CPVar (34,"or"),CPVar (35,"cas"),CPVar (36,"branch"),CPComb ("FlatCurry","Let") [CPVar (37,"bs"),CPVar (38,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (32,"lt")) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"n"),CPVar (41,"exp")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (40,"n"))) (CApply (CVar (39,"f")) (CVar (41,"exp")))))) (CVar (37,"bs")))) (CApply (CVar (39,"f")) (CVar (38,"e"))))] [CLocalPat (CPVar (39,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (29,"var"))) (CVar (30,"lit"))) (CVar (31,"comb"))) (CVar (32,"lt"))) (CVar (33,"fr"))) (CVar (34,"or"))) (CVar (35,"cas"))) (CVar (36,"branch"))) []],CRule [CPVar (42,"var"),CPVar (43,"lit"),CPVar (44,"comb"),CPVar (45,"lt"),CPVar (46,"fr"),CPVar (47,"or"),CPVar (48,"cas"),CPVar (49,"branch"),CPComb ("FlatCurry","Free") [CPVar (50,"vs"),CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (46,"fr")) (CVar (50,"vs"))) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (42,"var"))) (CVar (43,"lit"))) (CVar (44,"comb"))) (CVar (45,"lt"))) (CVar (46,"fr"))) (CVar (47,"or"))) (CVar (48,"cas"))) (CVar (49,"branch"))) (CVar (51,"e"))))] [],CRule [CPVar (52,"var"),CPVar (53,"lit"),CPVar (54,"comb"),CPVar (55,"lt"),CPVar (56,"fr"),CPVar (57,"or"),CPVar (58,"cas"),CPVar (59,"branch"),CPComb ("FlatCurry","Or") [CPVar (60,"e1"),CPVar (61,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (57,"or")) (CApply (CVar (62,"f")) (CVar (60,"e1")))) (CApply (CVar (62,"f")) (CVar (61,"e2"))))] [CLocalPat (CPVar (62,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (52,"var"))) (CVar (53,"lit"))) (CVar (54,"comb"))) (CVar (55,"lt"))) (CVar (56,"fr"))) (CVar (57,"or"))) (CVar (58,"cas"))) (CVar (59,"branch"))) []],CRule [CPVar (63,"var"),CPVar (64,"lit"),CPVar (65,"comb"),CPVar (66,"lt"),CPVar (67,"fr"),CPVar (68,"or"),CPVar (69,"cas"),CPVar (70,"branch"),CPComb ("FlatCurry","Case") [CPVar (71,"ct"),CPVar (72,"e"),CPVar (73,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (69,"cas")) (CVar (71,"ct"))) (CApply (CVar (74,"f")) (CVar (72,"e")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Branch") [CPVar (75,"pat"),CPVar (76,"exp")]] (CApply (CApply (CVar (70,"branch")) (CVar (75,"pat"))) (CApply (CVar (74,"f")) (CVar (76,"exp")))))) (CVar (73,"bs"))))] [CLocalPat (CPVar (74,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (63,"var"))) (CVar (64,"lit"))) (CVar (65,"comb"))) (CVar (66,"lt"))) (CVar (67,"fr"))) (CVar (68,"or"))) (CVar (69,"cas"))) (CVar (70,"branch"))) []]]),+  CFunc ("FlatCurryGoodies","trFunc") 2 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTVar (0,"a"))))))) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"func"),CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"arity"),CPVar (3,"vis"),CPVar (4,"t"),CPVar (5,"rule")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CVar (0,"func")) (CVar (1,"name"))) (CVar (2,"arity"))) (CVar (3,"vis"))) (CVar (4,"t"))) (CVar (5,"rule")))] []]),+  CFunc ("FlatCurryGoodies","trOp") 2 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Fixity") []) (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))))) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"op"),CPComb ("FlatCurry","Op") [CPVar (1,"name"),CPVar (2,"fix"),CPVar (3,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (0,"op")) (CVar (1,"name"))) (CVar (2,"fix"))) (CVar (3,"prec")))] []]),+  CFunc ("FlatCurryGoodies","trPattern") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"pattern"),CPVar (1,"_"),CPComb ("FlatCurry","Pattern") [CPVar (2,"name"),CPVar (3,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"pattern")) (CVar (2,"name"))) (CVar (3,"args")))] [],CRule [CPVar (4,"_"),CPVar (5,"lpattern"),CPComb ("FlatCurry","LPattern") [CPVar (6,"l")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"lpattern")) (CVar (6,"l")))] []]),+  CFunc ("FlatCurryGoodies","trProg") 2 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTVar (0,"a"))))))) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"prog"),CPComb ("FlatCurry","Prog") [CPVar (1,"name"),CPVar (2,"imps"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CVar (0,"prog")) (CVar (1,"name"))) (CVar (2,"imps"))) (CVar (3,"types"))) (CVar (4,"funcs"))) (CVar (5,"ops")))] []]),+  CFunc ("FlatCurryGoodies","trRule") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"rule"),CPVar (1,"_"),CPComb ("FlatCurry","Rule") [CPVar (2,"args"),CPVar (3,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"rule")) (CVar (2,"args"))) (CVar (3,"exp")))] [],CRule [CPVar (4,"_"),CPVar (5,"ext"),CPComb ("FlatCurry","External") [CPVar (6,"s")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"ext")) (CVar (6,"s")))] []]),+  CFunc ("FlatCurryGoodies","trType") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTVar (0,"a")))))) (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTVar (0,"a")))))) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"typ"),CPVar (1,"_"),CPComb ("FlatCurry","Type") [CPVar (2,"name"),CPVar (3,"vis"),CPVar (4,"params"),CPVar (5,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (0,"typ")) (CVar (2,"name"))) (CVar (3,"vis"))) (CVar (4,"params"))) (CVar (5,"cs")))] [],CRule [CPVar (6,"_"),CPVar (7,"typesyn"),CPComb ("FlatCurry","TypeSyn") [CPVar (8,"name"),CPVar (9,"vis"),CPVar (10,"params"),CPVar (11,"syn")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (7,"typesyn")) (CVar (8,"name"))) (CVar (9,"vis"))) (CVar (10,"params"))) (CVar (11,"syn")))] []]),+  CFunc ("FlatCurryGoodies","trTypeExpr") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (0,"a")))) (CFuncType (CFuncType (CTVar (0,"a")) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTVar (0,"a")))))) (CRules CFlex [CRule [CPVar (0,"tvar"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","TVar") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (0,"tvar")) (CVar (3,"n")))] [],CRule [CPVar (4,"tvar"),CPVar (5,"tcons"),CPVar (6,"functype"),CPComb ("FlatCurry","TCons") [CPVar (7,"name"),CPVar (8,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (5,"tcons")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (4,"tvar"))) (CVar (5,"tcons"))) (CVar (6,"functype")))) (CVar (8,"args"))))] [],CRule [CPVar (9,"tvar"),CPVar (10,"tcons"),CPVar (11,"functype"),CPComb ("FlatCurry","FuncType") [CPVar (12,"from"),CPVar (13,"to")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (11,"functype")) (CApply (CVar (14,"f")) (CVar (12,"from")))) (CApply (CVar (14,"f")) (CVar (13,"to"))))] [CLocalPat (CPVar (14,"f")) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (9,"tvar"))) (CVar (10,"tcons"))) (CVar (11,"functype"))) []]]),+  CFunc ("FlatCurryGoodies","typeConsDecls") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CVar (3,"cs")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","typeName") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CVar (0,"name")))) (CLambda [CPVar (4,"name"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CVar (4,"name"))))] []]),+  CFunc ("FlatCurryGoodies","typeParams") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"params"),CPVar (3,"_")] (CVar (2,"params")))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"params"),CPVar (7,"_")] (CVar (6,"params"))))] []]),+  CFunc ("FlatCurryGoodies","typeSyn") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CSymbol ("Prelude","failed"))) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"syn")] (CVar (3,"syn"))))] []]),+  CFunc ("FlatCurryGoodies","typeVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"vis"),CPVar (2,"_"),CPVar (3,"_")] (CVar (1,"vis")))) (CLambda [CPVar (4,"_"),CPVar (5,"vis"),CPVar (6,"_"),CPVar (7,"_")] (CVar (5,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","updBranch") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","BranchExpr") [])))) (CRules CFlex [CRule [CPVar (0,"fp"),CPVar (1,"fe")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CSymbol ("FlatCurryGoodies","branch")))] [CLocalFunc (CFunc ("FlatCurryGoodies","branch") 2 Private (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","BranchExpr") []))) (CRules CFlex [CRule [CPVar (2,"pat"),CPVar (3,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CVar (0,"fp")) (CVar (2,"pat")))) (CApply (CVar (1,"fe")) (CVar (3,"exp"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updBranchExpr") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","BranchExpr") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updBranch")) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updBranchPattern") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") [])) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","BranchExpr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updBranch")) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updBranches") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","BranchExpr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"branch")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CVar (0,"branch")))] []]),+  CFunc ("FlatCurryGoodies","updCases") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","CaseType") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []]) (CTCons ("FlatCurry","Expr") [])))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"cas")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CVar (0,"cas"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updCombs") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]) (CTCons ("FlatCurry","Expr") [])))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"comb")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CVar (0,"comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updCons") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") [])))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fv"),CPVar (3,"fas")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CSymbol ("FlatCurryGoodies","cons")))] [CLocalFunc (CFunc ("FlatCurryGoodies","cons") 4 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("FlatCurry","ConsDecl") []))))) (CRules CFlex [CRule [CPVar (4,"name"),CPVar (5,"arity"),CPVar (6,"vis"),CPVar (7,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Cons")) (CApply (CVar (0,"fn")) (CVar (4,"name")))) (CApply (CVar (1,"fa")) (CVar (5,"arity")))) (CApply (CVar (2,"fv")) (CVar (6,"vis")))) (CApply (CVar (3,"fas")) (CVar (7,"args"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updConsArgs") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsArity") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsName") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsVisibility") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFrees") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"fr")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CVar (0,"fr"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updFunc") 5 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fv"),CPVar (3,"ft"),CPVar (4,"fr")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CSymbol ("FlatCurryGoodies","func")))] [CLocalFunc (CFunc ("FlatCurryGoodies","func") 5 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","FuncDecl") [])))))) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"arity"),CPVar (7,"vis"),CPVar (8,"t"),CPVar (9,"rule")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fa")) (CVar (6,"arity")))) (CApply (CVar (2,"fv")) (CVar (7,"vis")))) (CApply (CVar (3,"ft")) (CVar (8,"t")))) (CApply (CVar (4,"fr")) (CVar (9,"rule"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updFuncArgs") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updFuncRule"))) (CSymbol ("FlatCurryGoodies","updRuleArgs")))] []]),+  CFunc ("FlatCurryGoodies","updFuncArity") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncBody") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updFuncRule"))) (CSymbol ("FlatCurryGoodies","updRuleBody")))] []]),+  CFunc ("FlatCurryGoodies","updFuncName") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncRule") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncType") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncTypes") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CSymbol ("FlatCurry","TVar"))) (CSymbol ("FlatCurry","TCons")))] []]),+  CFunc ("FlatCurryGoodies","updFuncVisibility") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updLets") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"lt")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CVar (0,"lt"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updLiterals") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"lit")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CVar (0,"lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updOp") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("FlatCurry","Fixity") [])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","OpDecl") []))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"ff"),CPVar (2,"fp")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CSymbol ("FlatCurryGoodies","op")))] [CLocalFunc (CFunc ("FlatCurryGoodies","op") 3 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Fixity") []) (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("FlatCurry","OpDecl") [])))) (CRules CFlex [CRule [CPVar (3,"name"),CPVar (4,"fix"),CPVar (5,"prec")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Op")) (CApply (CVar (0,"fn")) (CVar (3,"name")))) (CApply (CVar (1,"ff")) (CVar (4,"fix")))) (CApply (CVar (2,"fp")) (CVar (5,"prec"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updOpFixity") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("FlatCurry","Fixity") [])) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","OpDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOpName") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","OpDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOpPrecedence") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","OpDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOrs") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"or")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CVar (0,"or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updPatArgs") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updPatCons") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updPatLiteral") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Literal") [])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f")))] []]),+  CFunc ("FlatCurryGoodies","updPattern") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Literal") [])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fl")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CSymbol ("FlatCurryGoodies","pattern"))) (CSymbol ("FlatCurryGoodies","lpattern")))] [CLocalFunc (CFunc ("FlatCurryGoodies","pattern") 2 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (3,"name"),CPVar (4,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Pattern")) (CApply (CVar (0,"fn")) (CVar (3,"name")))) (CApply (CVar (1,"fa")) (CVar (4,"args"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","lpattern") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Pattern") [])) (CRules CFlex [CRule [CPVar (3,"l")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","LPattern")) (CApply (CVar (2,"fl")) (CVar (3,"l"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updProg") 5 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fi"),CPVar (2,"ft"),CPVar (3,"ff"),CPVar (4,"fo")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CSymbol ("FlatCurryGoodies","prog")))] [CLocalFunc (CFunc ("FlatCurryGoodies","prog") 5 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("FlatCurry","Prog") [])))))) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"imps"),CPVar (7,"types"),CPVar (8,"funcs"),CPVar (9,"ops")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fi")) (CVar (6,"imps")))) (CApply (CVar (2,"ft")) (CVar (7,"types")))) (CApply (CVar (3,"ff")) (CVar (8,"funcs")))) (CApply (CVar (4,"fo")) (CVar (9,"ops"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updProgExps") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updProgFuncs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","map"))) (CSymbol ("FlatCurryGoodies","updFuncBody"))))] []]),+  CFunc ("FlatCurryGoodies","updProgFuncs") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgImports") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgName") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgOps") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgTypes") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updQNames") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurryGoodies","comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Branch"))) (CApply (CSymbol ("FlatCurryGoodies","updPatCons")) (CVar (0,"f")))))] [CLocalFunc (CFunc ("FlatCurryGoodies","comb") 3 Private (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]) (CTCons ("FlatCurry","Expr") [])))) (CRules CFlex [CRule [CPVar (1,"ct"),CPVar (2,"name"),CPVar (3,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (1,"ct"))) (CApply (CVar (0,"f")) (CVar (2,"name")))) (CVar (3,"args")))] []]))]]),+  CFunc ("FlatCurryGoodies","updQNamesInConsDecl") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f")))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInFunc") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f")))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInRule")) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInProg") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInType")) (CVar (0,"f"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInFunc")) (CVar (0,"f"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updOpName")) (CVar (0,"f")))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInRule") 0 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updRuleBody"))) (CSymbol ("FlatCurryGoodies","updQNames")))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInType") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInConsDecl")) (CVar (0,"f"))))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInTypeExpr") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updTCons")) (CLambda [CPVar (1,"name"),CPVar (2,"args")] (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CVar (0,"f")) (CVar (1,"name")))) (CVar (2,"args")))))] []]),+  CFunc ("FlatCurryGoodies","updRule") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))))) (CRules CFlex [CRule [CPVar (0,"fa"),CPVar (1,"fe"),CPVar (2,"fs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CSymbol ("FlatCurryGoodies","rule"))) (CSymbol ("FlatCurryGoodies","ext")))] [CLocalFunc (CFunc ("FlatCurryGoodies","rule") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [CPVar (3,"args"),CPVar (4,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Rule")) (CApply (CVar (0,"fa")) (CVar (3,"args")))) (CApply (CVar (1,"fe")) (CVar (4,"exp"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","ext") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("FlatCurry","Rule") [])) (CRules CFlex [CRule [CPVar (3,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","External")) (CApply (CVar (2,"fs")) (CVar (3,"s"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updRuleArgs") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updRuleBody") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updRuleExtDecl") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f")))] []]),+  CFunc ("FlatCurryGoodies","updTCons") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("FlatCurry","TypeExpr") []))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"tcons")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CSymbol ("FlatCurry","TVar"))) (CVar (0,"tcons"))) (CSymbol ("FlatCurry","FuncType")))] []]),+  CFunc ("FlatCurryGoodies","updTVars") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"tvar")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (0,"tvar"))) (CSymbol ("FlatCurry","TCons"))) (CSymbol ("FlatCurry","FuncType")))] []]),+  CFunc ("FlatCurryGoodies","updType") 5 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fv"),CPVar (2,"fp"),CPVar (3,"fc"),CPVar (4,"fs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CSymbol ("FlatCurryGoodies","typ"))) (CSymbol ("FlatCurryGoodies","typesyn")))] [CLocalFunc (CFunc ("FlatCurryGoodies","typ") 4 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("FlatCurry","TypeDecl") []))))) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"vis"),CPVar (7,"params"),CPVar (8,"cs")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Type")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fv")) (CVar (6,"vis")))) (CApply (CVar (2,"fp")) (CVar (7,"params")))) (CApply (CVar (3,"fc")) (CVar (8,"cs"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","typesyn") 4 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeDecl") []))))) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"vis"),CPVar (7,"params"),CPVar (8,"syn")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","TypeSyn")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fv")) (CVar (6,"vis")))) (CApply (CVar (2,"fp")) (CVar (7,"params")))) (CApply (CVar (4,"fs")) (CVar (8,"syn"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updTypeConsDecls") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeName") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeParams") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeSynonym") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeVisibility") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updVars") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"var")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (0,"var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","varNr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CVar (0,"n"))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.cy view
@@ -0,0 +1,330 @@+Module "FlatCurryGoodies"+Nothing+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (20,1) "FlatCurry" False Nothing Nothing)+,(TypeDecl (22,1) (Ident "Update" 0) [(Ident "a" 0),(Ident "b" 0)] (ArrowType (ArrowType (VariableType (Ident "b" 0)) (VariableType (Ident "b" 0))) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "a" 0)))))+,(TypeSig (27,1) [(Ident "trProg" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) [])) (VariableType (Ident "a" 0))))))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (VariableType (Ident "a" 0)))))+,(FunctionDecl (29,1) (Ident "trProg" 0) [(Equation (29,1) (FunLhs (Ident "trProg" 0) [(VariablePattern (Ident "prog" 2)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "name" 2)),(VariablePattern (Ident "imps" 2)),(VariablePattern (Ident "types" 2)),(VariablePattern (Ident "funcs" 2)),(VariablePattern (Ident "ops" 2))]))]) (SimpleRhs (29,48) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "prog" 2))) (Variable (QualIdent Nothing (Ident "name" 2)))) (Variable (QualIdent Nothing (Ident "imps" 2)))) (Variable (QualIdent Nothing (Ident "types" 2)))) (Variable (QualIdent Nothing (Ident "funcs" 2)))) (Variable (QualIdent Nothing (Ident "ops" 2)))) []))])+,(TypeSig (34,1) [(Ident "progName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (35,1) (Ident "progName" 0) [(Equation (35,1) (FunLhs (Ident "progName" 0) []) (SimpleRhs (35,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 6)),(VariablePattern (Ident "_" 7)),(VariablePattern (Ident "_" 8)),(VariablePattern (Ident "_" 9)),(VariablePattern (Ident "_" 10))] (Variable (QualIdent Nothing (Ident "name" 6)))))) []))])+,(TypeSig (38,1) [(Ident "progImports" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (39,1) (Ident "progImports" 0) [(Equation (39,1) (FunLhs (Ident "progImports" 0) []) (SimpleRhs (39,15) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 14)),(VariablePattern (Ident "imps" 13)),(VariablePattern (Ident "_" 15)),(VariablePattern (Ident "_" 16)),(VariablePattern (Ident "_" 17))] (Variable (QualIdent Nothing (Ident "imps" 13)))))) []))])+,(TypeSig (42,1) [(Ident "progTypes" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []))))+,(FunctionDecl (43,1) (Ident "progTypes" 0) [(Equation (43,1) (FunLhs (Ident "progTypes" 0) []) (SimpleRhs (43,13) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 21)),(VariablePattern (Ident "_" 22)),(VariablePattern (Ident "types" 20)),(VariablePattern (Ident "_" 23)),(VariablePattern (Ident "_" 24))] (Variable (QualIdent Nothing (Ident "types" 20)))))) []))])+,(TypeSig (46,1) [(Ident "progFuncs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []))))+,(FunctionDecl (47,1) (Ident "progFuncs" 0) [(Equation (47,1) (FunLhs (Ident "progFuncs" 0) []) (SimpleRhs (47,13) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 28)),(VariablePattern (Ident "_" 29)),(VariablePattern (Ident "_" 30)),(VariablePattern (Ident "funcs" 27)),(VariablePattern (Ident "_" 31))] (Variable (QualIdent Nothing (Ident "funcs" 27)))))) []))])+,(TypeSig (50,1) [(Ident "progOps" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))))+,(FunctionDecl (51,1) (Ident "progOps" 0) [(Equation (51,1) (FunLhs (Ident "progOps" 0) []) (SimpleRhs (51,11) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 35)),(VariablePattern (Ident "_" 36)),(VariablePattern (Ident "_" 37)),(VariablePattern (Ident "_" 38)),(VariablePattern (Ident "ops" 34))] (Variable (QualIdent Nothing (Ident "ops" 34)))))) []))])+,(TypeSig (56,1) [(Ident "updProg" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []))) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []))) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))))))))+,(FunctionDecl (61,1) (Ident "updProg" 0) [(Equation (61,1) (FunLhs (Ident "updProg" 0) [(VariablePattern (Ident "fn" 39)),(VariablePattern (Ident "fi" 39)),(VariablePattern (Ident "ft" 39)),(VariablePattern (Ident "ff" 39)),(VariablePattern (Ident "fo" 39))]) (SimpleRhs (61,26) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trProg" 0))) (Variable (QualIdent Nothing (Ident "prog" 40)))) [(FunctionDecl (63,3) (Ident "prog" 40) [(Equation (63,3) (FunLhs (Ident "prog" 40) [(VariablePattern (Ident "name" 41)),(VariablePattern (Ident "imps" 41)),(VariablePattern (Ident "types" 41)),(VariablePattern (Ident "funcs" 41)),(VariablePattern (Ident "ops" 41))]) (SimpleRhs (64,7) (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Prog" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 39))) (Variable (QualIdent Nothing (Ident "name" 41)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fi" 39))) (Variable (QualIdent Nothing (Ident "imps" 41)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "ft" 39))) (Variable (QualIdent Nothing (Ident "types" 41)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "ff" 39))) (Variable (QualIdent Nothing (Ident "funcs" 41)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fo" 39))) (Variable (QualIdent Nothing (Ident "ops" 41)))))) []))])]))])+,(TypeSig (67,1) [(Ident "updProgName" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(FunctionDecl (68,1) (Ident "updProgName" 0) [(Equation (68,1) (FunLhs (Ident "updProgName" 0) [(VariablePattern (Ident "f" 43))]) (SimpleRhs (68,17) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent Nothing (Ident "f" 43)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (71,1) [(Ident "updProgImports" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))]))+,(FunctionDecl (72,1) (Ident "updProgImports" 0) [(Equation (72,1) (FunLhs (Ident "updProgImports" 0) [(VariablePattern (Ident "f" 45))]) (SimpleRhs (72,20) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 45)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (75,1) [(Ident "updProgTypes" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []))]))+,(FunctionDecl (76,1) (Ident "updProgTypes" 0) [(Equation (76,1) (FunLhs (Ident "updProgTypes" 0) [(VariablePattern (Ident "f" 47))]) (SimpleRhs (76,18) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 47)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (79,1) [(Ident "updProgFuncs" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []))]))+,(FunctionDecl (80,1) (Ident "updProgFuncs" 0) [(Equation (80,1) (FunLhs (Ident "updProgFuncs" 0) [(VariablePattern (Ident "f" 49))]) (SimpleRhs (80,18) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 49)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (83,1) [(Ident "updProgOps" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))]))+,(FunctionDecl (84,1) (Ident "updProgOps" 0) [(Equation (84,1) (FunLhs (Ident "updProgOps" 0) []) (SimpleRhs (84,14) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (89,1) [(Ident "allVarsInProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (90,1) (Ident "allVarsInProg" 0) [(Equation (90,1) (FunLhs (Ident "allVarsInProg" 0) []) (SimpleRhs (90,17) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "allVarsInFunc" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "progFuncs" 0)))) []))])+,(TypeSig (93,1) [(Ident "updProgExps" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]))+,(FunctionDecl (94,1) (Ident "updProgExps" 0) [(Equation (94,1) (FunLhs (Ident "updProgExps" 0) []) (SimpleRhs (94,15) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProgFuncs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFuncBody" 0))))) []))])+,(TypeSig (97,1) [(Ident "rnmAllVarsInProg" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])]))+,(FunctionDecl (98,1) (Ident "rnmAllVarsInProg" 0) [(Equation (98,1) (FunLhs (Ident "rnmAllVarsInProg" 0) []) (SimpleRhs (98,20) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProgFuncs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "rnmAllVarsInFunc" 0))))) []))])+,(TypeSig (101,1) [(Ident "updQNamesInProg" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (102,1) (Ident "updQNamesInProg" 0) [(Equation (102,1) (FunLhs (Ident "updQNamesInProg" 0) [(VariablePattern (Ident "f" 59))]) (SimpleRhs (102,21) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProg" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInType" 0))) (Variable (QualIdent Nothing (Ident "f" 59)))))))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInFunc" 0))) (Variable (QualIdent Nothing (Ident "f" 59)))))))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updOpName" 0))) (Variable (QualIdent Nothing (Ident "f" 59)))))))) []))])+,(TypeSig (106,1) [(Ident "rnmProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))))+,(FunctionDecl (107,1) (Ident "rnmProg" 0) [(Equation (107,1) (FunLhs (Ident "rnmProg" 0) [(VariablePattern (Ident "name" 61)),(VariablePattern (Ident "p" 61))]) (SimpleRhs (107,18) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProgName" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "const" 0))) (Variable (QualIdent Nothing (Ident "name" 61)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInProg" 0))) (Variable (QualIdent Nothing (Ident "rnm" 62)))) (Variable (QualIdent Nothing (Ident "p" 61)))))) [(FunctionDecl (109,3) (Ident "rnm" 62) [(Equation (109,3) (FunLhs (Ident "rnm" 62) [(TuplePattern [(VariablePattern (Ident "mod" 63)),(VariablePattern (Ident "n" 63))])]) (GuardedRhs [(CondExpr (109,15) (InfixApply (Variable (QualIdent Nothing (Ident "mod" 63))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "progName" 0))) (Variable (QualIdent Nothing (Ident "p" 61))))) (Tuple [(Variable (QualIdent Nothing (Ident "name" 61))),(Variable (QualIdent Nothing (Ident "n" 63)))])),(CondExpr (110,15) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 63))),(Variable (QualIdent Nothing (Ident "n" 63)))]))] []))])]))])+,(TypeSig (117,1) [(Ident "trType" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) [])) (VariableType (Ident "a" 0)))))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (VariableType (Ident "a" 0)))))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (VariableType (Ident "a" 0))))))+,(FunctionDecl (119,1) (Ident "trType" 0) [(Equation (119,1) (FunLhs (Ident "trType" 0) [(VariablePattern (Ident "typ" 65)),(VariablePattern (Ident "_" 66)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 65)),(VariablePattern (Ident "vis" 65)),(VariablePattern (Ident "params" 65)),(VariablePattern (Ident "cs" 65))]))]) (SimpleRhs (119,42) (Apply (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "typ" 65))) (Variable (QualIdent Nothing (Ident "name" 65)))) (Variable (QualIdent Nothing (Ident "vis" 65)))) (Variable (QualIdent Nothing (Ident "params" 65)))) (Variable (QualIdent Nothing (Ident "cs" 65)))) [])),(Equation (120,1) (FunLhs (Ident "trType" 0) [(VariablePattern (Ident "_" 69)),(VariablePattern (Ident "typesyn" 68)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 68)),(VariablePattern (Ident "vis" 68)),(VariablePattern (Ident "params" 68)),(VariablePattern (Ident "syn" 68))]))]) (SimpleRhs (120,50) (Apply (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "typesyn" 68))) (Variable (QualIdent Nothing (Ident "name" 68)))) (Variable (QualIdent Nothing (Ident "vis" 68)))) (Variable (QualIdent Nothing (Ident "params" 68)))) (Variable (QualIdent Nothing (Ident "syn" 68)))) []))])+,(TypeSig (123,1) [(Ident "typeName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (124,1) (Ident "typeName" 0) [(Equation (124,1) (FunLhs (Ident "typeName" 0) []) (SimpleRhs (124,12) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 73)),(VariablePattern (Ident "_" 74)),(VariablePattern (Ident "_" 75)),(VariablePattern (Ident "_" 76))] (Variable (QualIdent Nothing (Ident "name" 73)))))) (Paren (Lambda [(VariablePattern (Ident "name" 77)),(VariablePattern (Ident "_" 78)),(VariablePattern (Ident "_" 79)),(VariablePattern (Ident "_" 80))] (Variable (QualIdent Nothing (Ident "name" 77)))))) []))])+,(TypeSig (127,1) [(Ident "typeVisibility" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])))+,(FunctionDecl (128,1) (Ident "typeVisibility" 0) [(Equation (128,1) (FunLhs (Ident "typeVisibility" 0) []) (SimpleRhs (128,18) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 84)),(VariablePattern (Ident "vis" 83)),(VariablePattern (Ident "_" 85)),(VariablePattern (Ident "_" 86))] (Variable (QualIdent Nothing (Ident "vis" 83)))))) (Paren (Lambda [(VariablePattern (Ident "_" 88)),(VariablePattern (Ident "vis" 87)),(VariablePattern (Ident "_" 89)),(VariablePattern (Ident "_" 90))] (Variable (QualIdent Nothing (Ident "vis" 87)))))) []))])+,(TypeSig (131,1) [(Ident "typeParams" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []))))+,(FunctionDecl (132,1) (Ident "typeParams" 0) [(Equation (132,1) (FunLhs (Ident "typeParams" 0) []) (SimpleRhs (132,14) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 94)),(VariablePattern (Ident "_" 95)),(VariablePattern (Ident "params" 93)),(VariablePattern (Ident "_" 96))] (Variable (QualIdent Nothing (Ident "params" 93)))))) (Paren (Lambda [(VariablePattern (Ident "_" 98)),(VariablePattern (Ident "_" 99)),(VariablePattern (Ident "params" 97)),(VariablePattern (Ident "_" 100))] (Variable (QualIdent Nothing (Ident "params" 97)))))) []))])+,(TypeSig (135,1) [(Ident "typeConsDecls" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []))))+,(FunctionDecl (136,1) (Ident "typeConsDecls" 0) [(Equation (136,1) (FunLhs (Ident "typeConsDecls" 0) []) (SimpleRhs (136,17) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 104)),(VariablePattern (Ident "_" 105)),(VariablePattern (Ident "_" 106)),(VariablePattern (Ident "cs" 103))] (Variable (QualIdent Nothing (Ident "cs" 103)))))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) []))])+,(TypeSig (139,1) [(Ident "typeSyn" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (140,1) (Ident "typeSyn" 0) [(Equation (140,1) (FunLhs (Ident "typeSyn" 0) []) (SimpleRhs (140,11) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 110)),(VariablePattern (Ident "_" 111)),(VariablePattern (Ident "_" 112)),(VariablePattern (Ident "syn" 109))] (Variable (QualIdent Nothing (Ident "syn" 109)))))) []))])+,(TypeSig (143,1) [(Ident "isTypeSyn" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (144,1) (Ident "isTypeSyn" 0) [(Equation (144,1) (FunLhs (Ident "isTypeSyn" 0) []) (SimpleRhs (144,13) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 116)),(VariablePattern (Ident "_" 117)),(VariablePattern (Ident "_" 118)),(VariablePattern (Ident "_" 119))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 121)),(VariablePattern (Ident "_" 122)),(VariablePattern (Ident "_" 123)),(VariablePattern (Ident "_" 124))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) []))])+,(TypeSig (147,1) [(Ident "isDataTypeDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (148,1) (Ident "isDataTypeDecl" 0) [(Equation (148,1) (FunLhs (Ident "isDataTypeDecl" 0) []) (SimpleRhs (148,18) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 128)),(VariablePattern (Ident "_" 129)),(VariablePattern (Ident "_" 130)),(VariablePattern (Ident "cs" 127))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "cs" 127))))))))) (Paren (Lambda [(VariablePattern (Ident "_" 132)),(VariablePattern (Ident "_" 133)),(VariablePattern (Ident "_" 134)),(VariablePattern (Ident "_" 135))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (151,1) [(Ident "isExternalType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (152,1) (Ident "isExternalType" 0) [(Equation (152,1) (FunLhs (Ident "isExternalType" 0) []) (SimpleRhs (152,18) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 139)),(VariablePattern (Ident "_" 140)),(VariablePattern (Ident "_" 141)),(VariablePattern (Ident "cs" 138))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "cs" 138))))))) (Paren (Lambda [(VariablePattern (Ident "_" 143)),(VariablePattern (Ident "_" 144)),(VariablePattern (Ident "_" 145)),(VariablePattern (Ident "_" 146))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (157,1) [(Ident "updType" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []))) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []))))))))+,(FunctionDecl (162,1) (Ident "updType" 0) [(Equation (162,1) (FunLhs (Ident "updType" 0) [(VariablePattern (Ident "fn" 147)),(VariablePattern (Ident "fv" 147)),(VariablePattern (Ident "fp" 147)),(VariablePattern (Ident "fc" 147)),(VariablePattern (Ident "fs" 147))]) (SimpleRhs (162,26) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Variable (QualIdent Nothing (Ident "typ" 148)))) (Variable (QualIdent Nothing (Ident "typesyn" 148)))) [(FunctionDecl (164,3) (Ident "typ" 148) [(Equation (164,3) (FunLhs (Ident "typ" 148) [(VariablePattern (Ident "name" 149)),(VariablePattern (Ident "vis" 149)),(VariablePattern (Ident "params" 149)),(VariablePattern (Ident "cs" 149))]) (SimpleRhs (164,28) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Type" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 147))) (Variable (QualIdent Nothing (Ident "name" 149)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fv" 147))) (Variable (QualIdent Nothing (Ident "vis" 149)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fp" 147))) (Variable (QualIdent Nothing (Ident "params" 149)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fc" 147))) (Variable (QualIdent Nothing (Ident "cs" 149)))))) []))]),(FunctionDecl (165,3) (Ident "typesyn" 148) [(Equation (165,3) (FunLhs (Ident "typesyn" 148) [(VariablePattern (Ident "name" 151)),(VariablePattern (Ident "vis" 151)),(VariablePattern (Ident "params" 151)),(VariablePattern (Ident "syn" 151))]) (SimpleRhs (165,33) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 147))) (Variable (QualIdent Nothing (Ident "name" 151)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fv" 147))) (Variable (QualIdent Nothing (Ident "vis" 151)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fp" 147))) (Variable (QualIdent Nothing (Ident "params" 151)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 147))) (Variable (QualIdent Nothing (Ident "syn" 151)))))) []))])]))])+,(TypeSig (168,1) [(Ident "updTypeName" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (169,1) (Ident "updTypeName" 0) [(Equation (169,1) (FunLhs (Ident "updTypeName" 0) [(VariablePattern (Ident "f" 153))]) (SimpleRhs (169,17) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent Nothing (Ident "f" 153)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (172,1) [(Ident "updTypeVisibility" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])]))+,(FunctionDecl (173,1) (Ident "updTypeVisibility" 0) [(Equation (173,1) (FunLhs (Ident "updTypeVisibility" 0) [(VariablePattern (Ident "f" 155))]) (SimpleRhs (173,23) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 155)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (176,1) [(Ident "updTypeParams" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []))]))+,(FunctionDecl (177,1) (Ident "updTypeParams" 0) [(Equation (177,1) (FunLhs (Ident "updTypeParams" 0) [(VariablePattern (Ident "f" 157))]) (SimpleRhs (177,19) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 157)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (180,1) [(Ident "updTypeConsDecls" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []))]))+,(FunctionDecl (181,1) (Ident "updTypeConsDecls" 0) [(Equation (181,1) (FunLhs (Ident "updTypeConsDecls" 0) [(VariablePattern (Ident "f" 159))]) (SimpleRhs (181,22) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 159)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (184,1) [(Ident "updTypeSynonym" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]))+,(FunctionDecl (185,1) (Ident "updTypeSynonym" 0) [(Equation (185,1) (FunLhs (Ident "updTypeSynonym" 0) []) (SimpleRhs (185,18) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (190,1) [(Ident "updQNamesInType" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (191,1) (Ident "updQNamesInType" 0) [(Equation (191,1) (FunLhs (Ident "updQNamesInType" 0) [(VariablePattern (Ident "f" 163))]) (SimpleRhs (192,5) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updType" 0))) (Variable (QualIdent Nothing (Ident "f" 163)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInConsDecl" 0))) (Variable (QualIdent Nothing (Ident "f" 163)))))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "f" 163)))))) []))])+,(TypeSig (199,1) [(Ident "trCons" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (VariableType (Ident "a" 0)))))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (VariableType (Ident "a" 0)))))+,(FunctionDecl (200,1) (Ident "trCons" 0) [(Equation (200,1) (FunLhs (Ident "trCons" 0) [(VariablePattern (Ident "cons" 165)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "name" 165)),(VariablePattern (Ident "arity" 165)),(VariablePattern (Ident "vis" 165)),(VariablePattern (Ident "args" 165))]))]) (SimpleRhs (200,42) (Apply (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "cons" 165))) (Variable (QualIdent Nothing (Ident "name" 165)))) (Variable (QualIdent Nothing (Ident "arity" 165)))) (Variable (QualIdent Nothing (Ident "vis" 165)))) (Variable (QualIdent Nothing (Ident "args" 165)))) []))])+,(TypeSig (203,1) [(Ident "consName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (204,1) (Ident "consName" 0) [(Equation (204,1) (FunLhs (Ident "consName" 0) []) (SimpleRhs (204,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCons" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 169)),(VariablePattern (Ident "_" 170)),(VariablePattern (Ident "_" 171)),(VariablePattern (Ident "_" 172))] (Variable (QualIdent Nothing (Ident "name" 169)))))) []))])+,(TypeSig (207,1) [(Ident "consArity" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])))+,(FunctionDecl (208,1) (Ident "consArity" 0) [(Equation (208,1) (FunLhs (Ident "consArity" 0) []) (SimpleRhs (208,13) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCons" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 176)),(VariablePattern (Ident "arity" 175)),(VariablePattern (Ident "_" 177)),(VariablePattern (Ident "_" 178))] (Variable (QualIdent Nothing (Ident "arity" 175)))))) []))])+,(TypeSig (211,1) [(Ident "consVisibility" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])))+,(FunctionDecl (212,1) (Ident "consVisibility" 0) [(Equation (212,1) (FunLhs (Ident "consVisibility" 0) []) (SimpleRhs (212,18) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCons" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 182)),(VariablePattern (Ident "_" 183)),(VariablePattern (Ident "vis" 181)),(VariablePattern (Ident "_" 184))] (Variable (QualIdent Nothing (Ident "vis" 181)))))) []))])+,(TypeSig (215,1) [(Ident "consArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (216,1) (Ident "consArgs" 0) [(Equation (216,1) (FunLhs (Ident "consArgs" 0) []) (SimpleRhs (216,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCons" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 188)),(VariablePattern (Ident "_" 189)),(VariablePattern (Ident "_" 190)),(VariablePattern (Ident "args" 187))] (Variable (QualIdent Nothing (Ident "args" 187)))))) []))])+,(TypeSig (221,1) [(Ident "updCons" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) [])))))))+,(FunctionDecl (225,1) (Ident "updCons" 0) [(Equation (225,1) (FunLhs (Ident "updCons" 0) [(VariablePattern (Ident "fn" 191)),(VariablePattern (Ident "fa" 191)),(VariablePattern (Ident "fv" 191)),(VariablePattern (Ident "fas" 191))]) (SimpleRhs (225,24) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCons" 0))) (Variable (QualIdent Nothing (Ident "cons" 192)))) [(FunctionDecl (227,3) (Ident "cons" 192) [(Equation (227,3) (FunLhs (Ident "cons" 192) [(VariablePattern (Ident "name" 193)),(VariablePattern (Ident "arity" 193)),(VariablePattern (Ident "vis" 193)),(VariablePattern (Ident "args" 193))]) (SimpleRhs (227,30) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Cons" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 191))) (Variable (QualIdent Nothing (Ident "name" 193)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fa" 191))) (Variable (QualIdent Nothing (Ident "arity" 193)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fv" 191))) (Variable (QualIdent Nothing (Ident "vis" 193)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fas" 191))) (Variable (QualIdent Nothing (Ident "args" 193)))))) []))])]))])+,(TypeSig (230,1) [(Ident "updConsName" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (231,1) (Ident "updConsName" 0) [(Equation (231,1) (FunLhs (Ident "updConsName" 0) [(VariablePattern (Ident "f" 195))]) (SimpleRhs (231,17) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCons" 0))) (Variable (QualIdent Nothing (Ident "f" 195)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (234,1) [(Ident "updConsArity" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]))+,(FunctionDecl (235,1) (Ident "updConsArity" 0) [(Equation (235,1) (FunLhs (Ident "updConsArity" 0) [(VariablePattern (Ident "f" 197))]) (SimpleRhs (235,18) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCons" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 197)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (238,1) [(Ident "updConsVisibility" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])]))+,(FunctionDecl (239,1) (Ident "updConsVisibility" 0) [(Equation (239,1) (FunLhs (Ident "updConsVisibility" 0) [(VariablePattern (Ident "f" 199))]) (SimpleRhs (239,23) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCons" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 199)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (242,1) [(Ident "updConsArgs" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))]))+,(FunctionDecl (243,1) (Ident "updConsArgs" 0) [(Equation (243,1) (FunLhs (Ident "updConsArgs" 0) []) (SimpleRhs (243,15) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCons" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (248,1) [(Ident "updQNamesInConsDecl" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (249,1) (Ident "updQNamesInConsDecl" 0) [(Equation (249,1) (FunLhs (Ident "updQNamesInConsDecl" 0) [(VariablePattern (Ident "f" 203))]) (SimpleRhs (249,25) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCons" 0))) (Variable (QualIdent Nothing (Ident "f" 203)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "f" 203)))))))) []))])+,(TypeSig (256,1) [(Ident "tVarIndex" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])))+,(FunctionDecl (257,1) (Ident "tVarIndex" 0) [(Equation (257,1) (FunLhs (Ident "tVarIndex" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 205))]))]) (SimpleRhs (257,22) (Variable (QualIdent Nothing (Ident "n" 205))) []))])+,(TypeSig (260,1) [(Ident "domain" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (261,1) (Ident "domain" 0) [(Equation (261,1) (FunLhs (Ident "domain" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "dom" 207)),(VariablePattern (Ident "_" 208))]))]) (SimpleRhs (261,27) (Variable (QualIdent Nothing (Ident "dom" 207))) []))])+,(TypeSig (264,1) [(Ident "range" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (265,1) (Ident "range" 0) [(Equation (265,1) (FunLhs (Ident "range" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "_" 211)),(VariablePattern (Ident "ran" 210))]))]) (SimpleRhs (265,26) (Variable (QualIdent Nothing (Ident "ran" 210))) []))])+,(TypeSig (268,1) [(Ident "tConsName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (269,1) (Ident "tConsName" 0) [(Equation (269,1) (FunLhs (Ident "tConsName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "name" 213)),(VariablePattern (Ident "_" 214))]))]) (SimpleRhs (269,28) (Variable (QualIdent Nothing (Ident "name" 213))) []))])+,(TypeSig (272,1) [(Ident "tConsArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (273,1) (Ident "tConsArgs" 0) [(Equation (273,1) (FunLhs (Ident "tConsArgs" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "_" 217)),(VariablePattern (Ident "args" 216))]))]) (SimpleRhs (273,28) (Variable (QualIdent Nothing (Ident "args" 216))) []))])+,(TypeSig (276,1) [(Ident "trTypeExpr" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ListType (VariableType (Ident "a" 0))) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "a" 0)))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (VariableType (Ident "a" 0)))))))+,(FunctionDecl (279,1) (Ident "trTypeExpr" 0) [(Equation (279,1) (FunLhs (Ident "trTypeExpr" 0) [(VariablePattern (Ident "tvar" 219)),(VariablePattern (Ident "_" 220)),(VariablePattern (Ident "_" 221)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 219))]))]) (SimpleRhs (279,32) (Apply (Variable (QualIdent Nothing (Ident "tvar" 219))) (Variable (QualIdent Nothing (Ident "n" 219)))) [])),(Equation (280,1) (FunLhs (Ident "trTypeExpr" 0) [(VariablePattern (Ident "tvar" 223)),(VariablePattern (Ident "tcons" 223)),(VariablePattern (Ident "functype" 223)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "name" 223)),(VariablePattern (Ident "args" 223))]))]) (SimpleRhs (281,5) (Apply (Apply (Variable (QualIdent Nothing (Ident "tcons" 223))) (Variable (QualIdent Nothing (Ident "name" 223)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "tvar" 223)))) (Variable (QualIdent Nothing (Ident "tcons" 223)))) (Variable (QualIdent Nothing (Ident "functype" 223)))))) (Variable (QualIdent Nothing (Ident "args" 223)))))) [])),(Equation (282,1) (FunLhs (Ident "trTypeExpr" 0) [(VariablePattern (Ident "tvar" 225)),(VariablePattern (Ident "tcons" 225)),(VariablePattern (Ident "functype" 225)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "from" 225)),(VariablePattern (Ident "to" 225))]))]) (SimpleRhs (282,53) (Apply (Apply (Variable (QualIdent Nothing (Ident "functype" 225))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 226))) (Variable (QualIdent Nothing (Ident "from" 225)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 226))) (Variable (QualIdent Nothing (Ident "to" 225)))))) [(PatternDecl (284,3) (VariablePattern (Ident "f" 226)) (SimpleRhs (284,7) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "tvar" 225)))) (Variable (QualIdent Nothing (Ident "tcons" 225)))) (Variable (QualIdent Nothing (Ident "functype" 225)))) []))]))])+,(TypeSig (289,1) [(Ident "isTVar" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (290,1) (Ident "isTVar" 0) [(Equation (290,1) (FunLhs (Ident "isTVar" 0) []) (SimpleRhs (290,10) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 231))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 233)),(VariablePattern (Ident "_" 234))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 236)),(VariablePattern (Ident "_" 237))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (293,1) [(Ident "isTCons" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (294,1) (Ident "isTCons" 0) [(Equation (294,1) (FunLhs (Ident "isTCons" 0) []) (SimpleRhs (294,11) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 241))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 243)),(VariablePattern (Ident "_" 244))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 246)),(VariablePattern (Ident "_" 247))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (297,1) [(Ident "isFuncType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (298,1) (Ident "isFuncType" 0) [(Equation (298,1) (FunLhs (Ident "isFuncType" 0) []) (SimpleRhs (298,14) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 251))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 253)),(VariablePattern (Ident "_" 254))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 256)),(VariablePattern (Ident "_" 257))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) []))])+,(TypeSig (303,1) [(Ident "updTVars" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (304,1) (Ident "updTVars" 0) [(Equation (304,1) (FunLhs (Ident "updTVars" 0) [(VariablePattern (Ident "tvar" 258))]) (SimpleRhs (304,17) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "tvar" 258)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)))) []))])+,(TypeSig (307,1) [(Ident "updTCons" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (308,1) (Ident "updTCons" 0) [(Equation (308,1) (FunLhs (Ident "updTCons" 0) [(VariablePattern (Ident "tcons" 260))]) (SimpleRhs (308,18) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "TVar" 0)))) (Variable (QualIdent Nothing (Ident "tcons" 260)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)))) []))])+,(TypeSig (311,1) [(Ident "updFuncTypes" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (312,1) (Ident "updFuncTypes" 0) [(Equation (312,1) (FunLhs (Ident "updFuncTypes" 0) []) (SimpleRhs (312,16) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "TVar" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0)))) []))])+,(TypeSig (317,1) [(Ident "argTypes" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (318,1) (Ident "argTypes" 0) [(Equation (318,1) (FunLhs (Ident "argTypes" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "_" 265))]))]) (SimpleRhs (318,21) (List []) [])),(Equation (319,1) (FunLhs (Ident "argTypes" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "_" 268)),(VariablePattern (Ident "_" 269))]))]) (SimpleRhs (319,24) (List []) [])),(Equation (320,1) (FunLhs (Ident "argTypes" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "dom" 271)),(VariablePattern (Ident "ran" 271))]))]) (SimpleRhs (320,31) (InfixApply (Variable (QualIdent Nothing (Ident "dom" 271))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "argTypes" 0))) (Variable (QualIdent Nothing (Ident "ran" 271))))) []))])+,(TypeSig (323,1) [(Ident "resultType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (324,1) (Ident "resultType" 0) [(Equation (324,1) (FunLhs (Ident "resultType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 273))]))]) (SimpleRhs (324,23) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TVar" 0))) (Variable (QualIdent Nothing (Ident "n" 273)))) [])),(Equation (325,1) (FunLhs (Ident "resultType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "name" 275)),(VariablePattern (Ident "args" 275))]))]) (SimpleRhs (325,32) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0))) (Variable (QualIdent Nothing (Ident "name" 275)))) (Variable (QualIdent Nothing (Ident "args" 275)))) [])),(Equation (326,1) (FunLhs (Ident "resultType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "_" 278)),(VariablePattern (Ident "ran" 277))]))]) (SimpleRhs (326,31) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "resultType" 0))) (Variable (QualIdent Nothing (Ident "ran" 277)))) []))])+,(TypeSig (329,1) [(Ident "allVarsInTypeExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []))))+,(FunctionDecl (330,1) (Ident "allVarsInTypeExpr" 0) [(Equation (330,1) (FunLhs (Ident "allVarsInTypeExpr" 0) []) (SimpleRhs (330,21) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trTypeExpr" 0))) (RightSection (InfixConstr (QualIdent Nothing (Ident ":" 0))) (List []))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "const" 0))) (Variable (QualIdent (Just "Prelude") (Ident "concat" 0)))))) (Variable (QualIdent (Just "Prelude") (Ident "++" 0)))) []))])+,(TypeSig (333,1) [(Ident "rnmAllVarsInTypeExpr" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TVarIndex" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (334,1) (Ident "rnmAllVarsInTypeExpr" 0) [(Equation (334,1) (FunLhs (Ident "rnmAllVarsInTypeExpr" 0) [(VariablePattern (Ident "f" 282))]) (SimpleRhs (334,26) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updTVars" 0))) (Paren (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "TVar" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "f" 282)))))) []))])+,(TypeSig (337,1) [(Ident "updQNamesInTypeExpr" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []))))+,(FunctionDecl (338,1) (Ident "updQNamesInTypeExpr" 0) [(Equation (338,1) (FunLhs (Ident "updQNamesInTypeExpr" 0) [(VariablePattern (Ident "f" 284))]) (SimpleRhs (338,25) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updTCons" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 286)),(VariablePattern (Ident "args" 286))] (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 284))) (Variable (QualIdent Nothing (Ident "name" 286)))))) (Variable (QualIdent Nothing (Ident "args" 286))))))) []))])+,(TypeSig (343,1) [(Ident "trOp" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (VariableType (Ident "a" 0))))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (VariableType (Ident "a" 0)))))+,(FunctionDecl (344,1) (Ident "trOp" 0) [(Equation (344,1) (FunLhs (Ident "trOp" 0) [(VariablePattern (Ident "op" 287)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "name" 287)),(VariablePattern (Ident "fix" 287)),(VariablePattern (Ident "prec" 287))]))]) (SimpleRhs (344,30) (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "op" 287))) (Variable (QualIdent Nothing (Ident "name" 287)))) (Variable (QualIdent Nothing (Ident "fix" 287)))) (Variable (QualIdent Nothing (Ident "prec" 287)))) []))])+,(TypeSig (349,1) [(Ident "opName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (350,1) (Ident "opName" 0) [(Equation (350,1) (FunLhs (Ident "opName" 0) []) (SimpleRhs (350,10) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trOp" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 291)),(VariablePattern (Ident "_" 292)),(VariablePattern (Ident "_" 293))] (Variable (QualIdent Nothing (Ident "name" 291)))))) []))])+,(TypeSig (353,1) [(Ident "opFixity" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) [])))+,(FunctionDecl (354,1) (Ident "opFixity" 0) [(Equation (354,1) (FunLhs (Ident "opFixity" 0) []) (SimpleRhs (354,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trOp" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 297)),(VariablePattern (Ident "fix" 296)),(VariablePattern (Ident "_" 298))] (Variable (QualIdent Nothing (Ident "fix" 296)))))) []))])+,(TypeSig (357,1) [(Ident "opPrecedence" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])))+,(FunctionDecl (358,1) (Ident "opPrecedence" 0) [(Equation (358,1) (FunLhs (Ident "opPrecedence" 0) []) (SimpleRhs (358,16) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trOp" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 302)),(VariablePattern (Ident "_" 303)),(VariablePattern (Ident "prec" 301))] (Variable (QualIdent Nothing (Ident "prec" 301)))))) []))])+,(TypeSig (363,1) [(Ident "updOp" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []))))))+,(FunctionDecl (366,1) (Ident "updOp" 0) [(Equation (366,1) (FunLhs (Ident "updOp" 0) [(VariablePattern (Ident "fn" 304)),(VariablePattern (Ident "ff" 304)),(VariablePattern (Ident "fp" 304))]) (SimpleRhs (366,18) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trOp" 0))) (Variable (QualIdent Nothing (Ident "op" 305)))) [(FunctionDecl (368,3) (Ident "op" 305) [(Equation (368,3) (FunLhs (Ident "op" 305) [(VariablePattern (Ident "name" 306)),(VariablePattern (Ident "fix" 306)),(VariablePattern (Ident "prec" 306))]) (SimpleRhs (368,22) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Op" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 304))) (Variable (QualIdent Nothing (Ident "name" 306)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "ff" 304))) (Variable (QualIdent Nothing (Ident "fix" 306)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fp" 304))) (Variable (QualIdent Nothing (Ident "prec" 306)))))) []))])]))])+,(TypeSig (371,1) [(Ident "updOpName" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (372,1) (Ident "updOpName" 0) [(Equation (372,1) (FunLhs (Ident "updOpName" 0) [(VariablePattern (Ident "f" 308))]) (SimpleRhs (372,15) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updOp" 0))) (Variable (QualIdent Nothing (Ident "f" 308)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (375,1) [(Ident "updOpFixity" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Fixity" 0)) [])]))+,(FunctionDecl (376,1) (Ident "updOpFixity" 0) [(Equation (376,1) (FunLhs (Ident "updOpFixity" 0) [(VariablePattern (Ident "f" 310))]) (SimpleRhs (376,17) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updOp" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 310)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (379,1) [(Ident "updOpPrecedence" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]))+,(FunctionDecl (380,1) (Ident "updOpPrecedence" 0) [(Equation (380,1) (FunLhs (Ident "updOpPrecedence" 0) []) (SimpleRhs (380,19) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updOp" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (385,1) [(Ident "trFunc" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (VariableType (Ident "a" 0))))))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (VariableType (Ident "a" 0)))))+,(FunctionDecl (386,1) (Ident "trFunc" 0) [(Equation (386,1) (FunLhs (Ident "trFunc" 0) [(VariablePattern (Ident "func" 314)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 314)),(VariablePattern (Ident "arity" 314)),(VariablePattern (Ident "vis" 314)),(VariablePattern (Ident "t" 314)),(VariablePattern (Ident "rule" 314))]))]) (SimpleRhs (386,44) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "func" 314))) (Variable (QualIdent Nothing (Ident "name" 314)))) (Variable (QualIdent Nothing (Ident "arity" 314)))) (Variable (QualIdent Nothing (Ident "vis" 314)))) (Variable (QualIdent Nothing (Ident "t" 314)))) (Variable (QualIdent Nothing (Ident "rule" 314)))) []))])+,(TypeSig (391,1) [(Ident "funcName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (392,1) (Ident "funcName" 0) [(Equation (392,1) (FunLhs (Ident "funcName" 0) []) (SimpleRhs (392,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 318)),(VariablePattern (Ident "_" 319)),(VariablePattern (Ident "_" 320)),(VariablePattern (Ident "_" 321)),(VariablePattern (Ident "_" 322))] (Variable (QualIdent Nothing (Ident "name" 318)))))) []))])+,(TypeSig (395,1) [(Ident "funcArity" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])))+,(FunctionDecl (396,1) (Ident "funcArity" 0) [(Equation (396,1) (FunLhs (Ident "funcArity" 0) []) (SimpleRhs (396,13) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 326)),(VariablePattern (Ident "arity" 325)),(VariablePattern (Ident "_" 327)),(VariablePattern (Ident "_" 328)),(VariablePattern (Ident "_" 329))] (Variable (QualIdent Nothing (Ident "arity" 325)))))) []))])+,(TypeSig (399,1) [(Ident "funcVisibility" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])))+,(FunctionDecl (400,1) (Ident "funcVisibility" 0) [(Equation (400,1) (FunLhs (Ident "funcVisibility" 0) []) (SimpleRhs (400,18) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 333)),(VariablePattern (Ident "_" 334)),(VariablePattern (Ident "vis" 332)),(VariablePattern (Ident "_" 335)),(VariablePattern (Ident "_" 336))] (Variable (QualIdent Nothing (Ident "vis" 332)))))) []))])+,(TypeSig (403,1) [(Ident "funcType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (404,1) (Ident "funcType" 0) [(Equation (404,1) (FunLhs (Ident "funcType" 0) []) (SimpleRhs (404,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 340)),(VariablePattern (Ident "_" 341)),(VariablePattern (Ident "_" 342)),(VariablePattern (Ident "t" 339)),(VariablePattern (Ident "_" 343))] (Variable (QualIdent Nothing (Ident "t" 339)))))) []))])+,(TypeSig (407,1) [(Ident "funcRule" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) [])))+,(FunctionDecl (408,1) (Ident "funcRule" 0) [(Equation (408,1) (FunLhs (Ident "funcRule" 0) []) (SimpleRhs (408,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 347)),(VariablePattern (Ident "_" 348)),(VariablePattern (Ident "_" 349)),(VariablePattern (Ident "_" 350)),(VariablePattern (Ident "rule" 346))] (Variable (QualIdent Nothing (Ident "rule" 346)))))) []))])+,(TypeSig (413,1) [(Ident "updFunc" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []))))))))+,(FunctionDecl (418,1) (Ident "updFunc" 0) [(Equation (418,1) (FunLhs (Ident "updFunc" 0) [(VariablePattern (Ident "fn" 351)),(VariablePattern (Ident "fa" 351)),(VariablePattern (Ident "fv" 351)),(VariablePattern (Ident "ft" 351)),(VariablePattern (Ident "fr" 351))]) (SimpleRhs (418,26) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trFunc" 0))) (Variable (QualIdent Nothing (Ident "func" 352)))) [(FunctionDecl (420,3) (Ident "func" 352) [(Equation (420,3) (FunLhs (Ident "func" 352) [(VariablePattern (Ident "name" 353)),(VariablePattern (Ident "arity" 353)),(VariablePattern (Ident "vis" 353)),(VariablePattern (Ident "t" 353)),(VariablePattern (Ident "rule" 353))]) (SimpleRhs (421,7) (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Func" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 351))) (Variable (QualIdent Nothing (Ident "name" 353)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fa" 351))) (Variable (QualIdent Nothing (Ident "arity" 353)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fv" 351))) (Variable (QualIdent Nothing (Ident "vis" 353)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "ft" 351))) (Variable (QualIdent Nothing (Ident "t" 353)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fr" 351))) (Variable (QualIdent Nothing (Ident "rule" 353)))))) []))])]))])+,(TypeSig (424,1) [(Ident "updFuncName" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (425,1) (Ident "updFuncName" 0) [(Equation (425,1) (FunLhs (Ident "updFuncName" 0) [(VariablePattern (Ident "f" 355))]) (SimpleRhs (425,17) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent Nothing (Ident "f" 355)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (428,1) [(Ident "updFuncArity" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])]))+,(FunctionDecl (429,1) (Ident "updFuncArity" 0) [(Equation (429,1) (FunLhs (Ident "updFuncArity" 0) [(VariablePattern (Ident "f" 357))]) (SimpleRhs (429,18) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 357)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (432,1) [(Ident "updFuncVisibility" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Visibility" 0)) [])]))+,(FunctionDecl (433,1) (Ident "updFuncVisibility" 0) [(Equation (433,1) (FunLhs (Ident "updFuncVisibility" 0) [(VariablePattern (Ident "f" 359))]) (SimpleRhs (433,23) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 359)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (436,1) [(Ident "updFuncType" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])]))+,(FunctionDecl (437,1) (Ident "updFuncType" 0) [(Equation (437,1) (FunLhs (Ident "updFuncType" 0) [(VariablePattern (Ident "f" 361))]) (SimpleRhs (437,17) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 361)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (440,1) [(Ident "updFuncRule" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) [])]))+,(FunctionDecl (441,1) (Ident "updFuncRule" 0) [(Equation (441,1) (FunLhs (Ident "updFuncRule" 0) []) (SimpleRhs (441,15) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (446,1) [(Ident "isExternal" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (447,1) (Ident "isExternal" 0) [(Equation (447,1) (FunLhs (Ident "isExternal" 0) []) (SimpleRhs (447,14) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isRuleExternal" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcRule" 0)))) []))])+,(TypeSig (450,1) [(Ident "allVarsInFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (451,1) (Ident "allVarsInFunc" 0) [(Equation (451,1) (FunLhs (Ident "allVarsInFunc" 0) []) (SimpleRhs (451,17) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "allVarsInRule" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcRule" 0)))) []))])+,(TypeSig (454,1) [(Ident "funcArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (455,1) (Ident "funcArgs" 0) [(Equation (455,1) (FunLhs (Ident "funcArgs" 0) []) (SimpleRhs (455,12) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "ruleArgs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcRule" 0)))) []))])+,(TypeSig (458,1) [(Ident "funcBody" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (459,1) (Ident "funcBody" 0) [(Equation (459,1) (FunLhs (Ident "funcBody" 0) []) (SimpleRhs (459,12) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "ruleBody" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcRule" 0)))) []))])+,(TypeSig (461,1) [(Ident "funcRHS" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (462,1) (Ident "funcRHS" 0) [(Equation (462,1) (FunLhs (Ident "funcRHS" 0) [(VariablePattern (Ident "f" 373))]) (GuardedRhs [(CondExpr (462,11) (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isExternal" 0))) (Variable (QualIdent Nothing (Ident "f" 373)))))) (Apply (Variable (QualIdent Nothing (Ident "orCase" 374))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcBody" 0))) (Variable (QualIdent Nothing (Ident "f" 373))))))),(CondExpr (463,11) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List []))] [(FunctionDecl (465,3) (Ident "orCase" 374) [(Equation (465,3) (FunLhs (Ident "orCase" 374) [(VariablePattern (Ident "e" 375))]) (GuardedRhs [(CondExpr (466,5) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isOr" 0))) (Variable (QualIdent Nothing (Ident "e" 375)))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent Nothing (Ident "orCase" 374)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "orExps" 0))) (Variable (QualIdent Nothing (Ident "e" 375))))))),(CondExpr (467,5) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isCase" 0))) (Variable (QualIdent Nothing (Ident "e" 375)))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Variable (QualIdent Nothing (Ident "orCase" 374)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "branchExpr" 0)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "caseBranches" 0))) (Variable (QualIdent Nothing (Ident "e" 375))))))))),(CondExpr (468,5) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List [(Variable (QualIdent Nothing (Ident "e" 375)))]))] []))])]))])+,(TypeSig (471,1) [(Ident "rnmAllVarsInFunc" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])]))+,(FunctionDecl (472,1) (Ident "rnmAllVarsInFunc" 0) [(Equation (472,1) (FunLhs (Ident "rnmAllVarsInFunc" 0) []) (SimpleRhs (472,20) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "rnmAllVarsInRule" 0)))) []))])+,(TypeSig (475,1) [(Ident "updQNamesInFunc" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (476,1) (Ident "updQNamesInFunc" 0) [(Equation (476,1) (FunLhs (Ident "updQNamesInFunc" 0) [(VariablePattern (Ident "f" 379))]) (SimpleRhs (476,21) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFunc" 0))) (Variable (QualIdent Nothing (Ident "f" 379)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "f" 379)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNamesInRule" 0))) (Variable (QualIdent Nothing (Ident "f" 379)))))) []))])+,(TypeSig (479,1) [(Ident "updFuncArgs" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))]))+,(FunctionDecl (480,1) (Ident "updFuncArgs" 0) [(Equation (480,1) (FunLhs (Ident "updFuncArgs" 0) []) (SimpleRhs (480,15) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFuncRule" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRuleArgs" 0)))) []))])+,(TypeSig (483,1) [(Ident "updFuncBody" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]))+,(FunctionDecl (484,1) (Ident "updFuncBody" 0) [(Equation (484,1) (FunLhs (Ident "updFuncBody" 0) []) (SimpleRhs (484,15) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updFuncRule" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRuleBody" 0)))) []))])+,(TypeSig (489,1) [(Ident "trRule" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (VariableType (Ident "a" 0))))))+,(FunctionDecl (490,1) (Ident "trRule" 0) [(Equation (490,1) (FunLhs (Ident "trRule" 0) [(VariablePattern (Ident "rule" 385)),(VariablePattern (Ident "_" 386)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "args" 385)),(VariablePattern (Ident "exp" 385))]))]) (SimpleRhs (490,33) (Apply (Apply (Variable (QualIdent Nothing (Ident "rule" 385))) (Variable (QualIdent Nothing (Ident "args" 385)))) (Variable (QualIdent Nothing (Ident "exp" 385)))) [])),(Equation (491,1) (FunLhs (Ident "trRule" 0) [(VariablePattern (Ident "_" 389)),(VariablePattern (Ident "ext" 388)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "s" 388))]))]) (SimpleRhs (491,29) (Apply (Variable (QualIdent Nothing (Ident "ext" 388))) (Variable (QualIdent Nothing (Ident "s" 388)))) []))])+,(TypeSig (496,1) [(Ident "ruleArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (497,1) (Ident "ruleArgs" 0) [(Equation (497,1) (FunLhs (Ident "ruleArgs" 0) []) (SimpleRhs (497,12) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Paren (Lambda [(VariablePattern (Ident "args" 393)),(VariablePattern (Ident "_" 394))] (Variable (QualIdent Nothing (Ident "args" 393)))))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) []))])+,(TypeSig (500,1) [(Ident "ruleBody" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (501,1) (Ident "ruleBody" 0) [(Equation (501,1) (FunLhs (Ident "ruleBody" 0) []) (SimpleRhs (501,12) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 398)),(VariablePattern (Ident "exp" 397))] (Variable (QualIdent Nothing (Ident "exp" 397)))))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) []))])+,(TypeSig (504,1) [(Ident "ruleExtDecl" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (505,1) (Ident "ruleExtDecl" 0) [(Equation (505,1) (FunLhs (Ident "ruleExtDecl" 0) []) (SimpleRhs (505,15) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (510,1) [(Ident "isRuleExternal" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (511,1) (Ident "isRuleExternal" 0) [(Equation (511,1) (FunLhs (Ident "isRuleExternal" 0) []) (SimpleRhs (511,18) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 404)),(VariablePattern (Ident "_" 405))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 407))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) []))])+,(TypeSig (516,1) [(Ident "updRule" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []))))))+,(FunctionDecl (519,1) (Ident "updRule" 0) [(Equation (519,1) (FunLhs (Ident "updRule" 0) [(VariablePattern (Ident "fa" 408)),(VariablePattern (Ident "fe" 408)),(VariablePattern (Ident "fs" 408))]) (SimpleRhs (519,20) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Variable (QualIdent Nothing (Ident "rule" 409)))) (Variable (QualIdent Nothing (Ident "ext" 409)))) [(FunctionDecl (521,3) (Ident "rule" 409) [(Equation (521,3) (FunLhs (Ident "rule" 409) [(VariablePattern (Ident "args" 410)),(VariablePattern (Ident "exp" 410))]) (SimpleRhs (521,19) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Rule" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fa" 408))) (Variable (QualIdent Nothing (Ident "args" 410)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fe" 408))) (Variable (QualIdent Nothing (Ident "exp" 410)))))) []))]),(FunctionDecl (522,3) (Ident "ext" 409) [(Equation (522,3) (FunLhs (Ident "ext" 409) [(VariablePattern (Ident "s" 412))]) (SimpleRhs (522,11) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "External" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fs" 408))) (Variable (QualIdent Nothing (Ident "s" 412)))))) []))])]))])+,(TypeSig (525,1) [(Ident "updRuleArgs" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []),(ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))]))+,(FunctionDecl (526,1) (Ident "updRuleArgs" 0) [(Equation (526,1) (FunLhs (Ident "updRuleArgs" 0) [(VariablePattern (Ident "f" 414))]) (SimpleRhs (526,17) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRule" 0))) (Variable (QualIdent Nothing (Ident "f" 414)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (529,1) [(Ident "updRuleBody" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]))+,(FunctionDecl (530,1) (Ident "updRuleBody" 0) [(Equation (530,1) (FunLhs (Ident "updRuleBody" 0) [(VariablePattern (Ident "f" 416))]) (SimpleRhs (530,17) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRule" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 416)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (533,1) [(Ident "updRuleExtDecl" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]))+,(FunctionDecl (534,1) (Ident "updRuleExtDecl" 0) [(Equation (534,1) (FunLhs (Ident "updRuleExtDecl" 0) [(VariablePattern (Ident "f" 418))]) (SimpleRhs (534,20) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRule" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 418)))) []))])+,(TypeSig (539,1) [(Ident "allVarsInRule" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (540,1) (Ident "allVarsInRule" 0) [(Equation (540,1) (FunLhs (Ident "allVarsInRule" 0) []) (SimpleRhs (540,17) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trRule" 0))) (Paren (Lambda [(VariablePattern (Ident "args" 422)),(VariablePattern (Ident "body" 422))] (InfixApply (Variable (QualIdent Nothing (Ident "args" 422))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "allVars" 0))) (Variable (QualIdent Nothing (Ident "body" 422)))))))) (Paren (Lambda [(VariablePattern (Ident "_" 424))] (List [])))) []))])+,(TypeSig (543,1) [(Ident "rnmAllVarsInRule" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []),(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])]))+,(FunctionDecl (544,1) (Ident "rnmAllVarsInRule" 0) [(Equation (544,1) (FunLhs (Ident "rnmAllVarsInRule" 0) [(VariablePattern (Ident "f" 425))]) (SimpleRhs (544,22) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRule" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 425)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "rnmAllVars" 0))) (Variable (QualIdent Nothing (Ident "f" 425)))))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (547,1) [(Ident "updQNamesInRule" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (548,1) (Ident "updQNamesInRule" 0) [(Equation (548,1) (FunLhs (Ident "updQNamesInRule" 0) []) (SimpleRhs (548,19) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updRuleBody" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updQNames" 0)))) []))])+,(TypeSig (553,1) [(Ident "trCombType" 0)] (ArrowType (VariableType (Ident "a" 0)) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (VariableType (Ident "a" 0)) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (VariableType (Ident "a" 0))))))))+,(FunctionDecl (554,1) (Ident "trCombType" 0) [(Equation (554,1) (FunLhs (Ident "trCombType" 0) [(VariablePattern (Ident "fc" 429)),(VariablePattern (Ident "_" 430)),(VariablePattern (Ident "_" 431)),(VariablePattern (Ident "_" 432)),(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)) [])]) (SimpleRhs (554,32) (Variable (QualIdent Nothing (Ident "fc" 429))) [])),(Equation (555,1) (FunLhs (Ident "trCombType" 0) [(VariablePattern (Ident "_" 435)),(VariablePattern (Ident "fpc" 434)),(VariablePattern (Ident "_" 436)),(VariablePattern (Ident "_" 437)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0)) [(VariablePattern (Ident "n" 434))]))]) (SimpleRhs (555,41) (Apply (Variable (QualIdent Nothing (Ident "fpc" 434))) (Variable (QualIdent Nothing (Ident "n" 434)))) [])),(Equation (556,1) (FunLhs (Ident "trCombType" 0) [(VariablePattern (Ident "_" 440)),(VariablePattern (Ident "_" 441)),(VariablePattern (Ident "cc" 439)),(VariablePattern (Ident "_" 442)),(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) [])]) (SimpleRhs (556,32) (Variable (QualIdent Nothing (Ident "cc" 439))) [])),(Equation (557,1) (FunLhs (Ident "trCombType" 0) [(VariablePattern (Ident "_" 445)),(VariablePattern (Ident "_" 446)),(VariablePattern (Ident "_" 447)),(VariablePattern (Ident "cpc" 444)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0)) [(VariablePattern (Ident "n" 444))]))]) (SimpleRhs (557,41) (Apply (Variable (QualIdent Nothing (Ident "cpc" 444))) (Variable (QualIdent Nothing (Ident "n" 444)))) []))])+,(TypeSig (562,1) [(Ident "isCombTypeFuncCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (563,1) (Ident "isCombTypeFuncCall" 0) [(Equation (563,1) (FunLhs (Ident "isCombTypeFuncCall" 0) []) (SimpleRhs (563,22) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCombType" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 452))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 454))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (566,1) [(Ident "isCombTypeFuncPartCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (567,1) (Ident "isCombTypeFuncPartCall" 0) [(Equation (567,1) (FunLhs (Ident "isCombTypeFuncPartCall" 0) []) (SimpleRhs (567,26) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCombType" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 458))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 460))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (570,1) [(Ident "isCombTypeConsCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (571,1) (Ident "isCombTypeConsCall" 0) [(Equation (571,1) (FunLhs (Ident "isCombTypeConsCall" 0) []) (SimpleRhs (571,22) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCombType" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 464))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 466))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (574,1) [(Ident "isCombTypeConsPartCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (575,1) (Ident "isCombTypeConsPartCall" 0) [(Equation (575,1) (FunLhs (Ident "isCombTypeConsPartCall" 0) []) (SimpleRhs (575,26) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCombType" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 470))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Lambda [(VariablePattern (Ident "_" 472))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) []))])+,(TypeSig (579,1) [(Ident "missingArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])))+,(FunctionDecl (580,1) (Ident "missingArgs" 0) [(Equation (580,1) (FunLhs (Ident "missingArgs" 0) []) (SimpleRhs (580,15) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trCombType" 0))) (Literal (Int (Ident "_" 475) 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Literal (Int (Ident "_" 476) 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (587,1) [(Ident "varNr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])))+,(FunctionDecl (588,1) (Ident "varNr" 0) [(Equation (588,1) (FunLhs (Ident "varNr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 477))]))]) (SimpleRhs (588,17) (Variable (QualIdent Nothing (Ident "n" 477))) []))])+,(TypeSig (591,1) [(Ident "literal" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])))+,(FunctionDecl (592,1) (Ident "literal" 0) [(Equation (592,1) (FunLhs (Ident "literal" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 479))]))]) (SimpleRhs (592,19) (Variable (QualIdent Nothing (Ident "l" 479))) []))])+,(TypeSig (595,1) [(Ident "combType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) [])))+,(FunctionDecl (596,1) (Ident "combType" 0) [(Equation (596,1) (FunLhs (Ident "combType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 481)),(VariablePattern (Ident "_" 482)),(VariablePattern (Ident "_" 483))]))]) (SimpleRhs (596,26) (Variable (QualIdent Nothing (Ident "ct" 481))) []))])+,(TypeSig (599,1) [(Ident "combName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (600,1) (Ident "combName" 0) [(Equation (600,1) (FunLhs (Ident "combName" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 486)),(VariablePattern (Ident "name" 485)),(VariablePattern (Ident "_" 487))]))]) (SimpleRhs (600,28) (Variable (QualIdent Nothing (Ident "name" 485))) []))])+,(TypeSig (603,1) [(Ident "combArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (604,1) (Ident "combArgs" 0) [(Equation (604,1) (FunLhs (Ident "combArgs" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 490)),(VariablePattern (Ident "_" 491)),(VariablePattern (Ident "args" 489))]))]) (SimpleRhs (604,28) (Variable (QualIdent Nothing (Ident "args" 489))) []))])+,(TypeSig (607,1) [(Ident "missingCombArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])))+,(FunctionDecl (608,1) (Ident "missingCombArgs" 0) [(Equation (608,1) (FunLhs (Ident "missingCombArgs" 0) []) (SimpleRhs (608,19) (InfixApply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "missingArgs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combType" 0)))) []))])+,(TypeSig (611,1) [(Ident "letBinds" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]))))+,(FunctionDecl (612,1) (Ident "letBinds" 0) [(Equation (612,1) (FunLhs (Ident "letBinds" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "vs" 495)),(VariablePattern (Ident "_" 496))]))]) (SimpleRhs (612,23) (Variable (QualIdent Nothing (Ident "vs" 495))) []))])+,(TypeSig (615,1) [(Ident "letBody" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (616,1) (Ident "letBody" 0) [(Equation (616,1) (FunLhs (Ident "letBody" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "_" 499)),(VariablePattern (Ident "e" 498))]))]) (SimpleRhs (616,21) (Variable (QualIdent Nothing (Ident "e" 498))) []))])+,(TypeSig (619,1) [(Ident "freeVars" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (620,1) (Ident "freeVars" 0) [(Equation (620,1) (FunLhs (Ident "freeVars" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "vs" 501)),(VariablePattern (Ident "_" 502))]))]) (SimpleRhs (620,24) (Variable (QualIdent Nothing (Ident "vs" 501))) []))])+,(TypeSig (623,1) [(Ident "freeExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (624,1) (Ident "freeExpr" 0) [(Equation (624,1) (FunLhs (Ident "freeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 505)),(VariablePattern (Ident "e" 504))]))]) (SimpleRhs (624,23) (Variable (QualIdent Nothing (Ident "e" 504))) []))])+,(TypeSig (627,1) [(Ident "orExps" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (628,1) (Ident "orExps" 0) [(Equation (628,1) (FunLhs (Ident "orExps" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 507)),(VariablePattern (Ident "e2" 507))]))]) (SimpleRhs (628,31) (List [(Variable (QualIdent Nothing (Ident "e1" 507))),(Variable (QualIdent Nothing (Ident "e2" 507)))]) []))])+,(TypeSig (631,1) [(Ident "caseType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "CaseType" 0)) [])))+,(FunctionDecl (632,1) (Ident "caseType" 0) [(Equation (632,1) (FunLhs (Ident "caseType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ct" 509)),(VariablePattern (Ident "_" 510)),(VariablePattern (Ident "_" 511))]))]) (SimpleRhs (632,26) (Variable (QualIdent Nothing (Ident "ct" 509))) []))])+,(TypeSig (635,1) [(Ident "caseExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (636,1) (Ident "caseExpr" 0) [(Equation (636,1) (FunLhs (Ident "caseExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 514)),(VariablePattern (Ident "e" 513)),(VariablePattern (Ident "_" 515))]))]) (SimpleRhs (636,25) (Variable (QualIdent Nothing (Ident "e" 513))) []))])+,(TypeSig (639,1) [(Ident "caseBranches" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []))))+,(FunctionDecl (640,1) (Ident "caseBranches" 0) [(Equation (640,1) (FunLhs (Ident "caseBranches" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 518)),(VariablePattern (Ident "_" 519)),(VariablePattern (Ident "bs" 517))]))]) (SimpleRhs (640,30) (Variable (QualIdent Nothing (Ident "bs" 517))) []))])+,(TypeSig (645,1) [(Ident "isVar" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (646,1) (Ident "isVar" 0) [(Equation (646,1) (FunLhs (Ident "isVar" 0) [(VariablePattern (Ident "e" 521))]) (SimpleRhs (646,11) (Case (Variable (QualIdent Nothing (Ident "e" 521))) [(Alt (647,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 524))]) (SimpleRhs (647,12) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (648,3) (VariablePattern (Ident "_" 527)) (SimpleRhs (648,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (651,1) [(Ident "isLit" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (652,1) (Ident "isLit" 0) [(Equation (652,1) (FunLhs (Ident "isLit" 0) [(VariablePattern (Ident "e" 529))]) (SimpleRhs (652,11) (Case (Variable (QualIdent Nothing (Ident "e" 529))) [(Alt (653,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 532))]) (SimpleRhs (653,12) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (654,3) (VariablePattern (Ident "_" 535)) (SimpleRhs (654,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (657,1) [(Ident "isComb" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (658,1) (Ident "isComb" 0) [(Equation (658,1) (FunLhs (Ident "isComb" 0) [(VariablePattern (Ident "e" 537))]) (SimpleRhs (658,12) (Case (Variable (QualIdent Nothing (Ident "e" 537))) [(Alt (659,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 540)),(VariablePattern (Ident "_" 541)),(VariablePattern (Ident "_" 542))]) (SimpleRhs (659,17) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (660,3) (VariablePattern (Ident "_" 545)) (SimpleRhs (660,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (663,1) [(Ident "isLet" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (664,1) (Ident "isLet" 0) [(Equation (664,1) (FunLhs (Ident "isLet" 0) [(VariablePattern (Ident "e" 547))]) (SimpleRhs (664,11) (Case (Variable (QualIdent Nothing (Ident "e" 547))) [(Alt (665,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "_" 550)),(VariablePattern (Ident "_" 551))]) (SimpleRhs (665,14) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (666,3) (VariablePattern (Ident "_" 554)) (SimpleRhs (666,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (669,1) [(Ident "isFree" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (670,1) (Ident "isFree" 0) [(Equation (670,1) (FunLhs (Ident "isFree" 0) [(VariablePattern (Ident "e" 556))]) (SimpleRhs (670,12) (Case (Variable (QualIdent Nothing (Ident "e" 556))) [(Alt (671,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 559)),(VariablePattern (Ident "_" 560))]) (SimpleRhs (671,15) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (672,3) (VariablePattern (Ident "_" 563)) (SimpleRhs (672,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (675,1) [(Ident "isOr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (676,1) (Ident "isOr" 0) [(Equation (676,1) (FunLhs (Ident "isOr" 0) [(VariablePattern (Ident "e" 565))]) (SimpleRhs (676,10) (Case (Variable (QualIdent Nothing (Ident "e" 565))) [(Alt (677,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "_" 568)),(VariablePattern (Ident "_" 569))]) (SimpleRhs (677,23) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (678,3) (VariablePattern (Ident "_" 572)) (SimpleRhs (678,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (681,1) [(Ident "isCase" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (682,1) (Ident "isCase" 0) [(Equation (682,1) (FunLhs (Ident "isCase" 0) [(VariablePattern (Ident "e" 574))]) (SimpleRhs (682,12) (Case (Variable (QualIdent Nothing (Ident "e" 574))) [(Alt (683,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 577)),(VariablePattern (Ident "_" 578)),(VariablePattern (Ident "_" 579))]) (SimpleRhs (683,17) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (684,3) (VariablePattern (Ident "_" 582)) (SimpleRhs (684,8) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (687,1) [(Ident "trExpr" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ListType (VariableType (Ident "a" 0))) (VariableType (Ident "a" 0))))) (ArrowType (ArrowType (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []),(VariableType (Ident "a" 0))])) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "CaseType" 0)) []) (ArrowType (VariableType (Ident "a" 0)) (ArrowType (ListType (VariableType (Ident "b" 0))) (VariableType (Ident "a" 0))))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ArrowType (VariableType (Ident "a" 0)) (VariableType (Ident "b" 0)))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (VariableType (Ident "a" 0))))))))))))+,(FunctionDecl (695,1) (Ident "trExpr" 0) [(Equation (695,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 584)),(VariablePattern (Ident "_" 585)),(VariablePattern (Ident "_" 586)),(VariablePattern (Ident "_" 587)),(VariablePattern (Ident "_" 588)),(VariablePattern (Ident "_" 589)),(VariablePattern (Ident "_" 590)),(VariablePattern (Ident "_" 591)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 584))]))]) (SimpleRhs (695,36) (Apply (Variable (QualIdent Nothing (Ident "var" 584))) (Variable (QualIdent Nothing (Ident "n" 584)))) [])),(Equation (697,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "_" 594)),(VariablePattern (Ident "lit" 593)),(VariablePattern (Ident "_" 595)),(VariablePattern (Ident "_" 596)),(VariablePattern (Ident "_" 597)),(VariablePattern (Ident "_" 598)),(VariablePattern (Ident "_" 599)),(VariablePattern (Ident "_" 600)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 593))]))]) (SimpleRhs (697,36) (Apply (Variable (QualIdent Nothing (Ident "lit" 593))) (Variable (QualIdent Nothing (Ident "l" 593)))) [])),(Equation (699,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 602)),(VariablePattern (Ident "lit" 602)),(VariablePattern (Ident "comb" 602)),(VariablePattern (Ident "lt" 602)),(VariablePattern (Ident "fr" 602)),(VariablePattern (Ident "or" 602)),(VariablePattern (Ident "cas" 602)),(VariablePattern (Ident "branch" 602)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 602)),(VariablePattern (Ident "name" 602)),(VariablePattern (Ident "args" 602))]))]) (SimpleRhs (700,5) (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "comb" 602))) (Variable (QualIdent Nothing (Ident "ct" 602)))) (Variable (QualIdent Nothing (Ident "name" 602)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 602)))) (Variable (QualIdent Nothing (Ident "lit" 602)))) (Variable (QualIdent Nothing (Ident "comb" 602)))) (Variable (QualIdent Nothing (Ident "lt" 602)))) (Variable (QualIdent Nothing (Ident "fr" 602)))) (Variable (QualIdent Nothing (Ident "or" 602)))) (Variable (QualIdent Nothing (Ident "cas" 602)))) (Variable (QualIdent Nothing (Ident "branch" 602)))))) (Variable (QualIdent Nothing (Ident "args" 602)))))) [])),(Equation (702,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 604)),(VariablePattern (Ident "lit" 604)),(VariablePattern (Ident "comb" 604)),(VariablePattern (Ident "lt" 604)),(VariablePattern (Ident "fr" 604)),(VariablePattern (Ident "or" 604)),(VariablePattern (Ident "cas" 604)),(VariablePattern (Ident "branch" 604)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bs" 604)),(VariablePattern (Ident "e" 604))]))]) (SimpleRhs (703,5) (Apply (Apply (Variable (QualIdent Nothing (Ident "lt" 604))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "n" 607)),(VariablePattern (Ident "exp" 607))])] (Tuple [(Variable (QualIdent Nothing (Ident "n" 607))),(Apply (Variable (QualIdent Nothing (Ident "f" 605))) (Variable (QualIdent Nothing (Ident "exp" 607))))])))) (Variable (QualIdent Nothing (Ident "bs" 604)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 605))) (Variable (QualIdent Nothing (Ident "e" 604)))))) [(PatternDecl (705,3) (VariablePattern (Ident "f" 605)) (SimpleRhs (705,7) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 604)))) (Variable (QualIdent Nothing (Ident "lit" 604)))) (Variable (QualIdent Nothing (Ident "comb" 604)))) (Variable (QualIdent Nothing (Ident "lt" 604)))) (Variable (QualIdent Nothing (Ident "fr" 604)))) (Variable (QualIdent Nothing (Ident "or" 604)))) (Variable (QualIdent Nothing (Ident "cas" 604)))) (Variable (QualIdent Nothing (Ident "branch" 604)))) []))])),(Equation (707,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 608)),(VariablePattern (Ident "lit" 608)),(VariablePattern (Ident "comb" 608)),(VariablePattern (Ident "lt" 608)),(VariablePattern (Ident "fr" 608)),(VariablePattern (Ident "or" 608)),(VariablePattern (Ident "cas" 608)),(VariablePattern (Ident "branch" 608)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "vs" 608)),(VariablePattern (Ident "e" 608))]))]) (SimpleRhs (708,5) (Apply (Apply (Variable (QualIdent Nothing (Ident "fr" 608))) (Variable (QualIdent Nothing (Ident "vs" 608)))) (Paren (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 608)))) (Variable (QualIdent Nothing (Ident "lit" 608)))) (Variable (QualIdent Nothing (Ident "comb" 608)))) (Variable (QualIdent Nothing (Ident "lt" 608)))) (Variable (QualIdent Nothing (Ident "fr" 608)))) (Variable (QualIdent Nothing (Ident "or" 608)))) (Variable (QualIdent Nothing (Ident "cas" 608)))) (Variable (QualIdent Nothing (Ident "branch" 608)))) (Variable (QualIdent Nothing (Ident "e" 608)))))) [])),(Equation (710,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 610)),(VariablePattern (Ident "lit" 610)),(VariablePattern (Ident "comb" 610)),(VariablePattern (Ident "lt" 610)),(VariablePattern (Ident "fr" 610)),(VariablePattern (Ident "or" 610)),(VariablePattern (Ident "cas" 610)),(VariablePattern (Ident "branch" 610)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 610)),(VariablePattern (Ident "e2" 610))]))]) (SimpleRhs (710,64) (Apply (Apply (Variable (QualIdent Nothing (Ident "or" 610))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 611))) (Variable (QualIdent Nothing (Ident "e1" 610)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 611))) (Variable (QualIdent Nothing (Ident "e2" 610)))))) [(PatternDecl (712,3) (VariablePattern (Ident "f" 611)) (SimpleRhs (712,7) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 610)))) (Variable (QualIdent Nothing (Ident "lit" 610)))) (Variable (QualIdent Nothing (Ident "comb" 610)))) (Variable (QualIdent Nothing (Ident "lt" 610)))) (Variable (QualIdent Nothing (Ident "fr" 610)))) (Variable (QualIdent Nothing (Ident "or" 610)))) (Variable (QualIdent Nothing (Ident "cas" 610)))) (Variable (QualIdent Nothing (Ident "branch" 610)))) []))])),(Equation (714,1) (FunLhs (Ident "trExpr" 0) [(VariablePattern (Ident "var" 613)),(VariablePattern (Ident "lit" 613)),(VariablePattern (Ident "comb" 613)),(VariablePattern (Ident "lt" 613)),(VariablePattern (Ident "fr" 613)),(VariablePattern (Ident "or" 613)),(VariablePattern (Ident "cas" 613)),(VariablePattern (Ident "branch" 613)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ct" 613)),(VariablePattern (Ident "e" 613)),(VariablePattern (Ident "bs" 613))]))]) (SimpleRhs (715,5) (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "cas" 613))) (Variable (QualIdent Nothing (Ident "ct" 613)))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 614))) (Variable (QualIdent Nothing (Ident "e" 613)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "pat" 616)),(VariablePattern (Ident "exp" 616))]))] (Apply (Apply (Variable (QualIdent Nothing (Ident "branch" 613))) (Variable (QualIdent Nothing (Ident "pat" 616)))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 614))) (Variable (QualIdent Nothing (Ident "exp" 616))))))))) (Variable (QualIdent Nothing (Ident "bs" 613)))))) [(PatternDecl (717,3) (VariablePattern (Ident "f" 614)) (SimpleRhs (717,7) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 613)))) (Variable (QualIdent Nothing (Ident "lit" 613)))) (Variable (QualIdent Nothing (Ident "comb" 613)))) (Variable (QualIdent Nothing (Ident "lt" 613)))) (Variable (QualIdent Nothing (Ident "fr" 613)))) (Variable (QualIdent Nothing (Ident "or" 613)))) (Variable (QualIdent Nothing (Ident "cas" 613)))) (Variable (QualIdent Nothing (Ident "branch" 613)))) []))]))])+,(TypeSig (722,1) [(Ident "updVars" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (723,1) (Ident "updVars" 0) [(Equation (723,1) (FunLhs (Ident "updVars" 0) [(VariablePattern (Ident "var" 617))]) (SimpleRhs (723,15) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Variable (QualIdent Nothing (Ident "var" 617)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (726,1) [(Ident "updLiterals" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (727,1) (Ident "updLiterals" 0) [(Equation (727,1) (FunLhs (Ident "updLiterals" 0) [(VariablePattern (Ident "lit" 619))]) (SimpleRhs (727,19) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Variable (QualIdent Nothing (Ident "lit" 619)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (730,1) [(Ident "updCombs" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "CombType" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (731,1) (Ident "updCombs" 0) [(Equation (731,1) (FunLhs (Ident "updCombs" 0) [(VariablePattern (Ident "comb" 621))]) (SimpleRhs (731,17) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Variable (QualIdent Nothing (Ident "comb" 621)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (734,1) [(Ident "updLets" 0)] (ArrowType (ArrowType (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (735,1) (Ident "updLets" 0) [(Equation (735,1) (FunLhs (Ident "updLets" 0) [(VariablePattern (Ident "lt" 623))]) (SimpleRhs (735,14) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Variable (QualIdent Nothing (Ident "lt" 623)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (738,1) [(Ident "updFrees" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (739,1) (Ident "updFrees" 0) [(Equation (739,1) (FunLhs (Ident "updFrees" 0) [(VariablePattern (Ident "fr" 625))]) (SimpleRhs (739,15) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Variable (QualIdent Nothing (Ident "fr" 625)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (742,1) [(Ident "updOrs" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (743,1) (Ident "updOrs" 0) [(Equation (743,1) (FunLhs (Ident "updOrs" 0) [(VariablePattern (Ident "or" 627))]) (SimpleRhs (743,13) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Variable (QualIdent Nothing (Ident "or" 627)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (746,1) [(Ident "updCases" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "CaseType" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (747,1) (Ident "updCases" 0) [(Equation (747,1) (FunLhs (Ident "updCases" 0) [(VariablePattern (Ident "cas" 629))]) (SimpleRhs (747,16) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Variable (QualIdent Nothing (Ident "cas" 629)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0)))) []))])+,(TypeSig (750,1) [(Ident "updBranches" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))))+,(FunctionDecl (751,1) (Ident "updBranches" 0) [(Equation (751,1) (FunLhs (Ident "updBranches" 0) [(VariablePattern (Ident "branch" 631))]) (SimpleRhs (751,22) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Variable (QualIdent Nothing (Ident "branch" 631)))) []))])+,(TypeSig (756,1) [(Ident "isFuncCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (757,1) (Ident "isFuncCall" 0) [(Equation (757,1) (FunLhs (Ident "isFuncCall" 0) [(VariablePattern (Ident "e" 633))]) (SimpleRhs (757,16) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isComb" 0))) (Variable (QualIdent Nothing (Ident "e" 633)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isCombTypeFuncCall" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combType" 0))) (Variable (QualIdent Nothing (Ident "e" 633))))))) []))])+,(TypeSig (760,1) [(Ident "isFuncPartCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (761,1) (Ident "isFuncPartCall" 0) [(Equation (761,1) (FunLhs (Ident "isFuncPartCall" 0) [(VariablePattern (Ident "e" 635))]) (SimpleRhs (761,20) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isComb" 0))) (Variable (QualIdent Nothing (Ident "e" 635)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isCombTypeFuncPartCall" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combType" 0))) (Variable (QualIdent Nothing (Ident "e" 635))))))) []))])+,(TypeSig (764,1) [(Ident "isConsCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (765,1) (Ident "isConsCall" 0) [(Equation (765,1) (FunLhs (Ident "isConsCall" 0) [(VariablePattern (Ident "e" 637))]) (SimpleRhs (765,16) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isComb" 0))) (Variable (QualIdent Nothing (Ident "e" 637)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isCombTypeConsCall" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combType" 0))) (Variable (QualIdent Nothing (Ident "e" 637))))))) []))])+,(TypeSig (768,1) [(Ident "isConsPartCall" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (769,1) (Ident "isConsPartCall" 0) [(Equation (769,1) (FunLhs (Ident "isConsPartCall" 0) [(VariablePattern (Ident "e" 639))]) (SimpleRhs (769,20) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isComb" 0))) (Variable (QualIdent Nothing (Ident "e" 639)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isCombTypeConsPartCall" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combType" 0))) (Variable (QualIdent Nothing (Ident "e" 639))))))) []))])+,(TypeSig (772,1) [(Ident "isGround" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (773,1) (Ident "isGround" 0) [(Equation (773,1) (FunLhs (Ident "isGround" 0) [(VariablePattern (Ident "exp" 641))]) (SimpleRhs (774,5) (Case (Variable (QualIdent Nothing (Ident "exp" 641))) [(Alt (775,7) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(VariablePattern (Ident "_" 644)),(VariablePattern (Ident "args" 643))]) (SimpleRhs (775,31) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "all" 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isGround" 0)))) (Variable (QualIdent Nothing (Ident "args" 643)))) [])),(Alt (776,7) (VariablePattern (Ident "_" 647)) (SimpleRhs (776,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isLit" 0))) (Variable (QualIdent Nothing (Ident "exp" 641)))) []))]) []))])+,(TypeSig (779,1) [(Ident "allVars" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (780,1) (Ident "allVars" 0) [(Equation (780,1) (FunLhs (Ident "allVars" 0) [(VariablePattern (Ident "e" 649))]) (SimpleRhs (780,13) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent Nothing (Ident ":" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "const" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))))) (Variable (QualIdent Nothing (Ident "comb" 650)))) (Variable (QualIdent Nothing (Ident "lt" 650)))) (Variable (QualIdent Nothing (Ident "fr" 650)))) (Variable (QualIdent (Just "Prelude") (Ident "." 0)))) (Variable (QualIdent Nothing (Ident "cas" 650)))) (Variable (QualIdent Nothing (Ident "branch" 650)))) (Variable (QualIdent Nothing (Ident "e" 649)))) (List [])) [(FunctionDecl (782,3) (Ident "comb" 650) [(Equation (782,3) (FunLhs (Ident "comb" 650) [(VariablePattern (Ident "_" 652)),(VariablePattern (Ident "_" 653))]) (SimpleRhs (782,14) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "Prelude") (Ident "." 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))]),(FunctionDecl (783,3) (Ident "lt" 650) [(Equation (783,3) (FunLhs (Ident "lt" 650) [(VariablePattern (Ident "bs" 655)),(VariablePattern (Ident "exp" 655))]) (SimpleRhs (783,15) (InfixApply (Variable (QualIdent Nothing (Ident "exp" 655))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "Prelude") (Ident "." 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "n" 657)),(VariablePattern (Ident "ns" 657))])] (InfixApply (LeftSection (Variable (QualIdent Nothing (Ident "n" 657))) (InfixConstr (QualIdent Nothing (Ident ":" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "ns" 657))))))) (Variable (QualIdent Nothing (Ident "bs" 655))))))) []))]),(FunctionDecl (784,3) (Ident "fr" 650) [(Equation (784,3) (FunLhs (Ident "fr" 650) [(VariablePattern (Ident "vs" 658)),(VariablePattern (Ident "exp" 658))]) (SimpleRhs (784,15) (InfixApply (LeftSection (Variable (QualIdent Nothing (Ident "vs" 658))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "exp" 658)))) []))]),(FunctionDecl (785,3) (Ident "cas" 650) [(Equation (785,3) (FunLhs (Ident "cas" 650) [(VariablePattern (Ident "_" 661)),(VariablePattern (Ident "exp" 660)),(VariablePattern (Ident "bs" 660))]) (SimpleRhs (785,18) (InfixApply (Variable (QualIdent Nothing (Ident "exp" 660))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "Prelude") (Ident "." 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "bs" 660))))) []))]),(FunctionDecl (786,3) (Ident "branch" 650) [(Equation (786,3) (FunLhs (Ident "branch" 650) [(VariablePattern (Ident "pat" 663)),(VariablePattern (Ident "exp" 663))]) (SimpleRhs (786,20) (InfixApply (LeftSection (Paren (Apply (Variable (QualIdent Nothing (Ident "args" 650))) (Variable (QualIdent Nothing (Ident "pat" 663))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "exp" 663)))) []))]),(FunctionDecl (787,3) (Ident "args" 650) [(Equation (787,3) (FunLhs (Ident "args" 650) [(VariablePattern (Ident "pat" 665))]) (GuardedRhs [(CondExpr (787,12) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isConsPattern" 0))) (Variable (QualIdent Nothing (Ident "pat" 665)))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "patArgs" 0))) (Variable (QualIdent Nothing (Ident "pat" 665))))),(CondExpr (788,12) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List []))] []))])]))])+,(TypeSig (791,1) [(Ident "rnmAllVars" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])]))+,(FunctionDecl (792,1) (Ident "rnmAllVars" 0) [(Equation (792,1) (FunLhs (Ident "rnmAllVars" 0) [(VariablePattern (Ident "f" 667))]) (SimpleRhs (792,16) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Paren (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "f" 667)))))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0)))) (Variable (QualIdent Nothing (Ident "lt" 668)))) (Paren (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 667))))))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Variable (QualIdent Nothing (Ident "branch" 668)))) [(PatternDecl (794,4) (VariablePattern (Ident "lt" 668)) (SimpleRhs (794,9) (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "n" 670)),(VariablePattern (Ident "exp" 670))])] (Tuple [(Apply (Variable (QualIdent Nothing (Ident "f" 667))) (Variable (QualIdent Nothing (Ident "n" 670)))),(Variable (QualIdent Nothing (Ident "exp" 670)))]))))) [])),(PatternDecl (795,4) (VariablePattern (Ident "branch" 668)) (SimpleRhs (795,13) (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updPatArgs" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "f" 667))))))) []))]))])+,(TypeSig (798,1) [(Ident "updQNames" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])]))+,(FunctionDecl (799,1) (Ident "updQNames" 0) [(Equation (799,1) (FunLhs (Ident "updQNames" 0) [(VariablePattern (Ident "f" 672))]) (SimpleRhs (799,15) (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trExpr" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) (Variable (QualIdent Nothing (Ident "comb" 673)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0)))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0)))) (Paren (InfixApply (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updPatCons" 0))) (Variable (QualIdent Nothing (Ident "f" 672))))))) [(FunctionDecl (801,3) (Ident "comb" 673) [(Equation (801,3) (FunLhs (Ident "comb" 673) [(VariablePattern (Ident "ct" 674)),(VariablePattern (Ident "name" 674)),(VariablePattern (Ident "args" 674))]) (SimpleRhs (801,23) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 674)))) (Paren (Apply (Variable (QualIdent Nothing (Ident "f" 672))) (Variable (QualIdent Nothing (Ident "name" 674)))))) (Variable (QualIdent Nothing (Ident "args" 674)))) []))])]))])+,(TypeSig (806,1) [(Ident "trBranch" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (VariableType (Ident "a" 0)))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (VariableType (Ident "a" 0)))))+,(FunctionDecl (807,1) (Ident "trBranch" 0) [(Equation (807,1) (FunLhs (Ident "trBranch" 0) [(VariablePattern (Ident "branch" 676)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "pat" 676)),(VariablePattern (Ident "exp" 676))]))]) (SimpleRhs (807,36) (Apply (Apply (Variable (QualIdent Nothing (Ident "branch" 676))) (Variable (QualIdent Nothing (Ident "pat" 676)))) (Variable (QualIdent Nothing (Ident "exp" 676)))) []))])+,(TypeSig (812,1) [(Ident "branchPattern" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) [])))+,(FunctionDecl (813,1) (Ident "branchPattern" 0) [(Equation (813,1) (FunLhs (Ident "branchPattern" 0) []) (SimpleRhs (813,17) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trBranch" 0))) (Paren (Lambda [(VariablePattern (Ident "pat" 680)),(VariablePattern (Ident "_" 681))] (Variable (QualIdent Nothing (Ident "pat" 680)))))) []))])+,(TypeSig (816,1) [(Ident "branchExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (817,1) (Ident "branchExpr" 0) [(Equation (817,1) (FunLhs (Ident "branchExpr" 0) []) (SimpleRhs (817,14) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trBranch" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 685)),(VariablePattern (Ident "e" 684))] (Variable (QualIdent Nothing (Ident "e" 684)))))) []))])+,(TypeSig (822,1) [(Ident "updBranch" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) [])))))+,(FunctionDecl (823,1) (Ident "updBranch" 0) [(Equation (823,1) (FunLhs (Ident "updBranch" 0) [(VariablePattern (Ident "fp" 686)),(VariablePattern (Ident "fe" 686))]) (SimpleRhs (823,19) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trBranch" 0))) (Variable (QualIdent Nothing (Ident "branch" 687)))) [(FunctionDecl (825,3) (Ident "branch" 687) [(Equation (825,3) (FunLhs (Ident "branch" 687) [(VariablePattern (Ident "pat" 688)),(VariablePattern (Ident "exp" 688))]) (SimpleRhs (825,20) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fp" 686))) (Variable (QualIdent Nothing (Ident "pat" 688)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fe" 686))) (Variable (QualIdent Nothing (Ident "exp" 688)))))) []))])]))])+,(TypeSig (828,1) [(Ident "updBranchPattern" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) [])]))+,(FunctionDecl (829,1) (Ident "updBranchPattern" 0) [(Equation (829,1) (FunLhs (Ident "updBranchPattern" 0) [(VariablePattern (Ident "f" 690))]) (SimpleRhs (829,22) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updBranch" 0))) (Variable (QualIdent Nothing (Ident "f" 690)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (832,1) [(Ident "updBranchExpr" 0)] (ConstructorType (QualIdent Nothing (Ident "Update" 0)) [(ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]))+,(FunctionDecl (833,1) (Ident "updBranchExpr" 0) [(Equation (833,1) (FunLhs (Ident "updBranchExpr" 0) []) (SimpleRhs (833,17) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updBranch" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (838,1) [(Ident "trPattern" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (VariableType (Ident "a" 0)))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (VariableType (Ident "a" 0))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (VariableType (Ident "a" 0))))))+,(FunctionDecl (839,1) (Ident "trPattern" 0) [(Equation (839,1) (FunLhs (Ident "trPattern" 0) [(VariablePattern (Ident "pattern" 694)),(VariablePattern (Ident "_" 695)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "name" 694)),(VariablePattern (Ident "args" 694))]))]) (SimpleRhs (839,43) (Apply (Apply (Variable (QualIdent Nothing (Ident "pattern" 694))) (Variable (QualIdent Nothing (Ident "name" 694)))) (Variable (QualIdent Nothing (Ident "args" 694)))) [])),(Equation (840,1) (FunLhs (Ident "trPattern" 0) [(VariablePattern (Ident "_" 698)),(VariablePattern (Ident "lpattern" 697)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "l" 697))]))]) (SimpleRhs (840,37) (Apply (Variable (QualIdent Nothing (Ident "lpattern" 697))) (Variable (QualIdent Nothing (Ident "l" 697)))) []))])+,(TypeSig (845,1) [(Ident "patCons" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])))+,(FunctionDecl (846,1) (Ident "patCons" 0) [(Equation (846,1) (FunLhs (Ident "patCons" 0) []) (SimpleRhs (846,11) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 702)),(VariablePattern (Ident "_" 703))] (Variable (QualIdent Nothing (Ident "name" 702)))))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) []))])+,(TypeSig (849,1) [(Ident "patArgs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))))+,(FunctionDecl (850,1) (Ident "patArgs" 0) [(Equation (850,1) (FunLhs (Ident "patArgs" 0) []) (SimpleRhs (850,11) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 707)),(VariablePattern (Ident "args" 706))] (Variable (QualIdent Nothing (Ident "args" 706)))))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) []))])+,(TypeSig (853,1) [(Ident "patLiteral" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])))+,(FunctionDecl (854,1) (Ident "patLiteral" 0) [(Equation (854,1) (FunLhs (Ident "patLiteral" 0) []) (SimpleRhs (854,14) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Variable (QualIdent (Just "Prelude") (Ident "failed" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (859,1) [(Ident "isConsPattern" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (860,1) (Ident "isConsPattern" 0) [(Equation (860,1) (FunLhs (Ident "isConsPattern" 0) []) (SimpleRhs (860,17) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 713)),(VariablePattern (Ident "_" 714))] (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Paren (Lambda [(VariablePattern (Ident "_" 716))] (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) []))])+,(TypeSig (865,1) [(Ident "updPattern" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []))))))+,(FunctionDecl (868,1) (Ident "updPattern" 0) [(Equation (868,1) (FunLhs (Ident "updPattern" 0) [(VariablePattern (Ident "fn" 717)),(VariablePattern (Ident "fa" 717)),(VariablePattern (Ident "fl" 717))]) (SimpleRhs (868,23) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Variable (QualIdent Nothing (Ident "pattern" 718)))) (Variable (QualIdent Nothing (Ident "lpattern" 718)))) [(FunctionDecl (870,3) (Ident "pattern" 718) [(Equation (870,3) (FunLhs (Ident "pattern" 718) [(VariablePattern (Ident "name" 719)),(VariablePattern (Ident "args" 719))]) (SimpleRhs (870,23) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Pattern" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fn" 717))) (Variable (QualIdent Nothing (Ident "name" 719)))))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fa" 717))) (Variable (QualIdent Nothing (Ident "args" 719)))))) []))]),(FunctionDecl (871,3) (Ident "lpattern" 718) [(Equation (871,3) (FunLhs (Ident "lpattern" 718) [(VariablePattern (Ident "l" 721))]) (SimpleRhs (871,16) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "LPattern" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "fl" 717))) (Variable (QualIdent Nothing (Ident "l" 721)))))) []))])]))])+,(TypeSig (874,1) [(Ident "updPatCons" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "QName" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []))))+,(FunctionDecl (875,1) (Ident "updPatCons" 0) [(Equation (875,1) (FunLhs (Ident "updPatCons" 0) [(VariablePattern (Ident "f" 723))]) (SimpleRhs (875,16) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updPattern" 0))) (Variable (QualIdent Nothing (Ident "f" 723)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (878,1) [(Ident "updPatArgs" 0)] (ArrowType (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])) (ListType (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) []))) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []))))+,(FunctionDecl (879,1) (Ident "updPatArgs" 0) [(Equation (879,1) (FunLhs (Ident "updPatArgs" 0) [(VariablePattern (Ident "f" 725))]) (SimpleRhs (879,16) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updPattern" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 725)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (882,1) [(Ident "updPatLiteral" 0)] (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []))))+,(FunctionDecl (883,1) (Ident "updPatLiteral" 0) [(Equation (883,1) (FunLhs (Ident "updPatLiteral" 0) [(VariablePattern (Ident "f" 727))]) (SimpleRhs (883,19) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updPattern" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Variable (QualIdent Nothing (Ident "f" 727)))) []))])+,(TypeSig (888,1) [(Ident "patExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (889,1) (Ident "patExpr" 0) [(Equation (889,1) (FunLhs (Ident "patExpr" 0) []) (SimpleRhs (889,11) (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trPattern" 0))) (Paren (Lambda [(VariablePattern (Ident "name" 731))] (InfixApply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)))) (Variable (QualIdent Nothing (Ident "name" 731)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0)))))))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0)))) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.efc view
@@ -0,0 +1,1 @@+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")) []]]))] []
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurryGoodies" ["FlatCurry","Prelude"] [TypeSyn ("FlatCurryGoodies","Update") Public [0,1] (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 0) (TVar 0)))] [Func ("FlatCurryGoodies","trProg") 2 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TVar 0)))))) (FuncType (TCons ("FlatCurry","Prog") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4],Var 5],Var 6],Var 7])])),Func ("FlatCurryGoodies","progName") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","progName._#lambda2") []])),Func ("FlatCurryGoodies","progName._#lambda2") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1,2,3,4,5] (Var 1)),Func ("FlatCurryGoodies","progImports") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","progImports._#lambda3") []])),Func ("FlatCurryGoodies","progImports._#lambda3") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [1,2,3,4,5] (Var 2)),Func ("FlatCurryGoodies","progTypes") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","progTypes._#lambda4") []])),Func ("FlatCurryGoodies","progTypes._#lambda4") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])))))) (Rule [1,2,3,4,5] (Var 3)),Func ("FlatCurryGoodies","progFuncs") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","progFuncs._#lambda5") []])),Func ("FlatCurryGoodies","progFuncs._#lambda5") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])))))) (Rule [1,2,3,4,5] (Var 4)),Func ("FlatCurryGoodies","progOps") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","progOps._#lambda6") []])),Func ("FlatCurryGoodies","progOps._#lambda6") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])))))) (Rule [1,2,3,4,5] (Var 5)),Func ("FlatCurryGoodies","updProg") 5 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))))) (Rule [1,2,3,4,5] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trProg") [Comb (FuncPartCall 5) ("FlatCurryGoodies","updProg.prog.40") [Var 4,Var 2,Var 1,Var 5,Var 3]])),Func ("FlatCurryGoodies","updProg.prog.40") 10 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("FlatCurry","Prog") []))))))))))) (Rule [1,2,3,4,5,6,7,8,9,10] (Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("Prelude","apply") [Var 3,Var 6],Comb FuncCall ("Prelude","apply") [Var 2,Var 7],Comb FuncCall ("Prelude","apply") [Var 5,Var 8],Comb FuncCall ("Prelude","apply") [Var 1,Var 9],Comb FuncCall ("Prelude","apply") [Var 4,Var 10]])),Func ("FlatCurryGoodies","updProgName") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updProg") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updProgImports") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updProg") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updProgTypes") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updProg") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updProgFuncs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updProg") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updProgOps") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updProg") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","allVarsInProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Prelude","concatMap") [Comb FuncCall ("FlatCurryGoodies","allVarsInFunc") []],Comb FuncCall ("FlatCurryGoodies","progFuncs") []])),Func ("FlatCurryGoodies","updProgExps") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("FlatCurryGoodies","updProgFuncs") [],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 2) ("Prelude","map") [],Comb FuncCall ("FlatCurryGoodies","updFuncBody") []]])),Func ("FlatCurryGoodies","rnmAllVarsInProg") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("FlatCurryGoodies","updProgFuncs") [],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 2) ("Prelude","map") [],Comb FuncCall ("FlatCurryGoodies","rnmAllVarsInFunc") []]])),Func ("FlatCurryGoodies","updQNamesInProg") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updProg") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","updQNamesInType") [Var 1]],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","updQNamesInFunc") [Var 1]],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","updOpName") [Var 1]]])),Func ("FlatCurryGoodies","rnmProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","updProgName") [Comb (FuncPartCall 1) ("Prelude","const") [Var 1]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","updQNamesInProg") [Comb (FuncPartCall 1) ("FlatCurryGoodies","rnmProg.rnm.62") [Var 1,Var 2]],Var 2]])),Func ("FlatCurryGoodies","rnmProg.rnm.62") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","progName") [],Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Var 4,Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("FlatCurryGoodies","trType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TVar 0))))) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TVar 0)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Type") [4,5,6,7]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 5],Var 6],Var 7]),Branch (Pattern ("FlatCurry","TypeSyn") [8,9,10,11]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 2,Var 8],Var 9],Var 10],Var 11])])),Func ("FlatCurryGoodies","typeName") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","typeName._#lambda7") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","typeName._#lambda8") []])),Func ("FlatCurryGoodies","typeName._#lambda7") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [1,2,3,4] (Var 1)),Func ("FlatCurryGoodies","typeName._#lambda8") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [1,2,3,4] (Var 1)),Func ("FlatCurryGoodies","typeVisibility") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","typeVisibility._#lambda9") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","typeVisibility._#lambda10") []])),Func ("FlatCurryGoodies","typeVisibility._#lambda9") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("FlatCurry","Visibility") []))))) (Rule [1,2,3,4] (Var 2)),Func ("FlatCurryGoodies","typeVisibility._#lambda10") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","Visibility") []))))) (Rule [1,2,3,4] (Var 2)),Func ("FlatCurryGoodies","typeParams") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","typeParams._#lambda11") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","typeParams._#lambda12") []])),Func ("FlatCurryGoodies","typeParams._#lambda11") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [1,2,3,4] (Var 3)),Func ("FlatCurryGoodies","typeParams._#lambda12") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [1,2,3,4] (Var 3)),Func ("FlatCurryGoodies","typeConsDecls") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","typeConsDecls._#lambda13") [],Comb FuncCall ("Prelude","failed") []])),Func ("FlatCurryGoodies","typeConsDecls._#lambda13") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))))) (Rule [1,2,3,4] (Var 4)),Func ("FlatCurryGoodies","typeSyn") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb FuncCall ("Prelude","failed") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","typeSyn._#lambda14") []])),Func ("FlatCurryGoodies","typeSyn._#lambda14") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [1,2,3,4] (Var 4)),Func ("FlatCurryGoodies","isTypeSyn") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","isTypeSyn._#lambda15") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","isTypeSyn._#lambda16") []])),Func ("FlatCurryGoodies","isTypeSyn._#lambda15") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isTypeSyn._#lambda16") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","isDataTypeDecl") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","isDataTypeDecl._#lambda17") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","isDataTypeDecl._#lambda18") []])),Func ("FlatCurryGoodies","isDataTypeDecl._#lambda17") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","null") [Var 4]])),Func ("FlatCurryGoodies","isDataTypeDecl._#lambda18") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isExternalType") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","isExternalType._#lambda19") [],Comb (FuncPartCall 4) ("FlatCurryGoodies","isExternalType._#lambda20") []])),Func ("FlatCurryGoodies","isExternalType._#lambda19") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","null") [Var 4])),Func ("FlatCurryGoodies","isExternalType._#lambda20") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","updType") 5 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))))) (Rule [1,2,3,4,5] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("FlatCurryGoodies","updType.typ.148") [Var 4,Var 1,Var 3,Var 2],Comb (FuncPartCall 4) ("FlatCurryGoodies","updType.typesyn.148") [Var 1,Var 3,Var 5,Var 2]])),Func ("FlatCurryGoodies","updType.typ.148") 8 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("FlatCurry","TypeDecl") []))))))))) (Rule [1,2,3,4,5,6,7,8] (Comb ConsCall ("FlatCurry","Type") [Comb FuncCall ("Prelude","apply") [Var 2,Var 5],Comb FuncCall ("Prelude","apply") [Var 4,Var 6],Comb FuncCall ("Prelude","apply") [Var 3,Var 7],Comb FuncCall ("Prelude","apply") [Var 1,Var 8]])),Func ("FlatCurryGoodies","updType.typesyn.148") 8 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeDecl") []))))))))) (Rule [1,2,3,4,5,6,7,8] (Comb ConsCall ("FlatCurry","TypeSyn") [Comb FuncCall ("Prelude","apply") [Var 1,Var 5],Comb FuncCall ("Prelude","apply") [Var 4,Var 6],Comb FuncCall ("Prelude","apply") [Var 2,Var 7],Comb FuncCall ("Prelude","apply") [Var 3,Var 8]])),Func ("FlatCurryGoodies","updTypeName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updType") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updTypeVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updType") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updTypeParams") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updType") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updTypeConsDecls") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updType") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updTypeSynonym") 0 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updType") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updQNamesInType") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updType") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","updQNamesInConsDecl") [Var 1]],Comb FuncCall ("FlatCurryGoodies","updQNamesInTypeExpr") [Var 1]])),Func ("FlatCurryGoodies","trCons") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TVar 0))))) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4],Var 5],Var 6])])),Func ("FlatCurryGoodies","consName") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCons") [Comb (FuncPartCall 4) ("FlatCurryGoodies","consName._#lambda21") []])),Func ("FlatCurryGoodies","consName._#lambda21") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [1,2,3,4] (Var 1)),Func ("FlatCurryGoodies","consArity") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCons") [Comb (FuncPartCall 4) ("FlatCurryGoodies","consArity._#lambda22") []])),Func ("FlatCurryGoodies","consArity._#lambda22") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","Int") []))))) (Rule [1,2,3,4] (Var 2)),Func ("FlatCurryGoodies","consVisibility") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCons") [Comb (FuncPartCall 4) ("FlatCurryGoodies","consVisibility._#lambda23") []])),Func ("FlatCurryGoodies","consVisibility._#lambda23") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","Visibility") []))))) (Rule [1,2,3,4] (Var 3)),Func ("FlatCurryGoodies","consArgs") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCons") [Comb (FuncPartCall 4) ("FlatCurryGoodies","consArgs._#lambda24") []])),Func ("FlatCurryGoodies","consArgs._#lambda24") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))))) (Rule [1,2,3,4] (Var 4)),Func ("FlatCurryGoodies","updCons") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))) (Rule [1,2,3,4] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCons") [Comb (FuncPartCall 4) ("FlatCurryGoodies","updCons.cons.192") [Var 2,Var 4,Var 1,Var 3]])),Func ("FlatCurryGoodies","updCons.cons.192") 8 Private (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","ConsDecl") []))))))))) (Rule [1,2,3,4,5,6,7,8] (Comb ConsCall ("FlatCurry","Cons") [Comb FuncCall ("Prelude","apply") [Var 3,Var 5],Comb FuncCall ("Prelude","apply") [Var 1,Var 6],Comb FuncCall ("Prelude","apply") [Var 4,Var 7],Comb FuncCall ("Prelude","apply") [Var 2,Var 8]])),Func ("FlatCurryGoodies","updConsName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updCons") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updConsArity") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updCons") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updConsVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updCons") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updConsArgs") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updCons") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updQNamesInConsDecl") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updCons") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","updQNamesInTypeExpr") [Var 1]]])),Func ("FlatCurryGoodies","tVarIndex") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Var 2)])),Func ("FlatCurryGoodies","domain") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncType") [2,3]) (Var 2)])),Func ("FlatCurryGoodies","range") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncType") [2,3]) (Var 3)])),Func ("FlatCurryGoodies","tConsName") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TCons") [2,3]) (Var 2)])),Func ("FlatCurryGoodies","tConsArgs") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TCons") [2,3]) (Var 3)])),Func ("FlatCurryGoodies","trTypeExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))) (Rule [1,2,3,4] (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Comb FuncCall ("Prelude","apply") [Var 1,Var 5]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 2,Var 6],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Var 1,Var 2,Var 3],Var 7]]),Branch (Pattern ("FlatCurry","FuncType") [8,9]) (Let [(10,Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Var 1,Var 2,Var 3])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 3,Comb FuncCall ("Prelude","apply") [Var 10,Var 8]],Comb FuncCall ("Prelude","apply") [Var 10,Var 9]]))])),Func ("FlatCurryGoodies","isTVar") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 1) ("FlatCurryGoodies","isTVar._#lambda25") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isTVar._#lambda26") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isTVar._#lambda27") []])),Func ("FlatCurryGoodies","isTVar._#lambda25") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","isTVar._#lambda26") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isTVar._#lambda27") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isTCons") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 1) ("FlatCurryGoodies","isTCons._#lambda28") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isTCons._#lambda29") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isTCons._#lambda30") []])),Func ("FlatCurryGoodies","isTCons._#lambda28") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isTCons._#lambda29") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","isTCons._#lambda30") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isFuncType") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 1) ("FlatCurryGoodies","isFuncType._#lambda31") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isFuncType._#lambda32") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","isFuncType._#lambda33") []])),Func ("FlatCurryGoodies","isFuncType._#lambda31") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isFuncType._#lambda32") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isFuncType._#lambda33") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","updTVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Var 1,Comb (ConsPartCall 2) ("FlatCurry","TCons") [],Comb (ConsPartCall 2) ("FlatCurry","FuncType") []])),Func ("FlatCurryGoodies","updTCons") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Comb (ConsPartCall 1) ("FlatCurry","TVar") [],Var 1,Comb (ConsPartCall 2) ("FlatCurry","FuncType") []])),Func ("FlatCurryGoodies","updFuncTypes") 0 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Comb (FuncPartCall 2) ("FlatCurryGoodies","trTypeExpr") [Comb (ConsPartCall 1) ("FlatCurry","TVar") [],Comb (ConsPartCall 2) ("FlatCurry","TCons") []])),Func ("FlatCurryGoodies","argTypes") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("FlatCurry","FuncType") [5,6]) (Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("FlatCurryGoodies","argTypes") [Var 6]])])),Func ("FlatCurryGoodies","resultType") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Comb ConsCall ("FlatCurry","TVar") [Var 2]),Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb ConsCall ("FlatCurry","TCons") [Var 3,Var 4]),Branch (Pattern ("FlatCurry","FuncType") [5,6]) (Comb FuncCall ("FlatCurryGoodies","resultType") [Var 6])])),Func ("FlatCurryGoodies","allVarsInTypeExpr") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (ConsPartCall 2) ("Prelude",":") [],Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 1) ("Prelude","const") [Comb (FuncPartCall 1) ("Prelude","concat") []],Comb (FuncPartCall 2) ("Prelude","++") []])),Func ("FlatCurryGoodies","rnmAllVarsInTypeExpr") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updTVars") [Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("FlatCurry","TVar") [],Var 1]])),Func ("FlatCurryGoodies","updQNamesInTypeExpr") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updTCons") [Comb (FuncPartCall 2) ("FlatCurryGoodies","updQNamesInTypeExpr._#lambda34") [Var 1]])),Func ("FlatCurryGoodies","updQNamesInTypeExpr._#lambda34") 3 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","TypeExpr") [])))) (Rule [1,2,3] (Comb ConsCall ("FlatCurry","TCons") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2],Var 3])),Func ("FlatCurryGoodies","trOp") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0)))) (FuncType (TCons ("FlatCurry","OpDecl") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4],Var 5])])),Func ("FlatCurryGoodies","opName") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trOp") [Comb (FuncPartCall 3) ("FlatCurryGoodies","opName._#lambda35") []])),Func ("FlatCurryGoodies","opName._#lambda35") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Var 1)),Func ("FlatCurryGoodies","opFixity") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","Fixity") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trOp") [Comb (FuncPartCall 3) ("FlatCurryGoodies","opFixity._#lambda36") []])),Func ("FlatCurryGoodies","opFixity._#lambda36") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","Fixity") [])))) (Rule [1,2,3] (Var 2)),Func ("FlatCurryGoodies","opPrecedence") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trOp") [Comb (FuncPartCall 3) ("FlatCurryGoodies","opPrecedence._#lambda37") []])),Func ("FlatCurryGoodies","opPrecedence._#lambda37") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))) (Rule [1,2,3] (Var 3)),Func ("FlatCurryGoodies","updOp") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") [])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [1,2,3] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trOp") [Comb (FuncPartCall 3) ("FlatCurryGoodies","updOp.op.305") [Var 2,Var 1,Var 3]])),Func ("FlatCurryGoodies","updOp.op.305") 6 Private (FuncType (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") [])) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","OpDecl") []))))))) (Rule [1,2,3,4,5,6] (Comb ConsCall ("FlatCurry","Op") [Comb FuncCall ("Prelude","apply") [Var 2,Var 4],Comb FuncCall ("Prelude","apply") [Var 1,Var 5],Comb FuncCall ("Prelude","apply") [Var 3,Var 6]])),Func ("FlatCurryGoodies","updOpName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updOp") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updOpFixity") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updOp") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updOpPrecedence") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updOp") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","trFunc") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0)))))) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4],Var 5],Var 6],Var 7])])),Func ("FlatCurryGoodies","funcName") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","funcName._#lambda38") []])),Func ("FlatCurryGoodies","funcName._#lambda38") 5 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [1,2,3,4,5] (Var 1)),Func ("FlatCurryGoodies","funcArity") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","funcArity._#lambda39") []])),Func ("FlatCurryGoodies","funcArity._#lambda39") 5 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","Int") [])))))) (Rule [1,2,3,4,5] (Var 2)),Func ("FlatCurryGoodies","funcVisibility") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","funcVisibility._#lambda40") []])),Func ("FlatCurryGoodies","funcVisibility._#lambda40") 5 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [1,2,3,4,5] (Var 3)),Func ("FlatCurryGoodies","funcType") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","funcType._#lambda41") []])),Func ("FlatCurryGoodies","funcType._#lambda41") 5 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","TypeExpr") [])))))) (Rule [1,2,3,4,5] (Var 4)),Func ("FlatCurryGoodies","funcRule") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Rule") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","funcRule._#lambda42") []])),Func ("FlatCurryGoodies","funcRule._#lambda42") 5 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])))))) (Rule [1,2,3,4,5] (Var 5)),Func ("FlatCurryGoodies","updFunc") 5 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))))) (Rule [1,2,3,4,5] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trFunc") [Comb (FuncPartCall 5) ("FlatCurryGoodies","updFunc.func.352") [Var 2,Var 1,Var 5,Var 4,Var 3]])),Func ("FlatCurryGoodies","updFunc.func.352") 10 Private (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","FuncDecl") []))))))))))) (Rule [1,2,3,4,5,6,7,8,9,10] (Comb ConsCall ("FlatCurry","Func") [Comb FuncCall ("Prelude","apply") [Var 2,Var 6],Comb FuncCall ("Prelude","apply") [Var 1,Var 7],Comb FuncCall ("Prelude","apply") [Var 5,Var 8],Comb FuncCall ("Prelude","apply") [Var 4,Var 9],Comb FuncCall ("Prelude","apply") [Var 3,Var 10]])),Func ("FlatCurryGoodies","updFuncName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updFunc") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updFuncArity") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updFunc") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updFuncVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updFunc") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updFuncType") 1 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updFunc") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updFuncRule") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updFunc") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","isExternal") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","isRuleExternal") [],Comb FuncCall ("FlatCurryGoodies","funcRule") []])),Func ("FlatCurryGoodies","allVarsInFunc") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","allVarsInRule") [],Comb FuncCall ("FlatCurryGoodies","funcRule") []])),Func ("FlatCurryGoodies","funcArgs") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","ruleArgs") [],Comb FuncCall ("FlatCurryGoodies","funcRule") []])),Func ("FlatCurryGoodies","funcBody") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","ruleBody") [],Comb FuncCall ("FlatCurryGoodies","funcRule") []])),Func ("FlatCurryGoodies","funcRHS") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isExternal") [],Var 1]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryGoodies","funcRHS.orCase.374") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","funcBody") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("FlatCurryGoodies","funcRHS.orCase.374") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("FlatCurryGoodies","isOr") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("FlatCurryGoodies","funcRHS.orCase.374") []],Comb FuncCall ("FlatCurryGoodies","orExps") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("FlatCurryGoodies","isCase") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("FlatCurryGoodies","funcRHS.orCase.374") []],Comb FuncCall ("Prelude","map") [Comb FuncCall ("FlatCurryGoodies","branchExpr") [],Comb FuncCall ("FlatCurryGoodies","caseBranches") [Var 1]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("FlatCurryGoodies","rnmAllVarsInFunc") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("FlatCurryGoodies","updFunc") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []],Comb (FuncPartCall 1) ("FlatCurryGoodies","rnmAllVarsInRule") []])),Func ("FlatCurryGoodies","updQNamesInFunc") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updFunc") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("FlatCurryGoodies","updQNamesInTypeExpr") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","updQNamesInRule") [],Var 1]])),Func ("FlatCurryGoodies","updFuncArgs") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","updFuncRule") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","updRuleArgs") []])),Func ("FlatCurryGoodies","updFuncBody") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","updFuncRule") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","updRuleBody") []])),Func ("FlatCurryGoodies","trRule") 3 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Rule") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 5]),Branch (Pattern ("FlatCurry","External") [6]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 6])])),Func ("FlatCurryGoodies","ruleArgs") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb (FuncPartCall 2) ("FlatCurryGoodies","ruleArgs._#lambda43") [],Comb FuncCall ("Prelude","failed") []])),Func ("FlatCurryGoodies","ruleArgs._#lambda43") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Var 1)),Func ("FlatCurryGoodies","ruleBody") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb (FuncPartCall 2) ("FlatCurryGoodies","ruleBody._#lambda44") [],Comb FuncCall ("Prelude","failed") []])),Func ("FlatCurryGoodies","ruleBody._#lambda44") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1,2] (Var 2)),Func ("FlatCurryGoodies","ruleExtDecl") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb FuncCall ("Prelude","failed") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","isRuleExternal") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb (FuncPartCall 2) ("FlatCurryGoodies","isRuleExternal._#lambda45") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isRuleExternal._#lambda46") []])),Func ("FlatCurryGoodies","isRuleExternal._#lambda45") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isRuleExternal._#lambda46") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","updRule") 3 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [1,2,3] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb (FuncPartCall 2) ("FlatCurryGoodies","updRule.rule.409") [Var 1,Var 2],Comb (FuncPartCall 1) ("FlatCurryGoodies","updRule.ext.409") [Var 3]])),Func ("FlatCurryGoodies","updRule.rule.409") 4 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Rule") []))))) (Rule [1,2,3,4] (Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Comb FuncCall ("Prelude","apply") [Var 2,Var 4]])),Func ("FlatCurryGoodies","updRule.ext.409") 2 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("FlatCurry","Rule") []))) (Rule [1,2] (Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2]])),Func ("FlatCurryGoodies","updRuleArgs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updRule") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updRuleBody") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updRule") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updRuleExtDecl") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updRule") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1])),Func ("FlatCurryGoodies","allVarsInRule") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trRule") [Comb (FuncPartCall 2) ("FlatCurryGoodies","allVarsInRule._#lambda47") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","allVarsInRule._#lambda48") []])),Func ("FlatCurryGoodies","allVarsInRule._#lambda47") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("FlatCurryGoodies","allVars") [Var 2]])),Func ("FlatCurryGoodies","allVarsInRule._#lambda48") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TVar 1003])) (Rule [1] (Comb ConsCall ("Prelude","[]") [])),Func ("FlatCurryGoodies","rnmAllVarsInRule") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updRule") [Comb (FuncPartCall 1) ("Prelude","map") [Var 1],Comb FuncCall ("FlatCurryGoodies","rnmAllVars") [Var 1],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updQNamesInRule") 0 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("FlatCurryGoodies","updRuleBody") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","updQNames") []])),Func ("FlatCurryGoodies","trCombType") 5 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (TVar 0) (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (TCons ("FlatCurry","CombType") []) (TVar 0)))))) (Rule [1,2,3,4,5] (Case  Flex (Var 5) [Branch (Pattern ("FlatCurry","FuncCall") []) (Var 1),Branch (Pattern ("FlatCurry","FuncPartCall") [6]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 6]),Branch (Pattern ("FlatCurry","ConsCall") []) (Var 3),Branch (Pattern ("FlatCurry","ConsPartCall") [7]) (Comb FuncCall ("Prelude","apply") [Var 4,Var 7])])),Func ("FlatCurryGoodies","isCombTypeFuncCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeFuncCall._#lambda49") [],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeFuncCall._#lambda50") []])),Func ("FlatCurryGoodies","isCombTypeFuncCall._#lambda49") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeFuncCall._#lambda50") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeFuncPartCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") [],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") []])),Func ("FlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeConsCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeConsCall._#lambda53") [],Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeConsCall._#lambda54") []])),Func ("FlatCurryGoodies","isCombTypeConsCall._#lambda53") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeConsCall._#lambda54") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeConsPartCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeConsPartCall._#lambda55") [],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isCombTypeConsPartCall._#lambda56") []])),Func ("FlatCurryGoodies","isCombTypeConsPartCall._#lambda55") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","isCombTypeConsPartCall._#lambda56") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","missingArgs") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Int") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trCombType") [Lit (Intc  0),Comb (FuncPartCall 1) ("Prelude","id") [],Lit (Intc  0),Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","varNr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Var 2)])),Func ("FlatCurryGoodies","literal") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Literal") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Var 2)])),Func ("FlatCurryGoodies","combType") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","CombType") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Var 2)])),Func ("FlatCurryGoodies","combName") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Var 3)])),Func ("FlatCurryGoodies","combArgs") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Var 4)])),Func ("FlatCurryGoodies","missingCombArgs") 0 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("FlatCurryGoodies","missingArgs") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","combType") []])),Func ("FlatCurryGoodies","letBinds") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Let") [2,3]) (Var 2)])),Func ("FlatCurryGoodies","letBody") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Let") [2,3]) (Var 3)])),Func ("FlatCurryGoodies","freeVars") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Free") [2,3]) (Var 2)])),Func ("FlatCurryGoodies","freeExpr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Free") [2,3]) (Var 3)])),Func ("FlatCurryGoodies","orExps") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Or") [2,3]) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]])])),Func ("FlatCurryGoodies","caseType") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","CaseType") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Case") [2,3,4]) (Var 2)])),Func ("FlatCurryGoodies","caseExpr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Case") [2,3,4]) (Var 3)])),Func ("FlatCurryGoodies","caseBranches") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Case") [2,3,4]) (Var 4)])),Func ("FlatCurryGoodies","isVar") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isLit") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isComb") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isLet") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Let") [2,3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [6,7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isFree") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Free") [2,3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [6,7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isOr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Or") [2,3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [6,7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","isCase") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Case") [2,3,4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Var") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryGoodies","trExpr") 9 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0)) (FuncType (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0)))))))))) (Rule [1,2,3,4,5,6,7,8,9] (Case  Flex (Var 9) [Branch (Pattern ("FlatCurry","Var") [10]) (Comb FuncCall ("Prelude","apply") [Var 1,Var 10]),Branch (Pattern ("FlatCurry","Lit") [11]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 11]),Branch (Pattern ("FlatCurry","Comb") [12,13,14]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 3,Var 12],Var 13],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8],Var 14]]),Branch (Pattern ("FlatCurry","Let") [15,16]) (Let [(17,Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 4,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr._#lambda64") [Var 17],Var 15]],Comb FuncCall ("Prelude","apply") [Var 17,Var 16]])),Branch (Pattern ("FlatCurry","Free") [18,19]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 5,Var 18],Comb FuncCall ("FlatCurryGoodies","trExpr") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 19]]),Branch (Pattern ("FlatCurry","Or") [20,21]) (Let [(22,Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 6,Comb FuncCall ("Prelude","apply") [Var 22,Var 20]],Comb FuncCall ("Prelude","apply") [Var 22,Var 21]])),Branch (Pattern ("FlatCurry","Case") [23,24,25]) (Let [(26,Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Var 1,Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 7,Var 23],Comb FuncCall ("Prelude","apply") [Var 26,Var 24]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr._#lambda65") [Var 8,Var 26],Var 25]]))])),Func ("FlatCurryGoodies","trExpr._#lambda64") 2 Private (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 231]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb ConsCall ("Prelude","(,)") [Var 3,Comb FuncCall ("Prelude","apply") [Var 1,Var 4]])])),Func ("FlatCurryGoodies","trExpr._#lambda65") 3 Private (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TVar 231) (TVar 232))) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231)) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TVar 232)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Comb FuncCall ("Prelude","apply") [Var 2,Var 5]])])),Func ("FlatCurryGoodies","updVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Var 1,Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updLiterals") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Var 1,Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updCombs") 1 Public (FuncType (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Var 1,Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updLets") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Var 1,Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updFrees") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Var 1,Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updOrs") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Var 1,Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updCases") 1 Public (FuncType (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]) (TCons ("FlatCurry","Expr") [])))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Var 1,Comb (ConsPartCall 2) ("FlatCurry","Branch") []])),Func ("FlatCurryGoodies","updBranches") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","BranchExpr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Var 1])),Func ("FlatCurryGoodies","isFuncCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryGoodies","isComb") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isCombTypeFuncCall") [],Comb FuncCall ("FlatCurryGoodies","combType") [Var 1]]])),Func ("FlatCurryGoodies","isFuncPartCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryGoodies","isComb") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isCombTypeFuncPartCall") [],Comb FuncCall ("FlatCurryGoodies","combType") [Var 1]]])),Func ("FlatCurryGoodies","isConsCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryGoodies","isComb") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isCombTypeConsCall") [],Comb FuncCall ("FlatCurryGoodies","combType") [Var 1]]])),Func ("FlatCurryGoodies","isConsPartCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryGoodies","isComb") [Var 1],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isCombTypeConsPartCall") [],Comb FuncCall ("FlatCurryGoodies","combType") [Var 1]]])),Func ("FlatCurryGoodies","isGround") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Case  Rigid (Var 2) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("FlatCurryGoodies","isGround") []],Var 4]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","FuncPartCall") [5]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","ConsPartCall") [6]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1])]),Branch (Pattern ("FlatCurry","Var") [7]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","Lit") [8]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","Let") [9,10]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","Or") [13,14]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1]),Branch (Pattern ("FlatCurry","Case") [15,16,17]) (Comb FuncCall ("FlatCurryGoodies","isLit") [Var 1])])),Func ("FlatCurryGoodies","allVars") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 2) ("Prelude",":") [],Comb (FuncPartCall 1) ("Prelude","const") [Comb (FuncPartCall 1) ("Prelude","id") []],Comb (FuncPartCall 2) ("FlatCurryGoodies","allVars.comb.650") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","allVars.lt.650") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","allVars.fr.650") [],Comb (FuncPartCall 2) ("Prelude",".") [],Comb (FuncPartCall 3) ("FlatCurryGoodies","allVars.cas.650") [],Comb (FuncPartCall 2) ("FlatCurryGoodies","allVars.branch.650") [],Var 1],Comb ConsCall ("Prelude","[]") []])),Func ("FlatCurryGoodies","allVars.comb.650") 2 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [FuncType (TVar 2) (TVar 2)]) (FuncType (TVar 2) (TVar 2))))) (Rule [1,2] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude",".") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","allVars.lt.650") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])]]) (FuncType (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1)) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1)))) (Rule [1,2] (Comb FuncCall ("Prelude",".") [Var 2,Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude",".") [],Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","allVars.lt.650._#lambda67") [],Var 1]]])),Func ("FlatCurryGoodies","allVars.lt.650._#lambda67") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 283,FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283])]) (FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283]))) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("Prelude",":") [Var 2],Var 3])])),Func ("FlatCurryGoodies","allVars.fr.650") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0])) (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1,2] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Var 1],Var 2])),Func ("FlatCurryGoodies","allVars.cas.650") 3 Private (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 2)) (FuncType (TCons ("Prelude","[]") [FuncType (TVar 1) (TVar 1)]) (FuncType (TVar 1) (TVar 2))))) (Rule [1,2,3] (Comb FuncCall ("Prelude",".") [Var 2,Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude",".") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 3]])),Func ("FlatCurryGoodies","allVars.args.650") 1 Private (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","isConsPattern") [],Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","patArgs") [],Var 1]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("FlatCurryGoodies","allVars.branch.650") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1,2] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Comb FuncCall ("FlatCurryGoodies","allVars.args.650") [Var 1]],Var 2])),Func ("FlatCurryGoodies","rnmAllVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Let [(2,Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryGoodies","rnmAllVars._#lambda68") [Var 1]]])] (Let [(3,Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 2) ("FlatCurry","Branch") [],Comb FuncCall ("FlatCurryGoodies","updPatArgs") [Comb (FuncPartCall 1) ("Prelude","map") [Var 1]]])] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Var 1],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (ConsPartCall 3) ("FlatCurry","Comb") [],Var 2,Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Var 3])))),Func ("FlatCurryGoodies","rnmAllVars._#lambda68") 2 Private (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4])])),Func ("FlatCurryGoodies","updQNames") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trExpr") [Comb (ConsPartCall 1) ("FlatCurry","Var") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") [],Comb (FuncPartCall 3) ("FlatCurryGoodies","updQNames.comb.673") [Var 1],Comb (ConsPartCall 2) ("FlatCurry","Let") [],Comb (ConsPartCall 2) ("FlatCurry","Free") [],Comb (ConsPartCall 2) ("FlatCurry","Or") [],Comb (ConsPartCall 3) ("FlatCurry","Case") [],Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 2) ("FlatCurry","Branch") [],Comb FuncCall ("FlatCurryGoodies","updPatCons") [Var 1]]])),Func ("FlatCurryGoodies","updQNames.comb.673") 4 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") []))))) (Rule [1,2,3,4] (Comb ConsCall ("FlatCurry","Comb") [Var 2,Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4])),Func ("FlatCurryGoodies","trBranch") 2 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4])])),Func ("FlatCurryGoodies","branchPattern") 0 Public (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Pattern") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trBranch") [Comb (FuncPartCall 2) ("FlatCurryGoodies","branchPattern._#lambda69") []])),Func ("FlatCurryGoodies","branchPattern._#lambda69") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Pattern") []))) (Rule [1,2] (Var 1)),Func ("FlatCurryGoodies","branchExpr") 0 Public (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trBranch") [Comb (FuncPartCall 2) ("FlatCurryGoodies","branchExpr._#lambda70") []])),Func ("FlatCurryGoodies","branchExpr._#lambda70") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1,2] (Var 2)),Func ("FlatCurryGoodies","updBranch") 2 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") [])) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))) (Rule [1,2] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trBranch") [Comb (FuncPartCall 2) ("FlatCurryGoodies","updBranch.branch.687") [Var 2,Var 1]])),Func ("FlatCurryGoodies","updBranch.branch.687") 4 Private (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") [])) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","BranchExpr") []))))) (Rule [1,2,3,4] (Comb ConsCall ("FlatCurry","Branch") [Comb FuncCall ("Prelude","apply") [Var 2,Var 3],Comb FuncCall ("Prelude","apply") [Var 1,Var 4]])),Func ("FlatCurryGoodies","updBranchPattern") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updBranch") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updBranchExpr") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","updBranch") [Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","trPattern") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TVar 0))) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0)) (FuncType (TCons ("FlatCurry","Pattern") []) (TVar 0)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Pattern") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 5]),Branch (Pattern ("FlatCurry","LPattern") [6]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 6])])),Func ("FlatCurryGoodies","patCons") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("FlatCurryGoodies","patCons._#lambda71") [],Comb FuncCall ("Prelude","failed") []])),Func ("FlatCurryGoodies","patCons._#lambda71") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Var 1)),Func ("FlatCurryGoodies","patArgs") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("FlatCurryGoodies","patArgs._#lambda72") [],Comb FuncCall ("Prelude","failed") []])),Func ("FlatCurryGoodies","patArgs._#lambda72") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Var 2)),Func ("FlatCurryGoodies","patLiteral") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Literal") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb FuncCall ("Prelude","failed") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","isConsPattern") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("FlatCurryGoodies","isConsPattern._#lambda73") [],Comb (FuncPartCall 1) ("FlatCurryGoodies","isConsPattern._#lambda74") []])),Func ("FlatCurryGoodies","isConsPattern._#lambda73") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb ConsCall ("Prelude","True") [])),Func ("FlatCurryGoodies","isConsPattern._#lambda74") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb ConsCall ("Prelude","False") [])),Func ("FlatCurryGoodies","updPattern") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") [])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [1,2,3] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("FlatCurryGoodies","updPattern.pattern.718") [Var 2,Var 1],Comb (FuncPartCall 1) ("FlatCurryGoodies","updPattern.lpattern.718") [Var 3]])),Func ("FlatCurryGoodies","updPattern.pattern.718") 4 Private (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("FlatCurry","Pattern") []))))) (Rule [1,2,3,4] (Comb ConsCall ("FlatCurry","Pattern") [Comb FuncCall ("Prelude","apply") [Var 2,Var 3],Comb FuncCall ("Prelude","apply") [Var 1,Var 4]])),Func ("FlatCurryGoodies","updPattern.lpattern.718") 2 Private (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") [])) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Pattern") []))) (Rule [1,2] (Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2]])),Func ("FlatCurryGoodies","updPatCons") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updPattern") [Var 1,Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updPatArgs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updPattern") [Comb (FuncPartCall 1) ("Prelude","id") [],Var 1,Comb (FuncPartCall 1) ("Prelude","id") []])),Func ("FlatCurryGoodies","updPatLiteral") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") [])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [1] (Comb FuncCall ("FlatCurryGoodies","updPattern") [Comb (FuncPartCall 1) ("Prelude","id") [],Comb (FuncPartCall 1) ("Prelude","id") [],Var 1])),Func ("FlatCurryGoodies","patExpr") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Comb (FuncPartCall 1) ("FlatCurryGoodies","trPattern") [Comb (FuncPartCall 1) ("FlatCurryGoodies","patExpr._#lambda75") [],Comb (ConsPartCall 1) ("FlatCurry","Lit") []])),Func ("FlatCurryGoodies","patExpr._#lambda75") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("FlatCurry","Expr") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Var 1],Comb (FuncPartCall 1) ("Prelude","map") [Comb (ConsPartCall 1) ("FlatCurry","Var") []]]))] []
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurryGoodies" ["FlatCurry","Prelude"] [TypeSyn ("FlatCurryGoodies","Update") Public [0,1] (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 0) (TVar 0)))] [Func ("FlatCurryGoodies","trProg") 2 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TVar 0)))))) (FuncType (TCons ("FlatCurry","Prog") []) (TVar 0))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","progName") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","progImports") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","progTypes") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","progFuncs") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","progOps") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProg") 5 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgName") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgImports") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgTypes") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgFuncs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgOps") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","allVarsInProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updProgExps") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmAllVarsInProg") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInProg") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TVar 0))))) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TVar 0)))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","typeName") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","typeVisibility") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","typeParams") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","typeConsDecls") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","typeSyn") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isTypeSyn") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isDataTypeDecl") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isExternalType") 0 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updType") 5 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTypeName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTypeVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTypeParams") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTypeConsDecls") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTypeSynonym") 0 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInType") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trCons") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TVar 0))))) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TVar 0))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","consName") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","consArity") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","consVisibility") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","consArgs") 0 Public (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updCons") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updConsName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updConsArity") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updConsVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updConsArgs") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInConsDecl") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","tVarIndex") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","domain") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","range") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","tConsName") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","tConsArgs") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trTypeExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isTVar") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isTCons") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isFuncType") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updTCons") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncTypes") 0 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","argTypes") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","resultType") 1 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","allVarsInTypeExpr") 0 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmAllVarsInTypeExpr") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInTypeExpr") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trOp") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0)))) (FuncType (TCons ("FlatCurry","OpDecl") []) (TVar 0))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","opName") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","opFixity") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","Fixity") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","opPrecedence") 0 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updOp") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") [])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updOpName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updOpFixity") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updOpPrecedence") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trFunc") 2 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0)))))) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TVar 0))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcName") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcArity") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcVisibility") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Visibility") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcType") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcRule") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Rule") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFunc") 5 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncName") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncArity") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncVisibility") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncType") 1 Public (FuncType (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncRule") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isExternal") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","allVarsInFunc") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcArgs") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcBody") 0 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","funcRHS") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmAllVarsInFunc") 0 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInFunc") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncArgs") 0 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFuncBody") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trRule") 3 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0)))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","ruleArgs") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","ruleBody") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","ruleExtDecl") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isRuleExternal") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updRule") 3 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updRuleArgs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updRuleBody") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updRuleExtDecl") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","allVarsInRule") 0 Public (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmAllVarsInRule") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNamesInRule") 0 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trCombType") 5 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (TVar 0) (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (TCons ("FlatCurry","CombType") []) (TVar 0)))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isCombTypeFuncCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isCombTypeFuncPartCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isCombTypeConsCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isCombTypeConsPartCall") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","missingArgs") 0 Public (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","varNr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","literal") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Literal") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","combType") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","CombType") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","combName") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","combArgs") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","missingCombArgs") 0 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","letBinds") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","letBody") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","freeVars") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","freeExpr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","orExps") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","caseType") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","CaseType") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","caseExpr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","caseBranches") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isVar") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isLit") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isComb") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isLet") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isFree") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isOr") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isCase") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trExpr") 9 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0)) (FuncType (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0)))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0)))) (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0)))))))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updLiterals") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updCombs") 1 Public (FuncType (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updLets") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updFrees") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updOrs") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updCases") 1 Public (FuncType (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]) (TCons ("FlatCurry","Expr") [])))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updBranches") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","BranchExpr") []))) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isFuncCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isFuncPartCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isConsCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isConsPartCall") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isGround") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","allVars") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","rnmAllVars") 1 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updQNames") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trBranch") 2 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TVar 0))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","branchPattern") 0 Public (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Pattern") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","branchExpr") 0 Public (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updBranch") 2 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") [])) (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updBranchPattern") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updBranchExpr") 0 Public (FuncType (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","trPattern") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TVar 0))) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0)) (FuncType (TCons ("FlatCurry","Pattern") []) (TVar 0)))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","patCons") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","patArgs") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","patLiteral") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Literal") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","isConsPattern") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updPattern") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") [])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updPatCons") 1 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updPatArgs") 1 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","updPatLiteral") 1 Public (FuncType (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") [])) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (Rule [] (Var 0)),Func ("FlatCurryGoodies","patExpr") 0 Public (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurryGoodies.uacy view
@@ -0,0 +1,166 @@+CurryProg "FlatCurryGoodies"+ ["Prelude","FlatCurry"]+ [CTypeSyn ("FlatCurryGoodies","Update") Public [(0,"a"),(1,"b")] (CFuncType (CFuncType (CTVar (1,"b")) (CTVar (1,"b"))) (CFuncType (CTVar (0,"a")) (CTVar (0,"a"))))]+ [CFunc ("FlatCurryGoodies","allVars") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("Prelude",":"))) (CApply (CSymbol ("Prelude","const")) (CSymbol ("Prelude","id")))) (CSymbol ("FlatCurryGoodies","comb"))) (CSymbol ("FlatCurryGoodies","lt"))) (CSymbol ("FlatCurryGoodies","fr"))) (CSymbol ("Prelude","."))) (CSymbol ("FlatCurryGoodies","cas"))) (CSymbol ("FlatCurryGoodies","branch"))) (CVar (0,"e"))) (CSymbol ("Prelude","[]")))] [CLocalFunc (CFunc ("FlatCurryGoodies","comb") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"_"),CPVar (2,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","lt") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"bs"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CVar (2,"exp"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (3,"n"),CPVar (4,"ns")]] (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (5,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"n"))) (CVar (5,"x0"))))) (CVar (4,"ns"))))) (CVar (1,"bs")))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","fr") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"vs"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"vs"))) (CVar (3,"x0"))))) (CVar (2,"exp")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","cas") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"_"),CPVar (2,"exp"),CPVar (3,"bs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CVar (2,"exp"))) (CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("Prelude","."))) (CSymbol ("Prelude","id"))) (CVar (3,"bs"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","branch") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"pat"),CPVar (2,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryGoodies","args")) (CVar (1,"pat")))) (CVar (3,"x0"))))) (CVar (2,"exp")))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","args") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"pat")] [(CApply (CSymbol ("FlatCurryGoodies","isConsPattern")) (CVar (1,"pat")),CApply (CSymbol ("FlatCurryGoodies","patArgs")) (CVar (1,"pat"))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","[]"))] []]))]]),+  CFunc ("FlatCurryGoodies","allVarsInFunc") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","allVarsInRule"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","allVarsInProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","allVarsInFunc")))) (CSymbol ("FlatCurryGoodies","progFuncs")))] []]),+  CFunc ("FlatCurryGoodies","allVarsInRule") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"args"),CPVar (1,"body")] (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"args"))) (CApply (CSymbol ("FlatCurryGoodies","allVars")) (CVar (1,"body")))))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryGoodies","allVarsInTypeExpr") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"x0"))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("Prelude","const")) (CSymbol ("Prelude","concat")))) (CSymbol ("Prelude","++")))] []]),+  CFunc ("FlatCurryGoodies","argTypes") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (3,"dom"),CPVar (4,"ran")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"dom"))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (4,"ran"))))] []]),+  CFunc ("FlatCurryGoodies","branchExpr") 0 Public (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CLambda [CPVar (0,"_"),CPVar (1,"e")] (CVar (1,"e"))))] []]),+  CFunc ("FlatCurryGoodies","branchPattern") 0 Public (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","Pattern") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CLambda [CPVar (0,"pat"),CPVar (1,"_")] (CVar (0,"pat"))))] []]),+  CFunc ("FlatCurryGoodies","caseBranches") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"bs")]] [(CSymbol ("Prelude","success"),CVar (2,"bs"))] []]),+  CFunc ("FlatCurryGoodies","caseExpr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"_"),CPVar (1,"e"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","caseType") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","CaseType") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Case") [CPVar (0,"ct"),CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"ct"))] []]),+  CFunc ("FlatCurryGoodies","combArgs") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"args")]] [(CSymbol ("Prelude","success"),CVar (2,"args"))] []]),+  CFunc ("FlatCurryGoodies","combName") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPVar (1,"name"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"name"))] []]),+  CFunc ("FlatCurryGoodies","combType") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","CombType") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"ct"),CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"ct"))] []]),+  CFunc ("FlatCurryGoodies","consArgs") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"args")] (CVar (3,"args"))))] []]),+  CFunc ("FlatCurryGoodies","consArity") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"arity"),CPVar (2,"_"),CPVar (3,"_")] (CVar (1,"arity"))))] []]),+  CFunc ("FlatCurryGoodies","consName") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","consVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"vis"),CPVar (3,"_")] (CVar (2,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","domain") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"dom"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"dom"))] []]),+  CFunc ("FlatCurryGoodies","freeExpr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Free") [CPVar (0,"_"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","freeVars") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Free") [CPVar (0,"vs"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"vs"))] []]),+  CFunc ("FlatCurryGoodies","funcArgs") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","ruleArgs"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","funcArity") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"arity"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (1,"arity"))))] []]),+  CFunc ("FlatCurryGoodies","funcBody") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","ruleBody"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","funcName") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","funcRHS") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("FlatCurryGoodies","isExternal")) (CVar (0,"f"))),CApply (CSymbol ("FlatCurryGoodies","orCase")) (CApply (CSymbol ("FlatCurryGoodies","funcBody")) (CVar (0,"f")))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","[]"))] [CLocalFunc (CFunc ("FlatCurryGoodies","orCase") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"e")] [(CApply (CSymbol ("FlatCurryGoodies","isOr")) (CVar (1,"e")),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","orCase"))) (CApply (CSymbol ("FlatCurryGoodies","orExps")) (CVar (1,"e")))),(CApply (CSymbol ("FlatCurryGoodies","isCase")) (CVar (1,"e")),CApply (CApply (CSymbol ("Prelude","concatMap")) (CSymbol ("FlatCurryGoodies","orCase"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryGoodies","branchExpr"))) (CApply (CSymbol ("FlatCurryGoodies","caseBranches")) (CVar (1,"e"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"e"))) (CSymbol ("Prelude","[]")))] []]))]]),+  CFunc ("FlatCurryGoodies","funcRule") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Rule") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"rule")] (CVar (4,"rule"))))] []]),+  CFunc ("FlatCurryGoodies","funcType") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"t"),CPVar (4,"_")] (CVar (3,"t"))))] []]),+  CFunc ("FlatCurryGoodies","funcVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"vis"),CPVar (3,"_"),CPVar (4,"_")] (CVar (2,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","isCase") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Case") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isComb") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isCombTypeConsCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","True"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeConsPartCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeFuncCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","True"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isCombTypeFuncPartCall") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","True")))) (CSymbol ("Prelude","False"))) (CLambda [CPVar (1,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isConsCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeConsCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isConsPartCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeConsPartCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isConsPattern") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"_"),CPVar (1,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isDataTypeDecl") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (3,"cs")))))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isExternal") 0 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","isRuleExternal"))) (CSymbol ("FlatCurryGoodies","funcRule")))] []]),+  CFunc ("FlatCurryGoodies","isExternalType") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CApply (CSymbol ("Prelude","null")) (CVar (3,"cs"))))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isFree") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Free") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isFuncCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeFuncCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isFuncPartCall") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CVar (0,"e")))) (CApply (CSymbol ("FlatCurryGoodies","isCombTypeFuncPartCall")) (CApply (CSymbol ("FlatCurryGoodies","combType")) (CVar (0,"e")))))] []]),+  CFunc ("FlatCurryGoodies","isFuncType") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isGround") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPVar (1,"_"),CPVar (2,"args")]) (CApply (CApply (CSymbol ("Prelude","all")) (CSymbol ("FlatCurryGoodies","isGround"))) (CVar (2,"args"))),CBranch (CPVar (3,"_")) (CApply (CSymbol ("FlatCurryGoodies","isLit")) (CVar (0,"exp")))])] []]),+  CFunc ("FlatCurryGoodies","isLet") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Let") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isLit") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isOr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Or") [CPVar (1,"_"),CPVar (2,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (3,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","isRuleExternal") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"_"),CPVar (1,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (2,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isTCons") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isTVar") 0 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CLambda [CPVar (0,"_")] (CSymbol ("Prelude","True")))) (CLambda [CPVar (1,"_"),CPVar (2,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (3,"_"),CPVar (4,"_")] (CSymbol ("Prelude","False"))))] []]),+  CFunc ("FlatCurryGoodies","isTypeSyn") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CSymbol ("Prelude","False")))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CSymbol ("Prelude","True"))))] []]),+  CFunc ("FlatCurryGoodies","isVar") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Var") [CPVar (1,"_")]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryGoodies","letBinds") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","VarIndex") [],CTCons ("FlatCurry","Expr") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Let") [CPVar (0,"vs"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"vs"))] []]),+  CFunc ("FlatCurryGoodies","letBody") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Let") [CPVar (0,"_"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CVar (1,"e"))] []]),+  CFunc ("FlatCurryGoodies","literal") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPVar (0,"l")]] [(CSymbol ("Prelude","success"),CVar (0,"l"))] []]),+  CFunc ("FlatCurryGoodies","missingArgs") 0 Public (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trCombType")) (CLit (CIntc 0))) (CSymbol ("Prelude","id"))) (CLit (CIntc 0))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","missingCombArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","missingArgs"))) (CSymbol ("FlatCurryGoodies","combType")))] []]),+  CFunc ("FlatCurryGoodies","opFixity") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","Fixity") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"_"),CPVar (1,"fix"),CPVar (2,"_")] (CVar (1,"fix"))))] []]),+  CFunc ("FlatCurryGoodies","opName") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","opPrecedence") 0 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"prec")] (CVar (2,"prec"))))] []]),+  CFunc ("FlatCurryGoodies","orExps") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Or") [CPVar (0,"e1"),CPVar (1,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"e2"))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryGoodies","patArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"_"),CPVar (1,"args")] (CVar (1,"args")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","patCons") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"name"),CPVar (1,"_")] (CVar (0,"name")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","patExpr") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CLambda [CPVar (0,"name")] (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","ConsCall"))) (CVar (0,"name")))) (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurry","Var")))))) (CSymbol ("FlatCurry","Lit")))] []]),+  CFunc ("FlatCurryGoodies","patLiteral") 0 Public (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CSymbol ("Prelude","failed"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","progFuncs") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"funcs"),CPVar (4,"_")] (CVar (3,"funcs"))))] []]),+  CFunc ("FlatCurryGoodies","progImports") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"imps"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (1,"imps"))))] []]),+  CFunc ("FlatCurryGoodies","progName") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")] (CVar (0,"name"))))] []]),+  CFunc ("FlatCurryGoodies","progOps") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"ops")] (CVar (4,"ops"))))] []]),+  CFunc ("FlatCurryGoodies","progTypes") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"types"),CPVar (3,"_"),CPVar (4,"_")] (CVar (2,"types"))))] []]),+  CFunc ("FlatCurryGoodies","range") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"_"),CPVar (1,"ran")]] [(CSymbol ("Prelude","success"),CVar (1,"ran"))] []]),+  CFunc ("FlatCurryGoodies","resultType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","TVar")) (CVar (0,"n")))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (1,"name"),CPVar (2,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","TCons")) (CVar (1,"name"))) (CVar (2,"args")))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (3,"_"),CPVar (4,"ran")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (4,"ran")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVars") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Expr") [],CTCons ("FlatCurry","VarIndex") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Var"))) (CVar (0,"f")))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CVar (1,"lt"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Free"))) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CVar (2,"branch")))] [CLocalPat (CPVar (1,"lt")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Let"))) (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (3,"n"),CPVar (4,"exp")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CVar (0,"f")) (CVar (3,"n")))) (CVar (4,"exp")))))) [],CLocalPat (CPVar (2,"branch")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Branch"))) (CApply (CSymbol ("FlatCurryGoodies","updPatArgs")) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f"))))) []]]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInFunc") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","VarIndex") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))) (CSymbol ("FlatCurryGoodies","rnmAllVarsInRule")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInProg") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("FlatCurry","VarIndex") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updProgFuncs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","map"))) (CSymbol ("FlatCurryGoodies","rnmAllVarsInFunc"))))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInRule") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Rule") [],CTCons ("FlatCurry","VarIndex") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CApply (CSymbol ("Prelude","map")) (CVar (0,"f")))) (CApply (CSymbol ("FlatCurryGoodies","rnmAllVars")) (CVar (0,"f")))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","rnmAllVarsInTypeExpr") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TVarIndex") []) (CTCons ("FlatCurry","TVarIndex") [])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updTVars")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","TVar"))) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","rnmProg") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"p")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updProgName")) (CApply (CSymbol ("Prelude","const")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("FlatCurryGoodies","updQNamesInProg")) (CSymbol ("FlatCurryGoodies","rnm"))) (CVar (1,"p"))))] [CLocalFunc (CFunc ("FlatCurryGoodies","rnm") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (2,"mod"),CPVar (3,"n")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","progName")) (CVar (1,"p"))),CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"name"))) (CVar (3,"n"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mod"))) (CVar (3,"n")))] []]))]]),+  CFunc ("FlatCurryGoodies","ruleArgs") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"args"),CPVar (1,"_")] (CVar (0,"args")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","ruleBody") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CLambda [CPVar (0,"_"),CPVar (1,"exp")] (CVar (1,"exp")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","ruleExtDecl") 0 Public (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CSymbol ("Prelude","failed"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","tConsArgs") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","TCons") [CPVar (0,"_"),CPVar (1,"args")]] [(CSymbol ("Prelude","success"),CVar (1,"args"))] []]),+  CFunc ("FlatCurryGoodies","tConsName") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TCons") [CPVar (0,"name"),CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"name"))] []]),+  CFunc ("FlatCurryGoodies","tVarIndex") 1 Public (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TVarIndex") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CVar (0,"n"))] []]),+  CFunc ("FlatCurryGoodies","trBranch") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a")))) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"branch"),CPComb ("FlatCurry","Branch") [CPVar (1,"pat"),CPVar (2,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"branch")) (CVar (1,"pat"))) (CVar (2,"exp")))] []]),+  CFunc ("FlatCurryGoodies","trCombType") 5 Public (CFuncType (CTVar (0,"a")) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CTVar (0,"a")) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","CombType") []) (CTVar (0,"a"))))))) (CRules CFlex [CRule [CPVar (0,"fc"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CVar (0,"fc"))] [],CRule [CPVar (4,"_"),CPVar (5,"fpc"),CPVar (6,"_"),CPVar (7,"_"),CPComb ("FlatCurry","FuncPartCall") [CPVar (8,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"fpc")) (CVar (8,"n")))] [],CRule [CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"cc"),CPVar (12,"_"),CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CVar (11,"cc"))] [],CRule [CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"cpc"),CPComb ("FlatCurry","ConsPartCall") [CPVar (17,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (16,"cpc")) (CVar (17,"n")))] []]),+  CFunc ("FlatCurryGoodies","trCons") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTVar (0,"a")))))) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"cons"),CPComb ("FlatCurry","Cons") [CPVar (1,"name"),CPVar (2,"arity"),CPVar (3,"vis"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (0,"cons")) (CVar (1,"name"))) (CVar (2,"arity"))) (CVar (3,"vis"))) (CVar (4,"args")))] []]),+  CFunc ("FlatCurryGoodies","trExpr") 9 Public (CFuncType (CFuncType (CTCons ("FlatCurry","VarIndex") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (0,"a"))))) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","VarIndex") [],CTVar (0,"a")]]) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTVar (0,"a")) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("FlatCurry","CaseType") []) (CFuncType (CTVar (0,"a")) (CFuncType (CTCons ("Prelude","[]") [CTVar (1,"b")]) (CTVar (0,"a"))))) (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTVar (0,"a")) (CTVar (1,"b")))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a"))))))))))) (CRules CFlex [CRule [CPVar (0,"var"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPComb ("FlatCurry","Var") [CPVar (8,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (0,"var")) (CVar (8,"n")))] [],CRule [CPVar (9,"_"),CPVar (10,"lit"),CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"_"),CPComb ("FlatCurry","Lit") [CPVar (17,"l")]] [(CSymbol ("Prelude","success"),CApply (CVar (10,"lit")) (CVar (17,"l")))] [],CRule [CPVar (18,"var"),CPVar (19,"lit"),CPVar (20,"comb"),CPVar (21,"lt"),CPVar (22,"fr"),CPVar (23,"or"),CPVar (24,"cas"),CPVar (25,"branch"),CPComb ("FlatCurry","Comb") [CPVar (26,"ct"),CPVar (27,"name"),CPVar (28,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (20,"comb")) (CVar (26,"ct"))) (CVar (27,"name"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (18,"var"))) (CVar (19,"lit"))) (CVar (20,"comb"))) (CVar (21,"lt"))) (CVar (22,"fr"))) (CVar (23,"or"))) (CVar (24,"cas"))) (CVar (25,"branch")))) (CVar (28,"args"))))] [],CRule [CPVar (29,"var"),CPVar (30,"lit"),CPVar (31,"comb"),CPVar (32,"lt"),CPVar (33,"fr"),CPVar (34,"or"),CPVar (35,"cas"),CPVar (36,"branch"),CPComb ("FlatCurry","Let") [CPVar (37,"bs"),CPVar (38,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (32,"lt")) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"n"),CPVar (41,"exp")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (40,"n"))) (CApply (CVar (39,"f")) (CVar (41,"exp")))))) (CVar (37,"bs")))) (CApply (CVar (39,"f")) (CVar (38,"e"))))] [CLocalPat (CPVar (39,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (29,"var"))) (CVar (30,"lit"))) (CVar (31,"comb"))) (CVar (32,"lt"))) (CVar (33,"fr"))) (CVar (34,"or"))) (CVar (35,"cas"))) (CVar (36,"branch"))) []],CRule [CPVar (42,"var"),CPVar (43,"lit"),CPVar (44,"comb"),CPVar (45,"lt"),CPVar (46,"fr"),CPVar (47,"or"),CPVar (48,"cas"),CPVar (49,"branch"),CPComb ("FlatCurry","Free") [CPVar (50,"vs"),CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (46,"fr")) (CVar (50,"vs"))) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (42,"var"))) (CVar (43,"lit"))) (CVar (44,"comb"))) (CVar (45,"lt"))) (CVar (46,"fr"))) (CVar (47,"or"))) (CVar (48,"cas"))) (CVar (49,"branch"))) (CVar (51,"e"))))] [],CRule [CPVar (52,"var"),CPVar (53,"lit"),CPVar (54,"comb"),CPVar (55,"lt"),CPVar (56,"fr"),CPVar (57,"or"),CPVar (58,"cas"),CPVar (59,"branch"),CPComb ("FlatCurry","Or") [CPVar (60,"e1"),CPVar (61,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (57,"or")) (CApply (CVar (62,"f")) (CVar (60,"e1")))) (CApply (CVar (62,"f")) (CVar (61,"e2"))))] [CLocalPat (CPVar (62,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (52,"var"))) (CVar (53,"lit"))) (CVar (54,"comb"))) (CVar (55,"lt"))) (CVar (56,"fr"))) (CVar (57,"or"))) (CVar (58,"cas"))) (CVar (59,"branch"))) []],CRule [CPVar (63,"var"),CPVar (64,"lit"),CPVar (65,"comb"),CPVar (66,"lt"),CPVar (67,"fr"),CPVar (68,"or"),CPVar (69,"cas"),CPVar (70,"branch"),CPComb ("FlatCurry","Case") [CPVar (71,"ct"),CPVar (72,"e"),CPVar (73,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (69,"cas")) (CVar (71,"ct"))) (CApply (CVar (74,"f")) (CVar (72,"e")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Branch") [CPVar (75,"pat"),CPVar (76,"exp")]] (CApply (CApply (CVar (70,"branch")) (CVar (75,"pat"))) (CApply (CVar (74,"f")) (CVar (76,"exp")))))) (CVar (73,"bs"))))] [CLocalPat (CPVar (74,"f")) (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (63,"var"))) (CVar (64,"lit"))) (CVar (65,"comb"))) (CVar (66,"lt"))) (CVar (67,"fr"))) (CVar (68,"or"))) (CVar (69,"cas"))) (CVar (70,"branch"))) []]]),+  CFunc ("FlatCurryGoodies","trFunc") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTVar (0,"a"))))))) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"func"),CPComb ("FlatCurry","Func") [CPVar (1,"name"),CPVar (2,"arity"),CPVar (3,"vis"),CPVar (4,"t"),CPVar (5,"rule")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CVar (0,"func")) (CVar (1,"name"))) (CVar (2,"arity"))) (CVar (3,"vis"))) (CVar (4,"t"))) (CVar (5,"rule")))] []]),+  CFunc ("FlatCurryGoodies","trOp") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","Fixity") []) (CFuncType (CTCons ("Prelude","Int") []) (CTVar (0,"a"))))) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"op"),CPComb ("FlatCurry","Op") [CPVar (1,"name"),CPVar (2,"fix"),CPVar (3,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CVar (0,"op")) (CVar (1,"name"))) (CVar (2,"fix"))) (CVar (3,"prec")))] []]),+  CFunc ("FlatCurryGoodies","trPattern") 3 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"pattern"),CPVar (1,"_"),CPComb ("FlatCurry","Pattern") [CPVar (2,"name"),CPVar (3,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"pattern")) (CVar (2,"name"))) (CVar (3,"args")))] [],CRule [CPVar (4,"_"),CPVar (5,"lpattern"),CPComb ("FlatCurry","LPattern") [CPVar (6,"l")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"lpattern")) (CVar (6,"l")))] []]),+  CFunc ("FlatCurryGoodies","trProg") 2 Public (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTVar (0,"a"))))))) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTVar (0,"a")))) (CRules CFlex [CRule [CPVar (0,"prog"),CPComb ("FlatCurry","Prog") [CPVar (1,"name"),CPVar (2,"imps"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CVar (0,"prog")) (CVar (1,"name"))) (CVar (2,"imps"))) (CVar (3,"types"))) (CVar (4,"funcs"))) (CVar (5,"ops")))] []]),+  CFunc ("FlatCurryGoodies","trRule") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTVar (0,"a")))) (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CTVar (0,"a"))) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"rule"),CPVar (1,"_"),CPComb ("FlatCurry","Rule") [CPVar (2,"args"),CPVar (3,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (0,"rule")) (CVar (2,"args"))) (CVar (3,"exp")))] [],CRule [CPVar (4,"_"),CPVar (5,"ext"),CPComb ("FlatCurry","External") [CPVar (6,"s")]] [(CSymbol ("Prelude","success"),CApply (CVar (5,"ext")) (CVar (6,"s")))] []]),+  CFunc ("FlatCurryGoodies","trType") 3 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTVar (0,"a")))))) (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","Visibility") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTVar (0,"a")))))) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTVar (0,"a"))))) (CRules CFlex [CRule [CPVar (0,"typ"),CPVar (1,"_"),CPComb ("FlatCurry","Type") [CPVar (2,"name"),CPVar (3,"vis"),CPVar (4,"params"),CPVar (5,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (0,"typ")) (CVar (2,"name"))) (CVar (3,"vis"))) (CVar (4,"params"))) (CVar (5,"cs")))] [],CRule [CPVar (6,"_"),CPVar (7,"typesyn"),CPComb ("FlatCurry","TypeSyn") [CPVar (8,"name"),CPVar (9,"vis"),CPVar (10,"params"),CPVar (11,"syn")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CVar (7,"typesyn")) (CVar (8,"name"))) (CVar (9,"vis"))) (CVar (10,"params"))) (CVar (11,"syn")))] []]),+  CFunc ("FlatCurryGoodies","trTypeExpr") 4 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TVarIndex") []) (CTVar (0,"a"))) (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTVar (0,"a")))) (CFuncType (CFuncType (CTVar (0,"a")) (CFuncType (CTVar (0,"a")) (CTVar (0,"a")))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTVar (0,"a")))))) (CRules CFlex [CRule [CPVar (0,"tvar"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","TVar") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CVar (0,"tvar")) (CVar (3,"n")))] [],CRule [CPVar (4,"tvar"),CPVar (5,"tcons"),CPVar (6,"functype"),CPComb ("FlatCurry","TCons") [CPVar (7,"name"),CPVar (8,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (5,"tcons")) (CVar (7,"name"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (4,"tvar"))) (CVar (5,"tcons"))) (CVar (6,"functype")))) (CVar (8,"args"))))] [],CRule [CPVar (9,"tvar"),CPVar (10,"tcons"),CPVar (11,"functype"),CPComb ("FlatCurry","FuncType") [CPVar (12,"from"),CPVar (13,"to")]] [(CSymbol ("Prelude","success"),CApply (CApply (CVar (11,"functype")) (CApply (CVar (14,"f")) (CVar (12,"from")))) (CApply (CVar (14,"f")) (CVar (13,"to"))))] [CLocalPat (CPVar (14,"f")) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (9,"tvar"))) (CVar (10,"tcons"))) (CVar (11,"functype"))) []]]),+  CFunc ("FlatCurryGoodies","typeConsDecls") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"cs")] (CVar (3,"cs")))) (CSymbol ("Prelude","failed")))] []]),+  CFunc ("FlatCurryGoodies","typeName") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","QName") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")] (CVar (0,"name")))) (CLambda [CPVar (4,"name"),CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_")] (CVar (4,"name"))))] []]),+  CFunc ("FlatCurryGoodies","typeParams") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"params"),CPVar (3,"_")] (CVar (2,"params")))) (CLambda [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"params"),CPVar (7,"_")] (CVar (6,"params"))))] []]),+  CFunc ("FlatCurryGoodies","typeSyn") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CSymbol ("Prelude","failed"))) (CLambda [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"syn")] (CVar (3,"syn"))))] []]),+  CFunc ("FlatCurryGoodies","typeVisibility") 0 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (0,"_"),CPVar (1,"vis"),CPVar (2,"_"),CPVar (3,"_")] (CVar (1,"vis")))) (CLambda [CPVar (4,"_"),CPVar (5,"vis"),CPVar (6,"_"),CPVar (7,"_")] (CVar (5,"vis"))))] []]),+  CFunc ("FlatCurryGoodies","updBranch") 2 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("FlatCurry","BranchExpr") [])))) (CRules CFlex [CRule [CPVar (0,"fp"),CPVar (1,"fe")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trBranch")) (CSymbol ("FlatCurryGoodies","branch")))] [CLocalFunc (CFunc ("FlatCurryGoodies","branch") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (2,"pat"),CPVar (3,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CVar (0,"fp")) (CVar (2,"pat")))) (CApply (CVar (1,"fe")) (CVar (3,"exp"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updBranchExpr") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","BranchExpr") [],CTCons ("FlatCurry","Expr") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updBranch")) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updBranchPattern") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","BranchExpr") [],CTCons ("FlatCurry","Pattern") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updBranch")) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updBranches") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Pattern") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","BranchExpr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"branch")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CVar (0,"branch")))] []]),+  CFunc ("FlatCurryGoodies","updCases") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","CaseType") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","BranchExpr") []]) (CTCons ("FlatCurry","Expr") [])))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"cas")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CVar (0,"cas"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updCombs") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]) (CTCons ("FlatCurry","Expr") [])))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"comb")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CVar (0,"comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updCons") 4 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []])) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("FlatCurry","ConsDecl") [])))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fv"),CPVar (3,"fas")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trCons")) (CSymbol ("FlatCurryGoodies","cons")))] [CLocalFunc (CFunc ("FlatCurryGoodies","cons") 4 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (4,"name"),CPVar (5,"arity"),CPVar (6,"vis"),CPVar (7,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Cons")) (CApply (CVar (0,"fn")) (CVar (4,"name")))) (CApply (CVar (1,"fa")) (CVar (5,"arity")))) (CApply (CVar (2,"fv")) (CVar (6,"vis")))) (CApply (CVar (3,"fas")) (CVar (7,"args"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updConsArgs") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","ConsDecl") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsArity") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","ConsDecl") [],CTCons ("Prelude","Int") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsName") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","ConsDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updConsVisibility") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","ConsDecl") [],CTCons ("FlatCurry","Visibility") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFrees") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"fr")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CVar (0,"fr"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updFunc") 5 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") [])) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("FlatCurry","FuncDecl") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fv"),CPVar (3,"ft"),CPVar (4,"fr")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trFunc")) (CSymbol ("FlatCurryGoodies","func")))] [CLocalFunc (CFunc ("FlatCurryGoodies","func") 5 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"arity"),CPVar (7,"vis"),CPVar (8,"t"),CPVar (9,"rule")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fa")) (CVar (6,"arity")))) (CApply (CVar (2,"fv")) (CVar (7,"vis")))) (CApply (CVar (3,"ft")) (CVar (8,"t")))) (CApply (CVar (4,"fr")) (CVar (9,"rule"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updFuncArgs") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updFuncRule"))) (CSymbol ("FlatCurryGoodies","updRuleArgs")))] []]),+  CFunc ("FlatCurryGoodies","updFuncArity") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("Prelude","Int") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncBody") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","Expr") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updFuncRule"))) (CSymbol ("FlatCurryGoodies","updRuleBody")))] []]),+  CFunc ("FlatCurryGoodies","updFuncName") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncRule") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","Rule") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncType") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","TypeExpr") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updFuncTypes") 0 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CSymbol ("FlatCurry","TVar"))) (CSymbol ("FlatCurry","TCons")))] []]),+  CFunc ("FlatCurryGoodies","updFuncVisibility") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","Visibility") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updLets") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","VarIndex") [],CTCons ("FlatCurry","Expr") []]]) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"lt")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CVar (0,"lt"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updLiterals") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"lit")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CVar (0,"lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updOp") 3 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("FlatCurry","Fixity") [])) (CFuncType (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","Int") [])) (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("FlatCurry","OpDecl") []))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"ff"),CPVar (2,"fp")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trOp")) (CSymbol ("FlatCurryGoodies","op")))] [CLocalFunc (CFunc ("FlatCurryGoodies","op") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"name"),CPVar (4,"fix"),CPVar (5,"prec")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Op")) (CApply (CVar (0,"fn")) (CVar (3,"name")))) (CApply (CVar (1,"ff")) (CVar (4,"fix")))) (CApply (CVar (2,"fp")) (CVar (5,"prec"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updOpFixity") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","OpDecl") [],CTCons ("FlatCurry","Fixity") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOpName") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","OpDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOpPrecedence") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","OpDecl") [],CTCons ("Prelude","Int") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","updOp")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updOrs") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"or")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CVar (0,"or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","updPatArgs") 1 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updPatCons") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updPatLiteral") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Literal") [])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updPattern")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f")))] []]),+  CFunc ("FlatCurryGoodies","updPattern") 3 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("FlatCurry","Literal") [])) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("FlatCurry","Pattern") []))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fa"),CPVar (2,"fl")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trPattern")) (CSymbol ("FlatCurryGoodies","pattern"))) (CSymbol ("FlatCurryGoodies","lpattern")))] [CLocalFunc (CFunc ("FlatCurryGoodies","pattern") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"name"),CPVar (4,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Pattern")) (CApply (CVar (0,"fn")) (CVar (3,"name")))) (CApply (CVar (1,"fa")) (CVar (4,"args"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","lpattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"l")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","LPattern")) (CApply (CVar (2,"fl")) (CVar (3,"l"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updProg") 5 Public (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []])) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("FlatCurry","Prog") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fi"),CPVar (2,"ft"),CPVar (3,"ff"),CPVar (4,"fo")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","trProg")) (CSymbol ("FlatCurryGoodies","prog")))] [CLocalFunc (CFunc ("FlatCurryGoodies","prog") 5 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"imps"),CPVar (7,"types"),CPVar (8,"funcs"),CPVar (9,"ops")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fi")) (CVar (6,"imps")))) (CApply (CVar (2,"ft")) (CVar (7,"types")))) (CApply (CVar (3,"ff")) (CVar (8,"funcs")))) (CApply (CVar (4,"fo")) (CVar (9,"ops"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updProgExps") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("FlatCurry","Expr") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updProgFuncs"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","map"))) (CSymbol ("FlatCurryGoodies","updFuncBody"))))] []]),+  CFunc ("FlatCurryGoodies","updProgFuncs") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgImports") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgName") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("Prelude","String") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgOps") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updProgTypes") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updQNames") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Expr") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CSymbol ("FlatCurry","Var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurryGoodies","comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurry","Branch"))) (CApply (CSymbol ("FlatCurryGoodies","updPatCons")) (CVar (0,"f")))))] [CLocalFunc (CFunc ("FlatCurryGoodies","comb") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (1,"ct"),CPVar (2,"name"),CPVar (3,"args")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (1,"ct"))) (CApply (CVar (0,"f")) (CVar (2,"name")))) (CVar (3,"args")))] []]))]]),+  CFunc ("FlatCurryGoodies","updQNamesInConsDecl") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","ConsDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updCons")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f")))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInFunc") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","FuncDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updFunc")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f")))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInRule")) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInProg") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Prog") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updProg")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInType")) (CVar (0,"f"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInFunc")) (CVar (0,"f"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updOpName")) (CVar (0,"f")))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInRule") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Rule") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("FlatCurryGoodies","updRuleBody"))) (CSymbol ("FlatCurryGoodies","updQNames")))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInType") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInConsDecl")) (CVar (0,"f"))))) (CApply (CSymbol ("FlatCurryGoodies","updQNamesInTypeExpr")) (CVar (0,"f"))))] []]),+  CFunc ("FlatCurryGoodies","updQNamesInTypeExpr") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updTCons")) (CLambda [CPVar (1,"name"),CPVar (2,"args")] (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CVar (0,"f")) (CVar (1,"name")))) (CVar (2,"args")))))] []]),+  CFunc ("FlatCurryGoodies","updRule") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("FlatCurry","Rule") []))))) (CRules CFlex [CRule [CPVar (0,"fa"),CPVar (1,"fe"),CPVar (2,"fs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trRule")) (CSymbol ("FlatCurryGoodies","rule"))) (CSymbol ("FlatCurryGoodies","ext")))] [CLocalFunc (CFunc ("FlatCurryGoodies","rule") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"args"),CPVar (4,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Rule")) (CApply (CVar (0,"fa")) (CVar (3,"args")))) (CApply (CVar (1,"fe")) (CVar (4,"exp"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","ext") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (3,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","External")) (CApply (CVar (2,"fs")) (CVar (3,"s"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updRuleArgs") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Rule") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","VarIndex") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updRuleBody") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Rule") [],CTCons ("FlatCurry","Expr") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updRuleExtDecl") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","Rule") [],CTCons ("Prelude","String") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updRule")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f")))] []]),+  CFunc ("FlatCurryGoodies","updTCons") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CTCons ("FlatCurry","TypeExpr") []))) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"tcons")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CSymbol ("FlatCurry","TVar"))) (CVar (0,"tcons"))) (CSymbol ("FlatCurry","FuncType")))] []]),+  CFunc ("FlatCurryGoodies","updTVars") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","TVarIndex") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") []))) (CRules CFlex [CRule [CPVar (0,"tvar")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trTypeExpr")) (CVar (0,"tvar"))) (CSymbol ("FlatCurry","TCons"))) (CSymbol ("FlatCurry","FuncType")))] []]),+  CFunc ("FlatCurryGoodies","updType") 5 Public (CFuncType (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("FlatCurry","QName") [])) (CFuncType (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("FlatCurry","Visibility") [])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []])) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []])) (CFuncType (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("FlatCurry","TypeExpr") [])) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("FlatCurry","TypeDecl") []))))))) (CRules CFlex [CRule [CPVar (0,"fn"),CPVar (1,"fv"),CPVar (2,"fp"),CPVar (3,"fc"),CPVar (4,"fs")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CSymbol ("FlatCurryGoodies","typ"))) (CSymbol ("FlatCurryGoodies","typesyn")))] [CLocalFunc (CFunc ("FlatCurryGoodies","typ") 4 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"vis"),CPVar (7,"params"),CPVar (8,"cs")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Type")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fv")) (CVar (6,"vis")))) (CApply (CVar (2,"fp")) (CVar (7,"params")))) (CApply (CVar (3,"fc")) (CVar (8,"cs"))))] []])),CLocalFunc (CFunc ("FlatCurryGoodies","typesyn") 4 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"name"),CPVar (6,"vis"),CPVar (7,"params"),CPVar (8,"syn")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","TypeSyn")) (CApply (CVar (0,"fn")) (CVar (5,"name")))) (CApply (CVar (1,"fv")) (CVar (6,"vis")))) (CApply (CVar (2,"fp")) (CVar (7,"params")))) (CApply (CVar (4,"fs")) (CVar (8,"syn"))))] []]))]]),+  CFunc ("FlatCurryGoodies","updTypeConsDecls") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeName") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("FlatCurry","QName") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeParams") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("Prelude","[]") [CTCons ("FlatCurry","TVarIndex") []]]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeSynonym") 0 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("FlatCurry","TypeExpr") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updTypeVisibility") 1 Public (CTCons ("FlatCurryGoodies","Update") [CTCons ("FlatCurry","TypeDecl") [],CTCons ("FlatCurry","Visibility") []]) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","updType")) (CSymbol ("Prelude","id"))) (CVar (0,"f"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("FlatCurryGoodies","updVars") 1 Public (CFuncType (CFuncType (CTCons ("FlatCurry","VarIndex") []) (CTCons ("FlatCurry","Expr") [])) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPVar (0,"var")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trExpr")) (CVar (0,"var"))) (CSymbol ("FlatCurry","Lit"))) (CSymbol ("FlatCurry","Comb"))) (CSymbol ("FlatCurry","Let"))) (CSymbol ("FlatCurry","Free"))) (CSymbol ("FlatCurry","Or"))) (CSymbol ("FlatCurry","Case"))) (CSymbol ("FlatCurry","Branch")))] []]),+  CFunc ("FlatCurryGoodies","varNr") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","VarIndex") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CVar (0,"n"))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryRead.acy view
@@ -0,0 +1,13 @@+CurryProg "FlatCurryRead"+ ["Prelude","FlatCurry","Directory","FileGoodies","System","Distribution","List","Time"]+ []+ [CFunc ("FlatCurryRead","importsOf") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"imps"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"imps"))] []]),+  CFunc ("FlatCurryRead","parseFlatCurryFileWithImports") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","putStrLn"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","FCY"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Distribution","setFullPath")) (CVar (0,"loadpath"))) (CSymbol ("Distribution","defaultParams"))))) (CVar (1,"modname"))),CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))),CSExpr (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"modname"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))])] [CLocalFunc (CFunc ("FlatCurryRead","collectMods") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]))) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("Prelude",":") [CPVar (4,"mod"),CPVar (5,"mods")],CPVar (6,"implist")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (4,"mod"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CVar (5,"mods"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (4,"mod"))) (CVar (2,"suffixes"))) (CVar (0,"loadpath")))) (CLambda [CPVar (7,"mbfname")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (4,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CLambda [CPVar (8,"filename")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (8,"filename"))))) (CLambda [CPVar (9,"prog")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mods"))) (CApply (CSymbol ("FlatCurryRead","importsOf")) (CVar (9,"prog"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"mod"))) (CVar (6,"implist"))))) (CLambda [CPVar (10,"results")] (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (9,"prog"))) (CVar (10,"results")))))))))) (CVar (7,"mbfname"))))))] []]))]]),+  CFunc ("FlatCurryRead","readFlatCurryFileWithImports") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"mod"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))),CSPat (CPVar (3,"mbaimps")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","tryReadFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"mod"))) (CVar (2,"suffixes"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","parseFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"mod"))) (CVar (2,"suffixes")))) (CSymbol ("Prelude","return"))) (CVar (3,"mbaimps")))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIfPossible") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("FlatCurry","Prog") []]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"mbfname")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))) (CVar (0,"loadpath"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CVar (2,"suffixes"))) (CVar (0,"loadpath")))) (CLambda [CPVar (4,"fname")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (5,"progname")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (5,"progname")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))) (CVar (4,"fname")))))) (CLambda [CPVar (6,"sname")] (CDoExpr [CSLet [CLocalPat (CPVar (7,"moddir")) (CApply (CSymbol ("FileGoodies","dirName")) (CVar (6,"sname"))) [],CLocalPat (CPVar (8,"pathofmod")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"moddir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Distribution","addCurrySubdir")) (CVar (7,"moddir")))) (CSymbol ("Prelude","[]")))) []],CSPat (CPVar (9,"mbflatfile")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CVar (2,"suffixes"))) (CVar (8,"pathofmod"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (10,"flatfile")] (CDoExpr [CSPat (CPVar (11,"ctime")) (CApply (CSymbol ("Directory","getModificationTime")) (CVar (6,"sname"))),CSPat (CPVar (12,"ftime")) (CApply (CSymbol ("Directory","getModificationTime")) (CVar (10,"flatfile"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (11,"ctime")))) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (12,"ftime"))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"flatfile"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (10,"flatfile"))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))]))) (CVar (9,"mbflatfile")))]))) (CVar (3,"mbfname")))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIntWithImports") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CSymbol ("FlatCurry","flatCurryIntName")) (CVar (0,"modname")))),CSExpr (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (1,"loadpath"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]")))))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIntWithImportsInPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryRead","readFlatCurryWithImports") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (0,"modname")))),CSExpr (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (1,"loadpath"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]"))))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryWithImportsInPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryRead","tryReadFlatCurryFileWithImports") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"modname"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [CLocalFunc (CFunc ("FlatCurryRead","collectMods") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]]))) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("Prelude",":") [CPVar (4,"mod"),CPVar (5,"mods")],CPVar (6,"implist")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (4,"mod"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CVar (5,"mods"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryIfPossible")) (CVar (0,"loadpath"))) (CVar (4,"mod"))) (CVar (2,"suffixes")))) (CLambda [CPVar (7,"mbprog")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (8,"prog")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mods"))) (CApply (CSymbol ("FlatCurryRead","importsOf")) (CVar (8,"prog"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"mod"))) (CVar (6,"implist"))))) (CLambda [CPVar (9,"mbresults")] (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","Nothing"))) (CLambda [CPVar (10,"results")] (CApply (CSymbol ("Prelude","Just")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (8,"prog"))) (CVar (10,"results")))))) (CVar (9,"mbresults")))))))) (CVar (7,"mbprog"))))))] []]))]])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryRead.cy view
@@ -0,0 +1,28 @@+Module "FlatCurryRead"+(Just (Exporting (9,21) [(Export (QualIdent Nothing (Ident "readFlatCurryWithImports" 0))),(Export (QualIdent Nothing (Ident "readFlatCurryWithImportsInPath" 0))),(Export (QualIdent Nothing (Ident "readFlatCurryIntWithImports" 0))),(Export (QualIdent Nothing (Ident "readFlatCurryIntWithImportsInPath" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (13,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (14,1) "Directory" False Nothing Nothing)+,(ImportDecl (15,1) "FileGoodies" False Nothing Nothing)+,(ImportDecl (16,1) "System" False Nothing Nothing)+,(ImportDecl (17,1) "Distribution" False Nothing Nothing)+,(ImportDecl (18,1) "List" False Nothing (Just (Importing (18,12) [(Import (Ident "intersperse" 0))])))+,(ImportDecl (19,1) "Time" False Nothing (Just (Importing (19,12) [(Import (Ident "clockTimeToInt" 0))])))+,(TypeSig (24,1) [(Ident "readFlatCurryWithImports" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))])))+,(FunctionDecl (25,1) (Ident "readFlatCurryWithImports" 0) [(Equation (25,1) (FunLhs (Ident "readFlatCurryWithImports" 0) [(VariablePattern (Ident "modname" 2))]) (SimpleRhs (25,36) (Do [(StmtBind (VariablePattern (Ident "loadpath" 4)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "flatCurryFileName" 0))) (Variable (QualIdent Nothing (Ident "modname" 2)))))))] (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "readFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 4)))) (Paren (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "modname" 2)))))) (List [(Literal (String ".fcy"))]))) []))])+,(TypeSig (32,1) [(Ident "readFlatCurryWithImportsInPath" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))]))))+,(FunctionDecl (33,1) (Ident "readFlatCurryWithImportsInPath" 0) [(Equation (33,1) (FunLhs (Ident "readFlatCurryWithImportsInPath" 0) [(VariablePattern (Ident "loadpath" 5)),(VariablePattern (Ident "modname" 5))]) (SimpleRhs (34,3) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "readFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 5)))) (Variable (QualIdent Nothing (Ident "modname" 5)))) (List [(Literal (String ".fcy"))])) []))])+,(TypeSig (40,1) [(Ident "readFlatCurryIntWithImports" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))])))+,(FunctionDecl (41,1) (Ident "readFlatCurryIntWithImports" 0) [(Equation (41,1) (FunLhs (Ident "readFlatCurryIntWithImports" 0) [(VariablePattern (Ident "modname" 7))]) (SimpleRhs (41,39) (Do [(StmtBind (VariablePattern (Ident "loadpath" 9)) (Apply (Variable (QualIdent (Just "Distribution") (Ident "getLoadPathForFile" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "flatCurryIntName" 0))) (Variable (QualIdent Nothing (Ident "modname" 7)))))))] (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "readFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 9)))) (Paren (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "baseName" 0))) (Variable (QualIdent Nothing (Ident "modname" 7)))))) (List [(Literal (String ".fint")),(Literal (String ".fcy"))]))) []))])+,(TypeSig (50,1) [(Ident "readFlatCurryIntWithImportsInPath" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))]))))+,(FunctionDecl (51,1) (Ident "readFlatCurryIntWithImportsInPath" 0) [(Equation (51,1) (FunLhs (Ident "readFlatCurryIntWithImportsInPath" 0) [(VariablePattern (Ident "loadpath" 10)),(VariablePattern (Ident "modname" 10))]) (SimpleRhs (52,3) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "readFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 10)))) (Variable (QualIdent Nothing (Ident "modname" 10)))) (List [(Literal (String ".fint")),(Literal (String ".fcy"))])) []))])+,(TypeSig (57,1) [(Ident "readFlatCurryFileWithImports" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))])))))+,(FunctionDecl (58,1) (Ident "readFlatCurryFileWithImports" 0) [(Equation (58,1) (FunLhs (Ident "readFlatCurryFileWithImports" 0) [(VariablePattern (Ident "loadpath" 12)),(VariablePattern (Ident "mod" 12)),(VariablePattern (Ident "suffixes" 12))]) (SimpleRhs (58,54) (Do [(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Literal (String "Reading FlatCurry files ")))),(StmtBind (VariablePattern (Ident "mbaimps" 14)) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "tryReadFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 12)))) (Variable (QualIdent Nothing (Ident "mod" 12)))) (Variable (QualIdent Nothing (Ident "suffixes" 12)))))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "parseFlatCurryFileWithImports" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 12)))) (Variable (QualIdent Nothing (Ident "mod" 12)))) (Variable (QualIdent Nothing (Ident "suffixes" 12)))))) (Variable (QualIdent (Just "Prelude") (Ident "return" 0)))) (Variable (QualIdent Nothing (Ident "mbaimps" 14))))) []))])+,(FunctionDecl (65,1) (Ident "parseFlatCurryFileWithImports" 0) [(Equation (65,1) (FunLhs (Ident "parseFlatCurryFileWithImports" 0) [(VariablePattern (Ident "loadpath" 15)),(VariablePattern (Ident "modname" 15)),(VariablePattern (Ident "suffixes" 15))]) (SimpleRhs (65,59) (Do [(StmtExpr (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String ">>>>> FlatCurry files not up-to-date, parsing module \"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "modname" 15))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\"...")))))),(StmtExpr (Apply (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "callFrontendWithParams" 0))) (Constructor (QualIdent (Just "Distribution") (Ident "FCY" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setQuiet" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Distribution") (Ident "setFullPath" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 15)))) (Variable (QualIdent (Just "Distribution") (Ident "defaultParams" 0)))))))) (Variable (QualIdent Nothing (Ident "modname" 15))))),(StmtExpr (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Literal (String "Reading FlatCurry files "))))] (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 16))) (List [(Variable (QualIdent Nothing (Ident "modname" 15)))])) (List []))) [(FunctionDecl (72,3) (Ident "collectMods" 16) [(Equation (72,3) (FunLhs (Ident "collectMods" 16) [(ListPattern []),(VariablePattern (Ident "_" 18))]) (SimpleRhs (72,22) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (Literal (String "done"))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (List []))) [])),(Equation (73,3) (FunLhs (Ident "collectMods" 16) [(ParenPattern (InfixPattern (VariablePattern (Ident "mod" 20)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "mods" 20)))),(VariablePattern (Ident "implist" 20))]) (SimpleRhs (74,5) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "mod" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "implist" 20)))) (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 16))) (Variable (QualIdent Nothing (Ident "mods" 20)))) (Variable (QualIdent Nothing (Ident "implist" 20)))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Variable (QualIdent Nothing (Ident "mod" 20)))) (Variable (QualIdent Nothing (Ident "suffixes" 15)))) (Variable (QualIdent Nothing (Ident "loadpath" 15)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "mbfname" 22))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Literal (String "FlatCurry file for module \"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "mod" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\" not found!"))))))) (Paren (Lambda [(VariablePattern (Ident "filename" 23))] (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "filename" 23))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " "))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 23))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "prog" 24))] (InfixApply (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 16))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "mods" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "importsOf" 0))) (Variable (QualIdent Nothing (Ident "prog" 24))))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "mod" 20))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "implist" 20)))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "results" 25))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "prog" 24))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "results" 25))))))))))))) (Variable (QualIdent Nothing (Ident "mbfname" 22))))))) []))])]))])+,(TypeSig (90,1) [(Ident "tryReadFlatCurryFileWithImports" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []))])])))))+,(FunctionDecl (91,1) (Ident "tryReadFlatCurryFileWithImports" 0) [(Equation (91,1) (FunLhs (Ident "tryReadFlatCurryFileWithImports" 0) [(VariablePattern (Ident "loadpath" 26)),(VariablePattern (Ident "modname" 26)),(VariablePattern (Ident "suffixes" 26))]) (SimpleRhs (92,3) (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 27))) (List [(Variable (QualIdent Nothing (Ident "modname" 26)))])) (List [])) [(FunctionDecl (94,3) (Ident "collectMods" 27) [(Equation (94,3) (FunLhs (Ident "collectMods" 27) [(ListPattern []),(VariablePattern (Ident "_" 29))]) (SimpleRhs (94,22) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (Literal (String "done"))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (List []))))) [])),(Equation (95,3) (FunLhs (Ident "collectMods" 27) [(ParenPattern (InfixPattern (VariablePattern (Ident "mod" 31)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "mods" 31)))),(VariablePattern (Ident "implist" 31))]) (SimpleRhs (96,5) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "mod" 31))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent Nothing (Ident "implist" 31)))) (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 27))) (Variable (QualIdent Nothing (Ident "mods" 31)))) (Variable (QualIdent Nothing (Ident "implist" 31)))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "readFlatCurryIfPossible" 0))) (Variable (QualIdent Nothing (Ident "loadpath" 26)))) (Variable (QualIdent Nothing (Ident "mod" 31)))) (Variable (QualIdent Nothing (Ident "suffixes" 26)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "mbprog" 33))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) (Paren (Lambda [(VariablePattern (Ident "prog" 34))] (InfixApply (Apply (Apply (Variable (QualIdent Nothing (Ident "collectMods" 27))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "mods" 31))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryRead") (Ident "importsOf" 0))) (Variable (QualIdent Nothing (Ident "prog" 34))))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "mod" 31))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "implist" 31)))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "mbresults" 35))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (Paren (Lambda [(VariablePattern (Ident "results" 36))] (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "prog" 34))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "results" 36))))))))) (Variable (QualIdent Nothing (Ident "mbresults" 35))))))))))) (Variable (QualIdent Nothing (Ident "mbprog" 33))))))) []))])]))])+,(TypeSig (107,1) [(Ident "importsOf" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (108,1) (Ident "importsOf" 0) [(Equation (108,1) (FunLhs (Ident "importsOf" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 38)),(VariablePattern (Ident "imps" 37)),(VariablePattern (Ident "_" 39)),(VariablePattern (Ident "_" 40)),(VariablePattern (Ident "_" 41))]))]) (SimpleRhs (108,33) (Variable (QualIdent Nothing (Ident "imps" 37))) []))])+,(TypeSig (113,1) [(Ident "readFlatCurryIfPossible" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])])))))+,(FunctionDecl (114,1) (Ident "readFlatCurryIfPossible" 0) [(Equation (114,1) (FunLhs (Ident "readFlatCurryIfPossible" 0) [(VariablePattern (Ident "loadpath" 43)),(VariablePattern (Ident "modname" 43)),(VariablePattern (Ident "suffixes" 43))]) (SimpleRhs (114,53) (Do [(StmtBind (VariablePattern (Ident "mbfname" 45)) (Apply (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Variable (QualIdent Nothing (Ident "modname" 43)))) (List [(Literal (String ".lcurry")),(Literal (String ".curry"))])) (Variable (QualIdent Nothing (Ident "loadpath" 43)))))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Variable (QualIdent Nothing (Ident "modname" 43)))) (Variable (QualIdent Nothing (Ident "suffixes" 43)))) (Variable (QualIdent Nothing (Ident "loadpath" 43)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Lambda [(VariablePattern (Ident "fname" 46))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) (Paren (Lambda [(VariablePattern (Ident "progname" 47))] (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "progname" 47)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0)))))))) (Variable (QualIdent Nothing (Ident "fname" 46)))))))) (Paren (Lambda [(VariablePattern (Ident "sname" 48))] (Do [(StmtDecl [(PatternDecl (121,16) (VariablePattern (Ident "moddir" 49)) (SimpleRhs (121,28) (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "dirName" 0))) (Variable (QualIdent Nothing (Ident "sname" 48)))) [])),(PatternDecl (122,16) (VariablePattern (Ident "pathofmod" 49)) (SimpleRhs (122,28) (List [(Variable (QualIdent Nothing (Ident "moddir" 49))),(Apply (Variable (QualIdent (Just "Distribution") (Ident "addCurrySubdir" 0))) (Variable (QualIdent Nothing (Ident "moddir" 49))))]) []))]),(StmtBind (VariablePattern (Ident "mbflatfile" 52)) (Apply (Apply (Apply (Variable (QualIdent (Just "FileGoodies") (Ident "lookupFileInPath" 0))) (Variable (QualIdent Nothing (Ident "modname" 43)))) (Variable (QualIdent Nothing (Ident "suffixes" 43)))) (Variable (QualIdent Nothing (Ident "pathofmod" 49)))))] (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) (Paren (Lambda [(VariablePattern (Ident "flatfile" 53))] (Do [(StmtBind (VariablePattern (Ident "ctime" 54)) (Apply (Variable (QualIdent (Just "Directory") (Ident "getModificationTime" 0))) (Variable (QualIdent Nothing (Ident "sname" 48))))),(StmtBind (VariablePattern (Ident "ftime" 55)) (Apply (Variable (QualIdent (Just "Directory") (Ident "getModificationTime" 0))) (Variable (QualIdent Nothing (Ident "flatfile" 53)))))] (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "Time") (Ident "clockTimeToInt" 0))) (Variable (QualIdent Nothing (Ident "ctime" 54)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Apply (Variable (QualIdent (Just "Time") (Ident "clockTimeToInt" 0))) (Variable (QualIdent Nothing (Ident "ftime" 55))))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "flatfile" 53))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " "))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>" 0))) (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "flatfile" 53))))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0)))))))))) (Variable (QualIdent Nothing (Ident "mbflatfile" 52)))))))) (Variable (QualIdent Nothing (Ident "mbfname" 45))))) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurryRead.efc view
@@ -0,0 +1,1 @@+Prog "FlatCurryRead" ["Directory","Distribution","FileGoodies","FlatCurry","Prelude","Time","System","List"] [] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryWithImports")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryFileName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Comb (FuncPartCall 1) ((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") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryWithImports._#lambda2")) [Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryWithImports._#lambda2")) 2 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")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (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)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryWithImportsInPath")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((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") []]) (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",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryIntWithImports")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"Distribution","getLoadPathForFile")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurry","flatCurryIntName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]],Comb (FuncPartCall 1) ((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") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIntWithImports._#lambda3")) [Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIntWithImports._#lambda3")) 2 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")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (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)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","baseName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIntWithImportsInPath")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((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") []]) (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",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryFileWithImports")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))),"FlatCurryRead","tryReadFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (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") []]]),3))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","readFlatCurryFileWithImports._#lambda4")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (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") []]]),3))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","readFlatCurryFileWithImports._#lambda4")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (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","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","parseFlatCurryFileWithImports")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (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") []]]),3))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),4))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","parseFlatCurryFileWithImports")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Distribution","callFrontendWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendTarget") []),"Distribution","FCY")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setQuiet")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Distribution","FrontendParams") []) (TCons (Nothing,Nothing,"Distribution","FrontendParams") []))),"Distribution","setFullPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Distribution","FrontendParams") []),"Distribution","defaultParams")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),3)),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16")) 4 Private (FuncType (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")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),"Prelude","[]")) []]]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (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") []]]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5")) [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))]])])])),Func ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5")) 6 Private (FuncType (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")) []]]) (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,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","error")) [],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),2)),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))])),Func ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6")) 6 Private (FuncType (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")) []]]) (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,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),2)),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))]])),Func ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7")) 6 Private (FuncType (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")) []]]) (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,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16")) [Var ((Just (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") []]]),5)),Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryRead","importsOf")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6))]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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") []]]),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))),"FlatCurryRead","tryReadFlatCurryFileWithImports")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),3)),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []])),Func ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27")) 4 Private (FuncType (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")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),"Prelude","[]")) []]]]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9")) [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))]])])])),Func ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9")) 6 Private (FuncType (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")) []]]) (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,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),"Prelude","Nothing")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]),2)),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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),6))])),Func ((Nothing,Just (FuncType (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") []]]) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10")) 6 Private (FuncType (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")) []]]) (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,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (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") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27")) [Var ((Just (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") []]]),5)),Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryRead","importsOf")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6))]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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") []]]),1))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),6))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]]))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),"Prelude","Nothing")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),2)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"FlatCurryRead","importsOf")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (FuncType (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","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Var ((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") []]) (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",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]],Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)),Var ((Just (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") []]]),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13")) 4 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (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","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Var ((Just (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") []]]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14")) []],Comb (FuncPartCall 1) ((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,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16")) [Var ((Just (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") []]]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),"Prelude","Nothing")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","Just")) []]])),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,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16")) 3 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,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])))) (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,"Prelude","Char") []]),3)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FileGoodies","dirName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),Comb ConsCall ((Nothing,Just (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 5]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 5]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)),Comb ConsCall ((Nothing,Just (FuncType (TVar 4) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Distribution","addCurrySubdir")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (TVar 3),"Prelude","[]")) []]])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])))),"FileGoodies","lookupFileInPath")) [Var ((Just (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") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),"Prelude","Nothing")) []],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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])),Func ((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","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"Directory","getModificationTime")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Time","ClockTime") []])),"Directory","getModificationTime")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Time","ClockTime")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []]])))) (Rule [(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Time","ClockTime") []),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Time","clockTimeToInt")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Time","ClockTime") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Time","clockTimeToInt")) [Var ((Just (TCons (Nothing,Nothing,"Time","ClockTime") []),3))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]),"Prelude","Nothing")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]])),"Prelude","return")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","Just")) []]])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryRead.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurryRead" ["Directory","Distribution","FileGoodies","FlatCurry","Prelude","Time","System","List"] [] [Func ("FlatCurryRead","readFlatCurryWithImports") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getLoadPathForFile") [Comb FuncCall ("FlatCurry","flatCurryFileName") [Var 1]],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryWithImports._#lambda2") [Var 1]])),Func ("FlatCurryRead","readFlatCurryWithImports._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("FlatCurryRead","readFlatCurryFileWithImports") [Var 2,Comb FuncCall ("FileGoodies","baseName") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","[]") []]])),Func ("FlatCurryRead","readFlatCurryWithImportsInPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("FlatCurryRead","readFlatCurryFileWithImports") [Var 1,Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","[]") []]])),Func ("FlatCurryRead","readFlatCurryIntWithImports") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Distribution","getLoadPathForFile") [Comb FuncCall ("FlatCurry","flatCurryIntName") [Var 1]],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIntWithImports._#lambda3") [Var 1]])),Func ("FlatCurryRead","readFlatCurryIntWithImports._#lambda3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("FlatCurryRead","readFlatCurryFileWithImports") [Var 2,Comb FuncCall ("FileGoodies","baseName") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","[]") []]]])),Func ("FlatCurryRead","readFlatCurryIntWithImportsInPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("FlatCurryRead","readFlatCurryFileWithImports") [Var 1,Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","[]") []]]])),Func ("FlatCurryRead","readFlatCurryFileWithImports") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurryRead","tryReadFlatCurryFileWithImports") [Var 1,Var 2,Var 3],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryFileWithImports._#lambda4") [Var 1,Var 2,Var 3]]])),Func ("FlatCurryRead","readFlatCurryFileWithImports._#lambda4") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("FlatCurryRead","parseFlatCurryFileWithImports") [Var 1,Var 2,Var 3],Comb (FuncPartCall 1) ("Prelude","return") [],Var 4])),Func ("FlatCurryRead","parseFlatCurryFileWithImports") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","putStrLn") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Distribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Comb FuncCall ("Distribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Distribution","setFullPath") [Var 1,Comb FuncCall ("Distribution","defaultParams") []]],Var 2],Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 1,Var 3,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]]])),Func ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [1,2,3,4] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStrLn") [Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 5],Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 1,Var 2,Var 6,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Var 5,Var 2,Var 1],Comb (FuncPartCall 1) ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") [Var 4,Var 1,Var 5,Var 6,Var 2]])])])),Func ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb (FuncPartCall 1) ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") [Var 1,Var 2,Var 3,Var 4,Var 5],Var 6])),Func ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb FuncCall ("Prelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 6]],Comb (FuncPartCall 1) ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") [Var 1,Var 2,Var 3,Var 4,Var 5]])),Func ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 2,Var 5,Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("FlatCurryRead","importsOf") [Var 6]],Comb ConsCall ("Prelude",":") [Var 3,Var 1]],Comb (FuncPartCall 1) ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") [Var 6]])),Func ("FlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude",":") [Var 1,Var 2]])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))) (Rule [1,2,3] (Comb FuncCall ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 1,Var 3,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))) (Rule [1,2,3,4] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStrLn") [Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 5],Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 1,Var 2,Var 6,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurryRead","readFlatCurryIfPossible") [Var 1,Var 5,Var 2],Comb (FuncPartCall 1) ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") [Var 4,Var 1,Var 5,Var 6,Var 2]])])])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []],Comb (FuncPartCall 1) ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") [Var 1,Var 2,Var 3,Var 4,Var 5],Var 6])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") 6 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 2,Var 5,Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("FlatCurryRead","importsOf") [Var 6]],Comb ConsCall ("Prelude",":") [Var 3,Var 1]],Comb (FuncPartCall 1) ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") [Var 6]])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb (FuncPartCall 1) ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") [Var 1],Var 2]])),Func ("FlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 1,Var 2]])),Func ("FlatCurryRead","importsOf") 1 Private (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Var 3)])),Func ("FlatCurryRead","readFlatCurryIfPossible") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude","[]") []]],Var 1],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13") [Var 1,Var 2,Var 3]])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Var 2,Var 3,Var 1],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") []],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") [Var 2,Var 3],Var 4])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") 1 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])) (Rule [1] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") [],Var 1])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []]])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))) (Rule [1,2,3] (Let [(4,Comb FuncCall ("FileGoodies","dirName") [Var 3])] (Let [(5,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Comb FuncCall ("Distribution","addCurrySubdir") [Var 4],Comb ConsCall ("Prelude","[]") []]])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Var 1,Var 2,Var 5],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") [Var 3]])))),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") [Var 1],Var 2])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","getModificationTime") [Var 1],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") [Var 2]])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","getModificationTime") [Var 1],Comb (FuncPartCall 1) ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") [Var 2,Var 1]])),Func ("FlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") 3 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude",">") [Comb FuncCall ("Time","clockTimeToInt") [Var 1],Comb FuncCall ("Time","clockTimeToInt") [Var 3]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 2]],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []]])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryRead.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurryRead" ["Directory","Distribution","FileGoodies","FlatCurry","Prelude","Time","System","List"] [] [Func ("FlatCurryRead","readFlatCurryWithImports") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])) (Rule [] (Var 0)),Func ("FlatCurryRead","readFlatCurryWithImportsInPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [] (Var 0)),Func ("FlatCurryRead","readFlatCurryIntWithImports") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])) (Rule [] (Var 0)),Func ("FlatCurryRead","readFlatCurryIntWithImportsInPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurryRead.uacy view
@@ -0,0 +1,13 @@+CurryProg "FlatCurryRead"+ ["Prelude","FlatCurry","Directory","FileGoodies","System","Distribution","List","Time"]+ []+ [CFunc ("FlatCurryRead","importsOf") 1 Private (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"_"),CPVar (1,"imps"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CVar (1,"imps"))] []]),+  CFunc ("FlatCurryRead","parseFlatCurryFileWithImports") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","putStrLn"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))))),CSExpr (CApply (CApply (CApply (CSymbol ("Distribution","callFrontendWithParams")) (CSymbol ("Distribution","FCY"))) (CApply (CApply (CSymbol ("Distribution","setQuiet")) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Distribution","setFullPath")) (CVar (0,"loadpath"))) (CSymbol ("Distribution","defaultParams"))))) (CVar (1,"modname"))),CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))),CSExpr (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"modname"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))])] [CLocalFunc (CFunc ("FlatCurryRead","collectMods") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("Prelude",":") [CPVar (4,"mod"),CPVar (5,"mods")],CPVar (6,"implist")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (4,"mod"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CVar (5,"mods"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (4,"mod"))) (CVar (2,"suffixes"))) (CVar (0,"loadpath")))) (CLambda [CPVar (7,"mbfname")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Prelude","error"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (4,"mod"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))) (CLambda [CPVar (8,"filename")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"filename"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (8,"filename"))))) (CLambda [CPVar (9,"prog")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mods"))) (CApply (CSymbol ("FlatCurryRead","importsOf")) (CVar (9,"prog"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"mod"))) (CVar (6,"implist"))))) (CLambda [CPVar (10,"results")] (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (9,"prog"))) (CVar (10,"results")))))))))) (CVar (7,"mbfname"))))))] []]))]]),+  CFunc ("FlatCurryRead","readFlatCurryFileWithImports") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"mod"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSExpr (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))),CSPat (CPVar (3,"mbaimps")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","tryReadFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"mod"))) (CVar (2,"suffixes"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","parseFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"mod"))) (CVar (2,"suffixes")))) (CSymbol ("Prelude","return"))) (CVar (3,"mbaimps")))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIfPossible") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("FlatCurry","Prog") []]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (3,"mbfname")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CSymbol ("Prelude","[]"))))) (CVar (0,"loadpath"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CVar (2,"suffixes"))) (CVar (0,"loadpath")))) (CLambda [CPVar (4,"fname")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (5,"progname")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (5,"progname")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))) (CVar (4,"fname")))))) (CLambda [CPVar (6,"sname")] (CDoExpr [CSLet [CLocalPat (CPVar (7,"moddir")) (CApply (CSymbol ("FileGoodies","dirName")) (CVar (6,"sname"))) [],CLocalPat (CPVar (8,"pathofmod")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (7,"moddir"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Distribution","addCurrySubdir")) (CVar (7,"moddir")))) (CSymbol ("Prelude","[]")))) []],CSPat (CPVar (9,"mbflatfile")) (CApply (CApply (CApply (CSymbol ("FileGoodies","lookupFileInPath")) (CVar (1,"modname"))) (CVar (2,"suffixes"))) (CVar (8,"pathofmod"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (10,"flatfile")] (CDoExpr [CSPat (CPVar (11,"ctime")) (CApply (CSymbol ("Directory","getModificationTime")) (CVar (6,"sname"))),CSPat (CPVar (12,"ftime")) (CApply (CSymbol ("Directory","getModificationTime")) (CVar (10,"flatfile"))),CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (11,"ctime")))) (CApply (CSymbol ("Time","clockTimeToInt")) (CVar (12,"ftime"))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStr")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (10,"flatfile"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (10,"flatfile"))))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just")))))]))) (CVar (9,"mbflatfile")))]))) (CVar (3,"mbfname")))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIntWithImports") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CSymbol ("FlatCurry","flatCurryIntName")) (CVar (0,"modname")))),CSExpr (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (1,"loadpath"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]")))))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryIntWithImportsInPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryRead","readFlatCurryWithImports") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]])) (CRules CFlex [CRule [CPVar (0,"modname")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"loadpath")) (CApply (CSymbol ("Distribution","getLoadPathForFile")) (CApply (CSymbol ("FlatCurry","flatCurryFileName")) (CVar (0,"modname")))),CSExpr (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (1,"loadpath"))) (CApply (CSymbol ("FileGoodies","baseName")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]"))))])] []]),+  CFunc ("FlatCurryRead","readFlatCurryWithImportsInPath") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryFileWithImports")) (CVar (0,"loadpath"))) (CVar (1,"modname"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryRead","tryReadFlatCurryFileWithImports") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Prog") []]]])))) (CRules CFlex [CRule [CPVar (0,"loadpath"),CPVar (1,"modname"),CPVar (2,"suffixes")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"modname"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [CLocalFunc (CFunc ("FlatCurryRead","collectMods") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPVar (3,"_")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>")) (CApply (CSymbol ("Prelude","putStrLn")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("Prelude",":") [CPVar (4,"mod"),CPVar (5,"mods")],CPVar (6,"implist")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (4,"mod"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CVar (5,"mods"))) (CVar (6,"implist")))) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CApply (CSymbol ("FlatCurryRead","readFlatCurryIfPossible")) (CVar (0,"loadpath"))) (CVar (4,"mod"))) (CVar (2,"suffixes")))) (CLambda [CPVar (7,"mbprog")] (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing")))) (CLambda [CPVar (8,"prog")] (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CApply (CSymbol ("FlatCurryRead","collectMods")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"mods"))) (CApply (CSymbol ("FlatCurryRead","importsOf")) (CVar (8,"prog"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"mod"))) (CVar (6,"implist"))))) (CLambda [CPVar (9,"mbresults")] (CApply (CSymbol ("Prelude","return")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","Nothing"))) (CLambda [CPVar (10,"results")] (CApply (CSymbol ("Prelude","Just")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (8,"prog"))) (CVar (10,"results")))))) (CVar (9,"mbresults")))))))) (CVar (7,"mbprog"))))))] []]))]])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryShow.acy view
@@ -0,0 +1,36 @@+CurryProg "FlatCurryShow"+ ["Prelude","FlatCurry","List","Char"]+ []+ [CFunc ("FlatCurryShow","isCharConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryShow","isFiniteList") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"name"),CPVar (4,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"args"))) (CSymbol ("Prelude","[]"))),CSymbol ("Prelude","True")),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (4,"args")))) (CLit (CIntc 2))),CApply (CSymbol ("FlatCurryShow","isFiniteList")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (4,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"_"),CPVar (10,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryShow","isFuncType") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryShow","isStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"name"),CPVar (3,"args")]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","null")) (CVar (3,"args"))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (3,"args")))) (CLit (CIntc 2)))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryShow","isCharConstant")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"args"))))) (CApply (CSymbol ("FlatCurryShow","isStringConstant")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (3,"args"))) (CLit (CIntc 1)))))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryShow","sceBlanks") 1 Private (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"b")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"b"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("FlatCurryShow","showBracketsIf") 2 Private (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (1,"s")))] []]),+  CFunc ("FlatCurryShow","showCharExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (0,"c")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (1,"o"))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude",">")) (CVar (1,"o"))) (CLit (CIntc 126))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CSymbol ("Prelude","[]")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] [CLocalPat (CPVar (1,"o")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))) []]]),+  CFunc ("FlatCurryShow","showCurryCase") 3 Private (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"tf"),CPVar (1,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (2,"l"),CPVar (3,"vs")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (1,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showPattern")) (CApply (CVar (0,"tf")) (CVar (2,"l")))) (CVar (3,"vs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (0,"tf"))) (CSymbol ("Prelude","False"))) (CVar (1,"b"))) (CVar (4,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))] [CLocalFunc (CFunc ("FlatCurryShow","showPattern") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (5,"c"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (5,"c"))] [],CRule [CPVar (6,"c"),CPComb ("Prelude",":") [CPVar (7,"x"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (7,"x")))))] [],CRule [CPVar (8,"c"),CPComb ("Prelude",":") [CPVar (9,"x1"),CPComb ("Prelude",":") [CPVar (10,"x2"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (8,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))))))))] [],CRule [CPVar (11,"c"),CPComb ("Prelude",":") [CPVar (12,"x1"),CPComb ("Prelude",":") [CPVar (13,"x2"),CPComb ("Prelude",":") [CPVar (14,"x3"),CPVar (15,"xs")]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (11,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs")))))))))] []]))],CRule [CPVar (5,"tf"),CPVar (6,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (7,"l")],CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (6,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryLit")) (CVar (7,"l")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (5,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"b"))) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryShow","showCurryElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryShow","showCurryExpr") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","Var") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (3,"n")))] [],CRule [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPComb ("FlatCurry","Lit") [CPVar (7,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryLit")) (CVar (7,"l")))] [],CRule [CPVar (8,"tf"),CPVar (9,"_"),CPVar (10,"_"),CPComb ("FlatCurry","Comb") [CPVar (11,"_"),CPVar (12,"cf"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (8,"tf")) (CVar (12,"cf"))))] [],CRule [CPVar (13,"tf"),CPVar (14,"nested"),CPVar (15,"b"),CPComb ("FlatCurry","Comb") [CPVar (16,"_"),CPVar (17,"cf"),CPComb ("Prelude",":") [CPVar (18,"e"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (14,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (13,"tf")) (CVar (17,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (13,"tf"))) (CSymbol ("Prelude","True"))) (CVar (15,"b"))) (CVar (18,"e"))))))] [],CRule [CPVar (19,"tf"),CPVar (20,"nested"),CPVar (21,"b"),CPComb ("FlatCurry","Comb") [CPVar (22,"ct"),CPVar (23,"cf"),CPComb ("Prelude",":") [CPVar (24,"e1"),CPComb ("Prelude",":") [CPVar (25,"e2"),CPComb ("Prelude","[]") []]]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2")))))),(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]")))))))),(CApply (CSymbol ("FlatCurryShow","isFiniteList")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("FlatCurryShow","isStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryFiniteList")) (CVar (19,"tf"))) (CVar (21,"b"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (25,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2"))))))))] [],CRule [CPVar (26,"tf"),CPVar (27,"nested"),CPVar (28,"b"),CPComb ("FlatCurry","Comb") [CPVar (29,"_"),CPVar (30,"cf"),CPComb ("Prelude",":") [CPVar (31,"e1"),CPComb ("Prelude",":") [CPVar (32,"e2"),CPComb ("Prelude",":") [CPVar (33,"e3"),CPVar (34,"es")]]]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (30,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (34,"es"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (31,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (32,"e2")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (33,"e3"))))))))))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (26,"tf")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","True"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es")))))))))] [],CRule [CPVar (35,"tf"),CPVar (36,"nested"),CPVar (37,"b"),CPComb ("FlatCurry","Let") [CPVar (38,"bindings"),CPVar (39,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (36,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"x"),CPVar (41,"e")]] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (40,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (41,"e"))))))) (CVar (38,"bindings")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (39,"exp")))))))))] [],CRule [CPVar (42,"tf"),CPVar (43,"nested"),CPVar (44,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude","[]") [],CPVar (45,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (42,"tf"))) (CVar (43,"nested"))) (CVar (44,"b"))) (CVar (45,"e")))] [],CRule [CPVar (46,"tf"),CPVar (47,"nested"),CPVar (48,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude",":") [CPVar (49,"x"),CPVar (50,"xs")],CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (47,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"x"))) (CVar (50,"xs"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (46,"tf"))) (CSymbol ("Prelude","False"))) (CVar (48,"b"))) (CVar (51,"e")))))))] [],CRule [CPVar (52,"tf"),CPVar (53,"nested"),CPVar (54,"b"),CPComb ("FlatCurry","Or") [CPVar (55,"e1"),CPVar (56,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (53,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (55,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (56,"e2"))))))] [],CRule [CPVar (57,"tf"),CPVar (58,"nested"),CPVar (59,"b"),CPComb ("FlatCurry","Case") [CPVar (60,"ctype"),CPVar (61,"e"),CPVar (62,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (58,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (60,"ctype"))) (CSymbol ("FlatCurry","Rigid")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (57,"tf"))) (CSymbol ("Prelude","True"))) (CVar (59,"b"))) (CVar (61,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryCase")) (CVar (57,"tf"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (59,"b"))) (CLit (CIntc 2))))) (CVar (62,"cs")))) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (59,"b"))))))))] []]),+  CFunc ("FlatCurryShow","showCurryFiniteList") 3 Private (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (3,"tf"),CPVar (4,"b"),CPComb ("FlatCurry","Comb") [CPVar (5,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (6,"e1"),CPComb ("Prelude",":") [CPVar (7,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (4,"b"))) (CVar (6,"e1")))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryFiniteList")) (CVar (3,"tf"))) (CVar (4,"b"))) (CVar (7,"e2"))))] []]),+  CFunc ("FlatCurryShow","showCurryId") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (0,"name"))),CVar (0,"name")),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CVar (0,"name")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryShow","showCurryLit") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))] []]),+  CFunc ("FlatCurryShow","showCurryStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (2,"e1"),CPComb ("Prelude",":") [CPVar (3,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCharExpr")) (CVar (2,"e1")))) (CApply (CSymbol ("FlatCurryShow","showCurryStringConstant")) (CVar (3,"e2"))))] []]),+  CFunc ("FlatCurryShow","showCurryType") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (2,"i"))) (CLit (CIntc 5)))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (2,"i"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"i")))))] [],CRule [CPVar (3,"tf"),CPVar (4,"nested"),CPComb ("FlatCurry","FuncType") [CPVar (5,"t1"),CPVar (6,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (4,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (3,"tf"))) (CApply (CSymbol ("FlatCurryShow","isFuncType")) (CVar (5,"t1")))) (CVar (5,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"t2"))))))] [],CRule [CPVar (7,"tf"),CPVar (8,"nested"),CPComb ("FlatCurry","TCons") [CPVar (9,"tc"),CPVar (10,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"ts"))) (CSymbol ("Prelude","[]")),CApply (CVar (7,"tf")) (CVar (9,"tc"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts")))) (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (9,"tc"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False")))) (CVar (10,"ts")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (8,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (7,"tf")) (CVar (9,"tc")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (11,"t")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","True"))) (CVar (11,"t")))))) (CVar (10,"ts")))))] []]),+  CFunc ("FlatCurryShow","showCurryVar") 1 Public (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))] []]),+  CFunc ("FlatCurryShow","showFlatBranch") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"p"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatPattern")) (CVar (0,"p")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (1,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatCombType") 1 Private (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","FuncPartCall") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","ConsPartCall") [CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatCons") 1 Private (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatTypeExpr"))) (CVar (3,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurryShow","showFlatExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatLit")) (CVar (1,"l")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cf"),CPVar (4,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatCombType")) (CVar (2,"ctype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatExpr"))) (CVar (4,"es")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"bindings"),CPVar (6,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBinding"))) (CVar (5,"bindings")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (6,"exp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalFunc (CFunc ("FlatCurryShow","showFlatBinding") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (7,"x"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (7,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]))],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"xs"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (7,"xs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (9,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (10,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Rigid") [],CPVar (11,"e"),CPVar (12,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (11,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBranch"))) (CVar (12,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Flex") [],CPVar (13,"e"),CPVar (14,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (13,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBranch"))) (CVar (14,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatFixity") 1 Private (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatFunc") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatRule")) (CVar (4,"rl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatList") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CVar (0,"format"))) (CVar (1,"elems")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatListElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryShow","showFlatLit") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatOp") 1 Private (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatFixity")) (CVar (1,"fix")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryShow","showFlatPattern") 1 Private (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Pattern") [CPVar (0,"qn"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"qn")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (1,"xs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","LPattern") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatLit")) (CVar (2,"lit")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatProg") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"imports"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("Prelude","show"))) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"types"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("FlatCurryShow","showFlatType"))) (CVar (2,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("FlatCurryShow","showFlatFunc"))) (CVar (3,"funcs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatOp"))) (CVar (4,"ops")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatRule") 1 Private (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (0,"params")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (1,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (2,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatCons"))) (CVar (3,"consdecls")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (5,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (6,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (7,"texp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryShow","showFlatTypeExpr") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (1,"t2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatTypeExpr"))) (CVar (3,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatVisibility") 1 Private (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryShow.cy view
@@ -0,0 +1,50 @@+Module "FlatCurryShow"+(Just (Exporting (17,21) [(Export (QualIdent Nothing (Ident "showFlatProg" 0))),(Export (QualIdent Nothing (Ident "showFlatType" 0))),(Export (QualIdent Nothing (Ident "showFlatFunc" 0))),(Export (QualIdent Nothing (Ident "showCurryType" 0))),(Export (QualIdent Nothing (Ident "showCurryExpr" 0))),(Export (QualIdent Nothing (Ident "showCurryId" 0))),(Export (QualIdent Nothing (Ident "showCurryVar" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (21,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (22,1) "List" False Nothing Nothing)+,(ImportDecl (23,1) "Char" False Nothing Nothing)+,(TypeSig (26,1) [(Ident "showFlatProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (27,1) (Ident "showFlatProg" 0) [(Equation (27,1) (FunLhs (Ident "showFlatProg" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "modname" 2)),(VariablePattern (Ident "imports" 2)),(VariablePattern (Ident "types" 2)),(VariablePattern (Ident "funcs" 2)),(VariablePattern (Ident "ops" 2))]))]) (SimpleRhs (28,6) (InfixApply (Literal (String " (Prog ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "modname" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "imports" 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "\n  []")) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "imports" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]")))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "types" 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "\n  []")) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatType" 0)))) (Variable (QualIdent Nothing (Ident "types" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n ]")))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatFunc" 0)))) (Variable (QualIdent Nothing (Ident "funcs" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n  ]")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatOp" 0)))) (Variable (QualIdent Nothing (Ident "ops" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n )\n"))))))))))) []))])+,(FunctionDecl (37,1) (Ident "showFlatVisibility" 0) [(Equation (37,1) (FunLhs (Ident "showFlatVisibility" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Public" 0)) [])]) (SimpleRhs (37,30) (Literal (String " Public ")) [])),(Equation (38,1) (FunLhs (Ident "showFlatVisibility" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Private" 0)) [])]) (SimpleRhs (38,30) (Literal (String " Private ")) []))])+,(FunctionDecl (40,1) (Ident "showFlatFixity" 0) [(Equation (40,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixOp" 0)) [])]) (SimpleRhs (40,26) (Literal (String " InfixOp ")) [])),(Equation (41,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixlOp" 0)) [])]) (SimpleRhs (41,27) (Literal (String " InfixlOp ")) [])),(Equation (42,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixrOp" 0)) [])]) (SimpleRhs (42,27) (Literal (String " InfixrOp ")) []))])+,(FunctionDecl (44,1) (Ident "showFlatOp" 0) [(Equation (44,1) (FunLhs (Ident "showFlatOp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "name" 14)),(VariablePattern (Ident "fix" 14)),(VariablePattern (Ident "prec" 14))]))]) (SimpleRhs (45,2) (InfixApply (Literal (String "(Op ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatFixity" 0))) (Variable (QualIdent Nothing (Ident "fix" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "prec" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) []))])+,(TypeSig (47,1) [(Ident "showFlatType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (48,1) (Ident "showFlatType" 0) [(Equation (48,1) (FunLhs (Ident "showFlatType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 16)),(VariablePattern (Ident "vis" 16)),(VariablePattern (Ident "tpars" 16)),(VariablePattern (Ident "consdecls" 16))]))]) (SimpleRhs (49,3) (InfixApply (Literal (String "\n  (Type ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatCons" 0)))) (Variable (QualIdent Nothing (Ident "consdecls" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) [])),(Equation (52,1) (FunLhs (Ident "showFlatType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 18)),(VariablePattern (Ident "vis" 18)),(VariablePattern (Ident "tpars" 18)),(VariablePattern (Ident "texp" 18))]))]) (SimpleRhs (53,3) (InfixApply (Literal (String "\n  (TypeSyn ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "texp" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) []))])+,(FunctionDecl (57,1) (Ident "showFlatCons" 0) [(Equation (57,1) (FunLhs (Ident "showFlatCons" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "cname" 20)),(VariablePattern (Ident "arity" 20)),(VariablePattern (Ident "vis" 20)),(VariablePattern (Ident "types" 20))]))]) (SimpleRhs (58,3) (InfixApply (Literal (String "(Cons ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "cname" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "types" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))))) []))])+,(TypeSig (62,1) [(Ident "showFlatFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (63,1) (Ident "showFlatFunc" 0) [(Equation (63,1) (FunLhs (Ident "showFlatFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 22)),(VariablePattern (Ident "arity" 22)),(VariablePattern (Ident "vis" 22)),(VariablePattern (Ident "ftype" 22)),(VariablePattern (Ident "rl" 22))]))]) (SimpleRhs (64,3) (InfixApply (Literal (String "\n  (Func ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n        ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "ftype" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n       ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatRule" 0))) (Variable (QualIdent Nothing (Ident "rl" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))))))))) []))])+,(FunctionDecl (69,1) (Ident "showFlatRule" 0) [(Equation (69,1) (FunLhs (Ident "showFlatRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "params" 24)),(VariablePattern (Ident "expr" 24))]))]) (SimpleRhs (70,3) (InfixApply (Literal (String " (Rule ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "params" 24)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 24)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (72,1) (FunLhs (Ident "showFlatRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "name" 26))]))]) (SimpleRhs (73,3) (InfixApply (Literal (String " (External ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 26)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (75,1) (Ident "showFlatTypeExpr" 0) [(Equation (75,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "t1" 28)),(VariablePattern (Ident "t2" 28))]))]) (SimpleRhs (76,3) (InfixApply (Literal (String "(FuncType ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t1" 28)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t2" 28)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) [])),(Equation (77,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tc" 30)),(VariablePattern (Ident "ts" 30))]))]) (SimpleRhs (78,3) (InfixApply (Literal (String "(TCons ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "tc" 30)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "ts" 30)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (80,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 32))]))]) (SimpleRhs (80,29) (InfixApply (Literal (String "(TVar ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 32)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (83,1) (Ident "showFlatCombType" 0) [(Equation (83,1) (FunLhs (Ident "showFlatCombType" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)) [])]) (SimpleRhs (83,29) (Literal (String "FuncCall")) [])),(Equation (84,1) (FunLhs (Ident "showFlatCombType" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) [])]) (SimpleRhs (84,29) (Literal (String "ConsCall")) [])),(Equation (85,1) (FunLhs (Ident "showFlatCombType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0)) [(VariablePattern (Ident "n" 38))]))]) (SimpleRhs (85,37) (InfixApply (Literal (String "(FuncPartCall ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 38)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (86,1) (FunLhs (Ident "showFlatCombType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0)) [(VariablePattern (Ident "n" 40))]))]) (SimpleRhs (86,37) (InfixApply (Literal (String "(ConsPartCall ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 40)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (88,1) (Ident "showFlatExpr" 0) [(Equation (88,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 42))]))]) (SimpleRhs (88,24) (InfixApply (Literal (String "(Var ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 42)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (89,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 44))]))]) (SimpleRhs (89,24) (InfixApply (Literal (String "(Lit ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatLit" 0))) (Variable (QualIdent Nothing (Ident "l" 44)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (90,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ctype" 46)),(VariablePattern (Ident "cf" 46)),(VariablePattern (Ident "es" 46))]))]) (SimpleRhs (91,3) (InfixApply (Literal (String "(Comb ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatCombType" 0))) (Variable (QualIdent Nothing (Ident "ctype" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "cf" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) [])),(Equation (93,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bindings" 48)),(VariablePattern (Ident "exp" 48))]))]) (SimpleRhs (94,3) (InfixApply (Literal (String "(Let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent Nothing (Ident "showFlatBinding" 49)))) (Variable (QualIdent Nothing (Ident "bindings" 48)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "exp" 48)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [(TypeSig (96,4) [(Ident "showFlatBinding" 49)] (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))),(FunctionDecl (97,4) (Ident "showFlatBinding" 49) [(Equation (97,4) (FunLhs (Ident "showFlatBinding" 49) [(TuplePattern [(VariablePattern (Ident "x" 50)),(VariablePattern (Ident "e" 50))])]) (SimpleRhs (97,28) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "x" 50)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 50)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) []))])])),(Equation (98,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "xs" 52)),(VariablePattern (Ident "e" 52))]))]) (SimpleRhs (99,3) (InfixApply (Literal (String "(Free ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "xs" 52)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 52)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (100,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 54)),(VariablePattern (Ident "e2" 54))]))]) (SimpleRhs (101,3) (InfixApply (Literal (String "(Or ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e1" 54)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e2" 54)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) [])),(Equation (102,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)) []),(VariablePattern (Ident "e" 56)),(VariablePattern (Ident "bs" 56))]))]) (SimpleRhs (103,3) (InfixApply (Literal (String "(Case Rigid ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 56)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatBranch" 0)))) (Variable (QualIdent Nothing (Ident "bs" 56)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (104,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Flex" 0)) []),(VariablePattern (Ident "e" 58)),(VariablePattern (Ident "bs" 58))]))]) (SimpleRhs (105,3) (InfixApply (Literal (String "(Case Flex ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 58)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatBranch" 0)))) (Variable (QualIdent Nothing (Ident "bs" 58)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) []))])+,(FunctionDecl (107,1) (Ident "showFlatLit" 0) [(Equation (107,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "i" 60))]))]) (SimpleRhs (107,26) (InfixApply (Literal (String "(Intc ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 60)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (108,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "f" 62))]))]) (SimpleRhs (108,26) (InfixApply (Literal (String "(Floatc ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 62)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (109,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 64))]))]) (SimpleRhs (109,26) (InfixApply (Literal (String "(Charc ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "c" 64)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (111,1) (Ident "showFlatBranch" 0) [(Equation (111,1) (FunLhs (Ident "showFlatBranch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "p" 66)),(VariablePattern (Ident "e" 66))]))]) (SimpleRhs (111,31) (InfixApply (Literal (String "(Branch ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatPattern" 0))) (Variable (QualIdent Nothing (Ident "p" 66)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 66)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) []))])+,(FunctionDecl (114,1) (Ident "showFlatPattern" 0) [(Equation (114,1) (FunLhs (Ident "showFlatPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "qn" 68)),(VariablePattern (Ident "xs" 68))]))]) (SimpleRhs (115,7) (InfixApply (Literal (String "(Pattern ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "qn" 68)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "xs" 68)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (117,1) (FunLhs (Ident "showFlatPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "lit" 70))]))]) (SimpleRhs (117,34) (InfixApply (Literal (String "(LPattern ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatLit" 0))) (Variable (QualIdent Nothing (Ident "lit" 70)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(TypeSig (121,1) [(Ident "showFlatList" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (122,1) (Ident "showFlatList" 0) [(Equation (122,1) (FunLhs (Ident "showFlatList" 0) [(VariablePattern (Ident "format" 72)),(VariablePattern (Ident "elems" 72))]) (SimpleRhs (122,29) (InfixApply (Literal (String " [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showFlatListElems" 0))) (Variable (QualIdent Nothing (Ident "format" 72)))) (Variable (QualIdent Nothing (Ident "elems" 72)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "] ")))) []))])+,(TypeSig (124,1) [(Ident "showFlatListElems" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (125,1) (Ident "showFlatListElems" 0) [(Equation (125,1) (FunLhs (Ident "showFlatListElems" 0) [(VariablePattern (Ident "format" 74)),(VariablePattern (Ident "elems" 74))]) (SimpleRhs (125,34) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "format" 74)))) (Variable (QualIdent Nothing (Ident "elems" 74)))))))) []))])+,(TypeSig (137,1) [(Ident "showCurryType" 0)] (ArrowType (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (139,1) (Ident "showCurryType" 0) [(Equation (139,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "_" 77)),(VariablePattern (Ident "_" 78)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "i" 76))]))]) (SimpleRhs (139,30) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "i" 76))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 80) 5))) (List [(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (Literal (Int (Ident "_" 81) 97)) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Variable (QualIdent Nothing (Ident "i" 76))))))]) (InfixApply (Literal (Char 't')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 76)))))) [])),(Equation (140,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "tf" 82)),(VariablePattern (Ident "nested" 82)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "t1" 82)),(VariablePattern (Ident "t2" 82))]))]) (SimpleRhs (141,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 82)))) (Paren (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 82)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isFuncType" 0))) (Variable (QualIdent Nothing (Ident "t1" 82)))))) (Variable (QualIdent Nothing (Ident "t1" 82)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 82)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "t2" 82)))))))) [])),(Equation (144,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "tf" 84)),(VariablePattern (Ident "nested" 84)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tc" 84)),(VariablePattern (Ident "ts" 84))]))]) (GuardedRhs [(CondExpr (145,2) (InfixApply (Variable (QualIdent Nothing (Ident "ts" 84))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Apply (Variable (QualIdent Nothing (Ident "tf" 84))) (Variable (QualIdent Nothing (Ident "tc" 84))))),(CondExpr (146,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "tc" 84))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 84)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "Char"))])) (List []))))) (Literal (String "String"))),(CondExpr (148,2) (InfixApply (Variable (QualIdent Nothing (Ident "tc" 84))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "[]"))])) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 84)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 84)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]"))))),(CondExpr (150,2) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 86) 2))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "tc" 84)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 84)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "ts" 84)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (152,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 84)))) (Paren (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 84))) (Variable (QualIdent Nothing (Ident "tc" 84)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Lambda [(VariablePattern (Ident "t" 87))] (InfixApply (Literal (Char ' ')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 84)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "t" 87)))))))) (Variable (QualIdent Nothing (Ident "ts" 84))))))))] []))])+,(FunctionDecl (156,1) (Ident "isFuncType" 0) [(Equation (156,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "_" 89))]))]) (SimpleRhs (156,29) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (157,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "_" 92)),(VariablePattern (Ident "_" 93))]))]) (SimpleRhs (157,29) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (158,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "_" 96)),(VariablePattern (Ident "_" 97))]))]) (SimpleRhs (158,27) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(TypeSig (171,1) [(Ident "showCurryExpr" 0)] (ArrowType (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))))+,(FunctionDecl (173,1) (Ident "showCurryExpr" 0) [(Equation (173,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "_" 100)),(VariablePattern (Ident "_" 101)),(VariablePattern (Ident "_" 102)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 99))]))]) (SimpleRhs (173,31) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "n" 99)))) [])),(Equation (175,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "_" 105)),(VariablePattern (Ident "_" 106)),(VariablePattern (Ident "_" 107)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 104))]))]) (SimpleRhs (175,31) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryLit" 0))) (Variable (QualIdent Nothing (Ident "l" 104)))) [])),(Equation (177,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 109)),(VariablePattern (Ident "_" 110)),(VariablePattern (Ident "_" 111)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 112)),(VariablePattern (Ident "cf" 109)),(ListPattern [])]))]) (SimpleRhs (177,39) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 109))) (Variable (QualIdent Nothing (Ident "cf" 109)))))) [])),(Equation (178,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 114)),(VariablePattern (Ident "nested" 114)),(VariablePattern (Ident "b" 114)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 115)),(VariablePattern (Ident "cf" 114)),(ListPattern [(VariablePattern (Ident "e" 114))])]))]) (SimpleRhs (179,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 114)))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 114))) (Variable (QualIdent Nothing (Ident "cf" 114)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 114)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 114)))) (Variable (QualIdent Nothing (Ident "e" 114)))))))) [])),(Equation (181,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 117)),(VariablePattern (Ident "nested" 117)),(VariablePattern (Ident "b" 117)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 117)),(VariablePattern (Ident "cf" 117)),(ListPattern [(VariablePattern (Ident "e1" 117)),(VariablePattern (Ident "e2" 117))])]))]) (GuardedRhs [(CondExpr (182,2) (InfixApply (Variable (QualIdent Nothing (Ident "cf" 117))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "apply"))])) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 117)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e1" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e2" 117))))))))),(CondExpr (185,2) (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 117)))))))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 117)))) (Paren (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 117))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))))) (List [(Variable (QualIdent Nothing (Ident "e1" 117))),(Variable (QualIdent Nothing (Ident "e2" 117)))]))))))),(CondExpr (188,2) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isFiniteList" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 117)))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (List [(Variable (QualIdent Nothing (Ident "e1" 117))),(Variable (QualIdent Nothing (Ident "e2" 117)))])))) (IfThenElse (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isStringConstant" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 117)))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (List [(Variable (QualIdent Nothing (Ident "e1" 117))),(Variable (QualIdent Nothing (Ident "e2" 117)))])))) (InfixApply (Literal (String "\"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryStringConstant" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 117)))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (List [(Variable (QualIdent Nothing (Ident "e1" 117))),(Variable (QualIdent Nothing (Ident "e2" 117)))])))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\"")))) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryFiniteList" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 117)))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (List [(Variable (QualIdent Nothing (Ident "e1" 117))),(Variable (QualIdent Nothing (Ident "e2" 117)))])))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]")))))),(CondExpr (194,2) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,)"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e1" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e2" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))),(CondExpr (197,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 117)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e1" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 117))) (Variable (QualIdent Nothing (Ident "cf" 117)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 117)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 117)))) (Variable (QualIdent Nothing (Ident "e2" 117)))))))))))] [])),(Equation (201,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 119)),(VariablePattern (Ident "nested" 119)),(VariablePattern (Ident "b" 119)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 120)),(VariablePattern (Ident "cf" 119)),(ParenPattern (InfixPattern (VariablePattern (Ident "e1" 119)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "e2" 119)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "e3" 119)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "es" 119))))))]))]) (GuardedRhs [(CondExpr (202,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "cf" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "if_then_else"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "es" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List []))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 119)))) (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " if ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 122) 2))))) (Variable (QualIdent Nothing (Ident "e1" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " then ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 123) 2))))) (Variable (QualIdent Nothing (Ident "e2" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " else ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 124) 2))))) (Variable (QualIdent Nothing (Ident "e3" 119)))))))))))))))))),(CondExpr (208,2) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 125) 2))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 119)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "e1" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e2" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e3" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "es" 119)))))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (212,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 119)))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 119))) (Variable (QualIdent Nothing (Ident "cf" 119)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "e1" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e2" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e3" 119))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "es" 119)))))))))))))] [])),(Equation (217,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 126)),(VariablePattern (Ident "nested" 126)),(VariablePattern (Ident "b" 126)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bindings" 126)),(VariablePattern (Ident "exp" 126))]))]) (SimpleRhs (218,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 126)))) (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 126)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Paren (InfixApply (Literal (String "\n    ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 126))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "x" 128)),(VariablePattern (Ident "e" 128))])] (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x" 128)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " = ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 126)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 126))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 129) 4))))) (Variable (QualIdent Nothing (Ident "e" 128))))))))) (Variable (QualIdent Nothing (Ident "bindings" 126)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 126)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " in "))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 126)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 126))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 130) 4))))) (Variable (QualIdent Nothing (Ident "exp" 126))))))))))) [])),(Equation (223,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 131)),(VariablePattern (Ident "nested" 131)),(VariablePattern (Ident "b" 131)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(ListPattern []),(VariablePattern (Ident "e" 131))]))]) (SimpleRhs (223,41) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 131)))) (Variable (QualIdent Nothing (Ident "nested" 131)))) (Variable (QualIdent Nothing (Ident "b" 131)))) (Variable (QualIdent Nothing (Ident "e" 131)))) [])),(Equation (225,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 133)),(VariablePattern (Ident "nested" 133)),(VariablePattern (Ident "b" 133)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(ParenPattern (InfixPattern (VariablePattern (Ident "x" 133)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 133)))),(VariablePattern (Ident "e" 133))]))]) (SimpleRhs (226,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 133)))) (Paren (InfixApply (Literal (String "let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 133))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 133)))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " free in ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 133)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 133)))) (Variable (QualIdent Nothing (Ident "e" 133))))))))) [])),(Equation (230,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 135)),(VariablePattern (Ident "nested" 135)),(VariablePattern (Ident "b" 135)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 135)),(VariablePattern (Ident "e2" 135))]))]) (SimpleRhs (231,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 135)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 135)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 135)))) (Variable (QualIdent Nothing (Ident "e1" 135)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ? ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 135)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 135)))) (Variable (QualIdent Nothing (Ident "e2" 135)))))))) [])),(Equation (234,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 137)),(VariablePattern (Ident "nested" 137)),(VariablePattern (Ident "b" 137)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ctype" 137)),(VariablePattern (Ident "e" 137)),(VariablePattern (Ident "cs" 137))]))]) (SimpleRhs (235,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 137)))) (Paren (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "ctype" 137))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)))) (Literal (String "case ")) (Literal (String "fcase ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 137)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 137)))) (Variable (QualIdent Nothing (Ident "e" 137)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " of\n ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryCase" 0))) (Variable (QualIdent Nothing (Ident "tf" 137)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 137))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 139) 2))))))) (Variable (QualIdent Nothing (Ident "cs" 137)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 137)))))))))) []))])+,(FunctionDecl (241,1) (Ident "showCurryVar" 0) [(Equation (241,1) (FunLhs (Ident "showCurryVar" 0) [(VariablePattern (Ident "i" 140))]) (SimpleRhs (241,18) (InfixApply (Literal (String "v")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 140))))) []))])+,(FunctionDecl (244,1) (Ident "showCurryId" 0) [(Equation (244,1) (FunLhs (Ident "showCurryId" 0) [(VariablePattern (Ident "name" 142))]) (GuardedRhs [(CondExpr (244,18) (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "name" 142)))))) (Variable (QualIdent Nothing (Ident "name" 142)))),(CondExpr (245,18) (InfixApply (Variable (QualIdent Nothing (Ident "name" 142))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]"))) (Variable (QualIdent Nothing (Ident "name" 142)))),(CondExpr (246,18) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Literal (Char '(')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "name" 142))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))] []))])+,(FunctionDecl (248,1) (Ident "showCurryLit" 0) [(Equation (248,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "i" 144))]))]) (SimpleRhs (248,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 144)))) [])),(Equation (249,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "f" 146))]))]) (SimpleRhs (249,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 146)))) [])),(Equation (250,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 148))]))]) (SimpleRhs (250,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "c" 148)))) []))])+,(FunctionDecl (252,1) (Ident "showCurryCase" 0) [(Equation (252,1) (FunLhs (Ident "showCurryCase" 0) [(VariablePattern (Ident "tf" 150)),(VariablePattern (Ident "b" 150)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "l" 150)),(VariablePattern (Ident "vs" 150))])),(VariablePattern (Ident "e" 150))]))]) (SimpleRhs (253,3) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 150)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent Nothing (Ident "showPattern" 151))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 150))) (Variable (QualIdent Nothing (Ident "l" 150)))))) (Variable (QualIdent Nothing (Ident "vs" 150)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 150)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 150)))) (Variable (QualIdent Nothing (Ident "e" 150)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n")))))) [(FunctionDecl (256,4) (Ident "showPattern" 151) [(Equation (256,4) (FunLhs (Ident "showPattern" 151) [(VariablePattern (Ident "c" 152)),(ListPattern [])]) (SimpleRhs (256,23) (Variable (QualIdent Nothing (Ident "c" 152))) [])),(Equation (257,4) (FunLhs (Ident "showPattern" 151) [(VariablePattern (Ident "c" 154)),(ListPattern [(VariablePattern (Ident "x" 154))])]) (SimpleRhs (257,24) (InfixApply (Variable (QualIdent Nothing (Ident "c" 154))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x" 154)))))) [])),(Equation (258,4) (FunLhs (Ident "showPattern" 151) [(VariablePattern (Ident "c" 156)),(ListPattern [(VariablePattern (Ident "x1" 156)),(VariablePattern (Ident "x2" 156))])]) (SimpleRhs (259,6) (IfThenElse (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "c" 156)))))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 156))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 156)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 156)))))))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "c" 156))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,)"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 156)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 156)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 156)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 156))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 156)))))))))) [])),(Equation (264,4) (FunLhs (Ident "showPattern" 151) [(VariablePattern (Ident "c" 158)),(ParenPattern (InfixPattern (VariablePattern (Ident "x1" 158)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "x2" 158)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "x3" 158)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 158))))))]) (SimpleRhs (265,6) (IfThenElse (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 160) 2))) (Variable (QualIdent Nothing (Ident "c" 158)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x1" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x2" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x3" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 158)))))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 158))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryElems" 0))) (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x1" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x2" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x3" 158))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 158))))))))))) []))])])),(Equation (269,1) (FunLhs (Ident "showCurryCase" 0) [(VariablePattern (Ident "tf" 161)),(VariablePattern (Ident "b" 161)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "l" 161))])),(VariablePattern (Ident "e" 161))]))]) (SimpleRhs (270,3) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 161)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryLit" 0))) (Variable (QualIdent Nothing (Ident "l" 161)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 161)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 161)))) (Variable (QualIdent Nothing (Ident "e" 161)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n"))))))) []))])+,(FunctionDecl (273,1) (Ident "showCurryFiniteList" 0) [(Equation (273,1) (FunLhs (Ident "showCurryFiniteList" 0) [(VariablePattern (Ident "_" 164)),(VariablePattern (Ident "_" 165)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 166)),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (273,56) (List []) [])),(Equation (274,1) (FunLhs (Ident "showCurryFiniteList" 0) [(VariablePattern (Ident "tf" 168)),(VariablePattern (Ident "b" 168)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 169)),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "e1" 168)),(VariablePattern (Ident "e2" 168))])]))]) (SimpleRhs (275,3) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 168)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 168)))) (Variable (QualIdent Nothing (Ident "e1" 168)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryFiniteList" 0))) (Variable (QualIdent Nothing (Ident "tf" 168)))) (Variable (QualIdent Nothing (Ident "b" 168)))) (Variable (QualIdent Nothing (Ident "e2" 168))))) []))])+,(FunctionDecl (278,1) (Ident "showCurryStringConstant" 0) [(Equation (278,1) (FunLhs (Ident "showCurryStringConstant" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 172)),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (278,56) (List []) [])),(Equation (279,1) (FunLhs (Ident "showCurryStringConstant" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 175)),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "e1" 174)),(VariablePattern (Ident "e2" 174))])]))]) (SimpleRhs (280,4) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCharExpr" 0))) (Variable (QualIdent Nothing (Ident "e1" 174)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "showCurryStringConstant" 0))) (Variable (QualIdent Nothing (Ident "e2" 174))))) []))])+,(FunctionDecl (282,1) (Ident "showCharExpr" 0) [(Equation (282,1) (FunLhs (Ident "showCharExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 177))]))]))]) (GuardedRhs [(CondExpr (283,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 177))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (Literal (String "\\\""))),(CondExpr (284,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 177))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\''))) (Literal (String "\\'"))),(CondExpr (285,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 177))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (Literal (String "\\n"))),(CondExpr (286,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 178))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 180) 32))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "o" 178))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Literal (Int (Ident "_" 181) 126)))) (List [(Literal (Char '\\')),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 178))) (InfixOp (QualIdent (Just "Prelude") (Ident "div" 0))) (Literal (Int (Ident "_" 182) 100))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 183) 48))))),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (Paren (InfixApply (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "o" 178))) (InfixOp (QualIdent (Just "Prelude") (Ident "mod" 0))) (Literal (Int (Ident "_" 184) 100)))) (InfixOp (QualIdent (Just "Prelude") (Ident "div" 0))) (Literal (Int (Ident "_" 185) 10))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 186) 48)))))),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 178))) (InfixOp (QualIdent (Just "Prelude") (Ident "mod" 0))) (Literal (Int (Ident "_" 187) 10))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 188) 48)))))])),(CondExpr (288,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 177)))]))] [(PatternDecl (290,4) (VariablePattern (Ident "o" 178)) (SimpleRhs (290,8) (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 177)))) []))]))])+,(TypeSig (292,1) [(Ident "showCurryElems" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (293,1) (Ident "showCurryElems" 0) [(Equation (293,1) (FunLhs (Ident "showCurryElems" 0) [(VariablePattern (Ident "format" 189)),(VariablePattern (Ident "elems" 189))]) (SimpleRhs (294,4) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String " "))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "format" 189)))) (Variable (QualIdent Nothing (Ident "elems" 189)))))))) []))])+,(FunctionDecl (296,1) (Ident "showBracketsIf" 0) [(Equation (296,1) (FunLhs (Ident "showBracketsIf" 0) [(VariablePattern (Ident "nested" 191)),(VariablePattern (Ident "s" 191))]) (SimpleRhs (296,27) (IfThenElse (Variable (QualIdent Nothing (Ident "nested" 191))) (InfixApply (Literal (Char '(')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 191))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (Variable (QualIdent Nothing (Ident "s" 191)))) []))])+,(FunctionDecl (298,1) (Ident "sceBlanks" 0) [(Equation (298,1) (FunLhs (Ident "sceBlanks" 0) [(VariablePattern (Ident "b" 193))]) (SimpleRhs (298,15) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Variable (QualIdent Nothing (Ident "b" 193)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "repeat" 0))) (Literal (Char ' '))))) []))])+,(TypeSig (301,1) [(Ident "isFiniteList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (302,1) (Ident "isFiniteList" 0) [(Equation (302,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 196))]))]) (SimpleRhs (302,24) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (303,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 199))]))]) (SimpleRhs (303,24) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (304,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 202)),(VariablePattern (Ident "name" 201)),(VariablePattern (Ident "args" 201))]))]) (GuardedRhs [(CondExpr (305,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 201))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "args" 201))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List []))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))),(CondExpr (306,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 201))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String ":"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 201)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 204) 2)))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isFiniteList" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 201))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 205) 1)))))),(CondExpr (307,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))))] [])),(Equation (308,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "_" 207)),(VariablePattern (Ident "_" 208))]))]) (SimpleRhs (308,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (309,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 211)),(VariablePattern (Ident "_" 212))]))]) (SimpleRhs (309,27) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (310,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "_" 215)),(VariablePattern (Ident "_" 216))]))]) (SimpleRhs (310,35) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (311,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 219)),(VariablePattern (Ident "_" 220)),(VariablePattern (Ident "_" 221))]))]) (SimpleRhs (311,29) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(TypeSig (314,1) [(Ident "isStringConstant" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (315,1) (Ident "isStringConstant" 0) [(Equation (315,1) (FunLhs (Ident "isStringConstant" 0) [(VariablePattern (Ident "e" 223))]) (SimpleRhs (315,22) (Case (Variable (QualIdent Nothing (Ident "e" 223))) [(Alt (316,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 226)),(VariablePattern (Ident "name" 225)),(VariablePattern (Ident "args" 225))]) (SimpleRhs (316,23) (InfixApply (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 225))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "args" 225)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 225))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "Prelude")),(Literal (String ":"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 225)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 228) 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isCharConstant" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 225)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryShow") (Ident "isStringConstant" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 225))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 229) 1)))))))))) [])),(Alt (319,3) (VariablePattern (Ident "_" 231)) (SimpleRhs (319,23) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (322,1) [(Ident "isCharConstant" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (323,1) (Ident "isCharConstant" 0) [(Equation (323,1) (FunLhs (Ident "isCharConstant" 0) [(VariablePattern (Ident "e" 233))]) (SimpleRhs (323,20) (Case (Variable (QualIdent Nothing (Ident "e" 233))) [(Alt (324,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "_" 236))]))]) (SimpleRhs (324,20) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (325,3) (VariablePattern (Ident "_" 239)) (SimpleRhs (325,20) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurryShow.efc view
@@ -0,0 +1,1 @@+Prog "FlatCurryShow" ["Char","FlatCurry","List","Prelude"] [] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatListElems")) [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","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatListElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatType")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatListElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatFunc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatOp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatVisibility")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatFixity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatOp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatFixity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatType")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatCons")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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,"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") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatFunc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatRule")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatRule")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),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","Rule") []))),"FlatCurry","Rule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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") []]),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (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,"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)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'V'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatCombType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'V'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatCombType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr.showFlatBinding.49")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr.showFlatBinding.49")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 2),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatBranch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'B'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatPattern")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatPattern")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryShow","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showFlatLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatList")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatListElems")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showFlatListElems")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  5)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Lit (Intc  97),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) [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","Char") []])),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isFuncType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))]]]]),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") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","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","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","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") []]]),7))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","head")) [Var ((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","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","concatMap")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryType._#lambda2")) [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","Char") []])),1))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryType._#lambda2")) 2 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2)] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isFuncType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (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","Bool") []),"Prelude","False")) []),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") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),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") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6)]) (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))) [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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6))]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),9))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryId")) [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","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","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","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") []]]),8))]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),11))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryId")) [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","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","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","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") []]]),8))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))]]]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isFiniteList")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isStringConstant")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryStringConstant")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryShow","showCurryFiniteList")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15)]) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15))]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryId")) [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","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","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","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") []]]),8))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15))]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])]),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") []]]),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],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","Char") []])) (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","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryExpr._#lambda3")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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","Char") []])),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16))]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  4)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))]]]]]]]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),18))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []) (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),19))]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),21)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [],Comb ConsCall ((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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),20)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),21))]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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") []),22),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),22))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23))]]]]),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") []),24),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),26)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),24)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryCase")) [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","Char") []])),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),26))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]]]]]])])),Func ((Nothing,Just (FuncType (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryExpr._#lambda3")) 3 Private (FuncType (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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (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","Char") []])),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 2),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  4)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]]])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) 1 Public (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TVar 0),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryId")) 1 Public (FuncType (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","Char") []]),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryShow","showCurryCase")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),4))) [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") []]]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (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","Char") []]))),"FlatCurryShow","showCurryCase.showPattern.151")) [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","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","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","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") []]]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryCase.showPattern.151")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (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","[]") [TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),3))]]]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),5))]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [Var ((Just (TVar 0),5))]]]]])])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),8)]) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),3)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),5)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),8))]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryVar")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),3)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),5)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryShow","showCurryFiniteList")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))) [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)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),(Just (TVar 6),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'P')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 50) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 49) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 47) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 46) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 45) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 21),22))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 26),26))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 27),6))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 32),24))) [Branch (Pattern ((Nothing,Just (TVar 32),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 35),30))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryShow","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),27))],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryShow","showCurryFiniteList")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),29))]])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryStringConstant")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TVar 6),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'P')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 50) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 49) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 47) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 46) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 45) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 21),20))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 26),24))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 27),4))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 32),22))) [Branch (Pattern ((Nothing,Just (TVar 32),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TVar 35),28))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCharExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCurryStringConstant")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),27))]])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","showCharExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  32)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  126)]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","div")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  100)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","div")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","mod")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  100)],Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","mod")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])]))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showCurryElems")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryShow","showBracketsIf")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryShow","sceBlanks")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","repeat")) [Lit (Charc  ' ')]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isFiniteList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (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)]) (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") []),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)]) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))],Lit (Intc  2)]]) [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","Bool") [])),"FlatCurryShow","isFiniteList")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)),Lit (Intc  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","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","failed")) [])])])]),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") [])),"FlatCurryShow","isStringConstant")) 1 Private (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 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,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))]],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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))],Lit (Intc  2)],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") [])),"FlatCurryShow","isCharConstant")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryShow","isStringConstant")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)),Lit (Intc  1)]]]]]]),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") [])),"FlatCurryShow","isCharConstant")) 1 Private (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)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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","Literal") [])),"FlatCurry","Intc")) [(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,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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")) []),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") []),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryShow.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurryShow" ["Char","FlatCurry","List","Prelude"] [] [Func ("FlatCurryShow","showFlatProg") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatListElems") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]])],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatListElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatType") [],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]])],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatListElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatFunc") [],Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatOp") [],Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])])),Func ("FlatCurryShow","showFlatVisibility") 1 Private (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Public") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","Private") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]])])),Func ("FlatCurryShow","showFlatFixity") 1 Private (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]),Branch (Pattern ("FlatCurry","InfixlOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]),Branch (Pattern ("FlatCurry","InfixrOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])])),Func ("FlatCurryShow","showFlatOp") 1 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Op") [2,3,4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatFixity") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])])),Func ("FlatCurryShow","showFlatType") 1 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Type") [2,3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatVisibility") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatCons") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("FlatCurry","TypeSyn") [6,7,8,9]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 6],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatVisibility") [Var 7],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 8],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatTypeExpr") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("FlatCurryShow","showFlatCons") 1 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Cons") [2,3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatVisibility") [Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatTypeExpr") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]])])),Func ("FlatCurryShow","showFlatFunc") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatVisibility") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatTypeExpr") [Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatRule") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]])])),Func ("FlatCurryShow","showFlatRule") 1 Private (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Rule") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","External") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryShow","showFlatTypeExpr") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncType") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatTypeExpr") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatTypeExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatTypeExpr") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","TVar") [6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'V'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryShow","showFlatCombType") 1 Private (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","FuncPartCall") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","ConsPartCall") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryShow","showFlatExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'V'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatLit") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatCombType") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 5],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatExpr") [],Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatExpr.showFlatBinding.49") [],Var 7],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 9],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 10],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 11],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Case  Flex (Var 13) [Branch (Pattern ("FlatCurry","Rigid") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 14],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatBranch") [],Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Flex") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 14],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryShow","showFlatBranch") [],Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]])])])),Func ("FlatCurryShow","showFlatExpr.showFlatBinding.49") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])])),Func ("FlatCurryShow","showFlatLit") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryShow","showFlatBranch") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'B'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatPattern") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]])])),Func ("FlatCurryShow","showFlatPattern") 1 Private (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Pattern") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","LPattern") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatLit") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryShow","showFlatList") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showFlatListElems") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]])),Func ("FlatCurryShow","showFlatListElems") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Var 1,Var 2]]])),Func ("FlatCurryShow","showCurryType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","TVar") [4]) (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 4,Lit (Intc  5)]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Lit (Intc  97),Var 4]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb FuncCall ("Prelude","show") [Var 4]])]),Branch (Pattern ("FlatCurry","FuncType") [5,6]) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryType") [Var 1,Comb FuncCall ("FlatCurryShow","isFuncType") [Var 5],Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("FlatCurryShow","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") [],Var 6]]]]),Branch (Pattern ("FlatCurry","TCons") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 8],Comb ConsCall ("FlatCurry","TCons") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","head") [Var 8]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Comb FuncCall ("Prelude","snd") [Var 7]],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") []],Var 8]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 7],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryType._#lambda2") [Var 1]],Var 8]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])),Func ("FlatCurryShow","showCurryType._#lambda2") 2 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb FuncCall ("FlatCurryShow","showCurryType") [Var 1,Comb ConsCall ("Prelude","True") [],Var 2]])),Func ("FlatCurryShow","isFuncType") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryShow","showCurryExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [1,2,3,4] (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 5]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("FlatCurryShow","showCurryLit") [Var 6]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryShow","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]]),Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10]]]]),Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 12]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Comb FuncCall ("Prelude","snd") [Var 8]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("FlatCurryShow","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("FlatCurryShow","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryFiniteList") [Var 1,Var 3,Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","snd") [Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 12]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])]),Branch (Pattern ("Prelude",":") [14,15]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","==") [Var 15,Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 12],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 14]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Comb FuncCall ("Prelude","snd") [Var 8]],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 14,Var 15]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 14,Var 15]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])]),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryExpr._#lambda3") [Var 3,Var 1],Var 16]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  4)],Var 17]]]]]]]),Branch (Pattern ("FlatCurry","Free") [18,19]) (Case  Flex (Var 18) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Var 2,Var 3,Var 19]),Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 20,Var 21]]]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 19]]]]])]),Branch (Pattern ("FlatCurry","Or") [22,23]) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 22],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 23]]]]),Branch (Pattern ("FlatCurry","Case") [24,25,26]) (Comb FuncCall ("FlatCurryShow","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 24,Comb ConsCall ("FlatCurry","Rigid") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]])],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 25],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryCase") [Var 1,Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)]],Var 26],Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 3]]]]]])])),Func ("FlatCurryShow","showCurryExpr._#lambda3") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  4)],Var 5]]])])),Func ("FlatCurryShow","showCurryVar") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","show") [Var 1]])),Func ("FlatCurryShow","showCurryId") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Var 1]]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("FlatCurryShow","showCurryLit") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("Prelude","show") [Var 2]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("Prelude","show") [Var 3]),Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("Prelude","show") [Var 4])])),Func ("FlatCurryShow","showCurryCase") 3 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","Pattern") [6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryCase.showPattern.151") [Comb FuncCall ("Prelude","apply") [Var 1,Var 6],Var 7],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","LPattern") [8]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","sceBlanks") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryLit") [Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]])])])),Func ("FlatCurryShow","showCurryCase.showPattern.151") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Var 1),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 3]]]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Var 1]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 5]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryVar") [Var 5]]]]])])]),Branch (Pattern ("Prelude",":") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 7,Var 8]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryShow","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryShow","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 7,Var 8]]]]]])])])])])),Func ("FlatCurryShow","showCurryFiniteList") 3 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'P')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  '[')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryShow","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 27],Comb FuncCall ("FlatCurryShow","showCurryFiniteList") [Var 1,Var 2,Var 29]])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryShow","showCurryStringConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'P')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  '[')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryShow","showCharExpr") [Var 25],Comb FuncCall ("FlatCurryShow","showCurryStringConstant") [Var 27]])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryShow","showCharExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Charc") [3]) (Let [(4,Comb FuncCall ("Prelude","ord") [Var 3])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","<") [Var 4,Lit (Intc  32)],Comb FuncCall ("Prelude",">") [Var 4,Lit (Intc  126)]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","div") [Var 4,Lit (Intc  100)],Lit (Intc  48)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","div") [Comb FuncCall ("Prelude","mod") [Var 4,Lit (Intc  100)],Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","mod") [Var 4,Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])]))])])),Func ("FlatCurryShow","showCurryElems") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Var 1,Var 2]]])),Func ("FlatCurryShow","showBracketsIf") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Var 2)])),Func ("FlatCurryShow","sceBlanks") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","take") [Var 1,Comb FuncCall ("Prelude","repeat") [Lit (Charc  ' ')]])),Func ("FlatCurryShow","isFiniteList") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","==") [Var 6,Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 6],Lit (Intc  2)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryShow","isFiniteList") [Comb FuncCall ("Prelude","!!") [Var 6,Lit (Intc  1)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryShow","isStringConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","null") [Var 4]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 4],Lit (Intc  2)],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryShow","isCharConstant") [Comb FuncCall ("Prelude","head") [Var 4]],Comb FuncCall ("FlatCurryShow","isStringConstant") [Comb FuncCall ("Prelude","!!") [Var 4,Lit (Intc  1)]]]]]]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryShow","isCharConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Case  Rigid (Var 2) [Branch (Pattern ("FlatCurry","Charc") [3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Intc") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Floatc") [5]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb ConsCall ("Prelude","False") [])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryShow.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurryShow" ["Char","FlatCurry","List","Prelude"] [] [Func ("FlatCurryShow","showFlatProg") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryShow","showFlatType") 1 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryShow","showFlatFunc") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryShow","showCurryType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [] (Var 0)),Func ("FlatCurryShow","showCurryExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [] (Var 0)),Func ("FlatCurryShow","showCurryVar") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryShow","showCurryId") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurryShow.uacy view
@@ -0,0 +1,36 @@+CurryProg "FlatCurryShow"+ ["Prelude","FlatCurry","List","Char"]+ []+ [CFunc ("FlatCurryShow","isCharConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryShow","isFiniteList") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"name"),CPVar (4,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"args"))) (CSymbol ("Prelude","[]"))),CSymbol ("Prelude","True")),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (4,"args")))) (CLit (CIntc 2))),CApply (CSymbol ("FlatCurryShow","isFiniteList")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (4,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"_"),CPVar (10,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryShow","isFuncType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryShow","isStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"name"),CPVar (3,"args")]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","null")) (CVar (3,"args"))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (3,"args")))) (CLit (CIntc 2)))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryShow","isCharConstant")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"args"))))) (CApply (CSymbol ("FlatCurryShow","isStringConstant")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (3,"args"))) (CLit (CIntc 1)))))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryShow","sceBlanks") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"b")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"b"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("FlatCurryShow","showBracketsIf") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (1,"s")))] []]),+  CFunc ("FlatCurryShow","showCharExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (0,"c")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (1,"o"))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude",">")) (CVar (1,"o"))) (CLit (CIntc 126))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CSymbol ("Prelude","[]")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] [CLocalPat (CPVar (1,"o")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))) []]]),+  CFunc ("FlatCurryShow","showCurryCase") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"tf"),CPVar (1,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (2,"l"),CPVar (3,"vs")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (1,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showPattern")) (CApply (CVar (0,"tf")) (CVar (2,"l")))) (CVar (3,"vs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (0,"tf"))) (CSymbol ("Prelude","False"))) (CVar (1,"b"))) (CVar (4,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))] [CLocalFunc (CFunc ("FlatCurryShow","showPattern") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"c"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (5,"c"))] [],CRule [CPVar (6,"c"),CPComb ("Prelude",":") [CPVar (7,"x"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (7,"x")))))] [],CRule [CPVar (8,"c"),CPComb ("Prelude",":") [CPVar (9,"x1"),CPComb ("Prelude",":") [CPVar (10,"x2"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (8,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (10,"x2")))))))))] [],CRule [CPVar (11,"c"),CPComb ("Prelude",":") [CPVar (12,"x1"),CPComb ("Prelude",":") [CPVar (13,"x2"),CPComb ("Prelude",":") [CPVar (14,"x3"),CPVar (15,"xs")]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (11,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs")))))))))] []]))],CRule [CPVar (5,"tf"),CPVar (6,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (7,"l")],CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (6,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryLit")) (CVar (7,"l")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (5,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"b"))) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryShow","showCurryElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryShow","showCurryExpr") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","String") []))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","Var") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (3,"n")))] [],CRule [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPComb ("FlatCurry","Lit") [CPVar (7,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryLit")) (CVar (7,"l")))] [],CRule [CPVar (8,"tf"),CPVar (9,"_"),CPVar (10,"_"),CPComb ("FlatCurry","Comb") [CPVar (11,"_"),CPVar (12,"cf"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (8,"tf")) (CVar (12,"cf"))))] [],CRule [CPVar (13,"tf"),CPVar (14,"nested"),CPVar (15,"b"),CPComb ("FlatCurry","Comb") [CPVar (16,"_"),CPVar (17,"cf"),CPComb ("Prelude",":") [CPVar (18,"e"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (14,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (13,"tf")) (CVar (17,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (13,"tf"))) (CSymbol ("Prelude","True"))) (CVar (15,"b"))) (CVar (18,"e"))))))] [],CRule [CPVar (19,"tf"),CPVar (20,"nested"),CPVar (21,"b"),CPComb ("FlatCurry","Comb") [CPVar (22,"ct"),CPVar (23,"cf"),CPComb ("Prelude",":") [CPVar (24,"e1"),CPComb ("Prelude",":") [CPVar (25,"e2"),CPComb ("Prelude","[]") []]]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2")))))),(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]")))))))),(CApply (CSymbol ("FlatCurryShow","isFiniteList")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("FlatCurryShow","isStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryFiniteList")) (CVar (19,"tf"))) (CVar (21,"b"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (25,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2"))))))))] [],CRule [CPVar (26,"tf"),CPVar (27,"nested"),CPVar (28,"b"),CPComb ("FlatCurry","Comb") [CPVar (29,"_"),CPVar (30,"cf"),CPComb ("Prelude",":") [CPVar (31,"e1"),CPComb ("Prelude",":") [CPVar (32,"e2"),CPComb ("Prelude",":") [CPVar (33,"e3"),CPVar (34,"es")]]]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (30,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (34,"es"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (31,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (32,"e2")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (33,"e3"))))))))))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryId")) (CApply (CVar (26,"tf")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","True"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es")))))))))] [],CRule [CPVar (35,"tf"),CPVar (36,"nested"),CPVar (37,"b"),CPComb ("FlatCurry","Let") [CPVar (38,"bindings"),CPVar (39,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (36,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"x"),CPVar (41,"e")]] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCurryVar")) (CVar (40,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (41,"e"))))))) (CVar (38,"bindings")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (39,"exp")))))))))] [],CRule [CPVar (42,"tf"),CPVar (43,"nested"),CPVar (44,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude","[]") [],CPVar (45,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (42,"tf"))) (CVar (43,"nested"))) (CVar (44,"b"))) (CVar (45,"e")))] [],CRule [CPVar (46,"tf"),CPVar (47,"nested"),CPVar (48,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude",":") [CPVar (49,"x"),CPVar (50,"xs")],CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (47,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryShow","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"x"))) (CVar (50,"xs"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (46,"tf"))) (CSymbol ("Prelude","False"))) (CVar (48,"b"))) (CVar (51,"e")))))))] [],CRule [CPVar (52,"tf"),CPVar (53,"nested"),CPVar (54,"b"),CPComb ("FlatCurry","Or") [CPVar (55,"e1"),CPVar (56,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (53,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (55,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (56,"e2"))))))] [],CRule [CPVar (57,"tf"),CPVar (58,"nested"),CPVar (59,"b"),CPComb ("FlatCurry","Case") [CPVar (60,"ctype"),CPVar (61,"e"),CPVar (62,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (58,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (60,"ctype"))) (CSymbol ("FlatCurry","Rigid")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (57,"tf"))) (CSymbol ("Prelude","True"))) (CVar (59,"b"))) (CVar (61,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryElems")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryCase")) (CVar (57,"tf"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (59,"b"))) (CLit (CIntc 2))))) (CVar (62,"cs")))) (CApply (CSymbol ("FlatCurryShow","sceBlanks")) (CVar (59,"b"))))))))] []]),+  CFunc ("FlatCurryShow","showCurryFiniteList") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (3,"tf"),CPVar (4,"b"),CPComb ("FlatCurry","Comb") [CPVar (5,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (6,"e1"),CPComb ("Prelude",":") [CPVar (7,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryExpr")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (4,"b"))) (CVar (6,"e1")))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryFiniteList")) (CVar (3,"tf"))) (CVar (4,"b"))) (CVar (7,"e2"))))] []]),+  CFunc ("FlatCurryShow","showCurryId") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (0,"name"))),CVar (0,"name")),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CVar (0,"name")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryShow","showCurryLit") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))] []]),+  CFunc ("FlatCurryShow","showCurryStringConstant") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (2,"e1"),CPComb ("Prelude",":") [CPVar (3,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showCharExpr")) (CVar (2,"e1")))) (CApply (CSymbol ("FlatCurryShow","showCurryStringConstant")) (CVar (3,"e2"))))] []]),+  CFunc ("FlatCurryShow","showCurryType") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (2,"i"))) (CLit (CIntc 5)))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (2,"i"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"i")))))] [],CRule [CPVar (3,"tf"),CPVar (4,"nested"),CPComb ("FlatCurry","FuncType") [CPVar (5,"t1"),CPVar (6,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (4,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (3,"tf"))) (CApply (CSymbol ("FlatCurryShow","isFuncType")) (CVar (5,"t1")))) (CVar (5,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"t2"))))))] [],CRule [CPVar (7,"tf"),CPVar (8,"nested"),CPComb ("FlatCurry","TCons") [CPVar (9,"tc"),CPVar (10,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"ts"))) (CSymbol ("Prelude","[]")),CApply (CVar (7,"tf")) (CVar (9,"tc"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts")))) (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (9,"tc"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False")))) (CVar (10,"ts")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryShow","showBracketsIf")) (CVar (8,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (7,"tf")) (CVar (9,"tc")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (11,"t")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CApply (CSymbol ("FlatCurryShow","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","True"))) (CVar (11,"t")))))) (CVar (10,"ts")))))] []]),+  CFunc ("FlatCurryShow","showCurryVar") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))] []]),+  CFunc ("FlatCurryShow","showFlatBranch") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"p"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatPattern")) (CVar (0,"p")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (1,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatCombType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","FuncPartCall") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","ConsPartCall") [CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatCons") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatTypeExpr"))) (CVar (3,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurryShow","showFlatExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatLit")) (CVar (1,"l")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cf"),CPVar (4,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatCombType")) (CVar (2,"ctype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatExpr"))) (CVar (4,"es")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"bindings"),CPVar (6,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBinding"))) (CVar (5,"bindings")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (6,"exp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalFunc (CFunc ("FlatCurryShow","showFlatBinding") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (7,"x"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (7,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]))],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"xs"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (7,"xs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (9,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (10,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Rigid") [],CPVar (11,"e"),CPVar (12,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (11,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBranch"))) (CVar (12,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Flex") [],CPVar (13,"e"),CPVar (14,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (13,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatBranch"))) (CVar (14,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatFixity") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatFunc") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatRule")) (CVar (4,"rl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatList") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CVar (0,"format"))) (CVar (1,"elems")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryShow","showFlatListElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryShow","showFlatLit") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatOp") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatFixity")) (CVar (1,"fix")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryShow","showFlatPattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Pattern") [CPVar (0,"qn"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"qn")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (1,"xs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","LPattern") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatLit")) (CVar (2,"lit")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatProg") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"imports"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("Prelude","show"))) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"types"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("FlatCurryShow","showFlatType"))) (CVar (2,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatListElems")) (CSymbol ("FlatCurryShow","showFlatFunc"))) (CVar (3,"funcs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatOp"))) (CVar (4,"ops")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))))] []]),+  CFunc ("FlatCurryShow","showFlatRule") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (0,"params")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatExpr")) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (1,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (2,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatCons"))) (CVar (3,"consdecls")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatVisibility")) (CVar (5,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (6,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (7,"texp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryShow","showFlatTypeExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryShow","showFlatTypeExpr")) (CVar (1,"t2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryShow","showFlatList")) (CSymbol ("FlatCurryShow","showFlatTypeExpr"))) (CVar (3,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryShow","showFlatVisibility") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryTools.acy view
@@ -0,0 +1,36 @@+CurryProg "FlatCurryTools"+ ["Prelude","FlatCurry","List","Char"]+ []+ [CFunc ("FlatCurryTools","isCharConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryTools","isFiniteList") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"name"),CPVar (4,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"args"))) (CSymbol ("Prelude","[]"))),CSymbol ("Prelude","True")),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (4,"args")))) (CLit (CIntc 2))),CApply (CSymbol ("FlatCurryTools","isFiniteList")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (4,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"_"),CPVar (10,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryTools","isFuncType") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryTools","isStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"name"),CPVar (3,"args")]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","null")) (CVar (3,"args"))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (3,"args")))) (CLit (CIntc 2)))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryTools","isCharConstant")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"args"))))) (CApply (CSymbol ("FlatCurryTools","isStringConstant")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (3,"args"))) (CLit (CIntc 1)))))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryTools","sceBlanks") 1 Private (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"b")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"b"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("FlatCurryTools","showBracketsIf") 2 Private (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (1,"s")))] []]),+  CFunc ("FlatCurryTools","showCharExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (0,"c")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (1,"o"))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude",">")) (CVar (1,"o"))) (CLit (CIntc 126))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CSymbol ("Prelude","[]")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] [CLocalPat (CPVar (1,"o")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))) []]]),+  CFunc ("FlatCurryTools","showCurryCase") 3 Private (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"tf"),CPVar (1,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (2,"l"),CPVar (3,"vs")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (1,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showPattern")) (CApply (CVar (0,"tf")) (CVar (2,"l")))) (CVar (3,"vs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (0,"tf"))) (CSymbol ("Prelude","False"))) (CVar (1,"b"))) (CVar (4,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))] [CLocalFunc (CFunc ("FlatCurryTools","showPattern") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (5,"c"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (5,"c"))] [],CRule [CPVar (6,"c"),CPComb ("Prelude",":") [CPVar (7,"x"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (7,"x")))))] [],CRule [CPVar (8,"c"),CPComb ("Prelude",":") [CPVar (9,"x1"),CPComb ("Prelude",":") [CPVar (10,"x2"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (8,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))))))))] [],CRule [CPVar (11,"c"),CPComb ("Prelude",":") [CPVar (12,"x1"),CPComb ("Prelude",":") [CPVar (13,"x2"),CPComb ("Prelude",":") [CPVar (14,"x3"),CPVar (15,"xs")]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (11,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs")))))))))] []]))],CRule [CPVar (5,"tf"),CPVar (6,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (7,"l")],CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (6,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryLit")) (CVar (7,"l")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (5,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"b"))) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryTools","showCurryElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryTools","showCurryExpr") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","Var") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (3,"n")))] [],CRule [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPComb ("FlatCurry","Lit") [CPVar (7,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryLit")) (CVar (7,"l")))] [],CRule [CPVar (8,"tf"),CPVar (9,"_"),CPVar (10,"_"),CPComb ("FlatCurry","Comb") [CPVar (11,"_"),CPVar (12,"cf"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (8,"tf")) (CVar (12,"cf"))))] [],CRule [CPVar (13,"tf"),CPVar (14,"nested"),CPVar (15,"b"),CPComb ("FlatCurry","Comb") [CPVar (16,"_"),CPVar (17,"cf"),CPComb ("Prelude",":") [CPVar (18,"e"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (14,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (13,"tf")) (CVar (17,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (13,"tf"))) (CSymbol ("Prelude","True"))) (CVar (15,"b"))) (CVar (18,"e"))))))] [],CRule [CPVar (19,"tf"),CPVar (20,"nested"),CPVar (21,"b"),CPComb ("FlatCurry","Comb") [CPVar (22,"ct"),CPVar (23,"cf"),CPComb ("Prelude",":") [CPVar (24,"e1"),CPComb ("Prelude",":") [CPVar (25,"e2"),CPComb ("Prelude","[]") []]]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2")))))),(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]")))))))),(CApply (CSymbol ("FlatCurryTools","isFiniteList")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("FlatCurryTools","isStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryFiniteList")) (CVar (19,"tf"))) (CVar (21,"b"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (25,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2"))))))))] [],CRule [CPVar (26,"tf"),CPVar (27,"nested"),CPVar (28,"b"),CPComb ("FlatCurry","Comb") [CPVar (29,"_"),CPVar (30,"cf"),CPComb ("Prelude",":") [CPVar (31,"e1"),CPComb ("Prelude",":") [CPVar (32,"e2"),CPComb ("Prelude",":") [CPVar (33,"e3"),CPVar (34,"es")]]]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (30,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (34,"es"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (31,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (32,"e2")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (33,"e3"))))))))))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (26,"tf")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","True"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es")))))))))] [],CRule [CPVar (35,"tf"),CPVar (36,"nested"),CPVar (37,"b"),CPComb ("FlatCurry","Let") [CPVar (38,"bindings"),CPVar (39,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (36,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"x"),CPVar (41,"e")]] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (40,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (41,"e"))))))) (CVar (38,"bindings")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (39,"exp")))))))))] [],CRule [CPVar (42,"tf"),CPVar (43,"nested"),CPVar (44,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude","[]") [],CPVar (45,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (42,"tf"))) (CVar (43,"nested"))) (CVar (44,"b"))) (CVar (45,"e")))] [],CRule [CPVar (46,"tf"),CPVar (47,"nested"),CPVar (48,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude",":") [CPVar (49,"x"),CPVar (50,"xs")],CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (47,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"x"))) (CVar (50,"xs"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (46,"tf"))) (CSymbol ("Prelude","False"))) (CVar (48,"b"))) (CVar (51,"e")))))))] [],CRule [CPVar (52,"tf"),CPVar (53,"nested"),CPVar (54,"b"),CPComb ("FlatCurry","Or") [CPVar (55,"e1"),CPVar (56,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (53,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (55,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (56,"e2"))))))] [],CRule [CPVar (57,"tf"),CPVar (58,"nested"),CPVar (59,"b"),CPComb ("FlatCurry","Case") [CPVar (60,"ctype"),CPVar (61,"e"),CPVar (62,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (58,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (60,"ctype"))) (CSymbol ("FlatCurry","Rigid")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (57,"tf"))) (CSymbol ("Prelude","True"))) (CVar (59,"b"))) (CVar (61,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryCase")) (CVar (57,"tf"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (59,"b"))) (CLit (CIntc 2))))) (CVar (62,"cs")))) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (59,"b"))))))))] []]),+  CFunc ("FlatCurryTools","showCurryFiniteList") 3 Private (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (3,"tf"),CPVar (4,"b"),CPComb ("FlatCurry","Comb") [CPVar (5,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (6,"e1"),CPComb ("Prelude",":") [CPVar (7,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (4,"b"))) (CVar (6,"e1")))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryFiniteList")) (CVar (3,"tf"))) (CVar (4,"b"))) (CVar (7,"e2"))))] []]),+  CFunc ("FlatCurryTools","showCurryId") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (0,"name"))),CVar (0,"name")),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CVar (0,"name")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryTools","showCurryLit") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))] []]),+  CFunc ("FlatCurryTools","showCurryStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (2,"e1"),CPComb ("Prelude",":") [CPVar (3,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCharExpr")) (CVar (2,"e1")))) (CApply (CSymbol ("FlatCurryTools","showCurryStringConstant")) (CVar (3,"e2"))))] []]),+  CFunc ("FlatCurryTools","showCurryType") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (2,"i"))) (CLit (CIntc 5)))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (2,"i"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"i")))))] [],CRule [CPVar (3,"tf"),CPVar (4,"nested"),CPComb ("FlatCurry","FuncType") [CPVar (5,"t1"),CPVar (6,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (4,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (3,"tf"))) (CApply (CSymbol ("FlatCurryTools","isFuncType")) (CVar (5,"t1")))) (CVar (5,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"t2"))))))] [],CRule [CPVar (7,"tf"),CPVar (8,"nested"),CPComb ("FlatCurry","TCons") [CPVar (9,"tc"),CPVar (10,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"ts"))) (CSymbol ("Prelude","[]")),CApply (CVar (7,"tf")) (CVar (9,"tc"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts")))) (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (9,"tc"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False")))) (CVar (10,"ts")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (8,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (7,"tf")) (CVar (9,"tc")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (11,"t")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","True"))) (CVar (11,"t")))))) (CVar (10,"ts")))))] []]),+  CFunc ("FlatCurryTools","showCurryVar") 1 Public (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))] []]),+  CFunc ("FlatCurryTools","showFlatBranch") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"p"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatPattern")) (CVar (0,"p")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (1,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatCombType") 1 Private (CFuncType (CTCons ("FlatCurry","CombType") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","FuncPartCall") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","ConsPartCall") [CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatCons") 1 Private (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatTypeExpr"))) (CVar (3,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurryTools","showFlatExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatLit")) (CVar (1,"l")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cf"),CPVar (4,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatCombType")) (CVar (2,"ctype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatExpr"))) (CVar (4,"es")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"bindings"),CPVar (6,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBinding"))) (CVar (5,"bindings")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (6,"exp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalFunc (CFunc ("FlatCurryTools","showFlatBinding") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (7,"x"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (7,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]))],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"xs"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (7,"xs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (9,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (10,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Rigid") [],CPVar (11,"e"),CPVar (12,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (11,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBranch"))) (CVar (12,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Flex") [],CPVar (13,"e"),CPVar (14,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (13,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBranch"))) (CVar (14,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatFixity") 1 Private (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatFunc") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatRule")) (CVar (4,"rl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatList") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CVar (0,"format"))) (CVar (1,"elems")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatListElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryTools","showFlatLit") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude",">=")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))) (CLit (CIntc 127))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryTools","showFlatOp") 1 Private (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatFixity")) (CVar (1,"fix")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryTools","showFlatPattern") 1 Private (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Pattern") [CPVar (0,"qn"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"qn")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (1,"xs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","LPattern") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatLit")) (CVar (2,"lit")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatProg") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"imports"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("Prelude","show"))) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"types"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("FlatCurryTools","showFlatType"))) (CVar (2,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("FlatCurryTools","showFlatFunc"))) (CVar (3,"funcs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatOp"))) (CVar (4,"ops")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatRule") 1 Private (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (0,"params")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (1,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (2,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatCons"))) (CVar (3,"consdecls")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (5,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (6,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (7,"texp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryTools","showFlatTypeExpr") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (1,"t2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatTypeExpr"))) (CVar (3,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatVisibility") 1 Private (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryTools.cy view
@@ -0,0 +1,50 @@+Module "FlatCurryTools"+(Just (Exporting (21,22) [(Export (QualIdent Nothing (Ident "showFlatProg" 0))),(Export (QualIdent Nothing (Ident "showFlatType" 0))),(Export (QualIdent Nothing (Ident "showFlatFunc" 0))),(Export (QualIdent Nothing (Ident "showCurryType" 0))),(Export (QualIdent Nothing (Ident "showCurryExpr" 0))),(Export (QualIdent Nothing (Ident "showCurryId" 0))),(Export (QualIdent Nothing (Ident "showCurryVar" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (25,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (26,1) "List" False Nothing Nothing)+,(ImportDecl (27,1) "Char" False Nothing Nothing)+,(TypeSig (30,1) [(Ident "showFlatProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (31,1) (Ident "showFlatProg" 0) [(Equation (31,1) (FunLhs (Ident "showFlatProg" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "modname" 2)),(VariablePattern (Ident "imports" 2)),(VariablePattern (Ident "types" 2)),(VariablePattern (Ident "funcs" 2)),(VariablePattern (Ident "ops" 2))]))]) (SimpleRhs (32,6) (InfixApply (Literal (String " (Prog ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "modname" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "imports" 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "\n  []")) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "imports" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]")))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "types" 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String "\n  []")) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatType" 0)))) (Variable (QualIdent Nothing (Ident "types" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n ]")))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n  [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatListElems" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatFunc" 0)))) (Variable (QualIdent Nothing (Ident "funcs" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n  ]")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatOp" 0)))) (Variable (QualIdent Nothing (Ident "ops" 2)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n )\n"))))))))))) []))])+,(FunctionDecl (41,1) (Ident "showFlatVisibility" 0) [(Equation (41,1) (FunLhs (Ident "showFlatVisibility" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Public" 0)) [])]) (SimpleRhs (41,30) (Literal (String " Public ")) [])),(Equation (42,1) (FunLhs (Ident "showFlatVisibility" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Private" 0)) [])]) (SimpleRhs (42,30) (Literal (String " Private ")) []))])+,(FunctionDecl (44,1) (Ident "showFlatFixity" 0) [(Equation (44,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixOp" 0)) [])]) (SimpleRhs (44,26) (Literal (String " InfixOp ")) [])),(Equation (45,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixlOp" 0)) [])]) (SimpleRhs (45,27) (Literal (String " InfixlOp ")) [])),(Equation (46,1) (FunLhs (Ident "showFlatFixity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixrOp" 0)) [])]) (SimpleRhs (46,27) (Literal (String " InfixrOp ")) []))])+,(FunctionDecl (48,1) (Ident "showFlatOp" 0) [(Equation (48,1) (FunLhs (Ident "showFlatOp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "name" 14)),(VariablePattern (Ident "fix" 14)),(VariablePattern (Ident "prec" 14))]))]) (SimpleRhs (49,2) (InfixApply (Literal (String "(Op ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatFixity" 0))) (Variable (QualIdent Nothing (Ident "fix" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "prec" 14)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) []))])+,(TypeSig (51,1) [(Ident "showFlatType" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (52,1) (Ident "showFlatType" 0) [(Equation (52,1) (FunLhs (Ident "showFlatType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 16)),(VariablePattern (Ident "vis" 16)),(VariablePattern (Ident "tpars" 16)),(VariablePattern (Ident "consdecls" 16))]))]) (SimpleRhs (53,3) (InfixApply (Literal (String "\n  (Type ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatCons" 0)))) (Variable (QualIdent Nothing (Ident "consdecls" 16)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) [])),(Equation (56,1) (FunLhs (Ident "showFlatType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 18)),(VariablePattern (Ident "vis" 18)),(VariablePattern (Ident "tpars" 18)),(VariablePattern (Ident "texp" 18))]))]) (SimpleRhs (57,3) (InfixApply (Literal (String "\n  (TypeSyn ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "texp" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) []))])+,(FunctionDecl (61,1) (Ident "showFlatCons" 0) [(Equation (61,1) (FunLhs (Ident "showFlatCons" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "cname" 20)),(VariablePattern (Ident "arity" 20)),(VariablePattern (Ident "vis" 20)),(VariablePattern (Ident "types" 20))]))]) (SimpleRhs (62,3) (InfixApply (Literal (String "(Cons ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "cname" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "types" 20)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))))) []))])+,(TypeSig (66,1) [(Ident "showFlatFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (67,1) (Ident "showFlatFunc" 0) [(Equation (67,1) (FunLhs (Ident "showFlatFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 22)),(VariablePattern (Ident "arity" 22)),(VariablePattern (Ident "vis" 22)),(VariablePattern (Ident "ftype" 22)),(VariablePattern (Ident "rl" 22))]))]) (SimpleRhs (68,3) (InfixApply (Literal (String "\n  (Func ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatVisibility" 0))) (Variable (QualIdent Nothing (Ident "vis" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n        ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "ftype" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n       ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatRule" 0))) (Variable (QualIdent Nothing (Ident "rl" 22)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))))))))) []))])+,(FunctionDecl (73,1) (Ident "showFlatRule" 0) [(Equation (73,1) (FunLhs (Ident "showFlatRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "params" 24)),(VariablePattern (Ident "expr" 24))]))]) (SimpleRhs (74,3) (InfixApply (Literal (String " (Rule ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "params" 24)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 24)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (76,1) (FunLhs (Ident "showFlatRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "name" 26))]))]) (SimpleRhs (77,3) (InfixApply (Literal (String " (External ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "name" 26)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (79,1) (Ident "showFlatTypeExpr" 0) [(Equation (79,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "t1" 28)),(VariablePattern (Ident "t2" 28))]))]) (SimpleRhs (80,3) (InfixApply (Literal (String "(FuncType ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t1" 28)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t2" 28)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) [])),(Equation (81,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tc" 30)),(VariablePattern (Ident "ts" 30))]))]) (SimpleRhs (82,3) (InfixApply (Literal (String "(TCons ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "tc" 30)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "ts" 30)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (84,1) (FunLhs (Ident "showFlatTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 32))]))]) (SimpleRhs (84,29) (InfixApply (Literal (String "(TVar ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 32)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (87,1) (Ident "showFlatCombType" 0) [(Equation (87,1) (FunLhs (Ident "showFlatCombType" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)) [])]) (SimpleRhs (87,29) (Literal (String "FuncCall")) [])),(Equation (88,1) (FunLhs (Ident "showFlatCombType" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) [])]) (SimpleRhs (88,29) (Literal (String "ConsCall")) [])),(Equation (89,1) (FunLhs (Ident "showFlatCombType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0)) [(VariablePattern (Ident "n" 38))]))]) (SimpleRhs (89,37) (InfixApply (Literal (String "(FuncPartCall ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 38)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (90,1) (FunLhs (Ident "showFlatCombType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0)) [(VariablePattern (Ident "n" 40))]))]) (SimpleRhs (90,37) (InfixApply (Literal (String "(ConsPartCall ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 40)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(FunctionDecl (92,1) (Ident "showFlatExpr" 0) [(Equation (92,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 42))]))]) (SimpleRhs (92,24) (InfixApply (Literal (String "(Var ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 42)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (93,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 44))]))]) (SimpleRhs (93,24) (InfixApply (Literal (String "(Lit ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatLit" 0))) (Variable (QualIdent Nothing (Ident "l" 44)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (94,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ctype" 46)),(VariablePattern (Ident "cf" 46)),(VariablePattern (Ident "es" 46))]))]) (SimpleRhs (95,3) (InfixApply (Literal (String "(Comb ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatCombType" 0))) (Variable (QualIdent Nothing (Ident "ctype" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "cf" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 46)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))) [])),(Equation (97,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bindings" 48)),(VariablePattern (Ident "exp" 48))]))]) (SimpleRhs (98,3) (InfixApply (Literal (String "(Let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent Nothing (Ident "showFlatBinding" 49)))) (Variable (QualIdent Nothing (Ident "bindings" 48)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "exp" 48)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [(TypeSig (100,4) [(Ident "showFlatBinding" 49)] (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))),(FunctionDecl (101,4) (Ident "showFlatBinding" 49) [(Equation (101,4) (FunLhs (Ident "showFlatBinding" 49) [(TuplePattern [(VariablePattern (Ident "x" 50)),(VariablePattern (Ident "e" 50))])]) (SimpleRhs (101,28) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "x" 50)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 50)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) []))])])),(Equation (102,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "xs" 52)),(VariablePattern (Ident "e" 52))]))]) (SimpleRhs (103,3) (InfixApply (Literal (String "(Free ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "xs" 52)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 52)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (104,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 54)),(VariablePattern (Ident "e2" 54))]))]) (SimpleRhs (105,3) (InfixApply (Literal (String "(Or ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e1" 54)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e2" 54)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) [])),(Equation (106,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)) []),(VariablePattern (Ident "e" 56)),(VariablePattern (Ident "bs" 56))]))]) (SimpleRhs (107,3) (InfixApply (Literal (String "(Case Rigid ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 56)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatBranch" 0)))) (Variable (QualIdent Nothing (Ident "bs" 56)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (108,1) (FunLhs (Ident "showFlatExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Flex" 0)) []),(VariablePattern (Ident "e" 58)),(VariablePattern (Ident "bs" 58))]))]) (SimpleRhs (109,3) (InfixApply (Literal (String "(Case Flex ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 58)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatBranch" 0)))) (Variable (QualIdent Nothing (Ident "bs" 58)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) []))])+,(FunctionDecl (111,1) (Ident "showFlatLit" 0) [(Equation (111,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "i" 60))]))]) (SimpleRhs (111,26) (InfixApply (Literal (String "(Intc ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 60)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (112,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "f" 62))]))]) (SimpleRhs (112,26) (InfixApply (Literal (String "(Floatc ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 62)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) [])),(Equation (113,1) (FunLhs (Ident "showFlatLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 64))]))]) (SimpleRhs (114,2) (IfThenElse (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 64)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">=" 0))) (Literal (Int (Ident "_" 66) 32))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 64)))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 67) 127)))) (InfixApply (Literal (String "(Charc '")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (List [(Variable (QualIdent Nothing (Ident "c" 64)))]) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "')")))) (InfixApply (Literal (String "(Charc (chr ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 64)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "))"))))) []))])+,(FunctionDecl (118,1) (Ident "showFlatBranch" 0) [(Equation (118,1) (FunLhs (Ident "showFlatBranch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "p" 68)),(VariablePattern (Ident "e" 68))]))]) (SimpleRhs (118,31) (InfixApply (Literal (String "(Branch ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatPattern" 0))) (Variable (QualIdent Nothing (Ident "p" 68)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 68)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) []))])+,(FunctionDecl (121,1) (Ident "showFlatPattern" 0) [(Equation (121,1) (FunLhs (Ident "showFlatPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "qn" 70)),(VariablePattern (Ident "xs" 70))]))]) (SimpleRhs (122,7) (InfixApply (Literal (String "(Pattern ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "qn" 70)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatList" 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0)))) (Variable (QualIdent Nothing (Ident "xs" 70)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))) [])),(Equation (124,1) (FunLhs (Ident "showFlatPattern" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "lit" 72))]))]) (SimpleRhs (124,34) (InfixApply (Literal (String "(LPattern ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatLit" 0))) (Variable (QualIdent Nothing (Ident "lit" 72)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) []))])+,(TypeSig (128,1) [(Ident "showFlatList" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (129,1) (Ident "showFlatList" 0) [(Equation (129,1) (FunLhs (Ident "showFlatList" 0) [(VariablePattern (Ident "format" 74)),(VariablePattern (Ident "elems" 74))]) (SimpleRhs (129,29) (InfixApply (Literal (String " [")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showFlatListElems" 0))) (Variable (QualIdent Nothing (Ident "format" 74)))) (Variable (QualIdent Nothing (Ident "elems" 74)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "] ")))) []))])+,(TypeSig (131,1) [(Ident "showFlatListElems" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (132,1) (Ident "showFlatListElems" 0) [(Equation (132,1) (FunLhs (Ident "showFlatListElems" 0) [(VariablePattern (Ident "format" 76)),(VariablePattern (Ident "elems" 76))]) (SimpleRhs (132,34) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "format" 76)))) (Variable (QualIdent Nothing (Ident "elems" 76)))))))) []))])+,(TypeSig (144,1) [(Ident "showCurryType" 0)] (ArrowType (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (146,1) (Ident "showCurryType" 0) [(Equation (146,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "_" 79)),(VariablePattern (Ident "_" 80)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "i" 78))]))]) (SimpleRhs (146,30) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "i" 78))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 82) 5))) (List [(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (Literal (Int (Ident "_" 83) 97)) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Variable (QualIdent Nothing (Ident "i" 78))))))]) (InfixApply (Literal (Char 't')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 78)))))) [])),(Equation (147,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "tf" 84)),(VariablePattern (Ident "nested" 84)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "t1" 84)),(VariablePattern (Ident "t2" 84))]))]) (SimpleRhs (148,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 84)))) (Paren (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 84)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isFuncType" 0))) (Variable (QualIdent Nothing (Ident "t1" 84)))))) (Variable (QualIdent Nothing (Ident "t1" 84)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 84)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "t2" 84)))))))) [])),(Equation (151,1) (FunLhs (Ident "showCurryType" 0) [(VariablePattern (Ident "tf" 86)),(VariablePattern (Ident "nested" 86)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tc" 86)),(VariablePattern (Ident "ts" 86))]))]) (GuardedRhs [(CondExpr (152,2) (InfixApply (Variable (QualIdent Nothing (Ident "ts" 86))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Apply (Variable (QualIdent Nothing (Ident "tf" 86))) (Variable (QualIdent Nothing (Ident "tc" 86))))),(CondExpr (153,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "tc" 86))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 86)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "Char"))])) (List []))))) (Literal (String "String"))),(CondExpr (155,2) (InfixApply (Variable (QualIdent Nothing (Ident "tc" 86))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "[]"))])) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 86)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 86)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]"))))),(CondExpr (157,2) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 88) 2))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "tc" 86)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 86)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "ts" 86)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (159,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 86)))) (Paren (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 86))) (Variable (QualIdent Nothing (Ident "tc" 86)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Lambda [(VariablePattern (Ident "t" 89))] (InfixApply (Literal (Char ' ')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryType" 0))) (Variable (QualIdent Nothing (Ident "tf" 86)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "t" 89)))))))) (Variable (QualIdent Nothing (Ident "ts" 86))))))))] []))])+,(FunctionDecl (163,1) (Ident "isFuncType" 0) [(Equation (163,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "_" 91))]))]) (SimpleRhs (163,29) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (164,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "_" 94)),(VariablePattern (Ident "_" 95))]))]) (SimpleRhs (164,29) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (165,1) (FunLhs (Ident "isFuncType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "_" 98)),(VariablePattern (Ident "_" 99))]))]) (SimpleRhs (165,27) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(TypeSig (178,1) [(Ident "showCurryExpr" 0)] (ArrowType (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))))+,(FunctionDecl (180,1) (Ident "showCurryExpr" 0) [(Equation (180,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "_" 102)),(VariablePattern (Ident "_" 103)),(VariablePattern (Ident "_" 104)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 101))]))]) (SimpleRhs (180,31) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "n" 101)))) [])),(Equation (182,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "_" 107)),(VariablePattern (Ident "_" 108)),(VariablePattern (Ident "_" 109)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 106))]))]) (SimpleRhs (182,31) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryLit" 0))) (Variable (QualIdent Nothing (Ident "l" 106)))) [])),(Equation (184,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 111)),(VariablePattern (Ident "_" 112)),(VariablePattern (Ident "_" 113)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 114)),(VariablePattern (Ident "cf" 111)),(ListPattern [])]))]) (SimpleRhs (184,39) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 111))) (Variable (QualIdent Nothing (Ident "cf" 111)))))) [])),(Equation (185,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 116)),(VariablePattern (Ident "nested" 116)),(VariablePattern (Ident "b" 116)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 117)),(VariablePattern (Ident "cf" 116)),(ListPattern [(VariablePattern (Ident "e" 116))])]))]) (SimpleRhs (186,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 116)))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 116))) (Variable (QualIdent Nothing (Ident "cf" 116)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 116)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 116)))) (Variable (QualIdent Nothing (Ident "e" 116)))))))) [])),(Equation (188,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 119)),(VariablePattern (Ident "nested" 119)),(VariablePattern (Ident "b" 119)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 119)),(VariablePattern (Ident "cf" 119)),(ListPattern [(VariablePattern (Ident "e1" 119)),(VariablePattern (Ident "e2" 119))])]))]) (GuardedRhs [(CondExpr (189,2) (InfixApply (Variable (QualIdent Nothing (Ident "cf" 119))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "apply"))])) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 119)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e1" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e2" 119))))))))),(CondExpr (192,2) (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 119)))))))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 119)))) (Paren (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 119))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))))) (List [(Variable (QualIdent Nothing (Ident "e1" 119))),(Variable (QualIdent Nothing (Ident "e2" 119)))]))))))),(CondExpr (195,2) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isFiniteList" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 119)))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (List [(Variable (QualIdent Nothing (Ident "e1" 119))),(Variable (QualIdent Nothing (Ident "e2" 119)))])))) (IfThenElse (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isStringConstant" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 119)))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (List [(Variable (QualIdent Nothing (Ident "e1" 119))),(Variable (QualIdent Nothing (Ident "e2" 119)))])))) (InfixApply (Literal (String "\"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryStringConstant" 0))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 119)))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (List [(Variable (QualIdent Nothing (Ident "e1" 119))),(Variable (QualIdent Nothing (Ident "e2" 119)))])))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\"")))) (InfixApply (Literal (String "[")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryFiniteList" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 119)))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (List [(Variable (QualIdent Nothing (Ident "e1" 119))),(Variable (QualIdent Nothing (Ident "e2" 119)))])))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "]")))))),(CondExpr (201,2) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,)"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e1" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e2" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))))),(CondExpr (204,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 119)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e1" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent Nothing (Ident "tf" 119))) (Variable (QualIdent Nothing (Ident "cf" 119)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 119)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 119)))) (Variable (QualIdent Nothing (Ident "e2" 119)))))))))))] [])),(Equation (208,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 121)),(VariablePattern (Ident "nested" 121)),(VariablePattern (Ident "b" 121)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 122)),(VariablePattern (Ident "cf" 121)),(ParenPattern (InfixPattern (VariablePattern (Ident "e1" 121)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "e2" 121)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "e3" 121)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "es" 121))))))]))]) (GuardedRhs [(CondExpr (209,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "cf" 121))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "if_then_else"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "es" 121))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List []))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 121)))) (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 121)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " if ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 121)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 121))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 124) 2))))) (Variable (QualIdent Nothing (Ident "e1" 121)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 121)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " then ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 121)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 121))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 125) 2))))) (Variable (QualIdent Nothing (Ident "e2" 121)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 121)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " else ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 121)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 121))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 126) 2))))) (Variable (QualIdent Nothing (Ident "e3" 121)))))))))))))))))),(CondExpr (215,2) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 127) 2))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "cf" 121)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 121)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 121)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "e1" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e2" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e3" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "es" 121)))))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))),(CondExpr (219,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 121)))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryId" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 121))) (Variable (QualIdent Nothing (Ident "cf" 121)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 121)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 121)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "e1" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e2" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "e3" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "es" 121)))))))))))))] [])),(Equation (224,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 128)),(VariablePattern (Ident "nested" 128)),(VariablePattern (Ident "b" 128)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bindings" 128)),(VariablePattern (Ident "exp" 128))]))]) (SimpleRhs (225,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 128)))) (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 128)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Paren (InfixApply (Literal (String "\n    ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 128))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "x" 130)),(VariablePattern (Ident "e" 130))])] (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x" 130)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " = ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 128)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 128))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 131) 4))))) (Variable (QualIdent Nothing (Ident "e" 130))))))))) (Variable (QualIdent Nothing (Ident "bindings" 128)))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (InfixApply (Literal (String "\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 128)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " in "))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 128)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 128))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 132) 4))))) (Variable (QualIdent Nothing (Ident "exp" 128))))))))))) [])),(Equation (230,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 133)),(VariablePattern (Ident "nested" 133)),(VariablePattern (Ident "b" 133)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(ListPattern []),(VariablePattern (Ident "e" 133))]))]) (SimpleRhs (230,41) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 133)))) (Variable (QualIdent Nothing (Ident "nested" 133)))) (Variable (QualIdent Nothing (Ident "b" 133)))) (Variable (QualIdent Nothing (Ident "e" 133)))) [])),(Equation (232,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 135)),(VariablePattern (Ident "nested" 135)),(VariablePattern (Ident "b" 135)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(ParenPattern (InfixPattern (VariablePattern (Ident "x" 135)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 135)))),(VariablePattern (Ident "e" 135))]))]) (SimpleRhs (233,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 135)))) (Paren (InfixApply (Literal (String "let ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x" 135))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 135)))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " free in ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 135)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 135)))) (Variable (QualIdent Nothing (Ident "e" 135))))))))) [])),(Equation (237,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 137)),(VariablePattern (Ident "nested" 137)),(VariablePattern (Ident "b" 137)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 137)),(VariablePattern (Ident "e2" 137))]))]) (SimpleRhs (238,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 137)))) (Paren (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 137)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 137)))) (Variable (QualIdent Nothing (Ident "e1" 137)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ? ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 137)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 137)))) (Variable (QualIdent Nothing (Ident "e2" 137)))))))) [])),(Equation (241,1) (FunLhs (Ident "showCurryExpr" 0) [(VariablePattern (Ident "tf" 139)),(VariablePattern (Ident "nested" 139)),(VariablePattern (Ident "b" 139)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ctype" 139)),(VariablePattern (Ident "e" 139)),(VariablePattern (Ident "cs" 139))]))]) (SimpleRhs (242,3) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showBracketsIf" 0))) (Variable (QualIdent Nothing (Ident "nested" 139)))) (Paren (InfixApply (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "ctype" 139))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)))) (Literal (String "case ")) (Literal (String "fcase ")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 139)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Variable (QualIdent Nothing (Ident "b" 139)))) (Variable (QualIdent Nothing (Ident "e" 139)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " of\n ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryElems" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryCase" 0))) (Variable (QualIdent Nothing (Ident "tf" 139)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "b" 139))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 141) 2))))))) (Variable (QualIdent Nothing (Ident "cs" 139)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 139)))))))))) []))])+,(FunctionDecl (248,1) (Ident "showCurryVar" 0) [(Equation (248,1) (FunLhs (Ident "showCurryVar" 0) [(VariablePattern (Ident "i" 142))]) (SimpleRhs (248,18) (InfixApply (Literal (String "v")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 142))))) []))])+,(FunctionDecl (251,1) (Ident "showCurryId" 0) [(Equation (251,1) (FunLhs (Ident "showCurryId" 0) [(VariablePattern (Ident "name" 144))]) (GuardedRhs [(CondExpr (251,18) (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "name" 144)))))) (Variable (QualIdent Nothing (Ident "name" 144)))),(CondExpr (252,18) (InfixApply (Variable (QualIdent Nothing (Ident "name" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "[]"))) (Variable (QualIdent Nothing (Ident "name" 144)))),(CondExpr (253,18) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Paren (InfixApply (Literal (Char '(')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "name" 144))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")"))))] []))])+,(FunctionDecl (255,1) (Ident "showCurryLit" 0) [(Equation (255,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "i" 146))]))]) (SimpleRhs (255,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 146)))) [])),(Equation (256,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "f" 148))]))]) (SimpleRhs (256,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 148)))) [])),(Equation (257,1) (FunLhs (Ident "showCurryLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 150))]))]) (SimpleRhs (257,27) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "c" 150)))) []))])+,(FunctionDecl (259,1) (Ident "showCurryCase" 0) [(Equation (259,1) (FunLhs (Ident "showCurryCase" 0) [(VariablePattern (Ident "tf" 152)),(VariablePattern (Ident "b" 152)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "l" 152)),(VariablePattern (Ident "vs" 152))])),(VariablePattern (Ident "e" 152))]))]) (SimpleRhs (260,3) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 152)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Variable (QualIdent Nothing (Ident "showPattern" 153))) (Paren (Apply (Variable (QualIdent Nothing (Ident "tf" 152))) (Variable (QualIdent Nothing (Ident "l" 152)))))) (Variable (QualIdent Nothing (Ident "vs" 152)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 152)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 152)))) (Variable (QualIdent Nothing (Ident "e" 152)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n")))))) [(FunctionDecl (263,4) (Ident "showPattern" 153) [(Equation (263,4) (FunLhs (Ident "showPattern" 153) [(VariablePattern (Ident "c" 154)),(ListPattern [])]) (SimpleRhs (263,23) (Variable (QualIdent Nothing (Ident "c" 154))) [])),(Equation (264,4) (FunLhs (Ident "showPattern" 153) [(VariablePattern (Ident "c" 156)),(ListPattern [(VariablePattern (Ident "x" 156))])]) (SimpleRhs (264,24) (InfixApply (Variable (QualIdent Nothing (Ident "c" 156))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x" 156)))))) [])),(Equation (265,4) (FunLhs (Ident "showPattern" 153) [(VariablePattern (Ident "c" 158)),(ListPattern [(VariablePattern (Ident "x1" 158)),(VariablePattern (Ident "x2" 158))])]) (SimpleRhs (266,6) (IfThenElse (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "c" 158)))))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 158))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 158)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 158)))))))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "c" 158))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,)"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 158)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ",")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 158)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x1" 158)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 158))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0))) (Variable (QualIdent Nothing (Ident "x2" 158)))))))))) [])),(Equation (271,4) (FunLhs (Ident "showPattern" 153) [(VariablePattern (Ident "c" 160)),(ParenPattern (InfixPattern (VariablePattern (Ident "x1" 160)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "x2" 160)) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "x3" 160)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 160))))))]) (SimpleRhs (272,6) (IfThenElse (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 162) 2))) (Variable (QualIdent Nothing (Ident "c" 160)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "(,"))) (InfixApply (Literal (String "(")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String ","))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x1" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x2" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x3" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 160)))))))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 160))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryElems" 0))) (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryVar" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "x1" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x2" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "x3" 160))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xs" 160))))))))))) []))])])),(Equation (276,1) (FunLhs (Ident "showCurryCase" 0) [(VariablePattern (Ident "tf" 163)),(VariablePattern (Ident "b" 163)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "l" 163))])),(VariablePattern (Ident "e" 163))]))]) (SimpleRhs (277,3) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "sceBlanks" 0))) (Variable (QualIdent Nothing (Ident "b" 163)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryLit" 0))) (Variable (QualIdent Nothing (Ident "l" 163)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " -> ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 163)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 163)))) (Variable (QualIdent Nothing (Ident "e" 163)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n"))))))) []))])+,(FunctionDecl (280,1) (Ident "showCurryFiniteList" 0) [(Equation (280,1) (FunLhs (Ident "showCurryFiniteList" 0) [(VariablePattern (Ident "_" 166)),(VariablePattern (Ident "_" 167)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 168)),(TuplePattern [(LiteralPattern (String "prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (280,56) (List []) [])),(Equation (281,1) (FunLhs (Ident "showCurryFiniteList" 0) [(VariablePattern (Ident "tf" 170)),(VariablePattern (Ident "b" 170)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 171)),(TuplePattern [(LiteralPattern (String "prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "e1" 170)),(VariablePattern (Ident "e2" 170))])]))]) (SimpleRhs (282,3) (InfixApply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryExpr" 0))) (Variable (QualIdent Nothing (Ident "tf" 170)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "b" 170)))) (Variable (QualIdent Nothing (Ident "e1" 170)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryFiniteList" 0))) (Variable (QualIdent Nothing (Ident "tf" 170)))) (Variable (QualIdent Nothing (Ident "b" 170)))) (Variable (QualIdent Nothing (Ident "e2" 170))))) []))])+,(FunctionDecl (285,1) (Ident "showCurryStringConstant" 0) [(Equation (285,1) (FunLhs (Ident "showCurryStringConstant" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 174)),(TuplePattern [(LiteralPattern (String "prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]))]) (SimpleRhs (285,56) (List []) [])),(Equation (286,1) (FunLhs (Ident "showCurryStringConstant" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 177)),(TuplePattern [(LiteralPattern (String "prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "e1" 176)),(VariablePattern (Ident "e2" 176))])]))]) (SimpleRhs (287,4) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCharExpr" 0))) (Variable (QualIdent Nothing (Ident "e1" 176)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "showCurryStringConstant" 0))) (Variable (QualIdent Nothing (Ident "e2" 176))))) []))])+,(FunctionDecl (289,1) (Ident "showCharExpr" 0) [(Equation (289,1) (FunLhs (Ident "showCharExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 179))]))]))]) (GuardedRhs [(CondExpr (290,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 179))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (Literal (String "\\\""))),(CondExpr (291,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 179))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\''))) (Literal (String "\\'"))),(CondExpr (292,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 179))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\n'))) (Literal (String "\\n"))),(CondExpr (293,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 180))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 182) 32))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "o" 180))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Literal (Int (Ident "_" 183) 126)))) (List [(Literal (Char '\\')),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 180))) (InfixOp (QualIdent (Just "Prelude") (Ident "div" 0))) (Literal (Int (Ident "_" 184) 100))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 185) 48))))),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (Paren (InfixApply (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "o" 180))) (InfixOp (QualIdent (Just "Prelude") (Ident "mod" 0))) (Literal (Int (Ident "_" 186) 100)))) (InfixOp (QualIdent (Just "Prelude") (Ident "div" 0))) (Literal (Int (Ident "_" 187) 10))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 188) 48)))))),(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "o" 180))) (InfixOp (QualIdent (Just "Prelude") (Ident "mod" 0))) (Literal (Int (Ident "_" 189) 10))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 190) 48)))))])),(CondExpr (295,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 179)))]))] [(PatternDecl (297,4) (VariablePattern (Ident "o" 180)) (SimpleRhs (297,8) (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 179)))) []))]))])+,(TypeSig (299,1) [(Ident "showCurryElems" 0)] (ArrowType (ArrowType (VariableType (Ident "a" 0)) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ListType (VariableType (Ident "a" 0))) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (300,1) (Ident "showCurryElems" 0) [(Equation (300,1) (FunLhs (Ident "showCurryElems" 0) [(VariablePattern (Ident "format" 191)),(VariablePattern (Ident "elems" 191))]) (SimpleRhs (301,4) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String " "))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "format" 191)))) (Variable (QualIdent Nothing (Ident "elems" 191)))))))) []))])+,(FunctionDecl (303,1) (Ident "showBracketsIf" 0) [(Equation (303,1) (FunLhs (Ident "showBracketsIf" 0) [(VariablePattern (Ident "nested" 193)),(VariablePattern (Ident "s" 193))]) (SimpleRhs (303,27) (IfThenElse (Variable (QualIdent Nothing (Ident "nested" 193))) (InfixApply (Literal (Char '(')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "s" 193))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ")")))) (Variable (QualIdent Nothing (Ident "s" 193)))) []))])+,(FunctionDecl (305,1) (Ident "sceBlanks" 0) [(Equation (305,1) (FunLhs (Ident "sceBlanks" 0) [(VariablePattern (Ident "b" 195))]) (SimpleRhs (305,15) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Variable (QualIdent Nothing (Ident "b" 195)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "repeat" 0))) (Literal (Char ' '))))) []))])+,(TypeSig (308,1) [(Ident "isFiniteList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (309,1) (Ident "isFiniteList" 0) [(Equation (309,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 198))]))]) (SimpleRhs (309,24) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (310,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 201))]))]) (SimpleRhs (310,24) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (311,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 204)),(VariablePattern (Ident "name" 203)),(VariablePattern (Ident "args" 203))]))]) (GuardedRhs [(CondExpr (312,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 203))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "args" 203))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List []))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))),(CondExpr (313,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 203))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String ":"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 203)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 206) 2)))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isFiniteList" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 203))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 207) 1)))))),(CondExpr (314,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))))] [])),(Equation (315,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "_" 209)),(VariablePattern (Ident "_" 210))]))]) (SimpleRhs (315,26) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (316,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 213)),(VariablePattern (Ident "_" 214))]))]) (SimpleRhs (316,27) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (317,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "_" 217)),(VariablePattern (Ident "_" 218))]))]) (SimpleRhs (317,25) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (318,1) (FunLhs (Ident "isFiniteList" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "_" 221)),(VariablePattern (Ident "_" 222)),(VariablePattern (Ident "_" 223))]))]) (SimpleRhs (318,29) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(TypeSig (321,1) [(Ident "isStringConstant" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (322,1) (Ident "isStringConstant" 0) [(Equation (322,1) (FunLhs (Ident "isStringConstant" 0) [(VariablePattern (Ident "e" 225))]) (SimpleRhs (322,22) (Case (Variable (QualIdent Nothing (Ident "e" 225))) [(Alt (323,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 228)),(VariablePattern (Ident "name" 227)),(VariablePattern (Ident "args" 227))]) (SimpleRhs (323,23) (InfixApply (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 227))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "args" 227)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 227))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Literal (String "prelude")),(Literal (String ":"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 227)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 230) 2))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isCharConstant" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 227)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "FlatCurryTools") (Ident "isStringConstant" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 227))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 231) 1)))))))))) [])),(Alt (326,3) (VariablePattern (Ident "_" 233)) (SimpleRhs (326,23) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+,(TypeSig (329,1) [(Ident "isCharConstant" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (330,1) (Ident "isCharConstant" 0) [(Equation (330,1) (FunLhs (Ident "isCharConstant" 0) [(VariablePattern (Ident "e" 235))]) (SimpleRhs (330,20) (Case (Variable (QualIdent Nothing (Ident "e" 235))) [(Alt (331,3) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "_" 238))]))]) (SimpleRhs (331,20) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Alt (332,3) (VariablePattern (Ident "_" 241)) (SimpleRhs (332,20) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))]) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurryTools.efc view
@@ -0,0 +1,1 @@+Prog "FlatCurryTools" ["Char","FlatCurry","List","Prelude"] [] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatListElems")) [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","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatListElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatType")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatListElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatFunc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatOp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatVisibility")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatFixity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatOp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatFixity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatType")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatCons")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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,"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") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatFunc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatVisibility")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatRule")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatRule")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),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","Rule") []))),"FlatCurry","Rule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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") []]),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (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,"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)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'V'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatCombType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CombType")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'V'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatCombType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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 (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","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr.showFlatBinding.49")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr.showFlatBinding.49")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 2),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'I'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Case  Rigid (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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))],Lit (Intc  32)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))],Lit (Intc  127)]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatBranch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'B'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatPattern")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatPattern")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [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))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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","Char") []]))),"FlatCurryTools","showFlatList")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showFlatLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatList")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatListElems")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showFlatListElems")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  5)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Lit (Intc  97),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) [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","Char") []])),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isFuncType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),6))]]]]),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") []]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","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","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","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") []]]),7))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","head")) [Var ((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","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),7))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","concatMap")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryType._#lambda2")) [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","Char") []])),1))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),8))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryType._#lambda2")) 2 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2)] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryType")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isFuncType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (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","Bool") []),"Prelude","False")) []),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") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),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") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6)]) (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),4))) [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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6))]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),9))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryId")) [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","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","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","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") []]]),8))]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),11))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryId")) [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","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","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","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") []]]),8))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))]]]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),13))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),8)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isFiniteList")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isStringConstant")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryStringConstant")) [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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryTools","showCurryFiniteList")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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") []),7)),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)),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") []),10)),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") []),12)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","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","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","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") []]]),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15)]) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '_'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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))]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15))]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryId")) [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","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","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","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") []]]),8))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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") []),10)),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") []),12)),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") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),15))]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])]),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") []]]),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],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","Char") []])) (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","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryExpr._#lambda3")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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","Char") []])),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16))]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  4)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))]]]]]]]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),18))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []) (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),19))]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),20),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),21)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (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") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [],Comb ConsCall ((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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),20)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),21))]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),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") []),22),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),22))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23))]]]]),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") []),24),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),26)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),24)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryElems")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryCase")) [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","Char") []])),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Lit (Intc  2)]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),26))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]]]]]])])),Func ((Nothing,Just (FuncType (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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryExpr._#lambda3")) 3 Private (FuncType (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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (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","Char") []])),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 2),4))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  4)],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]]])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) 1 Public (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TVar 0),1)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryId")) 1 Public (FuncType (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","Char") []]),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"FlatCurryTools","showCurryCase")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),4))) [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") []]]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (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","Char") []]))),"FlatCurryTools","showCurryCase.showPattern.153")) [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","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","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","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") []]]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),7))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),8))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryCase.showPattern.153")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (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","[]") [TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),3))]]]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),5))]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),5))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),3))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [Var ((Just (TVar 0),5))]]]]])])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),8)]) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),3)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),5)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),8))]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryElems")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryVar")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),3)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),5)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryTools","showCurryFiniteList")) 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","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])))) (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","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))) [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)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),(Just (TVar 6),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 50) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 49) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 47) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 46) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 45) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 21),22))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 26),26))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 27),6))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 32),24))) [Branch (Pattern ((Nothing,Just (TVar 32),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 35),30))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))))),"FlatCurryTools","showCurryExpr")) [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","Char") []])),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),27))],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","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"FlatCurryTools","showCurryFiniteList")) [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","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),29))]])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryStringConstant")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TVar 6),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 50) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 50]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 49) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 49]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 48]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 47) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 47]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 46) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 46]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 45) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 45]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 21),20))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  '[')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  ']')) (Case  Flex (Var ((Just (TVar 26),24))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 27),4))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var ((Just (TVar 32),22))) [Branch (Pattern ((Nothing,Just (TVar 32),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TVar 35),28))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCharExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCurryStringConstant")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),27))]])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","showCharExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (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","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '\n')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  32)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  126)]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","div")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  100)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","div")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","mod")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  100)],Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","mod")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])]))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showCurryElems")) 2 Private (FuncType (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"FlatCurryTools","showBracketsIf")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryTools","sceBlanks")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","repeat")) [Lit (Charc  ' ')]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isFiniteList")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (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)]) (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") []),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)]) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))],Lit (Intc  2)]]) [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","Bool") [])),"FlatCurryTools","isFiniteList")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)),Lit (Intc  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","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","failed")) [])])])]),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") [])),"FlatCurryTools","isStringConstant")) 1 Private (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 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,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))]],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,"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","Bool") []))),"Prelude","==")) [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 ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))],Lit (Intc  2)],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") [])),"FlatCurryTools","isCharConstant")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FlatCurryTools","isStringConstant")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4)),Lit (Intc  1)]]]]]]),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") [])),"FlatCurryTools","isCharConstant")) 1 Private (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)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),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","Literal") [])),"FlatCurry","Intc")) [(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,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),5)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),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")) []),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") []),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),18)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryTools.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurryTools" ["Char","FlatCurry","List","Prelude"] [] [Func ("FlatCurryTools","showFlatProg") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatListElems") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]])],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatListElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatType") [],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]])],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatListElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatFunc") [],Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatOp") [],Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])])),Func ("FlatCurryTools","showFlatVisibility") 1 Private (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Public") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","Private") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]])])),Func ("FlatCurryTools","showFlatFixity") 1 Private (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]),Branch (Pattern ("FlatCurry","InfixlOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]),Branch (Pattern ("FlatCurry","InfixrOp") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])])),Func ("FlatCurryTools","showFlatOp") 1 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Op") [2,3,4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatFixity") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])])),Func ("FlatCurryTools","showFlatType") 1 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Type") [2,3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatVisibility") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatCons") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("FlatCurry","TypeSyn") [6,7,8,9]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 6],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatVisibility") [Var 7],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 8],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatTypeExpr") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("FlatCurryTools","showFlatCons") 1 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Cons") [2,3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatVisibility") [Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatTypeExpr") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]])])),Func ("FlatCurryTools","showFlatFunc") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatVisibility") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatTypeExpr") [Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatRule") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]])])),Func ("FlatCurryTools","showFlatRule") 1 Private (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Rule") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","External") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryTools","showFlatTypeExpr") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncType") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatTypeExpr") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatTypeExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatTypeExpr") [],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","TVar") [6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'V'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryTools","showFlatCombType") 1 Private (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("FlatCurry","FuncPartCall") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","ConsPartCall") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryTools","showFlatExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'V'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatLit") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatCombType") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 5],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatExpr") [],Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatExpr.showFlatBinding.49") [],Var 7],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 9],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 10],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 11],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Case  Flex (Var 13) [Branch (Pattern ("FlatCurry","Rigid") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 14],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatBranch") [],Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Flex") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 14],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("FlatCurryTools","showFlatBranch") [],Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]])])])),Func ("FlatCurryTools","showFlatExpr.showFlatBinding.49") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])])),Func ("FlatCurryTools","showFlatLit") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'I'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Charc") [4]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 4],Lit (Intc  32)],Comb FuncCall ("Prelude","<") [Comb FuncCall ("Prelude","ord") [Var 4],Lit (Intc  127)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 4]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]])])])),Func ("FlatCurryTools","showFlatBranch") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'B'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatPattern") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatExpr") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]])])),Func ("FlatCurryTools","showFlatPattern") 1 Private (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Pattern") [2,3]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatList") [Comb (FuncPartCall 1) ("Prelude","show") [],Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","LPattern") [4]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatLit") [Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryTools","showFlatList") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showFlatListElems") [Var 1,Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]])),Func ("FlatCurryTools","showFlatListElems") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Var 1,Var 2]]])),Func ("FlatCurryTools","showCurryType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","TVar") [4]) (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 4,Lit (Intc  5)]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Lit (Intc  97),Var 4]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb FuncCall ("Prelude","show") [Var 4]])]),Branch (Pattern ("FlatCurry","FuncType") [5,6]) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryType") [Var 1,Comb FuncCall ("FlatCurryTools","isFuncType") [Var 5],Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("FlatCurryTools","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") [],Var 6]]]]),Branch (Pattern ("FlatCurry","TCons") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 8],Comb ConsCall ("FlatCurry","TCons") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","head") [Var 8]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Comb FuncCall ("Prelude","snd") [Var 7]],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryType") [Var 1,Comb ConsCall ("Prelude","False") []],Var 8]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 7],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryType._#lambda2") [Var 1]],Var 8]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])),Func ("FlatCurryTools","showCurryType._#lambda2") 2 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb FuncCall ("FlatCurryTools","showCurryType") [Var 1,Comb ConsCall ("Prelude","True") [],Var 2]])),Func ("FlatCurryTools","isFuncType") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","TVar") [2]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryTools","showCurryExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [1,2,3,4] (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 5]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("FlatCurryTools","showCurryLit") [Var 6]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryTools","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]]),Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10]]]]),Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 12]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Comb FuncCall ("Prelude","snd") [Var 8]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("FlatCurryTools","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("FlatCurryTools","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryFiniteList") [Var 1,Var 3,Comb ConsCall ("FlatCurry","Comb") [Var 7,Var 8,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","snd") [Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 12]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])]),Branch (Pattern ("Prelude",":") [14,15]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '_'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("Prelude","==") [Var 15,Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 10],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 12],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)],Var 14]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Comb FuncCall ("Prelude","snd") [Var 8]],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 14,Var 15]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryId") [Comb FuncCall ("Prelude","apply") [Var 1,Var 8]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3],Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 14,Var 15]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])]),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryExpr._#lambda3") [Var 3,Var 1],Var 16]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  4)],Var 17]]]]]]]),Branch (Pattern ("FlatCurry","Free") [18,19]) (Case  Flex (Var 18) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Var 2,Var 3,Var 19]),Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 20,Var 21]]]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 3,Var 19]]]]])]),Branch (Pattern ("FlatCurry","Or") [22,23]) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 22],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 23]]]]),Branch (Pattern ("FlatCurry","Case") [24,25,26]) (Comb FuncCall ("FlatCurryTools","showBracketsIf") [Var 2,Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 24,Comb ConsCall ("FlatCurry","Rigid") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]])],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","True") [],Var 3,Var 25],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryCase") [Var 1,Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  2)]],Var 26],Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 3]]]]]])])),Func ("FlatCurryTools","showCurryExpr._#lambda3") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  4)],Var 5]]])])),Func ("FlatCurryTools","showCurryVar") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","show") [Var 1]])),Func ("FlatCurryTools","showCurryId") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Var 1]]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("FlatCurryTools","showCurryLit") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("Prelude","show") [Var 2]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("Prelude","show") [Var 3]),Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("Prelude","show") [Var 4])])),Func ("FlatCurryTools","showCurryCase") 3 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","Pattern") [6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryCase.showPattern.153") [Comb FuncCall ("Prelude","apply") [Var 1,Var 6],Var 7],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("FlatCurry","LPattern") [8]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","sceBlanks") [Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryLit") [Var 8],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]])])])),Func ("FlatCurryTools","showCurryCase.showPattern.153") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Var 1),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 3]]]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Comb FuncCall ("Prelude","head") [Var 1]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 5]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 3],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryVar") [Var 5]]]]])])]),Branch (Pattern ("Prelude",":") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 7,Var 8]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryTools","showCurryElems") [Comb (FuncPartCall 1) ("FlatCurryTools","showCurryVar") [],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 7,Var 8]]]]]])])])])])),Func ("FlatCurryTools","showCurryFiniteList") 3 Private (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  '[')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryTools","showCurryExpr") [Var 1,Comb ConsCall ("Prelude","False") [],Var 2,Var 27],Comb FuncCall ("FlatCurryTools","showCurryFiniteList") [Var 1,Var 2,Var 29]])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryTools","showCurryStringConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  '[')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  ']')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") [])])])])]),Branch (LPattern (Charc  ':')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryTools","showCharExpr") [Var 25],Comb FuncCall ("FlatCurryTools","showCurryStringConstant") [Var 27]])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryTools","showCharExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Charc") [3]) (Let [(4,Comb FuncCall ("Prelude","ord") [Var 3])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","<") [Var 4,Lit (Intc  32)],Comb FuncCall ("Prelude",">") [Var 4,Lit (Intc  126)]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","div") [Var 4,Lit (Intc  100)],Lit (Intc  48)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","div") [Comb FuncCall ("Prelude","mod") [Var 4,Lit (Intc  100)],Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","mod") [Var 4,Lit (Intc  10)],Lit (Intc  48)]],Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])]))])])),Func ("FlatCurryTools","showCurryElems") 2 Private (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Var 1,Var 2]]])),Func ("FlatCurryTools","showBracketsIf") 2 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Var 2)])),Func ("FlatCurryTools","sceBlanks") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","take") [Var 1,Comb FuncCall ("Prelude","repeat") [Lit (Charc  ' ')]])),Func ("FlatCurryTools","isFiniteList") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","==") [Var 6,Comb ConsCall ("Prelude","[]") []]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 6],Lit (Intc  2)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FlatCurryTools","isFiniteList") [Comb FuncCall ("Prelude","!!") [Var 6,Lit (Intc  1)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryTools","isStringConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","null") [Var 4]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 4],Lit (Intc  2)],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryTools","isCharConstant") [Comb FuncCall ("Prelude","head") [Var 4]],Comb FuncCall ("FlatCurryTools","isStringConstant") [Comb FuncCall ("Prelude","!!") [Var 4,Lit (Intc  1)]]]]]]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("Prelude","False") [])])),Func ("FlatCurryTools","isCharConstant") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Lit") [2]) (Case  Rigid (Var 2) [Branch (Pattern ("FlatCurry","Charc") [3]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("FlatCurry","Intc") [4]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Floatc") [5]) (Comb ConsCall ("Prelude","False") [])]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb ConsCall ("Prelude","False") [])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryTools.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurryTools" ["Char","FlatCurry","List","Prelude"] [] [Func ("FlatCurryTools","showFlatProg") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryTools","showFlatType") 1 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryTools","showFlatFunc") 1 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryTools","showCurryType") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [] (Var 0)),Func ("FlatCurryTools","showCurryExpr") 4 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [] (Var 0)),Func ("FlatCurryTools","showCurryVar") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("FlatCurryTools","showCurryId") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurryTools.uacy view
@@ -0,0 +1,36 @@+CurryProg "FlatCurryTools"+ ["Prelude","FlatCurry","List","Char"]+ []+ [CFunc ("FlatCurryTools","isCharConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"_")]]) (CSymbol ("Prelude","True")),CBranch (CPVar (2,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryTools","isFiniteList") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"name"),CPVar (4,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (4,"args"))) (CSymbol ("Prelude","[]"))),CSymbol ("Prelude","True")),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (4,"args")))) (CLit (CIntc 2))),CApply (CSymbol ("FlatCurryTools","isFiniteList")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (4,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"_"),CPVar (10,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"_"),CPVar (12,"_"),CPVar (13,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryTools","isFuncType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","TVar") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("FlatCurry","FuncType") [CPVar (1,"_"),CPVar (2,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (3,"_"),CPVar (4,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("FlatCurryTools","isStringConstant") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPVar (0,"e")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"e")) [CBranch (CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPVar (2,"name"),CPVar (3,"args")]) (CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","null")) (CVar (3,"args"))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (3,"args")))) (CLit (CIntc 2)))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryTools","isCharConstant")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"args"))))) (CApply (CSymbol ("FlatCurryTools","isStringConstant")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (3,"args"))) (CLit (CIntc 1)))))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","False"))])] []]),+  CFunc ("FlatCurryTools","sceBlanks") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"b")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"b"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("FlatCurryTools","showBracketsIf") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"nested"),CPVar (1,"s")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"nested"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"s"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CVar (1,"s")))] []]),+  CFunc ("FlatCurryTools","showCharExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (0,"c")]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\n')),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))),(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (1,"o"))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude",">")) (CVar (1,"o"))) (CLit (CIntc 126))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","div")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 100)))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CApply (CApply (CSymbol ("Prelude","mod")) (CVar (1,"o"))) (CLit (CIntc 10)))) (CLit (CIntc 48))))) (CSymbol ("Prelude","[]")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))] [CLocalPat (CPVar (1,"o")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))) []]]),+  CFunc ("FlatCurryTools","showCurryCase") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"tf"),CPVar (1,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (2,"l"),CPVar (3,"vs")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (1,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showPattern")) (CApply (CVar (0,"tf")) (CVar (2,"l")))) (CVar (3,"vs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (0,"tf"))) (CSymbol ("Prelude","False"))) (CVar (1,"b"))) (CVar (4,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))] [CLocalFunc (CFunc ("FlatCurryTools","showPattern") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (5,"c"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CVar (5,"c"))] [],CRule [CPVar (6,"c"),CPComb ("Prelude",":") [CPVar (7,"x"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (6,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (7,"x")))))] [],CRule [CPVar (8,"c"),CPComb ("Prelude",":") [CPVar (9,"x1"),CPComb ("Prelude",":") [CPVar (10,"x2"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (8,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (9,"x1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (8,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (10,"x2")))))))))] [],CRule [CPVar (11,"c"),CPComb ("Prelude",":") [CPVar (12,"x1"),CPComb ("Prelude",":") [CPVar (13,"x2"),CPComb ("Prelude",":") [CPVar (14,"x3"),CPVar (15,"xs")]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (11,"c")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (11,"c"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"x1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (13,"x2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (14,"x3"))) (CVar (15,"xs")))))))))] []]))],CRule [CPVar (5,"tf"),CPVar (6,"b"),CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (7,"l")],CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (6,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryLit")) (CVar (7,"l")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (5,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"b"))) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryTools","showCurryElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryTools","showCurryExpr") 4 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","String") []))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPComb ("FlatCurry","Var") [CPVar (3,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (3,"n")))] [],CRule [CPVar (4,"_"),CPVar (5,"_"),CPVar (6,"_"),CPComb ("FlatCurry","Lit") [CPVar (7,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryLit")) (CVar (7,"l")))] [],CRule [CPVar (8,"tf"),CPVar (9,"_"),CPVar (10,"_"),CPComb ("FlatCurry","Comb") [CPVar (11,"_"),CPVar (12,"cf"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (8,"tf")) (CVar (12,"cf"))))] [],CRule [CPVar (13,"tf"),CPVar (14,"nested"),CPVar (15,"b"),CPComb ("FlatCurry","Comb") [CPVar (16,"_"),CPVar (17,"cf"),CPComb ("Prelude",":") [CPVar (18,"e"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (14,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (13,"tf")) (CVar (17,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (13,"tf"))) (CSymbol ("Prelude","True"))) (CVar (15,"b"))) (CVar (18,"e"))))))] [],CRule [CPVar (19,"tf"),CPVar (20,"nested"),CPVar (21,"b"),CPComb ("FlatCurry","Comb") [CPVar (22,"ct"),CPVar (23,"cf"),CPComb ("Prelude",":") [CPVar (24,"e1"),CPComb ("Prelude",":") [CPVar (25,"e2"),CPComb ("Prelude","[]") []]]]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2")))))),(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]")))))))),(CApply (CSymbol ("FlatCurryTools","isFiniteList")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("FlatCurryTools","isStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryStringConstant")) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryFiniteList")) (CVar (19,"tf"))) (CVar (21,"b"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (22,"ct"))) (CVar (23,"cf"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (24,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (25,"e2"))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","snd")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","False"))) (CVar (21,"b"))) (CVar (25,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (20,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (24,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (19,"tf")) (CVar (23,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (19,"tf"))) (CSymbol ("Prelude","True"))) (CVar (21,"b"))) (CVar (25,"e2"))))))))] [],CRule [CPVar (26,"tf"),CPVar (27,"nested"),CPVar (28,"b"),CPComb ("FlatCurry","Comb") [CPVar (29,"_"),CPVar (30,"cf"),CPComb ("Prelude",":") [CPVar (31,"e1"),CPComb ("Prelude",":") [CPVar (32,"e2"),CPComb ("Prelude",":") [CPVar (33,"e3"),CPVar (34,"es")]]]]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (30,"cf"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '_'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (34,"es"))) (CSymbol ("Prelude","[]"))),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (31,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (32,"e2")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (28,"b"))) (CLit (CIntc 2)))) (CVar (33,"e3"))))))))))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","False"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (27,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryId")) (CApply (CVar (26,"tf")) (CVar (30,"cf"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (26,"tf"))) (CSymbol ("Prelude","True"))) (CVar (28,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (31,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (32,"e2"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (33,"e3"))) (CVar (34,"es")))))))))] [],CRule [CPVar (35,"tf"),CPVar (36,"nested"),CPVar (37,"b"),CPComb ("FlatCurry","Let") [CPVar (38,"bindings"),CPVar (39,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (36,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (40,"x"),CPVar (41,"e")]] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCurryVar")) (CVar (40,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (41,"e"))))))) (CVar (38,"bindings")))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (37,"b")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (35,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (37,"b"))) (CLit (CIntc 4)))) (CVar (39,"exp")))))))))] [],CRule [CPVar (42,"tf"),CPVar (43,"nested"),CPVar (44,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude","[]") [],CPVar (45,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (42,"tf"))) (CVar (43,"nested"))) (CVar (44,"b"))) (CVar (45,"e")))] [],CRule [CPVar (46,"tf"),CPVar (47,"nested"),CPVar (48,"b"),CPComb ("FlatCurry","Free") [CPComb ("Prelude",":") [CPVar (49,"x"),CPVar (50,"xs")],CPVar (51,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (47,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryTools","showCurryVar"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (49,"x"))) (CVar (50,"xs"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (46,"tf"))) (CSymbol ("Prelude","False"))) (CVar (48,"b"))) (CVar (51,"e")))))))] [],CRule [CPVar (52,"tf"),CPVar (53,"nested"),CPVar (54,"b"),CPComb ("FlatCurry","Or") [CPVar (55,"e1"),CPVar (56,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (53,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (55,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (52,"tf"))) (CSymbol ("Prelude","True"))) (CVar (54,"b"))) (CVar (56,"e2"))))))] [],CRule [CPVar (57,"tf"),CPVar (58,"nested"),CPVar (59,"b"),CPComb ("FlatCurry","Case") [CPVar (60,"ctype"),CPVar (61,"e"),CPVar (62,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (58,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (60,"ctype"))) (CSymbol ("FlatCurry","Rigid")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (57,"tf"))) (CSymbol ("Prelude","True"))) (CVar (59,"b"))) (CVar (61,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryElems")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryCase")) (CVar (57,"tf"))) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (59,"b"))) (CLit (CIntc 2))))) (CVar (62,"cs")))) (CApply (CSymbol ("FlatCurryTools","sceBlanks")) (CVar (59,"b"))))))))] []]),+  CFunc ("FlatCurryTools","showCurryFiniteList") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPVar (3,"tf"),CPVar (4,"b"),CPComb ("FlatCurry","Comb") [CPVar (5,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (6,"e1"),CPComb ("Prelude",":") [CPVar (7,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryExpr")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (4,"b"))) (CVar (6,"e1")))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryFiniteList")) (CVar (3,"tf"))) (CVar (4,"b"))) (CVar (7,"e2"))))] []]),+  CFunc ("FlatCurryTools","showCurryId") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"name")] [(CApply (CSymbol ("Char","isAlpha")) (CApply (CSymbol ("Prelude","head")) (CVar (0,"name"))),CVar (0,"name")),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))),CVar (0,"name")),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryTools","showCurryLit") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","show")) (CVar (2,"c")))] []]),+  CFunc ("FlatCurryTools","showCurryStringConstant") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (1,"_"),CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (2,"e1"),CPComb ("Prelude",":") [CPVar (3,"e2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showCharExpr")) (CVar (2,"e1")))) (CApply (CSymbol ("FlatCurryTools","showCurryStringConstant")) (CVar (3,"e2"))))] []]),+  CFunc ("FlatCurryTools","showCurryType") 3 Public (CFuncType (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","<")) (CVar (2,"i"))) (CLit (CIntc 5)))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (2,"i"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"i")))))] [],CRule [CPVar (3,"tf"),CPVar (4,"nested"),CPComb ("FlatCurry","FuncType") [CPVar (5,"t1"),CPVar (6,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (4,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (3,"tf"))) (CApply (CSymbol ("FlatCurryTools","isFuncType")) (CVar (5,"t1")))) (CVar (5,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (3,"tf"))) (CSymbol ("Prelude","False"))) (CVar (6,"t2"))))))] [],CRule [CPVar (7,"tf"),CPVar (8,"nested"),CPComb ("FlatCurry","TCons") [CPVar (9,"tc"),CPVar (10,"ts")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (10,"ts"))) (CSymbol ("Prelude","[]")),CApply (CVar (7,"tf")) (CVar (9,"tc"))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts")))) (CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (9,"tc"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (10,"ts"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CApply (CSymbol ("Prelude","snd")) (CVar (9,"tc"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","False")))) (CVar (10,"ts")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("FlatCurryTools","showBracketsIf")) (CVar (8,"nested"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (7,"tf")) (CVar (9,"tc")))) (CApply (CApply (CSymbol ("Prelude","concatMap")) (CLambda [CPVar (11,"t")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CApply (CSymbol ("FlatCurryTools","showCurryType")) (CVar (7,"tf"))) (CSymbol ("Prelude","True"))) (CVar (11,"t")))))) (CVar (10,"ts")))))] []]),+  CFunc ("FlatCurryTools","showCurryVar") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))] []]),+  CFunc ("FlatCurryTools","showFlatBranch") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPVar (0,"p"),CPVar (1,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'B'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatPattern")) (CVar (0,"p")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (1,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatCombType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","ConsCall") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","FuncPartCall") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","ConsPartCall") [CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatCons") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatTypeExpr"))) (CVar (3,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("FlatCurryTools","showFlatExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatLit")) (CVar (1,"l")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"ctype"),CPVar (3,"cf"),CPVar (4,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatCombType")) (CVar (2,"ctype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (3,"cf")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatExpr"))) (CVar (4,"es")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"bindings"),CPVar (6,"exp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBinding"))) (CVar (5,"bindings")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (6,"exp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [CLocalFunc (CFunc ("FlatCurryTools","showFlatBinding") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (7,"x"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (7,"x")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]))],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"xs"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (7,"xs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (8,"e")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (9,"e1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (10,"e2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Rigid") [],CPVar (11,"e"),CPVar (12,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (11,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBranch"))) (CVar (12,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","Case") [CPComb ("FlatCurry","Flex") [],CPVar (13,"e"),CPVar (14,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (13,"e")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatBranch"))) (CVar (14,"bs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatFixity") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatFunc") 1 Public (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (2,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatRule")) (CVar (4,"rl")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatList") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CVar (0,"format"))) (CVar (1,"elems")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("FlatCurryTools","showFlatListElems") 2 Private (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"format"),CPVar (1,"elems")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CVar (0,"format"))) (CVar (1,"elems")))))] []]),+  CFunc ("FlatCurryTools","showFlatLit") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'I'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude",">=")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))) (CLit (CIntc 32)))) (CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))) (CLit (CIntc 127))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryTools","showFlatOp") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatFixity")) (CVar (1,"fix")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] []]),+  CFunc ("FlatCurryTools","showFlatPattern") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Pattern") [CPVar (0,"qn"),CPVar (1,"xs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"qn")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (1,"xs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","LPattern") [CPVar (2,"lit")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatLit")) (CVar (2,"lit")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatProg") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"modname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"imports"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("Prelude","show"))) (CVar (1,"imports")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"types"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("FlatCurryTools","showFlatType"))) (CVar (2,"types")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatListElems")) (CSymbol ("FlatCurryTools","showFlatFunc"))) (CVar (3,"funcs")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatOp"))) (CVar (4,"ops")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))))] []]),+  CFunc ("FlatCurryTools","showFlatRule") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (0,"params")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatExpr")) (CVar (1,"expr")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatType") 1 Public (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (1,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (2,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatCons"))) (CVar (3,"consdecls")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatVisibility")) (CVar (5,"vis")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("Prelude","show"))) (CVar (6,"tpars")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (7,"texp")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryTools","showFlatTypeExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryTools","showFlatTypeExpr")) (CVar (1,"t2")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("FlatCurryTools","showFlatList")) (CSymbol ("FlatCurryTools","showFlatTypeExpr"))) (CVar (3,"ts")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'V'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CVar (4,"n")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryTools","showFlatVisibility") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))))))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryXML.acy view
@@ -0,0 +1,32 @@+CurryProg "FlatCurryXML"+ ["Prelude","FlatCurry","XML","Read"]+ []+ [CFunc ("FlatCurryXML","flatCurry2Xml") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (0,"modname")))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPVar (5,"s")] (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (5,"s")))) (CSymbol ("Prelude","[]")))))) (CVar (1,"imports"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowType"))) (CVar (2,"types"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowFunc"))) (CVar (3,"funcs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowOp"))) (CVar (4,"ops"))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryXML","flatCurry2XmlFile") 2 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"flatprog"),CPVar (1,"filename")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (1,"filename"))) (CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","DtdUrl")) (CSymbol ("FlatCurryXML","flatCurryDtd")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","flatCurry2Xml")) (CVar (0,"flatprog")))))] []]),+  CFunc ("FlatCurryXML","flatCurryDtd") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("FlatCurryXML","flatx2Fixity") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("FlatCurry","Fixity") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixOp"))] [],CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixlOp"))] [],CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixrOp"))] []]),+  CFunc ("FlatCurryXML","flatx2FunBody") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Rule") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPVar (0,"xename")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","External")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xename"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (1,"xvars")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (2,"xrhs"),CPComb ("Prelude","[]") []]],CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Rule")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (1,"xvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (2,"xrhs"))))] []]),+  CFunc ("FlatCurryXML","flatx2branch") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","BranchExpr") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (0,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (1,"cons")],CPComb ("Prelude","[]") []]],CPVar (2,"xvars")],CPComb ("Prelude",":") [CPVar (3,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CApply (CSymbol ("FlatCurry","Pattern")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (1,"cons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (2,"xvars"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (3,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (4,"xlit"),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (5,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CSymbol ("FlatCurry","LPattern")) (CApply (CSymbol ("FlatCurryXML","flatx2lit")) (CVar (4,"xlit"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (5,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]]],CPVar (6,"_"),CPVar (7,"_")],CPComb ("Prelude",":") [CPVar (8,"_"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("FlatCurryXML","flatx2exp") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (0,"xvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Var")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xvar")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"xlit"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Lit")) (CApply (CSymbol ("FlatCurryXML","flatx2lit")) (CVar (1,"xlit"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (2,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (3,"name")],CPComb ("Prelude","[]") []]],CPVar (4,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","FuncCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mod"))) (CVar (3,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (4,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (5,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (6,"name")],CPComb ("Prelude","[]") []]],CPVar (7,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","ConsCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (5,"mod"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (7,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (8,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (9,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPVar (10,"nmiss")],CPComb ("Prelude","[]") []]]],CPVar (11,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CApply (CSymbol ("FlatCurry","FuncPartCall")) (CApply (CSymbol ("Read","readNat")) (CVar (10,"nmiss"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (8,"mod"))) (CVar (9,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (11,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (12,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (13,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPVar (14,"nmiss")],CPComb ("Prelude","[]") []]]],CPVar (15,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CApply (CSymbol ("FlatCurry","ConsPartCall")) (CApply (CSymbol ("Read","readNat")) (CVar (14,"nmiss"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (12,"mod"))) (CVar (13,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (15,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPVar (16,"xvars")],CPComb ("Prelude",":") [CPVar (17,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Free")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (16,"xvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (17,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (18,"xexp1"),CPComb ("Prelude",":") [CPVar (19,"xexp2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Or")) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (18,"xexp1")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (19,"xexp2"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (20,"xexp"),CPVar (21,"xbranches")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Case")) (CSymbol ("FlatCurry","Rigid"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (20,"xexp")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2branch"))) (CVar (21,"xbranches"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (22,"xexp"),CPVar (23,"xbranches")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Case")) (CSymbol ("FlatCurry","Flex"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (22,"xexp")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2branch"))) (CVar (23,"xbranches"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (24,"xbindings")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (25,"bindings"),CPVar (26,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CVar (24,"xbindings"))) []] (CApply (CApply (CSymbol ("FlatCurry","Let")) (CVar (25,"bindings"))) (CVar (26,"exp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (27,"xbindings")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (28,"bindings"),CPVar (29,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CVar (27,"xbindings"))) []] (CApply (CApply (CSymbol ("FlatCurry","Let")) (CVar (28,"bindings"))) (CVar (29,"exp"))))] []]),+  CFunc ("FlatCurryXML","flatx2let") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]],CTCons ("FlatCurry","Expr") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"xexp"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (0,"xexp"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (1,"xvar")],CPComb ("Prelude",":") [CPVar (2,"xexp"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPVar (3,"xb"),CPVar (4,"xbs")]]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (5,"bindings"),CPVar (6,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"xb"))) (CVar (4,"xbs")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (1,"xvar"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (2,"xexp"))))) (CVar (5,"bindings")))) (CVar (6,"exp"))))] []]),+  CFunc ("FlatCurryXML","flatx2lit") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (0,"xintc")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Intc")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xintc")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (2,"xintc")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Charc")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (2,"xintc"))))))] []]),+  CFunc ("FlatCurryXML","flatx2texp") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (0,"xtvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","TVar")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xtvar")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"xtexp1"),CPComb ("Prelude",":") [CPVar (2,"xtexp2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","FuncType")) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (1,"xtexp1")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (2,"xtexp2"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (3,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (4,"tcname")],CPComb ("Prelude","[]") []]],CPVar (5,"xtexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mod"))) (CVar (4,"tcname")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2texp"))) (CVar (5,"xtexps"))))] []]),+  CFunc ("FlatCurryXML","flatx2typedecl") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","TypeDecl") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (0,"tmod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (1,"tname")],CPComb ("Prelude",":") [CPVar (2,"xtvis"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (3,"xtvars")],CPVar (4,"xconstructors")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Type")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"tmod"))) (CVar (1,"tname")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (2,"xtvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (5,"xtvar")]] (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xtvar")))))) (CVar (3,"xtvars")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (6,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (7,"xcn")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPVar (8,"xar")],CPComb ("Prelude",":") [CPVar (9,"xvis"),CPComb ("Prelude","[]") []]]]],CPVar (10,"xtexps")]] (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Cons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (6,"mod"))) (CVar (7,"xcn")))) (CApply (CSymbol ("Read","readNat")) (CVar (8,"xar")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (9,"xvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2texp"))) (CVar (10,"xtexps")))))) (CVar (4,"xconstructors"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (11,"tmod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (12,"tname")],CPComb ("Prelude",":") [CPVar (13,"xtvis"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (14,"xtvars")],CPComb ("Prelude",":") [CPVar (15,"xtexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","TypeSyn")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (11,"tmod"))) (CVar (12,"tname")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (13,"xtvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (16,"xtvar")]] (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (16,"xtvar")))))) (CVar (14,"xtvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (15,"xtexp"))))] []]),+  CFunc ("FlatCurryXML","flatx2var") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","Int") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (0,"xvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xvar"))))] []]),+  CFunc ("FlatCurryXML","qname2xmlattrs") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTVar (0,"a"),CTVar (0,"a")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTVar (0,"a")]])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CVar (0,"mod")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CVar (1,"name")))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xml2FlatCurry") 1 Public (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Prog") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (0,"xmodname")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"ximports")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (2,"xtypes")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (3,"xfunctions")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (4,"xoperators")],CPComb ("Prelude","[]") []]]]]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xmodname")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (5,"xim")]] (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xim"))))) (CVar (1,"ximports")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2typedecl"))) (CVar (2,"xtypes")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (6,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (7,"fname")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPVar (8,"farity")],CPComb ("Prelude",":") [CPVar (9,"xvis"),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPVar (10,"xftype"),CPComb ("Prelude",":") [CPVar (11,"xfbody"),CPComb ("Prelude","[]") []]]]] (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (6,"mod"))) (CVar (7,"fname")))) (CApply (CSymbol ("Read","readNat")) (CVar (8,"farity")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (9,"xvis")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (10,"xftype")))) (CApply (CSymbol ("FlatCurryXML","flatx2FunBody")) (CVar (11,"xfbody")))))) (CVar (3,"xfunctions")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (12,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (13,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]],CPVar (14,"xfix")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPVar (15,"xprec")],CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") []]] (CApply (CApply (CApply (CSymbol ("FlatCurry","Op")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (12,"mod"))) (CVar (13,"name")))) (CApply (CSymbol ("FlatCurryXML","flatx2Fixity")) (CVar (14,"xfix")))) (CApply (CSymbol ("Read","readNat")) (CVar (15,"xprec")))))) (CVar (4,"xoperators"))))] []]),+  CFunc ("FlatCurryXML","xmlFile2FlatCurry") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"xexp")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"filename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("FlatCurryXML","xml2FlatCurry")) (CVar (1,"xexp"))))])] []]),+  CFunc ("FlatCurryXML","xmlShowBranch") 1 Private (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (0,"cons"),CPVar (1,"xs")],CPVar (2,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"cons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (1,"xs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (2,"e")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (3,"lit")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowLit")) (CVar (3,"lit")))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (4,"e")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowCons") 1 Private (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity"))))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (2,"vis")))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTypeExpr"))) (CVar (3,"types"))))] []]),+  CFunc ("FlatCurryXML","xmlShowExpr") 1 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryXML","xmlShowVar")) (CVar (0,"n")))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowLit")) (CVar (1,"l")))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","FuncCall") [],CPVar (2,"cf"),CPVar (3,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (2,"cf")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (3,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPVar (4,"cf"),CPVar (5,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (4,"cf")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (5,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","FuncPartCall") [CPVar (6,"n")],CPVar (7,"cf"),CPVar (8,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (7,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (6,"n"))))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (8,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsPartCall") [CPVar (9,"n")],CPVar (10,"cf"),CPVar (11,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (10,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (9,"n"))))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (11,"es"))))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (12,"xs"),CPVar (13,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (12,"xs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (13,"e")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (14,"e1"),CPVar (15,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (14,"e1")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (15,"e2")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (16,"ctype"),CPVar (17,"e"),CPVar (18,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (16,"ctype"))) (CSymbol ("FlatCurry","Flex")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (17,"e")))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowBranch"))) (CVar (18,"cs")))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (19,"bindings"),CPVar (20,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (21,"i"),CPVar (22,"e")]] (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowVar")) (CVar (21,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (22,"e")))) (CSymbol ("Prelude","[]"))))))) (CVar (19,"bindings")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (20,"expr")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowFunc") 1 Private (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity"))))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (2,"vis")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowRule")) (CVar (4,"rl")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowLit") 1 Private (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f"))))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowOp") 1 Private (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"fix"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec"))))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("FlatCurryXML","xmlShowRule") 1 Private (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (0,"params"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (1,"expr")))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (2,"name")))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowTVar") 1 Private (CFuncType (CTVar (0,"a")) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowType") 1 Private (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (1,"vis"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTVar"))) (CVar (2,"tpars"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowCons"))) (CVar (3,"consdecls")))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (4,"name")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (5,"vis"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTVar"))) (CVar (6,"tpars"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (7,"texp")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowTypeExpr") 1 Private (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (1,"t2")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTypeExpr"))) (CVar (3,"ts"))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryXML","xmlShowTVar")) (CVar (4,"n")))] []]),+  CFunc ("FlatCurryXML","xmlShowVar") 1 Private (CFuncType (CTVar (0,"a")) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowVisibity") 1 Private (CFuncType (CTCons ("FlatCurry","Visibility") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]])) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("FlatCurryXML","xvis2vis") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("FlatCurry","Visibility") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","Public"))] [],CRule [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","Private"))] []])]+ []
+ src/lib/Curry/Module/.curry/FlatCurryXML.cy view
@@ -0,0 +1,43 @@+Module "FlatCurryXML"+(Just (Exporting (19,20) [(Export (QualIdent Nothing (Ident "flatCurry2XmlFile" 0))),(Export (QualIdent Nothing (Ident "flatCurry2Xml" 0))),(Export (QualIdent Nothing (Ident "xmlFile2FlatCurry" 0))),(Export (QualIdent Nothing (Ident "xml2FlatCurry" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (22,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (23,1) "XML" False Nothing Nothing)+,(ImportDecl (24,1) "Read" False Nothing Nothing)+,(FunctionDecl (27,1) (Ident "flatCurryDtd" 0) [(Equation (27,1) (FunLhs (Ident "flatCurryDtd" 0) []) (SimpleRhs (27,16) (Literal (String "http://www.informatik.uni-kiel.de/~curry/flatcurrynew.dtd")) []))])+,(TypeSig (34,1) [(Ident "flatCurry2XmlFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (35,1) (Ident "flatCurry2XmlFile" 0) [(Equation (35,1) (FunLhs (Ident "flatCurry2XmlFile" 0) [(VariablePattern (Ident "flatprog" 4)),(VariablePattern (Ident "filename" 4))]) (SimpleRhs (35,39) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "writeFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 4)))) (Paren (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlDocWithParams" 0))) (List [(Apply (Constructor (QualIdent (Just "XML") (Ident "DtdUrl" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatCurryDtd" 0))))])) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatCurry2Xml" 0))) (Variable (QualIdent Nothing (Ident "flatprog" 4)))))))) []))])+,(TypeSig (39,1) [(Ident "flatCurry2Xml" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])))+,(FunctionDecl (40,1) (Ident "flatCurry2Xml" 0) [(Equation (40,1) (FunLhs (Ident "flatCurry2Xml" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "modname" 6)),(VariablePattern (Ident "imports" 6)),(VariablePattern (Ident "types" 6)),(VariablePattern (Ident "funcs" 6)),(VariablePattern (Ident "ops" 6))]))]) (SimpleRhs (41,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "prog"))) (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "module"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Variable (QualIdent Nothing (Ident "modname" 6))))])),(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "import"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(VariablePattern (Ident "s" 8))] (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "module"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Variable (QualIdent Nothing (Ident "s" 8))))]))))) (Variable (QualIdent Nothing (Ident "imports" 6)))))),(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "types"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowType" 0)))) (Variable (QualIdent Nothing (Ident "types" 6)))))),(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "functions"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowFunc" 0)))) (Variable (QualIdent Nothing (Ident "funcs" 6)))))),(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "operators"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowOp" 0)))) (Variable (QualIdent Nothing (Ident "ops" 6))))))])) []))])+,(FunctionDecl (48,1) (Ident "qname2xmlattrs" 0) [(Equation (48,1) (FunLhs (Ident "qname2xmlattrs" 0) [(TuplePattern [(VariablePattern (Ident "mod" 9)),(VariablePattern (Ident "name" 9))])]) (SimpleRhs (48,29) (List [(Tuple [(Literal (String "module")),(Variable (QualIdent Nothing (Ident "mod" 9)))]),(Tuple [(Literal (String "name")),(Variable (QualIdent Nothing (Ident "name" 9)))])]) []))])+,(FunctionDecl (50,1) (Ident "xmlShowVisibity" 0) [(Equation (50,1) (FunLhs (Ident "xmlShowVisibity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Public" 0)) [])]) (SimpleRhs (50,27) (List [(Tuple [(Literal (String "visibility")),(Literal (String "public"))])]) [])),(Equation (51,1) (FunLhs (Ident "xmlShowVisibity" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Private" 0)) [])]) (SimpleRhs (51,27) (List [(Tuple [(Literal (String "visibility")),(Literal (String "private"))])]) []))])+,(FunctionDecl (53,1) (Ident "xmlShowType" 0) [(Equation (53,1) (FunLhs (Ident "xmlShowType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 15)),(VariablePattern (Ident "vis" 15)),(VariablePattern (Ident "tpars" 15)),(VariablePattern (Ident "consdecls" 15))]))]) (SimpleRhs (54,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "type"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "name" 15)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVisibity" 0))) (Variable (QualIdent Nothing (Ident "vis" 15))))))) (Paren (InfixApply (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "params"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTVar" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 15))))))]) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowCons" 0)))) (Variable (QualIdent Nothing (Ident "consdecls" 15))))))) [])),(Equation (56,1) (FunLhs (Ident "xmlShowType" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 17)),(VariablePattern (Ident "vis" 17)),(VariablePattern (Ident "tpars" 17)),(VariablePattern (Ident "texp" 17))]))]) (SimpleRhs (57,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "typesyn"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "name" 17)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVisibity" 0))) (Variable (QualIdent Nothing (Ident "vis" 17))))))) (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "params"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTVar" 0)))) (Variable (QualIdent Nothing (Ident "tpars" 17)))))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "texp" 17))))])) []))])+,(FunctionDecl (60,1) (Ident "xmlShowCons" 0) [(Equation (60,1) (FunLhs (Ident "xmlShowCons" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "cname" 19)),(VariablePattern (Ident "arity" 19)),(VariablePattern (Ident "vis" 19)),(VariablePattern (Ident "types" 19))]))]) (SimpleRhs (61,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "cons"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cname" 19)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (List [(Tuple [(Literal (String "arity")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 19))))])]) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVisibity" 0))) (Variable (QualIdent Nothing (Ident "vis" 19)))))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "types" 19)))))) []))])+,(FunctionDecl (64,1) (Ident "xmlShowTypeExpr" 0) [(Equation (64,1) (FunLhs (Ident "xmlShowTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "t1" 21)),(VariablePattern (Ident "t2" 21))]))]) (SimpleRhs (65,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "functype"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t1" 21)))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "t2" 21))))])) [])),(Equation (66,1) (FunLhs (Ident "xmlShowTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "tc" 23)),(VariablePattern (Ident "ts" 23))]))]) (SimpleRhs (67,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "tcons"))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "tc" 23)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0)))) (Variable (QualIdent Nothing (Ident "ts" 23)))))) [])),(Equation (68,1) (FunLhs (Ident "xmlShowTypeExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 25))]))]) (SimpleRhs (68,28) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTVar" 0))) (Variable (QualIdent Nothing (Ident "n" 25)))) []))])+,(FunctionDecl (70,1) (Ident "xmlShowTVar" 0) [(Equation (70,1) (FunLhs (Ident "xmlShowTVar" 0) [(VariablePattern (Ident "i" 27))]) (SimpleRhs (70,17) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "tvar"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 27))))))])) []))])+,(FunctionDecl (72,1) (Ident "xmlShowFunc" 0) [(Equation (72,1) (FunLhs (Ident "xmlShowFunc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 29)),(VariablePattern (Ident "arity" 29)),(VariablePattern (Ident "vis" 29)),(VariablePattern (Ident "ftype" 29)),(VariablePattern (Ident "rl" 29))]))]) (SimpleRhs (73,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "func"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "name" 29)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (List [(Tuple [(Literal (String "arity")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "arity" 29))))])]) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVisibity" 0))) (Variable (QualIdent Nothing (Ident "vis" 29)))))))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowTypeExpr" 0))) (Variable (QualIdent Nothing (Ident "ftype" 29)))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowRule" 0))) (Variable (QualIdent Nothing (Ident "rl" 29))))])) []))])+,(FunctionDecl (76,1) (Ident "xmlShowRule" 0) [(Equation (76,1) (FunLhs (Ident "xmlShowRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "params" 31)),(VariablePattern (Ident "expr" 31))]))]) (SimpleRhs (77,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "rule"))) (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "lhs"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVar" 0)))) (Variable (QualIdent Nothing (Ident "params" 31)))))),(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "rhs"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 31))))]))])) [])),(Equation (79,1) (FunLhs (Ident "xmlShowRule" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "name" 33))]))]) (SimpleRhs (79,31) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "external"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Variable (QualIdent Nothing (Ident "name" 33))))])) []))])+,(FunctionDecl (81,1) (Ident "xmlShowVar" 0) [(Equation (81,1) (FunLhs (Ident "xmlShowVar" 0) [(VariablePattern (Ident "i" 35))]) (SimpleRhs (81,16) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "var"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 35))))))])) []))])+,(FunctionDecl (83,1) (Ident "xmlShowExpr" 0) [(Equation (83,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 37))]))]) (SimpleRhs (83,23) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVar" 0))) (Variable (QualIdent Nothing (Ident "n" 37)))) [])),(Equation (84,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 39))]))]) (SimpleRhs (84,23) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "lit"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowLit" 0))) (Variable (QualIdent Nothing (Ident "l" 39))))])) [])),(Equation (85,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)) []),(VariablePattern (Ident "cf" 41)),(VariablePattern (Ident "es" 41))]))]) (SimpleRhs (86,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "funccall"))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cf" 41)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 41)))))) [])),(Equation (87,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(VariablePattern (Ident "cf" 43)),(VariablePattern (Ident "es" 43))]))]) (SimpleRhs (88,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "conscall"))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cf" 43)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 43)))))) [])),(Equation (89,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0)) [(VariablePattern (Ident "n" 45))])),(VariablePattern (Ident "cf" 45)),(VariablePattern (Ident "es" 45))]))]) (SimpleRhs (90,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "funcpartcall"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cf" 45)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Tuple [(Literal (String "missing")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 45))))])])))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 45)))))) [])),(Equation (91,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0)) [(VariablePattern (Ident "n" 47))])),(VariablePattern (Ident "cf" 47)),(VariablePattern (Ident "es" 47))]))]) (SimpleRhs (92,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "conspartcall"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cf" 47)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Tuple [(Literal (String "missing")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "n" 47))))])])))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0)))) (Variable (QualIdent Nothing (Ident "es" 47)))))) [])),(Equation (93,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "xs" 49)),(VariablePattern (Ident "e" 49))]))]) (SimpleRhs (94,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "free"))) (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "freevars"))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVar" 0)))) (Variable (QualIdent Nothing (Ident "xs" 49)))))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 49))))])) [])),(Equation (95,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 51)),(VariablePattern (Ident "e2" 51))]))]) (SimpleRhs (96,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "or"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e1" 51)))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e2" 51))))])) [])),(Equation (97,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ctype" 53)),(VariablePattern (Ident "e" 53)),(VariablePattern (Ident "cs" 53))]))]) (SimpleRhs (98,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "ctype" 53))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Flex" 0)))) (Literal (String "fcase")) (Literal (String "case"))))) (List [])) (Paren (InfixApply (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 53))))]) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowBranch" 0)))) (Variable (QualIdent Nothing (Ident "cs" 53))))))) [])),(Equation (100,1) (FunLhs (Ident "xmlShowExpr" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bindings" 55)),(VariablePattern (Ident "expr" 55))]))]) (SimpleRhs (101,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "letrec"))) (Paren (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(TuplePattern [(VariablePattern (Ident "i" 57)),(VariablePattern (Ident "e" 57))])] (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "binding"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVar" 0))) (Variable (QualIdent Nothing (Ident "i" 57)))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 57))))]))))) (Variable (QualIdent Nothing (Ident "bindings" 55)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "expr" 55))))])))) []))])+,(FunctionDecl (104,1) (Ident "xmlShowLit" 0) [(Equation (104,1) (FunLhs (Ident "xmlShowLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "i" 58))]))]) (SimpleRhs (104,25) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "intc"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 58))))))])) [])),(Equation (105,1) (FunLhs (Ident "xmlShowLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "f" 60))]))]) (SimpleRhs (105,25) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "floatc"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "f" 60))))))])) [])),(Equation (106,1) (FunLhs (Ident "xmlShowLit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 62))]))]) (SimpleRhs (106,25) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "charc"))) (List [(Apply (Variable (QualIdent (Just "XML") (Ident "xtxt" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 62))))))))])) []))])+,(FunctionDecl (108,1) (Ident "xmlShowBranch" 0) [(Equation (108,1) (FunLhs (Ident "xmlShowBranch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "cons" 64)),(VariablePattern (Ident "xs" 64))])),(VariablePattern (Ident "e" 64))]))]) (SimpleRhs (109,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "branch"))) (List [(Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "pattern"))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "cons" 64)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowVar" 0)))) (Variable (QualIdent Nothing (Ident "xs" 64)))))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 64))))])) [])),(Equation (111,1) (FunLhs (Ident "xmlShowBranch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "lit" 66))])),(VariablePattern (Ident "e" 66))]))]) (SimpleRhs (112,3) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "branch"))) (List [(Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xml" 0))) (Literal (String "lpattern"))) (List [(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowLit" 0))) (Variable (QualIdent Nothing (Ident "lit" 66))))])),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xmlShowExpr" 0))) (Variable (QualIdent Nothing (Ident "e" 66))))])) []))])+,(FunctionDecl (114,1) (Ident "xmlShowOp" 0) [(Equation (114,1) (FunLhs (Ident "xmlShowOp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "name" 68)),(VariablePattern (Ident "fix" 68)),(VariablePattern (Ident "prec" 68))]))]) (SimpleRhs (115,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Literal (String "op"))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "qname2xmlattrs" 0))) (Variable (QualIdent Nothing (Ident "name" 68)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Tuple [(Literal (String "fixity")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "fix" 68))))]),(Tuple [(Literal (String "prec")),(Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "prec" 68))))])])))) (List [])) []))])+,(TypeSig (124,1) [(Ident "xmlFile2FlatCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])])))+,(FunctionDecl (125,1) (Ident "xmlFile2FlatCurry" 0) [(Equation (125,1) (FunLhs (Ident "xmlFile2FlatCurry" 0) [(VariablePattern (Ident "filename" 70))]) (SimpleRhs (126,3) (Do [(StmtBind (VariablePattern (Ident "xexp" 72)) (Apply (Variable (QualIdent (Just "XML") (Ident "readXmlFile" 0))) (Variable (QualIdent Nothing (Ident "filename" 70)))))] (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xml2FlatCurry" 0))) (Variable (QualIdent Nothing (Ident "xexp" 72))))))) []))])+,(TypeSig (130,1) [(Ident "xml2FlatCurry" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) [])))+,(FunctionDecl (131,1) (Ident "xml2FlatCurry" 0) [(Equation (131,1) (FunLhs (Ident "xml2FlatCurry" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "prog")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "module")),(ListPattern []),(VariablePattern (Ident "xmodname" 73))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "import")),(ListPattern []),(VariablePattern (Ident "ximports" 73))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "types")),(ListPattern []),(VariablePattern (Ident "xtypes" 73))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "functions")),(ListPattern []),(VariablePattern (Ident "xfunctions" 73))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "operators")),(ListPattern []),(VariablePattern (Ident "xoperators" 73))])])]))]) (SimpleRhs (138,3) (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Prog" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xmodname" 73)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "module")),(ListPattern []),(VariablePattern (Ident "xim" 75))]))] (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xim" 75))))))) (Variable (QualIdent Nothing (Ident "ximports" 73)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2typedecl" 0)))) (Variable (QualIdent Nothing (Ident "xtypes" 73)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "func")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 76))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "fname" 76))]),(TuplePattern [(LiteralPattern (String "arity")),(VariablePattern (Ident "farity" 76))]),(VariablePattern (Ident "xvis" 76))]),(ListPattern [(VariablePattern (Ident "xftype" 76)),(VariablePattern (Ident "xfbody" 76))])]))] (Apply (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Func" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 76))),(Variable (QualIdent Nothing (Ident "fname" 76)))])) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Variable (QualIdent Nothing (Ident "farity" 76)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xvis2vis" 0))) (Variable (QualIdent Nothing (Ident "xvis" 76)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0))) (Variable (QualIdent Nothing (Ident "xftype" 76)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2FunBody" 0))) (Variable (QualIdent Nothing (Ident "xfbody" 76))))))))) (Variable (QualIdent Nothing (Ident "xfunctions" 73)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "op")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 77))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "name" 77))]),(TuplePattern [(LiteralPattern (String "fixity")),(VariablePattern (Ident "xfix" 77))]),(TuplePattern [(LiteralPattern (String "prec")),(VariablePattern (Ident "xprec" 77))])]),(ListPattern [])]))] (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Op" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 77))),(Variable (QualIdent Nothing (Ident "name" 77)))])) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2Fixity" 0))) (Variable (QualIdent Nothing (Ident "xfix" 77)))))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Variable (QualIdent Nothing (Ident "xprec" 77))))))))) (Variable (QualIdent Nothing (Ident "xoperators" 73)))))) []))])+,(FunctionDecl (151,1) (Ident "flatx2typedecl" 0) [(Equation (151,1) (FunLhs (Ident "flatx2typedecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "type")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "tmod" 78))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "tname" 78))]),(VariablePattern (Ident "xtvis" 78))]),(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "params")),(ListPattern []),(VariablePattern (Ident "xtvars" 78))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xconstructors" 78))))]))]) (SimpleRhs (153,3) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Type" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "tmod" 78))),(Variable (QualIdent Nothing (Ident "tname" 78)))])) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xvis2vis" 0))) (Variable (QualIdent Nothing (Ident "xtvis" 78)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "tvar")),(ListPattern []),(VariablePattern (Ident "xtvar" 80))]))] (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xtvar" 80))))))))) (Variable (QualIdent Nothing (Ident "xtvars" 78)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "cons")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 81))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "xcn" 81))]),(TuplePattern [(LiteralPattern (String "arity")),(VariablePattern (Ident "xar" 81))]),(VariablePattern (Ident "xvis" 81))]),(VariablePattern (Ident "xtexps" 81))]))] (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Cons" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 81))),(Variable (QualIdent Nothing (Ident "xcn" 81)))])) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Variable (QualIdent Nothing (Ident "xar" 81)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xvis2vis" 0))) (Variable (QualIdent Nothing (Ident "xvis" 81)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0)))) (Variable (QualIdent Nothing (Ident "xtexps" 81))))))))) (Variable (QualIdent Nothing (Ident "xconstructors" 78)))))) [])),(Equation (158,1) (FunLhs (Ident "flatx2typedecl" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "typesyn")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "tmod" 82))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "tname" 82))]),(VariablePattern (Ident "xtvis" 82))]),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "params")),(ListPattern []),(VariablePattern (Ident "xtvars" 82))]),(VariablePattern (Ident "xtexp" 82))])]))]) (SimpleRhs (160,3) (Apply (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "tmod" 82))),(Variable (QualIdent Nothing (Ident "tname" 82)))])) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "xvis2vis" 0))) (Variable (QualIdent Nothing (Ident "xtvis" 82)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "tvar")),(ListPattern []),(VariablePattern (Ident "xtvar" 84))]))] (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xtvar" 84))))))))) (Variable (QualIdent Nothing (Ident "xtvars" 82)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0))) (Variable (QualIdent Nothing (Ident "xtexp" 82)))))) []))])+,(FunctionDecl (164,1) (Ident "flatx2FunBody" 0) [(Equation (164,1) (FunLhs (Ident "flatx2FunBody" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "external")),(ListPattern []),(VariablePattern (Ident "xename" 85))]))]) (SimpleRhs (164,46) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "External" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xename" 85)))))) [])),(Equation (165,1) (FunLhs (Ident "flatx2FunBody" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "rule")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "lhs")),(ListPattern []),(VariablePattern (Ident "xvars" 87))]),(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "rhs")),(ListPattern []),(ListPattern [(VariablePattern (Ident "xrhs" 87))])])])]))]) (SimpleRhs (167,4) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Rule" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2var" 0)))) (Variable (QualIdent Nothing (Ident "xvars" 87)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xrhs" 87)))))) []))])+,(TypeSig (169,1) [(Ident "flatx2var" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "VarIndex" 0)) [])))+,(FunctionDecl (170,1) (Ident "flatx2var" 0) [(Equation (170,1) (FunLhs (Ident "flatx2var" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "var")),(ListPattern []),(VariablePattern (Ident "xvar" 89))]))]) (SimpleRhs (170,35) (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xvar" 89)))))) []))])+,(TypeSig (172,1) [(Ident "flatx2exp" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (173,1) (Ident "flatx2exp" 0) [(Equation (173,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "var")),(ListPattern []),(VariablePattern (Ident "xvar" 91))]))]) (SimpleRhs (173,35) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Var" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xvar" 91)))))))) [])),(Equation (174,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "lit")),(ListPattern []),(ListPattern [(VariablePattern (Ident "xlit" 93))])]))]) (SimpleRhs (174,37) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Lit" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2lit" 0))) (Variable (QualIdent Nothing (Ident "xlit" 93)))))) [])),(Equation (175,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "funccall")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 95))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "name" 95))])]),(VariablePattern (Ident "xexps" 95))]))]) (SimpleRhs (176,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 95))),(Variable (QualIdent Nothing (Ident "name" 95)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0)))) (Variable (QualIdent Nothing (Ident "xexps" 95)))))) [])),(Equation (177,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "conscall")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 97))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "name" 97))])]),(VariablePattern (Ident "xexps" 97))]))]) (SimpleRhs (178,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 97))),(Variable (QualIdent Nothing (Ident "name" 97)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0)))) (Variable (QualIdent Nothing (Ident "xexps" 97)))))) [])),(Equation (179,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "funcpartcall")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 99))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "name" 99))]),(TuplePattern [(LiteralPattern (String "missing")),(VariablePattern (Ident "nmiss" 99))])]),(VariablePattern (Ident "xexps" 99))]))]) (SimpleRhs (180,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Paren (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncPartCall" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Variable (QualIdent Nothing (Ident "nmiss" 99)))))))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 99))),(Variable (QualIdent Nothing (Ident "name" 99)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0)))) (Variable (QualIdent Nothing (Ident "xexps" 99)))))) [])),(Equation (181,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "conspartcall")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 101))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "name" 101))]),(TuplePattern [(LiteralPattern (String "missing")),(VariablePattern (Ident "nmiss" 101))])]),(VariablePattern (Ident "xexps" 101))]))]) (SimpleRhs (182,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Paren (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "ConsPartCall" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Variable (QualIdent Nothing (Ident "nmiss" 101)))))))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 101))),(Variable (QualIdent Nothing (Ident "name" 101)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0)))) (Variable (QualIdent Nothing (Ident "xexps" 101)))))) [])),(Equation (183,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "free")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "freevars")),(ListPattern []),(VariablePattern (Ident "xvars" 103))]),(VariablePattern (Ident "xexp" 103))])]))]) (SimpleRhs (184,3) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Free" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2var" 0)))) (Variable (QualIdent Nothing (Ident "xvars" 103)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 103)))))) [])),(Equation (185,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "or")),(ListPattern []),(ListPattern [(VariablePattern (Ident "xexp1" 105)),(VariablePattern (Ident "xexp2" 105))])]))]) (SimpleRhs (186,3) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Or" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp1" 105)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp2" 105)))))) [])),(Equation (187,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "case")),(ListPattern []),(ParenPattern (InfixPattern (VariablePattern (Ident "xexp" 107)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xbranches" 107))))]))]) (SimpleRhs (188,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 107)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2branch" 0)))) (Variable (QualIdent Nothing (Ident "xbranches" 107)))))) [])),(Equation (189,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "fcase")),(ListPattern []),(ParenPattern (InfixPattern (VariablePattern (Ident "xexp" 109)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xbranches" 109))))]))]) (SimpleRhs (190,3) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Case" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Flex" 0)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 109)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2branch" 0)))) (Variable (QualIdent Nothing (Ident "xbranches" 109)))))) [])),(Equation (191,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "let")),(ListPattern []),(VariablePattern (Ident "xbindings" 111))]))]) (SimpleRhs (192,3) (Let [(PatternDecl (192,7) (TuplePattern [(VariablePattern (Ident "bindings" 113)),(VariablePattern (Ident "exp" 113))]) (SimpleRhs (192,24) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2let" 0))) (Variable (QualIdent Nothing (Ident "xbindings" 111)))) []))] (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0))) (Variable (QualIdent Nothing (Ident "bindings" 113)))) (Variable (QualIdent Nothing (Ident "exp" 113))))) [])),(Equation (194,1) (FunLhs (Ident "flatx2exp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "letrec")),(ListPattern []),(VariablePattern (Ident "xbindings" 115))]))]) (SimpleRhs (195,3) (Let [(PatternDecl (195,7) (TuplePattern [(VariablePattern (Ident "bindings" 117)),(VariablePattern (Ident "exp" 117))]) (SimpleRhs (195,24) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2let" 0))) (Variable (QualIdent Nothing (Ident "xbindings" 115)))) []))] (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Let" 0))) (Variable (QualIdent Nothing (Ident "bindings" 117)))) (Variable (QualIdent Nothing (Ident "exp" 117))))) []))])+,(FunctionDecl (198,1) (Ident "flatx2let" 0) [(Equation (198,1) (FunLhs (Ident "flatx2let" 0) [(ListPattern [(VariablePattern (Ident "xexp" 119))])]) (SimpleRhs (198,20) (Tuple [(List []),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 119))))]) [])),(Equation (199,1) (FunLhs (Ident "flatx2let" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "binding")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "var")),(ListPattern []),(VariablePattern (Ident "xvar" 121))]),(VariablePattern (Ident "xexp" 121))])]) (QualIdent Nothing (Ident ":" 0)) (InfixPattern (VariablePattern (Ident "xb" 121)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xbs" 121)))))]) (SimpleRhs (200,3) (Let [(PatternDecl (200,7) (TuplePattern [(VariablePattern (Ident "bindings" 123)),(VariablePattern (Ident "exp" 123))]) (SimpleRhs (200,24) (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2let" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "xb" 121))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xbs" 121)))))) []))] (Tuple [(InfixApply (Tuple [(Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xvar" 121)))))),(Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 121))))]) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "bindings" 123)))),(Variable (QualIdent Nothing (Ident "exp" 123)))])) []))])+,(FunctionDecl (203,1) (Ident "flatx2branch" 0) [(Equation (203,1) (FunLhs (Ident "flatx2branch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "branch")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "pattern")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 125))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "cons" 125))])]),(VariablePattern (Ident "xvars" 125))]),(VariablePattern (Ident "xexp" 125))])]))]) (SimpleRhs (204,3) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0))) (Paren (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Pattern" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 125))),(Variable (QualIdent Nothing (Ident "cons" 125)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2var" 0)))) (Variable (QualIdent Nothing (Ident "xvars" 125)))))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 125)))))) [])),(Equation (205,1) (FunLhs (Ident "flatx2branch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "branch")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "lpattern")),(ListPattern []),(ListPattern [(VariablePattern (Ident "xlit" 127))])]),(VariablePattern (Ident "xexp" 127))])]))]) (SimpleRhs (206,3) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Branch" 0))) (Paren (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "LPattern" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2lit" 0))) (Variable (QualIdent Nothing (Ident "xlit" 127)))))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2exp" 0))) (Variable (QualIdent Nothing (Ident "xexp" 127)))))) [])),(Equation (207,1) (FunLhs (Ident "flatx2branch" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "branch")),(ListPattern []),(ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "hpattern")),(VariablePattern (Ident "_" 130)),(VariablePattern (Ident "_" 131))]),(VariablePattern (Ident "_" 132))])]))]) (SimpleRhs (208,3) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "Higher-order patterns not supported in this version of FlatCurry!"))) []))])+,(TypeSig (210,1) [(Ident "flatx2lit" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) [])))+,(FunctionDecl (211,1) (Ident "flatx2lit" 0) [(Equation (211,1) (FunLhs (Ident "flatx2lit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "intc")),(ListPattern []),(VariablePattern (Ident "xintc" 134))]))]) (SimpleRhs (211,37) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Intc" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xintc" 134)))))))) [])),(Equation (212,1) (FunLhs (Ident "flatx2lit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "floatc")),(ListPattern []),(VariablePattern (Ident "_" 137))]))]) (SimpleRhs (213,13) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Literal (String "Reading of floats not yet implemented!"))) [])),(Equation (214,1) (FunLhs (Ident "flatx2lit" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "charc")),(ListPattern []),(VariablePattern (Ident "xintc" 139))]))]) (SimpleRhs (214,38) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Charc" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xintc" 139)))))))))) []))])+,(TypeSig (216,1) [(Ident "flatx2texp" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])))+,(FunctionDecl (217,1) (Ident "flatx2texp" 0) [(Equation (217,1) (FunLhs (Ident "flatx2texp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "tvar")),(ListPattern []),(VariablePattern (Ident "xtvar" 141))]))]) (SimpleRhs (217,38) (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TVar" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readNat" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xtvar" 141)))))))) [])),(Equation (218,1) (FunLhs (Ident "flatx2texp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "functype")),(ListPattern []),(ListPattern [(VariablePattern (Ident "xtexp1" 143)),(VariablePattern (Ident "xtexp2" 143))])]))]) (SimpleRhs (219,4) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncType" 0))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0))) (Variable (QualIdent Nothing (Ident "xtexp1" 143)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0))) (Variable (QualIdent Nothing (Ident "xtexp2" 143)))))) [])),(Equation (220,1) (FunLhs (Ident "flatx2texp" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(LiteralPattern (String "tcons")),(ListPattern [(TuplePattern [(LiteralPattern (String "module")),(VariablePattern (Ident "mod" 145))]),(TuplePattern [(LiteralPattern (String "name")),(VariablePattern (Ident "tcname" 145))])]),(VariablePattern (Ident "xtexps" 145))]))]) (SimpleRhs (221,4) (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "TCons" 0))) (Tuple [(Variable (QualIdent Nothing (Ident "mod" 145))),(Variable (QualIdent Nothing (Ident "tcname" 145)))])) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlatCurryXML") (Ident "flatx2texp" 0)))) (Variable (QualIdent Nothing (Ident "xtexps" 145)))))) []))])+,(FunctionDecl (223,1) (Ident "xvis2vis" 0) [(Equation (223,1) (FunLhs (Ident "xvis2vis" 0) [(TuplePattern [(LiteralPattern (String "visibility")),(LiteralPattern (String "public"))])]) (SimpleRhs (223,37) (Constructor (QualIdent (Just "FlatCurry") (Ident "Public" 0))) [])),(Equation (224,1) (FunLhs (Ident "xvis2vis" 0) [(TuplePattern [(LiteralPattern (String "visibility")),(LiteralPattern (String "private"))])]) (SimpleRhs (224,37) (Constructor (QualIdent (Just "FlatCurry") (Ident "Private" 0))) []))])+,(FunctionDecl (226,1) (Ident "flatx2Fixity" 0) [(Equation (226,1) (FunLhs (Ident "flatx2Fixity" 0) [(LiteralPattern (String "InfixOp"))]) (SimpleRhs (226,27) (Constructor (QualIdent (Just "FlatCurry") (Ident "InfixOp" 0))) [])),(Equation (227,1) (FunLhs (Ident "flatx2Fixity" 0) [(LiteralPattern (String "InfixlOp"))]) (SimpleRhs (227,27) (Constructor (QualIdent (Just "FlatCurry") (Ident "InfixlOp" 0))) [])),(Equation (228,1) (FunLhs (Ident "flatx2Fixity" 0) [(LiteralPattern (String "InfixrOp"))]) (SimpleRhs (228,27) (Constructor (QualIdent (Just "FlatCurry") (Ident "InfixrOp" 0))) []))])+]
+ src/lib/Curry/Module/.curry/FlatCurryXML.efc view
@@ -0,0 +1,1 @@+Prog "FlatCurryXML" ["FlatCurry","Prelude","Read","XML"] [] [Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"FlatCurryXML","flatCurryDtd")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '~'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"FlatCurryXML","flatCurry2XmlFile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlDocWithParams")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"FlatCurryXML","flatCurryDtd")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml._#lambda2")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowType")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowFunc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowOp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml._#lambda2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]])),"FlatCurryXML","qname2xmlattrs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TVar 3),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Var ((Just (TVar 2),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Var ((Just (TVar 3),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","Visibility") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) []) (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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowCons")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),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,"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") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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 (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (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)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"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") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) 1 Private (FuncType (TVar 0) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TVar 0),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowFunc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowRule")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowRule")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),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","Rule") []))),"FlatCurry","Rule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),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") []]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) 1 Private (FuncType (TVar 0) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TVar 0),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (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)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),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)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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 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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),8)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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 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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]])]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),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 (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))]]]),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") []]]),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (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,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr._#lambda3")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr._#lambda3")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [Var ((Just (TVar 2),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowBranch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),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,"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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowOp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","[]") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [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))],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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),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,"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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry._#lambda4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry._#lambda4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])),"FlatCurryXML","xml2FlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])),"FlatCurryXML","xml2FlatCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 174) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 173) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 172) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 14),3))) [Branch (Pattern ((Nothing,Just (TVar 14),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),13))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,15),(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 168) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 167) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 166) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 165) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 164) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 163) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 29),29))) [Branch (Pattern ((Nothing,Just (TVar 29),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 30),16))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 160) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),30))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,32),(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 159) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 158) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 157) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 156) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 155) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 154) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TVar 45),46))) [Branch (Pattern ((Nothing,Just (TVar 45),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 46),33))) [Branch (Pattern ((Nothing,Just (TVar 46),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 151) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),47))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,49),(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 150) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),52))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 149) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]))),"Prelude",":")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),54))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 148) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 147) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]),59))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 146) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 59),61))) [Branch (Pattern ((Nothing,Just (TVar 59),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 60),50))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 143) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),62))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,64),(Nothing,65),(Nothing,66)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]),64))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 142) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]))),"Prelude",":")) [(Nothing,67),(Nothing,68)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),67))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 141) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]))),"Prelude",":")) [(Nothing,69),(Nothing,70)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),69))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]),70))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 140) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]))),"Prelude",":")) [(Nothing,71),(Nothing,72)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),71))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]),72))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 139) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]))),"Prelude",":")) [(Nothing,73),(Nothing,74)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),73))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]),74))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 138) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]))),"Prelude",":")) [(Nothing,75),(Nothing,76)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),75))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]),76))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 137) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]))),"Prelude",":")) [(Nothing,77),(Nothing,78)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),77))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]),78))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 136) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]))),"Prelude",":")) [(Nothing,79),(Nothing,80)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),79))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]),80))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 135) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]))),"Prelude",":")) [(Nothing,81),(Nothing,82)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),81))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 134) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]))),"Prelude",":")) [(Nothing,83),(Nothing,84)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),83))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 81),84))) [Branch (Pattern ((Nothing,Just (TVar 81),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 82),65))) [Branch (Pattern ((Nothing,Just (TVar 82),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 131) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]))),"Prelude",":")) [(Nothing,85),(Nothing,86)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),85))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,87),(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 129) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]),93))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 128) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),94))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]),95))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 127) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),96))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),97))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,98),(Nothing,99)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),98))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]),99))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]))),"Prelude",":")) [(Nothing,100),(Nothing,101)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),100))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]),101))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 124) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]))),"Prelude",":")) [(Nothing,102),(Nothing,103)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),102))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]),103))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 123) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]))),"Prelude",":")) [(Nothing,104),(Nothing,105)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),104))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]),105))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]))),"Prelude",":")) [(Nothing,106),(Nothing,107)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),106))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 103),107))) [Branch (Pattern ((Nothing,Just (TVar 103),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 104),88))) [Branch (Pattern ((Nothing,Just (TVar 104),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 105),86))) [Branch (Pattern ((Nothing,Just (TVar 105),"Prelude","[]")) []) (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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),17))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryXML","xml2FlatCurry._#lambda5")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),34))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])),"FlatCurryXML","flatx2typedecl")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),51))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda6")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),66))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda7")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),89))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryXML","xml2FlatCurry._#lambda5")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 25) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 24) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 23) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 22) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 21) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 16),16))) [Branch (Pattern ((Nothing,Just (TVar 16),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 17),3))) [Branch (Pattern ((Nothing,Just (TVar 17),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda6")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 14),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 106) (FuncType (TVar 107) (TVar 14))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 27),28))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 29),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TVar 123) (TVar 29))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 38),40))) [Branch (Pattern ((Nothing,Just (TVar 38),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 40),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 134) (FuncType (TVar 135) (TVar 40))),"Prelude","(,)")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 51),54))) [Branch (Pattern ((Nothing,Just (TVar 51),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TVar 53),56))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TVar 56),60))) [Branch (Pattern ((Nothing,Just (TVar 56),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 57) (FuncType (TVar 58) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 57),16)),Var ((Just (TVar 58),32))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),44))],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") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),55))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),57))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryXML","flatx2FunBody")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),59))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda7")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 103) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 8),8))) [Branch (Pattern ((Nothing,Just (TVar 8),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 101) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TVar 10),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TVar 110) (TVar 10))),"Prelude","(,)")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 99) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 98) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 97) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 23),24))) [Branch (Pattern ((Nothing,Just (TVar 23),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TVar 25),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TVar 126) (TVar 25))),"Prelude","(,)")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 34),36))) [Branch (Pattern ((Nothing,Just (TVar 34),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TVar 36),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 137) (FuncType (TVar 138) (TVar 36))),"Prelude","(,)")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),39))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 49),52))) [Branch (Pattern ((Nothing,Just (TVar 49),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TVar 51),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 153) (FuncType (TVar 154) (TVar 51))),"Prelude","(,)")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),60))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),61))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),62))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),63))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 60),64))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 61),54))) [Branch (Pattern ((Nothing,Just (TVar 61),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 62),4))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 63) (FuncType (TVar 64) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 63),12)),Var ((Just (TVar 64),28))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"FlatCurryXML","flatx2Fixity")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),40))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),56))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])),"FlatCurryXML","flatx2typedecl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 191) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 190) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 189) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]),12))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 15),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 203) (FuncType (TVar 204) (TVar 15))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 91) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 28),28))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 30),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TVar 220) (TVar 30))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),40))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 41),42))) [Branch (Pattern ((Nothing,Just (TVar 41),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),43))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,45),(Nothing,46),(Nothing,47)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,48),(Nothing,49)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),48))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),50))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),51))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),52))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),54))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 56),59))) [Branch (Pattern ((Nothing,Just (TVar 56),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 57),46))) [Branch (Pattern ((Nothing,Just (TVar 57),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 58) (FuncType (TVar 59) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 58),16)),Var ((Just (TVar 59),32))],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") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),41))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda8")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),47))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])),"FlatCurryXML","flatx2typedecl._#lambda9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),44))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 188) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 186) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),62))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 185) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]))),"Prelude",":")) [(Nothing,64),(Nothing,65)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),64))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 100),65))) [Branch (Pattern ((Nothing,Just (TVar 100),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 183) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]))),"Prelude",":")) [(Nothing,66),(Nothing,67)]) (Case  Flex (Var ((Just (TVar 102),66))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 261) (FuncType (TVar 262) (TVar 102))),"Prelude","(,)")) [(Nothing,68),(Nothing,69)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 181) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]))),"Prelude",":")) [(Nothing,70),(Nothing,71)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),70))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]),71))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 180) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]))),"Prelude",":")) [(Nothing,72),(Nothing,73)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),72))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]),73))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 179) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]))),"Prelude",":")) [(Nothing,74),(Nothing,75)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),74))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]),75))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 178) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]))),"Prelude",":")) [(Nothing,76),(Nothing,77)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),76))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]),77))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 177) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]))),"Prelude",":")) [(Nothing,78),(Nothing,79)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),78))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]),79))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 176) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]))),"Prelude",":")) [(Nothing,80),(Nothing,81)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),80))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 115),81))) [Branch (Pattern ((Nothing,Just (TVar 115),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]),67))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 174) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]))),"Prelude",":")) [(Nothing,82),(Nothing,83)]) (Case  Flex (Var ((Just (TVar 117),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 277) (FuncType (TVar 278) (TVar 117))),"Prelude","(,)")) [(Nothing,84),(Nothing,85)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]),84))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 172) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]))),"Prelude",":")) [(Nothing,86),(Nothing,87)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),86))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 171) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]))),"Prelude",":")) [(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),88))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 126),93))) [Branch (Pattern ((Nothing,Just (TVar 126),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]),83))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 167) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TVar 128),95))) [Branch (Pattern ((Nothing,Just (TVar 128),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 165) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),96))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,98),(Nothing,99),(Nothing,100)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]),98))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 164) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]))),"Prelude",":")) [(Nothing,101),(Nothing,102)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),101))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]),102))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 163) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]))),"Prelude",":")) [(Nothing,103),(Nothing,104)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),103))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]),104))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 162) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]))),"Prelude",":")) [(Nothing,105),(Nothing,106)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),105))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]),106))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 161) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]))),"Prelude",":")) [(Nothing,107),(Nothing,108)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),107))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]),108))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 160) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]))),"Prelude",":")) [(Nothing,109),(Nothing,110)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),109))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]),110))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 159) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]))),"Prelude",":")) [(Nothing,111),(Nothing,112)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),111))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 143),112))) [Branch (Pattern ((Nothing,Just (TVar 143),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 144),99))) [Branch (Pattern ((Nothing,Just (TVar 144),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]),97))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 156) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]))),"Prelude",":")) [(Nothing,113),(Nothing,114)]) (Case  Flex (Var ((Just (TVar 146),114))) [Branch (Pattern ((Nothing,Just (TVar 146),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 147) (FuncType (TVar 148) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 147),69)),Var ((Just (TVar 148),85))],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") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),94))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda10")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),100))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),113))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda8")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])),"FlatCurryXML","flatx2typedecl._#lambda9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 91) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 15),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 102) (FuncType (TVar 103) (TVar 15))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 84) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 28),28))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 30),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 118) (FuncType (TVar 119) (TVar 30))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),40))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 41),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TVar 131) (TVar 41))),"Prelude","(,)")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 52),54))) [Branch (Pattern ((Nothing,Just (TVar 52),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TVar 54),56))) [Branch (Pattern ((Nothing,Just (TVar 54),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 55) (FuncType (TVar 56) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 55),16)),Var ((Just (TVar 56),32))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),44))],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") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),55))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda10")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryXML","flatx2FunBody")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 30) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 29) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 27) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 26) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 21),20))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 22),3))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),26))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 40),3))) [Branch (Pattern ((Nothing,Just (TVar 40),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),27))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,29),(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),35))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),36))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 49),37))) [Branch (Pattern ((Nothing,Just (TVar 49),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 50),30))) [Branch (Pattern ((Nothing,Just (TVar 50),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),38))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,40),(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 59),48))) [Branch (Pattern ((Nothing,Just (TVar 59),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 60),41))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TVar 62),50))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 63),39))) [Branch (Pattern ((Nothing,Just (TVar 63),"Prelude","[]")) []) (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,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),31))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),49))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 16) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 15) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 10),10))) [Branch (Pattern ((Nothing,Just (TVar 10),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 11),3))) [Branch (Pattern ((Nothing,Just (TVar 11),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 16) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 11),10))) [Branch (Pattern ((Nothing,Just (TVar 11),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 12),3))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TVar 22),14))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 23),3))) [Branch (Pattern ((Nothing,Just (TVar 23),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TVar 25),16))) [Branch (Pattern ((Nothing,Just (TVar 25),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),15))]])])])])])])]),Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),18))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 35),3))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (Let [((Nothing,19),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Var ((Just (TVar 36),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),20),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP3#bindings")) [Var ((Just (TVar 37),19))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP4#exp")) [Var ((Just (TVar 38),19))])] (Comb ConsCall ((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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),20)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21))]))))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 53) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 52) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 45),27))) [Branch (Pattern ((Nothing,Just (TVar 45),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 46),3))) [Branch (Pattern ((Nothing,Just (TVar 46),"Prelude","[]")) []) (Let [((Nothing,28),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Var ((Just (TVar 47),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),29),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP6#bindings")) [Var ((Just (TVar 48),28))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),30),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP7#exp")) [Var ((Just (TVar 49),28))])] (Comb ConsCall ((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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),29)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),30))]))))])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 299) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 230) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 229) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 228) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 124) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 72),44))) [Branch (Pattern ((Nothing,Just (TVar 72),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TVar 74),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 547) (FuncType (TVar 548) (TVar 74))),"Prelude","(,)")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]),47))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 120) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 119) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 118) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 117) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),55))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]),56))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 116) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 115) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 87),60))) [Branch (Pattern ((Nothing,Just (TVar 87),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 113) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TVar 89),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 563) (FuncType (TVar 564) (TVar 89))),"Prelude","(,)")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 111) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]))),"Prelude",":")) [(Nothing,65),(Nothing,66)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),65))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]),66))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 110) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]))),"Prelude",":")) [(Nothing,67),(Nothing,68)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),67))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]))),"Prelude",":")) [(Nothing,69),(Nothing,70)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),69))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]),70))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 108) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]))),"Prelude",":")) [(Nothing,71),(Nothing,72)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),71))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 98),72))) [Branch (Pattern ((Nothing,Just (TVar 98),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 99),62))) [Branch (Pattern ((Nothing,Just (TVar 99),"Prelude","[]")) []) (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")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 100) (FuncType (TVar 101) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 100),48)),Var ((Just (TVar 101),64))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 227) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]))),"Prelude",":")) [(Nothing,73),(Nothing,74)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),73))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]),74))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 226) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]))),"Prelude",":")) [(Nothing,75),(Nothing,76)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),75))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]),76))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 225) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]))),"Prelude",":")) [(Nothing,77),(Nothing,78)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),77))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]),78))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 224) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]))),"Prelude",":")) [(Nothing,79),(Nothing,80)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),79))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]),80))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 223) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]))),"Prelude",":")) [(Nothing,81),(Nothing,82)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),81))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 222) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]))),"Prelude",":")) [(Nothing,83),(Nothing,84)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),83))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]),84))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 221) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]))),"Prelude",":")) [(Nothing,85),(Nothing,86)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),85))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 141),86))) [Branch (Pattern ((Nothing,Just (TVar 141),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]))),"Prelude",":")) [(Nothing,87),(Nothing,88)]) (Case  Flex (Var ((Just (TVar 143),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 594) (FuncType (TVar 595) (TVar 143))),"Prelude","(,)")) [(Nothing,89),(Nothing,90)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]))),"Prelude",":")) [(Nothing,91),(Nothing,92)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),91))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]),92))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 216) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]))),"Prelude",":")) [(Nothing,93),(Nothing,94)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),93))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]),94))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 215) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]))),"Prelude",":")) [(Nothing,95),(Nothing,96)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),95))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]),96))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 214) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]))),"Prelude",":")) [(Nothing,97),(Nothing,98)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),97))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]),98))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 213) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]))),"Prelude",":")) [(Nothing,99),(Nothing,100)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),99))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]),100))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 212) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]))),"Prelude",":")) [(Nothing,101),(Nothing,102)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),101))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 156),102))) [Branch (Pattern ((Nothing,Just (TVar 156),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]),88))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 210) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]))),"Prelude",":")) [(Nothing,103),(Nothing,104)]) (Case  Flex (Var ((Just (TVar 158),103))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 610) (FuncType (TVar 611) (TVar 158))),"Prelude","(,)")) [(Nothing,105),(Nothing,106)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]),105))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 208) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]))),"Prelude",":")) [(Nothing,107),(Nothing,108)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),107))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]),108))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 207) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]))),"Prelude",":")) [(Nothing,109),(Nothing,110)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),109))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]),110))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 206) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]))),"Prelude",":")) [(Nothing,111),(Nothing,112)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),111))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]),112))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 205) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]))),"Prelude",":")) [(Nothing,113),(Nothing,114)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),113))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 167),114))) [Branch (Pattern ((Nothing,Just (TVar 167),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]),104))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 203) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]))),"Prelude",":")) [(Nothing,115),(Nothing,116)]) (Case  Flex (Var ((Just (TVar 169),115))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 622) (FuncType (TVar 623) (TVar 169))),"Prelude","(,)")) [(Nothing,117),(Nothing,118)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]),117))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 201) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]))),"Prelude",":")) [(Nothing,119),(Nothing,120)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),119))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]),120))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 200) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]))),"Prelude",":")) [(Nothing,121),(Nothing,122)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),121))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]),122))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 199) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]))),"Prelude",":")) [(Nothing,123),(Nothing,124)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),123))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]),124))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 198) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]))),"Prelude",":")) [(Nothing,125),(Nothing,126)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),125))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]),126))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 197) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]))),"Prelude",":")) [(Nothing,127),(Nothing,128)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),127))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]),128))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 196) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]))),"Prelude",":")) [(Nothing,129),(Nothing,130)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),129))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]),130))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 195) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]))),"Prelude",":")) [(Nothing,131),(Nothing,132)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),131))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 184),132))) [Branch (Pattern ((Nothing,Just (TVar 184),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 185),116))) [Branch (Pattern ((Nothing,Just (TVar 185),"Prelude","[]")) []) (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")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),118))]],Comb ConsCall ((Nothing,Just (FuncType (TVar 187) (FuncType (TVar 188) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 187),90)),Var ((Just (TVar 188),106))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 279) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]))),"Prelude",":")) [(Nothing,133),(Nothing,134)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),133))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]),134))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 278) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]))),"Prelude",":")) [(Nothing,135),(Nothing,136)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),135))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 235),136))) [Branch (Pattern ((Nothing,Just (TVar 235),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 236),3))) [Branch (Pattern ((Nothing,Just (TVar 236),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 275) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]))),"Prelude",":")) [(Nothing,137),(Nothing,138)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),137))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,139),(Nothing,140),(Nothing,141)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]),139))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 274) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]))),"Prelude",":")) [(Nothing,142),(Nothing,143)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),142))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]),143))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 273) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]))),"Prelude",":")) [(Nothing,144),(Nothing,145)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),144))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]),145))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 272) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]))),"Prelude",":")) [(Nothing,146),(Nothing,147)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),146))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]),147))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 271) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]))),"Prelude",":")) [(Nothing,148),(Nothing,149)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),148))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]),149))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 270) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]))),"Prelude",":")) [(Nothing,150),(Nothing,151)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),150))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]),151))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 269) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]))),"Prelude",":")) [(Nothing,152),(Nothing,153)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),152))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]),153))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 268) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]))),"Prelude",":")) [(Nothing,154),(Nothing,155)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),154))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]),155))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 267) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]))),"Prelude",":")) [(Nothing,156),(Nothing,157)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),156))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 255),157))) [Branch (Pattern ((Nothing,Just (TVar 255),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 256),140))) [Branch (Pattern ((Nothing,Just (TVar 256),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]),138))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 264) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]))),"Prelude",":")) [(Nothing,158),(Nothing,159)]) (Case  Flex (Var ((Just (TVar 258),159))) [Branch (Pattern ((Nothing,Just (TVar 258),"Prelude","[]")) []) (Comb ConsCall ((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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),141))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),158))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 298) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]))),"Prelude",":")) [(Nothing,160),(Nothing,161)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),160))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]),161))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 297) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]))),"Prelude",":")) [(Nothing,162),(Nothing,163)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),162))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]),163))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 296) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]))),"Prelude",":")) [(Nothing,164),(Nothing,165)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),164))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 286),165))) [Branch (Pattern ((Nothing,Just (TVar 286),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 287),3))) [Branch (Pattern ((Nothing,Just (TVar 287),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 293) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]))),"Prelude",":")) [(Nothing,166),(Nothing,167)]) (Comb ConsCall ((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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),166))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),167))]])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 489) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]))),"Prelude",":")) [(Nothing,168),(Nothing,169)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),168))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]),169))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 472) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]))),"Prelude",":")) [(Nothing,170),(Nothing,171)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),170))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]),171))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 471) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]))),"Prelude",":")) [(Nothing,172),(Nothing,173)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),172))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]),173))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 470) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]))),"Prelude",":")) [(Nothing,174),(Nothing,175)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),174))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]),175))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 368) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]))),"Prelude",":")) [(Nothing,176),(Nothing,177)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),176))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]),177))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 367) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]))),"Prelude",":")) [(Nothing,178),(Nothing,179)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),178))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]),179))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 366) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]))),"Prelude",":")) [(Nothing,180),(Nothing,181)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),180))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 314),181))) [Branch (Pattern ((Nothing,Just (TVar 314),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 364) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]))),"Prelude",":")) [(Nothing,182),(Nothing,183)]) (Case  Flex (Var ((Just (TVar 316),182))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 704) (FuncType (TVar 705) (TVar 316))),"Prelude","(,)")) [(Nothing,184),(Nothing,185)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]),184))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 362) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]))),"Prelude",":")) [(Nothing,186),(Nothing,187)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),186))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]),187))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 361) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]))),"Prelude",":")) [(Nothing,188),(Nothing,189)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),188))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]),189))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 360) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]))),"Prelude",":")) [(Nothing,190),(Nothing,191)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),190))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]),191))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 359) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]))),"Prelude",":")) [(Nothing,192),(Nothing,193)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),192))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]),193))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 358) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]))),"Prelude",":")) [(Nothing,194),(Nothing,195)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),194))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]),195))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 357) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]))),"Prelude",":")) [(Nothing,196),(Nothing,197)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),196))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 329),197))) [Branch (Pattern ((Nothing,Just (TVar 329),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]),183))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 355) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]))),"Prelude",":")) [(Nothing,198),(Nothing,199)]) (Case  Flex (Var ((Just (TVar 331),198))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 720) (FuncType (TVar 721) (TVar 331))),"Prelude","(,)")) [(Nothing,200),(Nothing,201)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]),200))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 353) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]))),"Prelude",":")) [(Nothing,202),(Nothing,203)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),202))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]),203))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 352) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]))),"Prelude",":")) [(Nothing,204),(Nothing,205)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),204))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]),205))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 351) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]))),"Prelude",":")) [(Nothing,206),(Nothing,207)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),206))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]),207))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 350) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]))),"Prelude",":")) [(Nothing,208),(Nothing,209)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),208))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 340),209))) [Branch (Pattern ((Nothing,Just (TVar 340),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 341),199))) [Branch (Pattern ((Nothing,Just (TVar 341),"Prelude","[]")) []) (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")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 342) (FuncType (TVar 343) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 342),185)),Var ((Just (TVar 343),201))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]),175))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 469) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]))),"Prelude",":")) [(Nothing,210),(Nothing,211)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),210))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]),211))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 468) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]))),"Prelude",":")) [(Nothing,212),(Nothing,213)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),212))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]),213))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 467) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]))),"Prelude",":")) [(Nothing,214),(Nothing,215)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),214))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]),215))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 466) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]))),"Prelude",":")) [(Nothing,216),(Nothing,217)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),216))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]),217))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 465) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]))),"Prelude",":")) [(Nothing,218),(Nothing,219)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),218))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]),219))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 464) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]))),"Prelude",":")) [(Nothing,220),(Nothing,221)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),220))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]),221))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 463) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]))),"Prelude",":")) [(Nothing,222),(Nothing,223)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),222))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 383),223))) [Branch (Pattern ((Nothing,Just (TVar 383),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 461) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]))),"Prelude",":")) [(Nothing,224),(Nothing,225)]) (Case  Flex (Var ((Just (TVar 385),224))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 751) (FuncType (TVar 752) (TVar 385))),"Prelude","(,)")) [(Nothing,226),(Nothing,227)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]),226))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 459) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]))),"Prelude",":")) [(Nothing,228),(Nothing,229)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),228))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]),229))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 458) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]))),"Prelude",":")) [(Nothing,230),(Nothing,231)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),230))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]),231))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 457) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]))),"Prelude",":")) [(Nothing,232),(Nothing,233)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),232))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]),233))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 456) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]))),"Prelude",":")) [(Nothing,234),(Nothing,235)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),234))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]),235))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 455) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]))),"Prelude",":")) [(Nothing,236),(Nothing,237)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),236))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]),237))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 454) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]))),"Prelude",":")) [(Nothing,238),(Nothing,239)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),238))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 398),239))) [Branch (Pattern ((Nothing,Just (TVar 398),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]),225))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 452) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]))),"Prelude",":")) [(Nothing,240),(Nothing,241)]) (Case  Flex (Var ((Just (TVar 400),240))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 767) (FuncType (TVar 768) (TVar 400))),"Prelude","(,)")) [(Nothing,242),(Nothing,243)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]),242))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 450) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]))),"Prelude",":")) [(Nothing,244),(Nothing,245)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),244))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]),245))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 449) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]))),"Prelude",":")) [(Nothing,246),(Nothing,247)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),246))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]),247))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 448) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]))),"Prelude",":")) [(Nothing,248),(Nothing,249)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),248))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]),249))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 447) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]))),"Prelude",":")) [(Nothing,250),(Nothing,251)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),250))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 409),251))) [Branch (Pattern ((Nothing,Just (TVar 409),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]),241))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 445) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]))),"Prelude",":")) [(Nothing,252),(Nothing,253)]) (Case  Flex (Var ((Just (TVar 411),252))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 779) (FuncType (TVar 780) (TVar 411))),"Prelude","(,)")) [(Nothing,254),(Nothing,255)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]),254))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 443) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]))),"Prelude",":")) [(Nothing,256),(Nothing,257)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),256))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]),257))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 442) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]))),"Prelude",":")) [(Nothing,258),(Nothing,259)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),258))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]),259))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 441) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]))),"Prelude",":")) [(Nothing,260),(Nothing,261)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),260))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]),261))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 440) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]))),"Prelude",":")) [(Nothing,262),(Nothing,263)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),262))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]),263))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]))),"Prelude",":")) [(Nothing,264),(Nothing,265)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),264))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]),265))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 438) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]))),"Prelude",":")) [(Nothing,266),(Nothing,267)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),266))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]),267))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 437) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]))),"Prelude",":")) [(Nothing,268),(Nothing,269)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),268))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 426),269))) [Branch (Pattern ((Nothing,Just (TVar 426),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 427),253))) [Branch (Pattern ((Nothing,Just (TVar 427),"Prelude","[]")) []) (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")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),255))]],Comb ConsCall ((Nothing,Just (FuncType (TVar 429) (FuncType (TVar 430) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 429),227)),Var ((Just (TVar 430),243))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]),169))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 488) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]))),"Prelude",":")) [(Nothing,270),(Nothing,271)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),270))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]),271))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 487) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]))),"Prelude",":")) [(Nothing,272),(Nothing,273)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),272))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 477),273))) [Branch (Pattern ((Nothing,Just (TVar 477),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 478),3))) [Branch (Pattern ((Nothing,Just (TVar 478),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 484) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]))),"Prelude",":")) [(Nothing,274),(Nothing,275)]) (Comb ConsCall ((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 ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),274))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),275))]])])])])])])])])])]),Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 504) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]))),"Prelude",":")) [(Nothing,276),(Nothing,277)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),276))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 492),277))) [Branch (Pattern ((Nothing,Just (TVar 492),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 493),3))) [Branch (Pattern ((Nothing,Just (TVar 493),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 501) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]))),"Prelude",":")) [(Nothing,278),(Nothing,279)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]),279))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 500) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]))),"Prelude",":")) [(Nothing,280),(Nothing,281)]) (Case  Flex (Var ((Just (TVar 496),281))) [Branch (Pattern ((Nothing,Just (TVar 496),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),278))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),280))]])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP3#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],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 (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP4#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP6#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],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 (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP7#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 13),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 61) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 27),22))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 28),7))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),23))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,25),(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 37),33))) [Branch (Pattern ((Nothing,Just (TVar 37),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 38),26))) [Branch (Pattern ((Nothing,Just (TVar 38),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 52) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TVar 40),35))) [Branch (Pattern ((Nothing,Just (TVar 40),"Prelude","[]")) []) (Let [((Nothing,36),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [Var ((Just (TVar 41),4)),Var ((Just (TVar 42),5))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),37),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2let._#selFP9#bindings")) [Var ((Just (TVar 44),36))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),38),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2let._#selFP10#exp")) [Var ((Just (TVar 45),36))])] (Comb ConsCall ((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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (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") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),27))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),34))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),37))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),38))]))))])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2let._#selFP9#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],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 (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2let._#selFP10#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 235) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 234) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 233) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 232) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 231) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TVar 17),16))) [Branch (Pattern ((Nothing,Just (TVar 17),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 18),3))) [Branch (Pattern ((Nothing,Just (TVar 18),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 228) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),17))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,19),(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 227) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 97) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 93) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 35),35))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TVar 37),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 268) (FuncType (TVar 269) (TVar 37))),"Prelude","(,)")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,40),(Nothing,41)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),40))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,42),(Nothing,43)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),42))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,44),(Nothing,45)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),44))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,46),(Nothing,47)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),46))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]),47))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 84) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]))),"Prelude",":")) [(Nothing,48),(Nothing,49)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),48))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),50))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 50),51))) [Branch (Pattern ((Nothing,Just (TVar 50),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TVar 52),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 284) (FuncType (TVar 285) (TVar 52))),"Prelude","(,)")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),59))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),62))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 61),63))) [Branch (Pattern ((Nothing,Just (TVar 61),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 62),53))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,64),(Nothing,65)]) (Case  Flex (Var ((Just (TVar 64),65))) [Branch (Pattern ((Nothing,Just (TVar 64),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [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 ConsCall ((Nothing,Just (FuncType (TVar 65) (FuncType (TVar 66) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 65),39)),Var ((Just (TVar 66),55))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),21))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),64))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 132) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]))),"Prelude",":")) [(Nothing,66),(Nothing,67)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),66))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]),67))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 131) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]))),"Prelude",":")) [(Nothing,68),(Nothing,69)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),68))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]),69))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]))),"Prelude",":")) [(Nothing,70),(Nothing,71)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),70))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]),71))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 129) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]))),"Prelude",":")) [(Nothing,72),(Nothing,73)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),72))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]),73))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 128) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]))),"Prelude",":")) [(Nothing,74),(Nothing,75)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),74))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]),75))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 127) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]))),"Prelude",":")) [(Nothing,76),(Nothing,77)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),76))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),77))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,78),(Nothing,79)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),78))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 112),79))) [Branch (Pattern ((Nothing,Just (TVar 112),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 113),20))) [Branch (Pattern ((Nothing,Just (TVar 113),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 123) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]))),"Prelude",":")) [(Nothing,80),(Nothing,81)]) (Case  Flex (Var ((Just (TVar 115),81))) [Branch (Pattern ((Nothing,Just (TVar 115),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 121) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]))),"Prelude",":")) [(Nothing,82),(Nothing,83)]) (Case  Flex (Var ((Just (TVar 117),83))) [Branch (Pattern ((Nothing,Just (TVar 117),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),80))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),82))]])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 226) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]))),"Prelude",":")) [(Nothing,84),(Nothing,85)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),84))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]),85))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 225) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]))),"Prelude",":")) [(Nothing,86),(Nothing,87)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),86))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 224) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]))),"Prelude",":")) [(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),88))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 223) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 222) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]),93))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 221) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),94))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]),95))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 220) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),96))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 147),97))) [Branch (Pattern ((Nothing,Just (TVar 147),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 218) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]))),"Prelude",":")) [(Nothing,98),(Nothing,99)]) (Case  Flex (Var ((Just (TVar 149),99))) [Branch (Pattern ((Nothing,Just (TVar 149),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'H'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 30),22))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 31),3))) [Branch (Pattern ((Nothing,Just (TVar 31),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 93) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 87),30))) [Branch (Pattern ((Nothing,Just (TVar 87),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 88),3))) [Branch (Pattern ((Nothing,Just (TVar 88),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]]])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 14),3))) [Branch (Pattern ((Nothing,Just (TVar 14),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 26),18))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TVar 28),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 133) (FuncType (TVar 134) (TVar 28))),"Prelude","(,)")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 41),34))) [Branch (Pattern ((Nothing,Just (TVar 41),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TVar 43),35))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 149) (FuncType (TVar 150) (TVar 43))),"Prelude","(,)")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 52),46))) [Branch (Pattern ((Nothing,Just (TVar 52),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 53),36))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (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 ConsCall ((Nothing,Just (FuncType (TVar 54) (FuncType (TVar 55) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 54),22)),Var ((Just (TVar 55),38))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 114) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 113) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 112) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 111) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 110) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),55))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]),56))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 108) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 96),60))) [Branch (Pattern ((Nothing,Just (TVar 96),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 97),3))) [Branch (Pattern ((Nothing,Just (TVar 97),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 105) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]),62))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 104) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]))),"Prelude",":")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TVar 100),64))) [Branch (Pattern ((Nothing,Just (TVar 100),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),61))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),63))]])])])])])])])])])])])])])])])])])])])])])])])),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") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 3),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,6),(Nothing,7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 24),23))) [Branch (Pattern ((Nothing,Just (TVar 24),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 61) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 60) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 42) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 39) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 37),35))) [Branch (Pattern ((Nothing,Just (TVar 37),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) [])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 59) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),36))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),38))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),39))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,40),(Nothing,41)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),40))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,42),(Nothing,43)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),42))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,44),(Nothing,45)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),44))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 53),45))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) [])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"FlatCurryXML","flatx2Fixity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))) [Branch (LPattern (Charc  'I')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 38) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]))),"Prelude",":")) [(Nothing,4),(Nothing,5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 37) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]))),"Prelude",":")) [(Nothing,6),(Nothing,7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 36) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 35) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 34) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 15),15))) [Branch (Pattern ((Nothing,Just (TVar 15),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) [])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 25) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 24) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 22),19))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) [])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 33) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 30),23))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) [])])])])])])])])])])])])])])])])])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryXML.fcy view
@@ -0,0 +1,1 @@+Prog "FlatCurryXML" ["FlatCurry","Prelude","Read","XML"] [] [Func ("FlatCurryXML","flatCurryDtd") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'k'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '~'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ("FlatCurryXML","flatCurry2XmlFile") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 2,Comb FuncCall ("XML","showXmlDocWithParams") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","DtdUrl") [Comb FuncCall ("FlatCurryXML","flatCurryDtd") []],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryXML","flatCurry2Xml") [Var 1]]])),Func ("FlatCurryXML","flatCurry2Xml") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Var 2],Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatCurry2Xml._#lambda2") [],Var 3]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowType") [],Var 4]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowFunc") [],Var 5]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowOp") [],Var 6]],Comb ConsCall ("Prelude","[]") []]]]]]])])),Func ("FlatCurryXML","flatCurry2Xml._#lambda2") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("XML","XmlExp") [])) (Rule [1] (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Var 1],Comb ConsCall ("Prelude","[]") []]])),Func ("FlatCurryXML","qname2xmlattrs") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]],Var 2],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]],Var 3],Comb ConsCall ("Prelude","[]") []]])])),Func ("FlatCurryXML","xmlShowVisibity") 1 Private (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Public") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Private") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude","[]") []])])),Func ("FlatCurryXML","xmlShowType") 1 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Type") [2,3,4,5]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 2],Comb FuncCall ("FlatCurryXML","xmlShowVisibity") [Var 3]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowTVar") [],Var 4]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowCons") [],Var 5]]]),Branch (Pattern ("FlatCurry","TypeSyn") [6,7,8,9]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 6],Comb FuncCall ("FlatCurryXML","xmlShowVisibity") [Var 7]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowTVar") [],Var 8]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowTypeExpr") [Var 9],Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryXML","xmlShowCons") 1 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Cons") [2,3,4,5]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","show") [Var 3]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryXML","xmlShowVisibity") [Var 4]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowTypeExpr") [],Var 5]])])),Func ("FlatCurryXML","xmlShowTypeExpr") 1 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","FuncType") [2,3]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowTypeExpr") [Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowTypeExpr") [Var 3],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 4],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowTypeExpr") [],Var 5]]),Branch (Pattern ("FlatCurry","TVar") [6]) (Comb FuncCall ("FlatCurryXML","xmlShowTVar") [Var 6])])),Func ("FlatCurryXML","xmlShowTVar") 1 Private (FuncType (TVar 0) (TCons ("XML","XmlExp") [])) (Rule [1] (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Comb FuncCall ("Prelude","show") [Var 1]],Comb ConsCall ("Prelude","[]") []]])),Func ("FlatCurryXML","xmlShowFunc") 1 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Func") [2,3,4,5,6]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 2],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","show") [Var 3]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("FlatCurryXML","xmlShowVisibity") [Var 4]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowTypeExpr") [Var 5],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowRule") [Var 6],Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryXML","xmlShowRule") 1 Private (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Rule") [2,3]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowVar") [],Var 2]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 3],Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","External") [4]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Var 4],Comb ConsCall ("Prelude","[]") []]])])),Func ("FlatCurryXML","xmlShowVar") 1 Private (FuncType (TVar 0) (TCons ("XML","XmlExp") [])) (Rule [1] (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Comb FuncCall ("Prelude","show") [Var 1]],Comb ConsCall ("Prelude","[]") []]])),Func ("FlatCurryXML","xmlShowExpr") 1 Private (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb FuncCall ("FlatCurryXML","xmlShowVar") [Var 2]),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowLit") [Var 3],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 5],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowExpr") [],Var 6]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 5],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowExpr") [],Var 6]]),Branch (Pattern ("FlatCurry","FuncPartCall") [7]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 5],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","show") [Var 7]],Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowExpr") [],Var 6]]),Branch (Pattern ("FlatCurry","ConsPartCall") [8]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 5],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","show") [Var 8]],Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowExpr") [],Var 6]])]),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowVar") [],Var 9]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 10],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 12],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb ConsCall ("XML","XElem") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 13,Comb ConsCall ("FlatCurry","Flex") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]])],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 14],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowBranch") [],Var 15]]]),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowExpr._#lambda3") [],Var 16],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 17],Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryXML","xmlShowExpr._#lambda3") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowVar") [Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 3],Comb ConsCall ("Prelude","[]") []]]])])),Func ("FlatCurryXML","xmlShowLit") 1 Private (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Comb FuncCall ("Prelude","show") [Var 2]],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Comb FuncCall ("Prelude","show") [Var 3]],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xtxt") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 4]]],Comb ConsCall ("Prelude","[]") []]])])),Func ("FlatCurryXML","xmlShowBranch") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [4,5]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 4],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xmlShowVar") [],Var 5]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 3],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("FlatCurry","LPattern") [6]) (Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'b'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("XML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowLit") [Var 6],Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("FlatCurryXML","xmlShowExpr") [Var 3],Comb ConsCall ("Prelude","[]") []]]])])])),Func ("FlatCurryXML","xmlShowOp") 1 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("XML","XmlExp") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Op") [2,3,4]) (Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("FlatCurryXML","qname2xmlattrs") [Var 2],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Prelude","show") [Var 3]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Prelude","show") [Var 4]],Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []])])),Func ("FlatCurryXML","xmlFile2FlatCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 1],Comb (FuncPartCall 1) ("FlatCurryXML","xmlFile2FlatCurry._#lambda4") []])),Func ("FlatCurryXML","xmlFile2FlatCurry._#lambda4") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [1] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("FlatCurryXML","xml2FlatCurry") [Var 1]])),Func ("FlatCurryXML","xml2FlatCurry") 1 Public (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","Prog") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'g')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (Pattern ("XML","XElem") [15,16,17]) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Case  Flex (Var 28) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [30,31]) (Case  Flex (Var 30) [Branch (Pattern ("XML","XElem") [32,33,34]) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  't')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 33) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (Pattern ("XML","XElem") [49,50,51]) (Case  Flex (Var 49) [Branch (Pattern ("Prelude",":") [52,53]) (Case  Flex (Var 52) [Branch (LPattern (Charc  't')) (Case  Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Case  Flex (Var 54) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Case  Flex (Var 56) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Case  Flex (Var 58) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Case  Flex (Var 60) [Branch (LPattern (Charc  's')) (Case  Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 50) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [62,63]) (Case  Flex (Var 62) [Branch (Pattern ("XML","XElem") [64,65,66]) (Case  Flex (Var 64) [Branch (Pattern ("Prelude",":") [67,68]) (Case  Flex (Var 67) [Branch (LPattern (Charc  'f')) (Case  Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Case  Flex (Var 69) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 70) [Branch (Pattern ("Prelude",":") [71,72]) (Case  Flex (Var 71) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Case  Flex (Var 73) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Case  Flex (Var 75) [Branch (LPattern (Charc  't')) (Case  Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Case  Flex (Var 77) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Case  Flex (Var 79) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 80) [Branch (Pattern ("Prelude",":") [81,82]) (Case  Flex (Var 81) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 82) [Branch (Pattern ("Prelude",":") [83,84]) (Case  Flex (Var 83) [Branch (LPattern (Charc  's')) (Case  Flex (Var 84) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 63) [Branch (Pattern ("Prelude",":") [85,86]) (Case  Flex (Var 85) [Branch (Pattern ("XML","XElem") [87,88,89]) (Case  Flex (Var 87) [Branch (Pattern ("Prelude",":") [90,91]) (Case  Flex (Var 90) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 91) [Branch (Pattern ("Prelude",":") [92,93]) (Case  Flex (Var 92) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 93) [Branch (Pattern ("Prelude",":") [94,95]) (Case  Flex (Var 94) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 95) [Branch (Pattern ("Prelude",":") [96,97]) (Case  Flex (Var 96) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 97) [Branch (Pattern ("Prelude",":") [98,99]) (Case  Flex (Var 98) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 99) [Branch (Pattern ("Prelude",":") [100,101]) (Case  Flex (Var 100) [Branch (LPattern (Charc  't')) (Case  Flex (Var 101) [Branch (Pattern ("Prelude",":") [102,103]) (Case  Flex (Var 102) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 103) [Branch (Pattern ("Prelude",":") [104,105]) (Case  Flex (Var 104) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 105) [Branch (Pattern ("Prelude",":") [106,107]) (Case  Flex (Var 106) [Branch (LPattern (Charc  's')) (Case  Flex (Var 107) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 88) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 86) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("XML","textOfXml") [Var 17],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xml2FlatCurry._#lambda5") [],Var 34],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2typedecl") [],Var 51],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xml2FlatCurry._#lambda6") [],Var 66],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","xml2FlatCurry._#lambda7") [],Var 89]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","xml2FlatCurry._#lambda5") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("XML","textOfXml") [Var 4])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","xml2FlatCurry._#lambda6") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","FuncDecl") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'f')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (Pattern ("Prelude","(,)") [15,16]) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (Pattern ("Prelude","(,)") [31,32]) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 30) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (Pattern ("Prelude","(,)") [43,44]) (Case  Flex (Var 43) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  't')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [55,56]) (Case  Flex (Var 56) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [57,58]) (Case  Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Case  Flex (Var 60) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Func") [Comb ConsCall ("Prelude","(,)") [Var 16,Var 32],Comb FuncCall ("Read","readNat") [Var 44],Comb FuncCall ("FlatCurryXML","xvis2vis") [Var 55],Comb FuncCall ("FlatCurryXML","flatx2texp") [Var 57],Comb FuncCall ("FlatCurryXML","flatx2FunBody") [Var 59]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","xml2FlatCurry._#lambda7") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","OpDecl") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [11,12]) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (Pattern ("Prelude","(,)") [27,28]) (Case  Flex (Var 27) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Case  Flex (Var 31) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (Pattern ("Prelude","(,)") [39,40]) (Case  Flex (Var 39) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (LPattern (Charc  'f')) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'x')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  't')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (Pattern ("Prelude","(,)") [55,56]) (Case  Flex (Var 55) [Branch (Pattern ("Prelude",":") [57,58]) (Case  Flex (Var 57) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Case  Flex (Var 59) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 60) [Branch (Pattern ("Prelude",":") [61,62]) (Case  Flex (Var 61) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Case  Flex (Var 63) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 64) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Op") [Comb ConsCall ("Prelude","(,)") [Var 12,Var 28],Comb FuncCall ("FlatCurryXML","flatx2Fixity") [Var 40],Comb FuncCall ("Read","readNat") [Var 56]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2typedecl") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","TypeDecl") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  't')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (Pattern ("Prelude","(,)") [15,16]) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (Pattern ("Prelude","(,)") [31,32]) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 30) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 42) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (Pattern ("XML","XElem") [45,46,47]) (Case  Flex (Var 45) [Branch (Pattern ("Prelude",":") [48,49]) (Case  Flex (Var 48) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Case  Flex (Var 50) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Case  Flex (Var 52) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Case  Flex (Var 54) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Case  Flex (Var 56) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Case  Flex (Var 58) [Branch (LPattern (Charc  's')) (Case  Flex (Var 59) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 46) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Type") [Comb ConsCall ("Prelude","(,)") [Var 16,Var 32],Comb FuncCall ("FlatCurryXML","xvis2vis") [Var 41],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2typedecl._#lambda8") [],Var 47],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2typedecl._#lambda9") [],Var 44]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ("Prelude",":") [60,61]) (Case  Flex (Var 60) [Branch (LPattern (Charc  's')) (Case  Flex (Var 61) [Branch (Pattern ("Prelude",":") [62,63]) (Case  Flex (Var 62) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Case  Flex (Var 64) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [66,67]) (Case  Flex (Var 66) [Branch (Pattern ("Prelude","(,)") [68,69]) (Case  Flex (Var 68) [Branch (Pattern ("Prelude",":") [70,71]) (Case  Flex (Var 70) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Case  Flex (Var 72) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 73) [Branch (Pattern ("Prelude",":") [74,75]) (Case  Flex (Var 74) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Case  Flex (Var 76) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Case  Flex (Var 78) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 79) [Branch (Pattern ("Prelude",":") [80,81]) (Case  Flex (Var 80) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 81) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 67) [Branch (Pattern ("Prelude",":") [82,83]) (Case  Flex (Var 82) [Branch (Pattern ("Prelude","(,)") [84,85]) (Case  Flex (Var 84) [Branch (Pattern ("Prelude",":") [86,87]) (Case  Flex (Var 86) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 87) [Branch (Pattern ("Prelude",":") [88,89]) (Case  Flex (Var 88) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 89) [Branch (Pattern ("Prelude",":") [90,91]) (Case  Flex (Var 90) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 91) [Branch (Pattern ("Prelude",":") [92,93]) (Case  Flex (Var 92) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 93) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 83) [Branch (Pattern ("Prelude",":") [94,95]) (Case  Flex (Var 95) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [96,97]) (Case  Flex (Var 96) [Branch (Pattern ("XML","XElem") [98,99,100]) (Case  Flex (Var 98) [Branch (Pattern ("Prelude",":") [101,102]) (Case  Flex (Var 101) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 102) [Branch (Pattern ("Prelude",":") [103,104]) (Case  Flex (Var 103) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 104) [Branch (Pattern ("Prelude",":") [105,106]) (Case  Flex (Var 105) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 106) [Branch (Pattern ("Prelude",":") [107,108]) (Case  Flex (Var 107) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 108) [Branch (Pattern ("Prelude",":") [109,110]) (Case  Flex (Var 109) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 110) [Branch (Pattern ("Prelude",":") [111,112]) (Case  Flex (Var 111) [Branch (LPattern (Charc  's')) (Case  Flex (Var 112) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 99) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 97) [Branch (Pattern ("Prelude",":") [113,114]) (Case  Flex (Var 114) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","TypeSyn") [Comb ConsCall ("Prelude","(,)") [Var 69,Var 85],Comb FuncCall ("FlatCurryXML","xvis2vis") [Var 94],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2typedecl._#lambda10") [],Var 100],Comb FuncCall ("FlatCurryXML","flatx2texp") [Var 113]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2typedecl._#lambda8") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  't')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2typedecl._#lambda9") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","ConsDecl") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  's')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (Pattern ("Prelude","(,)") [15,16]) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (Pattern ("Prelude","(,)") [31,32]) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 30) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (Pattern ("Prelude","(,)") [43,44]) (Case  Flex (Var 43) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  't')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [55,56]) (Case  Flex (Var 56) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Cons") [Comb ConsCall ("Prelude","(,)") [Var 16,Var 32],Comb FuncCall ("Read","readNat") [Var 44],Comb FuncCall ("FlatCurryXML","xvis2vis") [Var 55],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2texp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2typedecl._#lambda10") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  't')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2FunBody") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","Rule") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'x')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  't')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("XML","textOfXml") [Var 4]])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (Pattern ("XML","XElem") [29,30,31]) (Case  Flex (Var 29) [Branch (Pattern ("Prelude",":") [32,33]) (Case  Flex (Var 32) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Case  Flex (Var 34) [Branch (LPattern (Charc  'h')) (Case  Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Case  Flex (Var 36) [Branch (LPattern (Charc  's')) (Case  Flex (Var 37) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 28) [Branch (Pattern ("Prelude",":") [38,39]) (Case  Flex (Var 38) [Branch (Pattern ("XML","XElem") [40,41,42]) (Case  Flex (Var 40) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'h')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  's')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 50) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 39) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2var") [],Var 31],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 49]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2var") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]])])])])])])])])])])),Func ("FlatCurryXML","flatx2exp") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Var") [Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]]])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  't')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Lit") [Comb FuncCall ("FlatCurryXML","flatx2lit") [Var 15]])])])])])])]),Branch (LPattern (Charc  'e')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  't')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Let [(19,Comb FuncCall ("FlatCurryXML","flatx2let") [Var 4])] (Let [(20,Comb FuncCall ("FlatCurryXML","flatx2exp._#selFP3#bindings") [Var 19])] (Let [(21,Comb FuncCall ("FlatCurryXML","flatx2exp._#selFP4#exp") [Var 19])] (Comb ConsCall ("FlatCurry","Let") [Var 20,Var 21]))))]),Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Let [(28,Comb FuncCall ("FlatCurryXML","flatx2let") [Var 4])] (Let [(29,Comb FuncCall ("FlatCurryXML","flatx2exp._#selFP6#bindings") [Var 28])] (Let [(30,Comb FuncCall ("FlatCurryXML","flatx2exp._#selFP7#exp") [Var 28])] (Comb ConsCall ("FlatCurry","Let") [Var 29,Var 30]))))])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [31,32]) (Case  Flex (Var 31) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Case  Flex (Var 37) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (Pattern ("Prelude","(,)") [47,48]) (Case  Flex (Var 47) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Case  Flex (Var 55) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Case  Flex (Var 57) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Case  Flex (Var 59) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 60) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 46) [Branch (Pattern ("Prelude",":") [61,62]) (Case  Flex (Var 61) [Branch (Pattern ("Prelude","(,)") [63,64]) (Case  Flex (Var 63) [Branch (Pattern ("Prelude",":") [65,66]) (Case  Flex (Var 65) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 66) [Branch (Pattern ("Prelude",":") [67,68]) (Case  Flex (Var 67) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Case  Flex (Var 69) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 70) [Branch (Pattern ("Prelude",":") [71,72]) (Case  Flex (Var 71) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 72) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 62) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Var 48,Var 64],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2exp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [73,74]) (Case  Flex (Var 73) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Case  Flex (Var 75) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Case  Flex (Var 77) [Branch (LPattern (Charc  't')) (Case  Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Case  Flex (Var 79) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 80) [Branch (Pattern ("Prelude",":") [81,82]) (Case  Flex (Var 81) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 82) [Branch (Pattern ("Prelude",":") [83,84]) (Case  Flex (Var 83) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 84) [Branch (Pattern ("Prelude",":") [85,86]) (Case  Flex (Var 85) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 86) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [87,88]) (Case  Flex (Var 87) [Branch (Pattern ("Prelude","(,)") [89,90]) (Case  Flex (Var 89) [Branch (Pattern ("Prelude",":") [91,92]) (Case  Flex (Var 91) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Case  Flex (Var 93) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 94) [Branch (Pattern ("Prelude",":") [95,96]) (Case  Flex (Var 95) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 96) [Branch (Pattern ("Prelude",":") [97,98]) (Case  Flex (Var 97) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 98) [Branch (Pattern ("Prelude",":") [99,100]) (Case  Flex (Var 99) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 100) [Branch (Pattern ("Prelude",":") [101,102]) (Case  Flex (Var 101) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 102) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 88) [Branch (Pattern ("Prelude",":") [103,104]) (Case  Flex (Var 103) [Branch (Pattern ("Prelude","(,)") [105,106]) (Case  Flex (Var 105) [Branch (Pattern ("Prelude",":") [107,108]) (Case  Flex (Var 107) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 108) [Branch (Pattern ("Prelude",":") [109,110]) (Case  Flex (Var 109) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 110) [Branch (Pattern ("Prelude",":") [111,112]) (Case  Flex (Var 111) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 112) [Branch (Pattern ("Prelude",":") [113,114]) (Case  Flex (Var 113) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 114) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 104) [Branch (Pattern ("Prelude",":") [115,116]) (Case  Flex (Var 115) [Branch (Pattern ("Prelude","(,)") [117,118]) (Case  Flex (Var 117) [Branch (Pattern ("Prelude",":") [119,120]) (Case  Flex (Var 119) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 120) [Branch (Pattern ("Prelude",":") [121,122]) (Case  Flex (Var 121) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 122) [Branch (Pattern ("Prelude",":") [123,124]) (Case  Flex (Var 123) [Branch (LPattern (Charc  's')) (Case  Flex (Var 124) [Branch (Pattern ("Prelude",":") [125,126]) (Case  Flex (Var 125) [Branch (LPattern (Charc  's')) (Case  Flex (Var 126) [Branch (Pattern ("Prelude",":") [127,128]) (Case  Flex (Var 127) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 128) [Branch (Pattern ("Prelude",":") [129,130]) (Case  Flex (Var 129) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 130) [Branch (Pattern ("Prelude",":") [131,132]) (Case  Flex (Var 131) [Branch (LPattern (Charc  'g')) (Case  Flex (Var 132) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 116) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncPartCall") [Comb FuncCall ("Read","readNat") [Var 118]],Comb ConsCall ("Prelude","(,)") [Var 90,Var 106],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2exp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [133,134]) (Case  Flex (Var 133) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 134) [Branch (Pattern ("Prelude",":") [135,136]) (Case  Flex (Var 135) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 136) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [137,138]) (Case  Flex (Var 137) [Branch (Pattern ("XML","XElem") [139,140,141]) (Case  Flex (Var 139) [Branch (Pattern ("Prelude",":") [142,143]) (Case  Flex (Var 142) [Branch (LPattern (Charc  'f')) (Case  Flex (Var 143) [Branch (Pattern ("Prelude",":") [144,145]) (Case  Flex (Var 144) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 145) [Branch (Pattern ("Prelude",":") [146,147]) (Case  Flex (Var 146) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 147) [Branch (Pattern ("Prelude",":") [148,149]) (Case  Flex (Var 148) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 149) [Branch (Pattern ("Prelude",":") [150,151]) (Case  Flex (Var 150) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 151) [Branch (Pattern ("Prelude",":") [152,153]) (Case  Flex (Var 152) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 153) [Branch (Pattern ("Prelude",":") [154,155]) (Case  Flex (Var 154) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 155) [Branch (Pattern ("Prelude",":") [156,157]) (Case  Flex (Var 156) [Branch (LPattern (Charc  's')) (Case  Flex (Var 157) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 140) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 138) [Branch (Pattern ("Prelude",":") [158,159]) (Case  Flex (Var 159) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Free") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2var") [],Var 141],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 158]])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [160,161]) (Case  Flex (Var 160) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 161) [Branch (Pattern ("Prelude",":") [162,163]) (Case  Flex (Var 162) [Branch (LPattern (Charc  's')) (Case  Flex (Var 163) [Branch (Pattern ("Prelude",":") [164,165]) (Case  Flex (Var 164) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 165) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [166,167]) (Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Flex") [],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 166],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2branch") [],Var 167]])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [168,169]) (Case  Flex (Var 168) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 169) [Branch (Pattern ("Prelude",":") [170,171]) (Case  Flex (Var 170) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 171) [Branch (Pattern ("Prelude",":") [172,173]) (Case  Flex (Var 172) [Branch (LPattern (Charc  's')) (Case  Flex (Var 173) [Branch (Pattern ("Prelude",":") [174,175]) (Case  Flex (Var 174) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 175) [Branch (Pattern ("Prelude",":") [176,177]) (Case  Flex (Var 176) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 177) [Branch (Pattern ("Prelude",":") [178,179]) (Case  Flex (Var 178) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 179) [Branch (Pattern ("Prelude",":") [180,181]) (Case  Flex (Var 180) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 181) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [182,183]) (Case  Flex (Var 182) [Branch (Pattern ("Prelude","(,)") [184,185]) (Case  Flex (Var 184) [Branch (Pattern ("Prelude",":") [186,187]) (Case  Flex (Var 186) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 187) [Branch (Pattern ("Prelude",":") [188,189]) (Case  Flex (Var 188) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 189) [Branch (Pattern ("Prelude",":") [190,191]) (Case  Flex (Var 190) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 191) [Branch (Pattern ("Prelude",":") [192,193]) (Case  Flex (Var 192) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 193) [Branch (Pattern ("Prelude",":") [194,195]) (Case  Flex (Var 194) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 195) [Branch (Pattern ("Prelude",":") [196,197]) (Case  Flex (Var 196) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 197) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 183) [Branch (Pattern ("Prelude",":") [198,199]) (Case  Flex (Var 198) [Branch (Pattern ("Prelude","(,)") [200,201]) (Case  Flex (Var 200) [Branch (Pattern ("Prelude",":") [202,203]) (Case  Flex (Var 202) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 203) [Branch (Pattern ("Prelude",":") [204,205]) (Case  Flex (Var 204) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 205) [Branch (Pattern ("Prelude",":") [206,207]) (Case  Flex (Var 206) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 207) [Branch (Pattern ("Prelude",":") [208,209]) (Case  Flex (Var 208) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 209) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 199) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Comb ConsCall ("Prelude","(,)") [Var 185,Var 201],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2exp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var 175) [Branch (Pattern ("Prelude",":") [210,211]) (Case  Flex (Var 210) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 211) [Branch (Pattern ("Prelude",":") [212,213]) (Case  Flex (Var 212) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 213) [Branch (Pattern ("Prelude",":") [214,215]) (Case  Flex (Var 214) [Branch (LPattern (Charc  't')) (Case  Flex (Var 215) [Branch (Pattern ("Prelude",":") [216,217]) (Case  Flex (Var 216) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 217) [Branch (Pattern ("Prelude",":") [218,219]) (Case  Flex (Var 218) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 219) [Branch (Pattern ("Prelude",":") [220,221]) (Case  Flex (Var 220) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 221) [Branch (Pattern ("Prelude",":") [222,223]) (Case  Flex (Var 222) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 223) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [224,225]) (Case  Flex (Var 224) [Branch (Pattern ("Prelude","(,)") [226,227]) (Case  Flex (Var 226) [Branch (Pattern ("Prelude",":") [228,229]) (Case  Flex (Var 228) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 229) [Branch (Pattern ("Prelude",":") [230,231]) (Case  Flex (Var 230) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 231) [Branch (Pattern ("Prelude",":") [232,233]) (Case  Flex (Var 232) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 233) [Branch (Pattern ("Prelude",":") [234,235]) (Case  Flex (Var 234) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 235) [Branch (Pattern ("Prelude",":") [236,237]) (Case  Flex (Var 236) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 237) [Branch (Pattern ("Prelude",":") [238,239]) (Case  Flex (Var 238) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 239) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 225) [Branch (Pattern ("Prelude",":") [240,241]) (Case  Flex (Var 240) [Branch (Pattern ("Prelude","(,)") [242,243]) (Case  Flex (Var 242) [Branch (Pattern ("Prelude",":") [244,245]) (Case  Flex (Var 244) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 245) [Branch (Pattern ("Prelude",":") [246,247]) (Case  Flex (Var 246) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 247) [Branch (Pattern ("Prelude",":") [248,249]) (Case  Flex (Var 248) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 249) [Branch (Pattern ("Prelude",":") [250,251]) (Case  Flex (Var 250) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 251) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 241) [Branch (Pattern ("Prelude",":") [252,253]) (Case  Flex (Var 252) [Branch (Pattern ("Prelude","(,)") [254,255]) (Case  Flex (Var 254) [Branch (Pattern ("Prelude",":") [256,257]) (Case  Flex (Var 256) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 257) [Branch (Pattern ("Prelude",":") [258,259]) (Case  Flex (Var 258) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 259) [Branch (Pattern ("Prelude",":") [260,261]) (Case  Flex (Var 260) [Branch (LPattern (Charc  's')) (Case  Flex (Var 261) [Branch (Pattern ("Prelude",":") [262,263]) (Case  Flex (Var 262) [Branch (LPattern (Charc  's')) (Case  Flex (Var 263) [Branch (Pattern ("Prelude",":") [264,265]) (Case  Flex (Var 264) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 265) [Branch (Pattern ("Prelude",":") [266,267]) (Case  Flex (Var 266) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 267) [Branch (Pattern ("Prelude",":") [268,269]) (Case  Flex (Var 268) [Branch (LPattern (Charc  'g')) (Case  Flex (Var 269) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 253) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsPartCall") [Comb FuncCall ("Read","readNat") [Var 255]],Comb ConsCall ("Prelude","(,)") [Var 227,Var 243],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2exp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'a')) (Case  Flex (Var 169) [Branch (Pattern ("Prelude",":") [270,271]) (Case  Flex (Var 270) [Branch (LPattern (Charc  's')) (Case  Flex (Var 271) [Branch (Pattern ("Prelude",":") [272,273]) (Case  Flex (Var 272) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 273) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [274,275]) (Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Rigid") [],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 274],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2branch") [],Var 275]])])])])])])])])])]),Branch (LPattern (Charc  'o')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [276,277]) (Case  Flex (Var 276) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 277) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [278,279]) (Case  Flex (Var 279) [Branch (Pattern ("Prelude",":") [280,281]) (Case  Flex (Var 281) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Or") [Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 278],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 280]])])])])])])])])])])])),Func ("FlatCurryXML","flatx2exp._#selFP3#bindings") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FlatCurryXML","flatx2exp._#selFP4#exp") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FlatCurryXML","flatx2exp._#selFP6#bindings") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FlatCurryXML","flatx2exp._#selFP7#exp") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FlatCurryXML","flatx2let") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 2]]),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 2) [Branch (Pattern ("XML","XElem") [6,7,8]) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'b')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'g')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (Pattern ("XML","XElem") [25,26,27]) (Case  Flex (Var 25) [Branch (Pattern ("Prelude",":") [28,29]) (Case  Flex (Var 28) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Case  Flex (Var 30) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Case  Flex (Var 32) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 33) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [34,35]) (Case  Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Let [(36,Comb FuncCall ("FlatCurryXML","flatx2let") [Comb ConsCall ("Prelude",":") [Var 4,Var 5]])] (Let [(37,Comb FuncCall ("FlatCurryXML","flatx2let._#selFP9#bindings") [Var 36])] (Let [(38,Comb FuncCall ("FlatCurryXML","flatx2let._#selFP10#exp") [Var 36])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 27]],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 34]],Var 37],Var 38]))))])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2let._#selFP9#bindings") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FlatCurryXML","flatx2let._#selFP10#exp") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FlatCurryXML","flatx2branch") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","BranchExpr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'b')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'h')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (Pattern ("XML","XElem") [19,20,21]) (Case  Flex (Var 19) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  't')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Case  Flex (Var 28) [Branch (LPattern (Charc  't')) (Case  Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Case  Flex (Var 30) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Case  Flex (Var 32) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Case  Flex (Var 34) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [36,37]) (Case  Flex (Var 36) [Branch (Pattern ("Prelude","(,)") [38,39]) (Case  Flex (Var 38) [Branch (Pattern ("Prelude",":") [40,41]) (Case  Flex (Var 40) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Case  Flex (Var 42) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Case  Flex (Var 44) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Case  Flex (Var 46) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Case  Flex (Var 48) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Case  Flex (Var 50) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 51) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 37) [Branch (Pattern ("Prelude",":") [52,53]) (Case  Flex (Var 52) [Branch (Pattern ("Prelude","(,)") [54,55]) (Case  Flex (Var 54) [Branch (Pattern ("Prelude",":") [56,57]) (Case  Flex (Var 56) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Case  Flex (Var 58) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Case  Flex (Var 60) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 61) [Branch (Pattern ("Prelude",":") [62,63]) (Case  Flex (Var 62) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 63) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 53) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [64,65]) (Case  Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","Pattern") [Comb ConsCall ("Prelude","(,)") [Var 39,Var 55],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2var") [],Var 21]],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 64]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [66,67]) (Case  Flex (Var 66) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 67) [Branch (Pattern ("Prelude",":") [68,69]) (Case  Flex (Var 68) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 69) [Branch (Pattern ("Prelude",":") [70,71]) (Case  Flex (Var 70) [Branch (LPattern (Charc  't')) (Case  Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Case  Flex (Var 72) [Branch (LPattern (Charc  't')) (Case  Flex (Var 73) [Branch (Pattern ("Prelude",":") [74,75]) (Case  Flex (Var 74) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Case  Flex (Var 76) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Case  Flex (Var 78) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 79) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [80,81]) (Case  Flex (Var 81) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [82,83]) (Case  Flex (Var 83) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("FlatCurryXML","flatx2lit") [Var 80]],Comb FuncCall ("FlatCurryXML","flatx2exp") [Var 82]])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'h')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude",":") [84,85]) (Case  Flex (Var 84) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 85) [Branch (Pattern ("Prelude",":") [86,87]) (Case  Flex (Var 86) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 87) [Branch (Pattern ("Prelude",":") [88,89]) (Case  Flex (Var 88) [Branch (LPattern (Charc  't')) (Case  Flex (Var 89) [Branch (Pattern ("Prelude",":") [90,91]) (Case  Flex (Var 90) [Branch (LPattern (Charc  't')) (Case  Flex (Var 91) [Branch (Pattern ("Prelude",":") [92,93]) (Case  Flex (Var 92) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 93) [Branch (Pattern ("Prelude",":") [94,95]) (Case  Flex (Var 94) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 95) [Branch (Pattern ("Prelude",":") [96,97]) (Case  Flex (Var 96) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 97) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [98,99]) (Case  Flex (Var 99) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2lit") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","Literal") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  't')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Intc") [Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]]])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (LPattern (Charc  't')) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Flex (Var 21) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'h')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Charc") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]]]])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2texp") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","TypeExpr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XElem") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 5) [Branch (LPattern (Charc  't')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 7) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Flex (Var 9) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Flex (Var 11) [Branch (LPattern (Charc  'r')) (Case  Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","TVar") [Comb FuncCall ("Read","readNat") [Comb FuncCall ("XML","textOfXml") [Var 4]]])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var 8) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Flex (Var 13) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Flex (Var 15) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Flex (Var 17) [Branch (LPattern (Charc  's')) (Case  Flex (Var 18) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Flex (Var 19) [Branch (Pattern ("Prelude","(,)") [21,22]) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Flex (Var 23) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Case  Flex (Var 25) [Branch (LPattern (Charc  'o')) (Case  Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Case  Flex (Var 27) [Branch (LPattern (Charc  'd')) (Case  Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Flex (Var 29) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Case  Flex (Var 31) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Flex (Var 33) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 34) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 20) [Branch (Pattern ("Prelude",":") [35,36]) (Case  Flex (Var 35) [Branch (Pattern ("Prelude","(,)") [37,38]) (Case  Flex (Var 37) [Branch (Pattern ("Prelude",":") [39,40]) (Case  Flex (Var 39) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 40) [Branch (Pattern ("Prelude",":") [41,42]) (Case  Flex (Var 41) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Case  Flex (Var 43) [Branch (LPattern (Charc  'm')) (Case  Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Case  Flex (Var 45) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 46) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","TCons") [Comb ConsCall ("Prelude","(,)") [Var 22,Var 38],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlatCurryXML","flatx2texp") [],Var 4]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var 6) [Branch (Pattern ("Prelude",":") [47,48]) (Case  Flex (Var 47) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Case  Flex (Var 49) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Case  Flex (Var 51) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Case  Flex (Var 53) [Branch (LPattern (Charc  't')) (Case  Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Case  Flex (Var 55) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Case  Flex (Var 57) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Case  Flex (Var 59) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 60) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 4) [Branch (Pattern ("Prelude",":") [61,62]) (Case  Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Case  Flex (Var 64) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","FuncType") [Comb FuncCall ("FlatCurryXML","flatx2texp") [Var 61],Comb FuncCall ("FlatCurryXML","flatx2texp") [Var 63]])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","xvis2vis") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("FlatCurry","Visibility") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 4) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  's')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'b')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  't')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'y')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [24,25]) (Case  Flex (Var 24) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Case  Flex (Var 26) [Branch (LPattern (Charc  'u')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Case  Flex (Var 28) [Branch (LPattern (Charc  'b')) (Case  Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Case  Flex (Var 30) [Branch (LPattern (Charc  'l')) (Case  Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Case  Flex (Var 32) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Case  Flex (Var 34) [Branch (LPattern (Charc  'c')) (Case  Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Public") [])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var 27) [Branch (Pattern ("Prelude",":") [36,37]) (Case  Flex (Var 36) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Case  Flex (Var 38) [Branch (LPattern (Charc  'v')) (Case  Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Case  Flex (Var 40) [Branch (LPattern (Charc  'a')) (Case  Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Case  Flex (Var 42) [Branch (LPattern (Charc  't')) (Case  Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Case  Flex (Var 44) [Branch (LPattern (Charc  'e')) (Case  Flex (Var 45) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","Private") [])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ("FlatCurryXML","flatx2Fixity") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("FlatCurry","Fixity") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (LPattern (Charc  'I')) (Case  Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 4) [Branch (LPattern (Charc  'n')) (Case  Flex (Var 5) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 6) [Branch (LPattern (Charc  'f')) (Case  Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Case  Flex (Var 8) [Branch (LPattern (Charc  'i')) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Case  Flex (Var 10) [Branch (LPattern (Charc  'x')) (Case  Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Flex (Var 12) [Branch (LPattern (Charc  'O')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Case  Flex (Var 14) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 15) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","InfixOp") [])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [16,17]) (Case  Flex (Var 16) [Branch (LPattern (Charc  'O')) (Case  Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Case  Flex (Var 18) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","InfixlOp") [])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var 13) [Branch (Pattern ("Prelude",":") [20,21]) (Case  Flex (Var 20) [Branch (LPattern (Charc  'O')) (Case  Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Case  Flex (Var 22) [Branch (LPattern (Charc  'p')) (Case  Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("FlatCurry","InfixrOp") [])])])])])])])])])])])])])])])])])]))] []
+ src/lib/Curry/Module/.curry/FlatCurryXML.fint view
@@ -0,0 +1,1 @@+Prog "FlatCurryXML" ["FlatCurry","Prelude","Read","XML"] [] [Func ("FlatCurryXML","flatCurry2XmlFile") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0)),Func ("FlatCurryXML","flatCurry2Xml") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("XML","XmlExp") [])) (Rule [] (Var 0)),Func ("FlatCurryXML","xmlFile2FlatCurry") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])) (Rule [] (Var 0)),Func ("FlatCurryXML","xml2FlatCurry") 1 Public (FuncType (TCons ("XML","XmlExp") []) (TCons ("FlatCurry","Prog") [])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlatCurryXML.uacy view
@@ -0,0 +1,32 @@+CurryProg "FlatCurryXML"+ ["Prelude","FlatCurry","XML","Read"]+ []+ [CFunc ("FlatCurryXML","flatCurry2Xml") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Prog") [CPVar (0,"modname"),CPVar (1,"imports"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (0,"modname")))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPVar (5,"s")] (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (5,"s")))) (CSymbol ("Prelude","[]")))))) (CVar (1,"imports"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowType"))) (CVar (2,"types"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowFunc"))) (CVar (3,"funcs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowOp"))) (CVar (4,"ops"))))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("FlatCurryXML","flatCurry2XmlFile") 2 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"flatprog"),CPVar (1,"filename")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (1,"filename"))) (CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","DtdUrl")) (CSymbol ("FlatCurryXML","flatCurryDtd")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","flatCurry2Xml")) (CVar (0,"flatprog")))))] []]),+  CFunc ("FlatCurryXML","flatCurryDtd") 0 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'k'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("FlatCurryXML","flatx2Fixity") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixOp"))] [],CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixlOp"))] [],CRule [CPComb ("Prelude",":") [CPLit (CCharc 'I'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'O'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","InfixrOp"))] []]),+  CFunc ("FlatCurryXML","flatx2FunBody") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPVar (0,"xename")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","External")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xename"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (1,"xvars")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (2,"xrhs"),CPComb ("Prelude","[]") []]],CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Rule")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (1,"xvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (2,"xrhs"))))] []]),+  CFunc ("FlatCurryXML","flatx2branch") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (0,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (1,"cons")],CPComb ("Prelude","[]") []]],CPVar (2,"xvars")],CPComb ("Prelude",":") [CPVar (3,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CApply (CSymbol ("FlatCurry","Pattern")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"mod"))) (CVar (1,"cons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (2,"xvars"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (3,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (4,"xlit"),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (5,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Branch")) (CApply (CSymbol ("FlatCurry","LPattern")) (CApply (CSymbol ("FlatCurryXML","flatx2lit")) (CVar (4,"xlit"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (5,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]]],CPVar (6,"_"),CPVar (7,"_")],CPComb ("Prelude",":") [CPVar (8,"_"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'H'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("FlatCurryXML","flatx2exp") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (0,"xvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Var")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xvar")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"xlit"),CPComb ("Prelude","[]") []]]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Lit")) (CApply (CSymbol ("FlatCurryXML","flatx2lit")) (CVar (1,"xlit"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (2,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (3,"name")],CPComb ("Prelude","[]") []]],CPVar (4,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","FuncCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"mod"))) (CVar (3,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (4,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (5,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (6,"name")],CPComb ("Prelude","[]") []]],CPVar (7,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","ConsCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (5,"mod"))) (CVar (6,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (7,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (8,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (9,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPVar (10,"nmiss")],CPComb ("Prelude","[]") []]]],CPVar (11,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CApply (CSymbol ("FlatCurry","FuncPartCall")) (CApply (CSymbol ("Read","readNat")) (CVar (10,"nmiss"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (8,"mod"))) (CVar (9,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (11,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude","[]") []]]]]]]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (12,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (13,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPVar (14,"nmiss")],CPComb ("Prelude","[]") []]]],CPVar (15,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CApply (CSymbol ("FlatCurry","ConsPartCall")) (CApply (CSymbol ("Read","readNat")) (CVar (14,"nmiss"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (12,"mod"))) (CVar (13,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2exp"))) (CVar (15,"xexps"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPVar (16,"xvars")],CPComb ("Prelude",":") [CPVar (17,"xexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Free")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2var"))) (CVar (16,"xvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (17,"xexp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (18,"xexp1"),CPComb ("Prelude",":") [CPVar (19,"xexp2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","Or")) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (18,"xexp1")))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (19,"xexp2"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (20,"xexp"),CPVar (21,"xbranches")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Case")) (CSymbol ("FlatCurry","Rigid"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (20,"xexp")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2branch"))) (CVar (21,"xbranches"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (22,"xexp"),CPVar (23,"xbranches")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Case")) (CSymbol ("FlatCurry","Flex"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (22,"xexp")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2branch"))) (CVar (23,"xbranches"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (24,"xbindings")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (25,"bindings"),CPVar (26,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CVar (24,"xbindings"))) []] (CApply (CApply (CSymbol ("FlatCurry","Let")) (CVar (25,"bindings"))) (CVar (26,"exp"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (27,"xbindings")]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (28,"bindings"),CPVar (29,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CVar (27,"xbindings"))) []] (CApply (CApply (CSymbol ("FlatCurry","Let")) (CVar (28,"bindings"))) (CVar (29,"exp"))))] []]),+  CFunc ("FlatCurryXML","flatx2let") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (0,"xexp"),CPComb ("Prelude","[]") []]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (0,"xexp"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (1,"xvar")],CPComb ("Prelude",":") [CPVar (2,"xexp"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPVar (3,"xb"),CPVar (4,"xbs")]]] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (5,"bindings"),CPVar (6,"exp")]) (CApply (CSymbol ("FlatCurryXML","flatx2let")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"xb"))) (CVar (4,"xbs")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (1,"xvar"))))) (CApply (CSymbol ("FlatCurryXML","flatx2exp")) (CVar (2,"xexp"))))) (CVar (5,"bindings")))) (CVar (6,"exp"))))] []]),+  CFunc ("FlatCurryXML","flatx2lit") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Literal") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (0,"xintc")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Intc")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xintc")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'R'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))))))))))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'h'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (2,"xintc")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","Charc")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (2,"xintc"))))))] []]),+  CFunc ("FlatCurryXML","flatx2texp") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","TypeExpr") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (0,"xtvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurry","TVar")) (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xtvar")))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPVar (1,"xtexp1"),CPComb ("Prelude",":") [CPVar (2,"xtexp2"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","FuncType")) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (1,"xtexp1")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (2,"xtexp2"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (3,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (4,"tcname")],CPComb ("Prelude","[]") []]],CPVar (5,"xtexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlatCurry","TCons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (3,"mod"))) (CVar (4,"tcname")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2texp"))) (CVar (5,"xtexps"))))] []]),+  CFunc ("FlatCurryXML","flatx2typedecl") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (0,"tmod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (1,"tname")],CPComb ("Prelude",":") [CPVar (2,"xtvis"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (3,"xtvars")],CPVar (4,"xconstructors")]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Type")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"tmod"))) (CVar (1,"tname")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (2,"xtvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (5,"xtvar")]] (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xtvar")))))) (CVar (3,"xtvars")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (6,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (7,"xcn")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPVar (8,"xar")],CPComb ("Prelude",":") [CPVar (9,"xvis"),CPComb ("Prelude","[]") []]]]],CPVar (10,"xtexps")]] (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Cons")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (6,"mod"))) (CVar (7,"xcn")))) (CApply (CSymbol ("Read","readNat")) (CVar (8,"xar")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (9,"xvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2texp"))) (CVar (10,"xtexps")))))) (CVar (4,"xconstructors"))))] [],CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (11,"tmod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (12,"tname")],CPComb ("Prelude",":") [CPVar (13,"xtvis"),CPComb ("Prelude","[]") []]]],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (14,"xtvars")],CPComb ("Prelude",":") [CPVar (15,"xtexp"),CPComb ("Prelude","[]") []]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","TypeSyn")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (11,"tmod"))) (CVar (12,"tname")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (13,"xtvis")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPVar (16,"xtvar")]] (CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (16,"xtvar")))))) (CVar (14,"xtvars")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (15,"xtexp"))))] []]),+  CFunc ("FlatCurryXML","flatx2var") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","VarIndex") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") [],CPVar (0,"xvar")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Read","readNat")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xvar"))))] []]),+  CFunc ("FlatCurryXML","qname2xmlattrs") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CVar (0,"mod")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CVar (1,"name")))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xml2FlatCurry") 1 Public (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("FlatCurry","Prog") [])) (CRules CFlex [CRule [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'g'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") [],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (0,"xmodname")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (1,"ximports")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]],CPComb ("Prelude","[]") [],CPVar (2,"xtypes")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (3,"xfunctions")],CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude","[]") []]]]]]]]]],CPComb ("Prelude","[]") [],CPVar (4,"xoperators")],CPComb ("Prelude","[]") []]]]]]]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Prog")) (CApply (CSymbol ("XML","textOfXml")) (CVar (0,"xmodname")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPComb ("Prelude","[]") [],CPVar (5,"xim")]] (CApply (CSymbol ("XML","textOfXml")) (CVar (5,"xim"))))) (CVar (1,"ximports")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","flatx2typedecl"))) (CVar (2,"xtypes")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (6,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (7,"fname")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]],CPVar (8,"farity")],CPComb ("Prelude",":") [CPVar (9,"xvis"),CPComb ("Prelude","[]") []]]]],CPComb ("Prelude",":") [CPVar (10,"xftype"),CPComb ("Prelude",":") [CPVar (11,"xfbody"),CPComb ("Prelude","[]") []]]]] (CApply (CApply (CApply (CApply (CApply (CSymbol ("FlatCurry","Func")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (6,"mod"))) (CVar (7,"fname")))) (CApply (CSymbol ("Read","readNat")) (CVar (8,"farity")))) (CApply (CSymbol ("FlatCurryXML","xvis2vis")) (CVar (9,"xvis")))) (CApply (CSymbol ("FlatCurryXML","flatx2texp")) (CVar (10,"xftype")))) (CApply (CSymbol ("FlatCurryXML","flatx2FunBody")) (CVar (11,"xfbody")))))) (CVar (3,"xfunctions")))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'o'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]],CPVar (12,"mod")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'n'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 'm'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]],CPVar (13,"name")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'f'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]],CPVar (14,"xfix")],CPComb ("Prelude",":") [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]],CPVar (15,"xprec")],CPComb ("Prelude","[]") []]]]],CPComb ("Prelude","[]") []]] (CApply (CApply (CApply (CSymbol ("FlatCurry","Op")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (12,"mod"))) (CVar (13,"name")))) (CApply (CSymbol ("FlatCurryXML","flatx2Fixity")) (CVar (14,"xfix")))) (CApply (CSymbol ("Read","readNat")) (CVar (15,"xprec")))))) (CVar (4,"xoperators"))))] []]),+  CFunc ("FlatCurryXML","xmlFile2FlatCurry") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("FlatCurry","Prog") []])) (CRules CFlex [CRule [CPVar (0,"filename")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"xexp")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"filename"))),CSExpr (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("FlatCurryXML","xml2FlatCurry")) (CVar (1,"xexp"))))])] []]),+  CFunc ("FlatCurryXML","xmlShowBranch") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","Pattern") [CPVar (0,"cons"),CPVar (1,"xs")],CPVar (2,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"cons")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (1,"xs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (2,"e")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Branch") [CPComb ("FlatCurry","LPattern") [CPVar (3,"lit")],CPVar (4,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowLit")) (CVar (3,"lit")))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (4,"e")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowCons") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Cons") [CPVar (0,"cname"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"types")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"cname")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity"))))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (2,"vis")))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTypeExpr"))) (CVar (3,"types"))))] []]),+  CFunc ("FlatCurryXML","xmlShowExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryXML","xmlShowVar")) (CVar (0,"n")))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowLit")) (CVar (1,"l")))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","FuncCall") [],CPVar (2,"cf"),CPVar (3,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (2,"cf")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (3,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPVar (4,"cf"),CPVar (5,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (4,"cf")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (5,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","FuncPartCall") [CPVar (6,"n")],CPVar (7,"cf"),CPVar (8,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (7,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (6,"n"))))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (8,"es"))))] [],CRule [CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsPartCall") [CPVar (9,"n")],CPVar (10,"cf"),CPVar (11,"es")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (10,"cf")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (9,"n"))))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowExpr"))) (CVar (11,"es"))))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (12,"xs"),CPVar (13,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (12,"xs"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (13,"e")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (14,"e1"),CPVar (15,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (14,"e1")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (15,"e2")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (16,"ctype"),CPVar (17,"e"),CPVar (18,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (16,"ctype"))) (CSymbol ("FlatCurry","Flex")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (17,"e")))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowBranch"))) (CVar (18,"cs")))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (19,"bindings"),CPVar (20,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("Prelude","(,)") [CPVar (21,"i"),CPVar (22,"e")]] (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowVar")) (CVar (21,"i")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (22,"e")))) (CSymbol ("Prelude","[]"))))))) (CVar (19,"bindings")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (20,"expr")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowFunc") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Func") [CPVar (0,"name"),CPVar (1,"arity"),CPVar (2,"vis"),CPVar (3,"ftype"),CPVar (4,"rl")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"arity"))))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (2,"vis")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (3,"ftype")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowRule")) (CVar (4,"rl")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowLit") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"i")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"f")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (1,"f"))))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (2,"c")))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowOp") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"fix"),CPVar (2,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("Prelude","show")) (CVar (1,"fix"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Prelude","show")) (CVar (2,"prec"))))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("FlatCurryXML","xmlShowRule") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Rule") [CPVar (0,"params"),CPVar (1,"expr")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowVar"))) (CVar (0,"params"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowExpr")) (CVar (1,"expr")))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","External") [CPVar (2,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CVar (2,"name")))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowTVar") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowType") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Type") [CPVar (0,"name"),CPVar (1,"vis"),CPVar (2,"tpars"),CPVar (3,"consdecls")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (0,"name")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (1,"vis"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTVar"))) (CVar (2,"tpars"))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowCons"))) (CVar (3,"consdecls")))))] [],CRule [CPComb ("FlatCurry","TypeSyn") [CPVar (4,"name"),CPVar (5,"vis"),CPVar (6,"tpars"),CPVar (7,"texp")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (4,"name")))) (CApply (CSymbol ("FlatCurryXML","xmlShowVisibity")) (CVar (5,"vis"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTVar"))) (CVar (6,"tpars"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (7,"texp")))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("FlatCurryXML","xmlShowTypeExpr") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","FuncType") [CPVar (0,"t1"),CPVar (1,"t2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (0,"t1")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("FlatCurryXML","xmlShowTypeExpr")) (CVar (1,"t2")))) (CSymbol ("Prelude","[]")))))] [],CRule [CPComb ("FlatCurry","TCons") [CPVar (2,"tc"),CPVar (3,"ts")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("FlatCurryXML","qname2xmlattrs")) (CVar (2,"tc")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlatCurryXML","xmlShowTypeExpr"))) (CVar (3,"ts"))))] [],CRule [CPComb ("FlatCurry","TVar") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryXML","xmlShowTVar")) (CVar (4,"n")))] []]),+  CFunc ("FlatCurryXML","xmlShowVar") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","xml")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","xtxt")) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("FlatCurryXML","xmlShowVisibity") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Public") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CSymbol ("Prelude","[]")))))))))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("FlatCurry","Private") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'b'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))))) (CSymbol ("Prelude","[]")))] []]),+  CFunc ("FlatCurryXML","xvis2vis") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'c'),CPComb ("Prelude","[]") []]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","Public"))] [],CRule [CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 's'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'b'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'y'),CPComb ("Prelude","[]") []]]]]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc 'p'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'i'),CPComb ("Prelude",":") [CPLit (CCharc 'v'),CPComb ("Prelude",":") [CPLit (CCharc 'a'),CPComb ("Prelude",":") [CPLit (CCharc 't'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]]]] [(CSymbol ("Prelude","success"),CSymbol ("FlatCurry","Private"))] []])]+ []
+ src/lib/Curry/Module/.curry/FlexRigid.acy view
@@ -0,0 +1,6 @@+CurryProg "FlexRigid"+ ["Prelude","FlatCurry"]+ [CType ("FlexRigid","FlexRigidResult") Public [] [CCons ("FlexRigid","UnknownFR") 0 Public [],CCons ("FlexRigid","ConflictFR") 0 Public [],CCons ("FlexRigid","KnownFlex") 0 Public [],CCons ("FlexRigid","KnownRigid") 0 Public []]]+ [CFunc ("FlexRigid","getFlexRigid") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlexRigid","FlexRigidResult") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("FlexRigid","joinCaseTypes"))) (CSymbol ("FlexRigid","UnknownFR"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlexRigid","getFlexRigid"))) (CVar (4,"args"))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (6,"e")))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (8,"e")))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlexRigid","joinCaseTypes")) (CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (9,"e1")))) (CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (10,"e2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"ctype"),CPVar (12,"e"),CPVar (13,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("FlexRigid","joinCaseTypes"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (11,"ctype"))) (CSymbol ("FlatCurry","Flex")))) (CSymbol ("FlexRigid","KnownFlex"))) (CSymbol ("FlexRigid","KnownRigid")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlexRigid","getFlexRigid"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"e"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Branch") [CPVar (14,"_"),CPVar (15,"be")]] (CVar (15,"be")))) (CVar (13,"bs"))))))] []]),+  CFunc ("FlexRigid","joinCaseTypes") 2 Private (CFuncType (CTCons ("FlexRigid","FlexRigidResult") []) (CFuncType (CTCons ("FlexRigid","FlexRigidResult") []) (CTCons ("FlexRigid","FlexRigidResult") []))) (CRules CFlex [CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] []])]+ []
+ src/lib/Curry/Module/.curry/FlexRigid.cy view
@@ -0,0 +1,9 @@+Module "FlexRigid"+(Just (Exporting (9,17) [(ExportTypeAll (QualIdent Nothing (Ident "FlexRigidResult" 0))),(Export (QualIdent Nothing (Ident "getFlexRigid" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (11,1) "FlatCurry" False Nothing Nothing)+,(DataDecl (14,1) (Ident "FlexRigidResult" 0) [] [(ConstrDecl (14,24) [] (Ident "UnknownFR" 0) []),(ConstrDecl (14,36) [] (Ident "ConflictFR" 0) []),(ConstrDecl (14,49) [] (Ident "KnownFlex" 0) []),(ConstrDecl (14,61) [] (Ident "KnownRigid" 0) [])])+,(TypeSig (21,1) [(Ident "getFlexRigid" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "FlexRigidResult" 0)) [])))+,(FunctionDecl (22,1) (Ident "getFlexRigid" 0) [(Equation (22,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "_" 3))]))]) (SimpleRhs (22,24) (Constructor (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0))) [])),(Equation (23,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "_" 6))]))]) (SimpleRhs (23,24) (Constructor (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0))) [])),(Equation (24,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "_" 9)),(VariablePattern (Ident "_" 10)),(VariablePattern (Ident "args" 8))]))]) (SimpleRhs (25,4) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "FlexRigid") (Ident "joinCaseTypes" 0)))) (Constructor (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0)))) (Variable (QualIdent Nothing (Ident "args" 8)))))) [])),(Equation (26,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "_" 13)),(VariablePattern (Ident "e" 12))]))]) (SimpleRhs (26,26) (Apply (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0))) (Variable (QualIdent Nothing (Ident "e" 12)))) [])),(Equation (27,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "_" 16)),(VariablePattern (Ident "e" 15))]))]) (SimpleRhs (27,27) (Apply (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0))) (Variable (QualIdent Nothing (Ident "e" 15)))) [])),(Equation (28,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 18)),(VariablePattern (Ident "e2" 18))]))]) (SimpleRhs (29,4) (Apply (Apply (Variable (QualIdent (Just "FlexRigid") (Ident "joinCaseTypes" 0))) (Paren (Apply (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0))) (Variable (QualIdent Nothing (Ident "e1" 18)))))) (Paren (Apply (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0))) (Variable (QualIdent Nothing (Ident "e2" 18)))))) [])),(Equation (30,1) (FunLhs (Ident "getFlexRigid" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ctype" 20)),(VariablePattern (Ident "e" 20)),(VariablePattern (Ident "bs" 20))]))]) (SimpleRhs (31,4) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "foldr" 0))) (Variable (QualIdent (Just "FlexRigid") (Ident "joinCaseTypes" 0)))) (Paren (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "ctype" 20))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "Flex" 0)))) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0))) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "FlexRigid") (Ident "getFlexRigid" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "e" 20))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "_" 23)),(VariablePattern (Ident "be" 22))]))] (Variable (QualIdent Nothing (Ident "be" 22)))))) (Variable (QualIdent Nothing (Ident "bs" 20))))))))) []))])+,(FunctionDecl (34,1) (Ident "joinCaseTypes" 0) [(Equation (34,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) [])]) (SimpleRhs (34,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (35,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) [])]) (SimpleRhs (35,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (36,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) [])]) (SimpleRhs (36,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (37,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) [])]) (SimpleRhs (37,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (38,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) [])]) (SimpleRhs (38,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (39,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) [])]) (SimpleRhs (39,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (40,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0)) [])]) (SimpleRhs (40,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (41,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) [])]) (SimpleRhs (41,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0))) [])),(Equation (42,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) [])]) (SimpleRhs (42,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0))) [])),(Equation (43,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) [])]) (SimpleRhs (43,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0))) [])),(Equation (44,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) [])]) (SimpleRhs (44,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0))) [])),(Equation (45,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) [])]) (SimpleRhs (45,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0))) [])),(Equation (46,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) [])]) (SimpleRhs (46,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (47,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "UnknownFR" 0)) [])]) (SimpleRhs (47,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0))) [])),(Equation (48,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownFlex" 0)) [])]) (SimpleRhs (48,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "ConflictFR" 0))) [])),(Equation (49,1) (FunLhs (Ident "joinCaseTypes" 0) [(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) []),(ConstructorPattern (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0)) [])]) (SimpleRhs (49,39) (Constructor (QualIdent (Just "FlexRigid") (Ident "KnownRigid" 0))) []))])+]
+ src/lib/Curry/Module/.curry/FlexRigid.efc view
@@ -0,0 +1,1 @@+Prog "FlexRigid" ["FlatCurry","Prelude"] [Type ((Nothing,Nothing,"FlexRigid","FlexRigidResult")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) 0 Public []]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlexRigid","FlexRigidResult")) [])) (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)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []),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,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []),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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []]) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))),"FlexRigid","joinCaseTypes")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),8))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))),"FlexRigid","joinCaseTypes")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))]]),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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []]) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))),"FlexRigid","joinCaseTypes")) [],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) [])],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") [])),"FlexRigid","getFlexRigid")) [],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") []),14)),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 (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlexRigid","getFlexRigid._#lambda2")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlexRigid","getFlexRigid._#lambda2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [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") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (FuncType (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []) (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []))),"FlexRigid","joinCaseTypes")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlexRigid","FlexRigidResult")) []) (FuncType (TCons ((Nothing,Nothing,"FlexRigid","FlexRigidResult")) []) (TCons ((Nothing,Nothing,"FlexRigid","FlexRigidResult")) []))) (Rule [(Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),1),(Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","UnknownFR")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownFlex")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","ConflictFR")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlexRigid","FlexRigidResult") []),"FlexRigid","KnownRigid")) [])])]))] []
+ src/lib/Curry/Module/.curry/FlexRigid.fcy view
@@ -0,0 +1,1 @@+Prog "FlexRigid" ["FlatCurry","Prelude"] [Type ("FlexRigid","FlexRigidResult") Public [] [Cons ("FlexRigid","UnknownFR") 0 Public [],Cons ("FlexRigid","ConflictFR") 0 Public [],Cons ("FlexRigid","KnownFlex") 0 Public [],Cons ("FlexRigid","KnownRigid") 0 Public []]] [Func ("FlexRigid","getFlexRigid") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlexRigid","FlexRigidResult") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Var") [2]) (Comb ConsCall ("FlexRigid","UnknownFR") []),Branch (Pattern ("FlatCurry","Lit") [3]) (Comb ConsCall ("FlexRigid","UnknownFR") []),Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("FlexRigid","joinCaseTypes") [],Comb ConsCall ("FlexRigid","UnknownFR") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlexRigid","getFlexRigid") [],Var 6]]),Branch (Pattern ("FlatCurry","Let") [7,8]) (Comb FuncCall ("FlexRigid","getFlexRigid") [Var 8]),Branch (Pattern ("FlatCurry","Free") [9,10]) (Comb FuncCall ("FlexRigid","getFlexRigid") [Var 10]),Branch (Pattern ("FlatCurry","Or") [11,12]) (Comb FuncCall ("FlexRigid","joinCaseTypes") [Comb FuncCall ("FlexRigid","getFlexRigid") [Var 11],Comb FuncCall ("FlexRigid","getFlexRigid") [Var 12]]),Branch (Pattern ("FlatCurry","Case") [13,14,15]) (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("FlexRigid","joinCaseTypes") [],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 13,Comb ConsCall ("FlatCurry","Flex") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("FlexRigid","KnownFlex") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("FlexRigid","KnownRigid") [])],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlexRigid","getFlexRigid") [],Comb ConsCall ("Prelude",":") [Var 14,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("FlexRigid","getFlexRigid._#lambda2") [],Var 15]]]])])),Func ("FlexRigid","getFlexRigid._#lambda2") 1 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Expr") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Branch") [2,3]) (Var 3)])),Func ("FlexRigid","joinCaseTypes") 2 Private (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (TCons ("FlexRigid","FlexRigidResult") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Case  Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb ConsCall ("FlexRigid","ConflictFR") [])]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Case  Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb ConsCall ("FlexRigid","UnknownFR") []),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb ConsCall ("FlexRigid","KnownFlex") []),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb ConsCall ("FlexRigid","KnownRigid") [])]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Case  Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb ConsCall ("FlexRigid","KnownFlex") []),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb ConsCall ("FlexRigid","KnownFlex") []),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb ConsCall ("FlexRigid","ConflictFR") [])]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Case  Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb ConsCall ("FlexRigid","KnownRigid") []),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb ConsCall ("FlexRigid","ConflictFR") []),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb ConsCall ("FlexRigid","KnownRigid") [])])]))] []
+ src/lib/Curry/Module/.curry/FlexRigid.fint view
@@ -0,0 +1,1 @@+Prog "FlexRigid" ["FlatCurry","Prelude"] [Type ("FlexRigid","FlexRigidResult") Public [] [Cons ("FlexRigid","UnknownFR") 0 Public [],Cons ("FlexRigid","ConflictFR") 0 Public [],Cons ("FlexRigid","KnownFlex") 0 Public [],Cons ("FlexRigid","KnownRigid") 0 Public []]] [Func ("FlexRigid","getFlexRigid") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlexRigid","FlexRigidResult") [])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/FlexRigid.uacy view
@@ -0,0 +1,6 @@+CurryProg "FlexRigid"+ ["Prelude","FlatCurry"]+ [CType ("FlexRigid","FlexRigidResult") Public [] [CCons ("FlexRigid","UnknownFR") 0 Public [],CCons ("FlexRigid","ConflictFR") 0 Public [],CCons ("FlexRigid","KnownFlex") 0 Public [],CCons ("FlexRigid","KnownRigid") 0 Public []]]+ [CFunc ("FlexRigid","getFlexRigid") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlexRigid","FlexRigidResult") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Var") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlatCurry","Lit") [CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlatCurry","Comb") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("FlexRigid","joinCaseTypes"))) (CSymbol ("FlexRigid","UnknownFR"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlexRigid","getFlexRigid"))) (CVar (4,"args"))))] [],CRule [CPComb ("FlatCurry","Let") [CPVar (5,"_"),CPVar (6,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (6,"e")))] [],CRule [CPComb ("FlatCurry","Free") [CPVar (7,"_"),CPVar (8,"e")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (8,"e")))] [],CRule [CPComb ("FlatCurry","Or") [CPVar (9,"e1"),CPVar (10,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("FlexRigid","joinCaseTypes")) (CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (9,"e1")))) (CApply (CSymbol ("FlexRigid","getFlexRigid")) (CVar (10,"e2"))))] [],CRule [CPComb ("FlatCurry","Case") [CPVar (11,"ctype"),CPVar (12,"e"),CPVar (13,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","foldr")) (CSymbol ("FlexRigid","joinCaseTypes"))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (11,"ctype"))) (CSymbol ("FlatCurry","Flex")))) (CSymbol ("FlexRigid","KnownFlex"))) (CSymbol ("FlexRigid","KnownRigid")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("FlexRigid","getFlexRigid"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (12,"e"))) (CApply (CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Branch") [CPVar (14,"_"),CPVar (15,"be")]] (CVar (15,"be")))) (CVar (13,"bs"))))))] []]),+  CFunc ("FlexRigid","joinCaseTypes") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","ConflictFR") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","ConflictFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","UnknownFR"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","UnknownFR") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownFlex"))] [],CRule [CPComb ("FlexRigid","KnownFlex") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","UnknownFR") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","KnownFlex") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","ConflictFR"))] [],CRule [CPComb ("FlexRigid","KnownRigid") [],CPComb ("FlexRigid","KnownRigid") []] [(CSymbol ("Prelude","success"),CSymbol ("FlexRigid","KnownRigid"))] []])]+ []
+ src/lib/Curry/Module/.curry/PrettyFlat.acy view
@@ -0,0 +1,67 @@+CurryProg "PrettyFlat"+ ["Prelude","Char","Maybe","Pretty","FlatCurry","FlatCurryGoodies","StyledText","System"]+ [CTypeSyn ("PrettyFlat","Precs") Public [] (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") []]])]+ [CFunc ("PrettyFlat","<$>>") 2 Public (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"d1"),CPVar (1,"d2")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CVar (0,"d1"))) (CSymbol ("Pretty","line")))) (CVar (1,"d2")))] []]),+  CFunc ("PrettyFlat","app") 2 Public (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"d"),CPVar (1,"ds")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"ds")))) (CVar (0,"d"))) (CApply (CSymbol ("PrettyFlat","block")) (CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","space"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"d"))) (CVar (1,"ds"))))))] []]),+  CFunc ("PrettyFlat","arrow") 0 Public (CTCons ("Pretty","Doc") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","bar") 0 Public (CTCons ("Pretty","Doc") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","char")) (CLit (CCharc '|'))))] []]),+  CFunc ("PrettyFlat","block") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","group"))) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1))))] []]),+  CFunc ("PrettyFlat","branchDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("FlatCurry","Branch") [CPVar (2,"pat"),CPVar (3,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","patternDoc")) (CVar (1,"mod"))) (CVar (2,"pat")))) (CSymbol ("PrettyFlat","arrow")))) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (3,"e")))))] []]),+  CFunc ("PrettyFlat","caseTypeDoc") 1 Public (CFuncType (CTCons ("FlatCurry","CaseType") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Rigid") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] [],CRule [CPComb ("FlatCurry","Flex") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] []]),+  CFunc ("PrettyFlat","consDeclDoc") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Cons") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","True")))) (CVar (4,"args"))))] []]),+  CFunc ("PrettyFlat","consDeclsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals")))) (CSymbol ("Pretty","space")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","bar"))) (CSymbol ("Pretty","space"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (1,"x0"))) (CSymbol ("Pretty","space"))))) (CApply (CSymbol ("PrettyFlat","consDeclDoc")) (CVar (0,"mod"))))))] []]),+  CFunc ("PrettyFlat","consname") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","greenDoc"))) (CSymbol ("Pretty","text")))] []]),+  CFunc ("PrettyFlat","correctName") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (1,"name'")) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","elem"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))) (CVar (0,"name"))) []] (CCase (CVar (1,"name'")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc '_'),CPVar (2,"xs")]) (CVar (2,"xs")),CBranch (CPVar (3,"_")) (CVar (1,"name'"))]))] []]),+  CFunc ("PrettyFlat","dcolon") 0 Public (CTCons ("Pretty","Doc") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","def") 3 Public (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"params"),CPVar (2,"body")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","block")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (0,"name"))) (CVar (3,"paramDoc")))) (CVar (2,"body"))))] [CLocalPat (CPVar (3,"paramDoc")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"params")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (1,"params"))))))) []]]),+  CFunc ("PrettyFlat","elimApp") 0 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updCombs")) (CSymbol ("PrettyFlat","elim")))] [CLocalFunc (CFunc ("PrettyFlat","elim") 3 Private (CFuncType (CTCons ("FlatCurry","CombType") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]) (CTCons ("FlatCurry","Expr") [])))) (CRules CFlex [CRule [CPVar (0,"ct"),CPVar (1,"name"),CPVar (2,"args")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"ct"))) (CSymbol ("FlatCurry","FuncCall")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args"))))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("FlatCurryGoodies","combName")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CApply (CApply (CSymbol ("PrettyFlat","extend")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args")))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (0,"ct"))) (CVar (1,"name"))) (CVar (2,"args")))] []])),CLocalFunc (CFunc ("PrettyFlat","extend") 2 Private (CFuncType (CTCons ("FlatCurry","Expr") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") []))) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"ct"),CPVar (1,"name"),CPVar (2,"args")],CPVar (3,"arg")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (0,"ct"))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"args"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"arg"))) (CSymbol ("Prelude","[]")))))] []]))]]),+  CFunc ("PrettyFlat","expDoc") 5 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Pretty","Doc") [])))))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"_"),CPVar (2,"mod"),CPVar (3,"br"),CPVar (4,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc2")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (2,"mod"))) (CVar (3,"br"))) (CVar (4,"exp")))) (CLambda [CPVar (5,"l")] (CApply (CSymbol ("Pretty","list")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (2,"mod"))) (CSymbol ("Prelude","False")))) (CVar (5,"l")))))) (CApply (CSymbol ("PrettyFlat","toList")) (CVar (4,"exp"))))) (CLambda [CPVar (6,"s")] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (6,"s")))) (CApply (CSymbol ("PrettyFlat","consname")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("PrettyFlat","literal")) (CApply (CSymbol ("Pretty","dquotes")) (CApply (CSymbol ("Pretty","text")) (CVar (6,"s")))))))) (CApply (CSymbol ("PrettyFlat","toString")) (CVar (4,"exp"))))] []]),+  CFunc ("PrettyFlat","expDoc2") 5 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Pretty","Doc") [])))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","Var") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","varDoc")) (CVar (4,"n")))] [],CRule [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Lit") [CPVar (9,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","litDoc")) (CVar (9,"l")))] [],CRule [CPVar (10,"pr"),CPVar (11,"p"),CPVar (12,"mod"),CPVar (13,"br"),CPComb ("FlatCurry","Comb") [CPVar (14,"ct"),CPVar (15,"name"),CPVar (16,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (14,"ct"))) (CSymbol ("FlatCurry","FuncCall")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (15,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (13,"br")))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 0))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 1))))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (14,"ct"))) (CSymbol ("FlatCurry","ConsCall")))) (CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (15,"name"))),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","False")))) (CVar (16,"args")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (15,"name")))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (16,"args")))) (CLit (CIntc 2))),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Pretty","align"))) (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","precFillEncloseSep")) (CVar (19,"pOp"))) (CVar (11,"p"))) (CVar (17,"lbr"))) (CVar (18,"rbr"))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CVar (19,"pOp"))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 0))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("Prelude","snd")) (CVar (15,"name"))))))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CVar (19,"pOp"))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 1))))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (16,"args"))))) (CVar (13,"br"))))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (12,"mod"))) (CVar (15,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True")))) (CVar (16,"args")))))] [CLocalPat (CPComb ("Prelude","(,)") [CPVar (17,"lbr"),CPVar (18,"rbr")]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (13,"br"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Pretty","lparen"))) (CSymbol ("Pretty","rparen")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty")))) [],CLocalPat (CPVar (19,"pOp")) (CCase (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (15,"name"))) (CVar (10,"pr"))) [CBranch (CPComb ("Prelude","Just") [CPVar (20,"pr")]) (CVar (20,"pr")),CBranch (CPComb ("Prelude","Nothing") []) (CLit (CIntc 0))]) []],CRule [CPVar (21,"pr"),CPVar (22,"_"),CPVar (23,"mod"),CPVar (24,"br"),CPComb ("FlatCurry","Let") [CPVar (25,"bs"),CPVar (26,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (24,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","letBindsDoc")) (CVar (21,"pr"))) (CVar (23,"mod"))) (CVar (25,"bs"))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (21,"pr"))) (CLit (CIntc 0))) (CVar (23,"mod"))) (CSymbol ("Prelude","False"))) (CVar (26,"e"))))))] [],CRule [CPVar (27,"pr"),CPVar (28,"_"),CPVar (29,"mod"),CPVar (30,"br"),CPComb ("FlatCurry","Free") [CPVar (31,"vs"),CPVar (32,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (30,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","comma"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (31,"vs")))))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (27,"pr"))) (CLit (CIntc 0))) (CVar (29,"mod"))) (CSymbol ("Prelude","False"))) (CVar (32,"e"))))))] [],CRule [CPVar (33,"pr"),CPVar (34,"_"),CPVar (35,"mod"),CPVar (36,"br"),CPComb ("FlatCurry","Or") [CPVar (37,"e1"),CPVar (38,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (33,"pr"))) (CLit (CIntc 0))) (CVar (35,"mod"))) (CVar (36,"br"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","FuncCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (37,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (38,"e2"))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPVar (39,"pr"),CPVar (40,"_"),CPVar (41,"mod"),CPVar (42,"br"),CPComb ("FlatCurry","Case") [CPVar (43,"ct"),CPVar (44,"e"),CPVar (45,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (42,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","caseTypeDoc")) (CVar (43,"ct")))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (39,"pr"))) (CLit (CIntc 0))) (CVar (41,"mod"))) (CSymbol ("Prelude","False"))) (CVar (44,"e")))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("PrettyFlat","layout")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","branchDoc")) (CVar (39,"pr"))) (CVar (41,"mod")))) (CVar (45,"bs")))))))] []]),+  CFunc ("PrettyFlat","exportedNames") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Prog") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","typeExpDoc"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (6,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (6,"x0"))))) (CSymbol ("FlatCurryGoodies","typeVisibility")))) (CVar (3,"types"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod")))) (CSymbol ("FlatCurryGoodies","funcName")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (7,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (7,"x0"))))) (CSymbol ("FlatCurryGoodies","funcVisibility")))) (CVar (4,"funcs")))))] [CLocalFunc (CFunc ("PrettyFlat","typeExpDoc") 1 Private (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (6,"tdecl")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (7,"ecs")) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (8,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (8,"x0"))))) (CSymbol ("FlatCurryGoodies","consVisibility")))) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"cs")] (CVar (12,"cs")))) (CLambda [CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"_")] (CSymbol ("Prelude","[]")))) (CVar (6,"tdecl")))) []] (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","typeName")) (CVar (6,"tdecl"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (7,"ecs")))) (CSymbol ("Pretty","empty"))) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))))] []]))]]),+  CFunc ("PrettyFlat","exportsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"xs")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","group")) (CApply (CApply (CSymbol ("Pretty","nest")) (CLit (CIntc 1))) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CSymbol ("Pretty","lparen"))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","comma"))) (CVar (0,"xs"))))))) (CSymbol ("Pretty","rparen")))))] []]),+  CFunc ("PrettyFlat","funcDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("FlatCurry","Func") [CPVar (2,"name"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"typ"),CPVar (6,"rule")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcTypeDeclDoc")) (CVar (1,"mod"))) (CVar (2,"name"))) (CVar (5,"typ")))) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","ruleDoc")) (CVar (0,"pr"))) (CVar (1,"mod"))) (CVar (2,"name"))) (CVar (6,"rule"))))] []]),+  CFunc ("PrettyFlat","funcTypeDeclDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"name"),CPVar (2,"typ")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcTypeDoc")) (CVar (0,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (2,"typ")))) (CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (2,"typ")))))] []]),+  CFunc ("PrettyFlat","funcTypeDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"args"),CPVar (2,"res")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","dcolon"))) (CSymbol ("Pretty","space")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","arrow"))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (3,"x0"))) (CSymbol ("Pretty","space"))))) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","True"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"args"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"res"))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","funcsDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPVar (2,"funcs")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","line"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","funcDoc")) (CVar (0,"pr"))) (CVar (1,"mod")))) (CVar (2,"funcs")))))] []]),+  CFunc ("PrettyFlat","impsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"imps")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))))) (CVar (1,"x0"))))) (CSymbol ("PrettyFlat","consname")))) (CVar (0,"imps"))))] []]),+  CFunc ("PrettyFlat","infixIDs") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("PrettyFlat","isInfixName") 1 Public (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","all")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (2,"x0"))) (CSymbol ("PrettyFlat","infixIDs"))))) (CVar (1,"n")))] []]),+  CFunc ("PrettyFlat","isTupleName") 1 Public (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"mod"))) (CSymbol ("PrettyFlat","prelude")))) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","keyword") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","magentaDoc"))) (CSymbol ("Pretty","text")))] []]),+  CFunc ("PrettyFlat","layout") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","align"))) (CApply (CSymbol ("Pretty","compose")) (CApply (CSymbol ("Pretty","combine")) (CApply (CSymbol ("Pretty","linesep")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("PrettyFlat","letBindDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("Prelude","(,)") [CPVar (2,"n"),CPVar (3,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","varDoc")) (CVar (2,"n")))) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals"))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (3,"e"))))] []]),+  CFunc ("PrettyFlat","letBindsDoc") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("PrettyFlat","layout"))) (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","letBindDoc")) (CVar (0,"pr"))) (CVar (1,"mod")))))] []]),+  CFunc ("PrettyFlat","litDoc") 1 Public (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","literal")) (CApply (CSymbol ("Pretty","int")) (CVar (0,"n"))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"x")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","literal")) (CApply (CSymbol ("Pretty","float")) (CVar (1,"x"))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","literal")) (CApply (CSymbol ("Pretty","squotes")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("PrettyFlat","quoteChar")) (CVar (2,"c"))))))] []]),+  CFunc ("PrettyFlat","literal") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CSymbol ("StyledText","cyanDoc"))] []]),+  CFunc ("PrettyFlat","mainPrint") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("System","getArgs"))) (CApply (CSymbol ("Prelude","mapIO_")) (CSymbol ("PrettyFlat","printProg"))))] []]),+  CFunc ("PrettyFlat","marked") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","bgYellowDoc"))) (CSymbol ("StyledText","boldDoc")))] []]),+  CFunc ("PrettyFlat","moduleHeaderDoc") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"exports")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (0,"name"))))) (CApply (CSymbol ("PrettyFlat","exportsDoc")) (CVar (1,"exports"))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("PrettyFlat","opDoc") 1 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPAs (2,"n") (CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")]),CPVar (3,"fix"),CPVar (4,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("PrettyFlat","fixDoc")) (CVar (3,"fix"))))) (CApply (CSymbol ("Pretty","int")) (CVar (4,"prec"))))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (5,"infname")))))] [CLocalPat (CPVar (5,"infname")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (2,"n")))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CSymbol ("Prelude","[]")))))) [],CLocalFunc (CFunc ("PrettyFlat","fixDoc") 1 Private (CFuncType (CTCons ("FlatCurry","Fixity") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))] []]))]]),+  CFunc ("PrettyFlat","operator") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CSymbol ("StyledText","blueDoc"))] []]),+  CFunc ("PrettyFlat","opsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"ops")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","opDoc"))) (CVar (0,"ops"))))] []]),+  CFunc ("PrettyFlat","par") 1 Public (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"br")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"br"))) (CSymbol ("Pretty","parens"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("PrettyFlat","patternDoc") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Pattern") [CPVar (1,"name"),CPVar (2,"args")]] [(CApply (CSymbol ("Prelude","null")) (CVar (2,"args")),CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name"))),(CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (1,"name")),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (2,"args")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (2,"args")))) (CLit (CIntc 2))),CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","varDoc")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 0))))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("Prelude","snd")) (CVar (1,"name"))))))) (CApply (CSymbol ("PrettyFlat","varDoc")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 1))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CApply (CSymbol ("Pretty","hsep")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (2,"args")))))] [],CRule [CPVar (3,"_"),CPComb ("FlatCurry","LPattern") [CPVar (4,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","litDoc")) (CVar (4,"l")))] []]),+  CFunc ("PrettyFlat","precFillEncloseSep") 6 Public (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))))))) (CRules CFlex [CRule [CPVar (0,"p1"),CPVar (1,"p2"),CPVar (2,"l"),CPVar (3,"r"),CPVar (4,"s"),CPVar (5,"ds")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","pre")) (CVar (0,"p1"))) (CVar (1,"p2"))) (CVar (2,"l")))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","pre")) (CVar (0,"p1"))) (CVar (1,"p2"))) (CVar (3,"r")))) (CVar (4,"s"))) (CVar (5,"ds")))] [CLocalFunc (CFunc ("PrettyFlat","pre") 3 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (6,"pO"),CPVar (7,"pI"),CPVar (8,"br")] [(CApply (CApply (CSymbol ("Prelude","<")) (CVar (6,"pO"))) (CVar (7,"pI")),CSymbol ("Pretty","empty")),(CSymbol ("Prelude","True"),CVar (8,"br"))] []]))]]),+  CFunc ("PrettyFlat","precs") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"i")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"name"))) (CVar (2,"i")))))] []]),+  CFunc ("PrettyFlat","prelude") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("PrettyFlat","prettyOps") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CSymbol ("PrettyFlat","opsDoc")))] []]),+  CFunc ("PrettyFlat","prettyProg") 1 Public (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"n")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("PrettyFlat","progDoc"))) (CApply (CSymbol ("FlatCurryGoodies","updProgExps")) (CSymbol ("PrettyFlat","elimApp")))))] []]),+  CFunc ("PrettyFlat","prettyTypeExpr") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","False"))))] []]),+  CFunc ("PrettyFlat","prettyTypes") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CApply (CSymbol ("PrettyFlat","typesDoc")) (CVar (0,"mod"))))] []]),+  CFunc ("PrettyFlat","printProg") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (0,"f")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","putStrLn"))) (CSymbol ("PrettyFlat","showProg"))))] []]),+  CFunc ("PrettyFlat","printStyledProg") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (0,"f")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","printStyledText"))) (CSymbol ("PrettyFlat","showStyledProg"))))] []]),+  CFunc ("PrettyFlat","progDoc") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPAs (5,"prog") (CPComb ("FlatCurry","Prog") [CPVar (0,"name"),CPVar (1,"imps"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","moduleHeaderDoc")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("PrettyFlat","exportedNames")) (CVar (0,"name"))) (CVar (5,"prog"))))) (CApply (CSymbol ("PrettyFlat","impsDoc")) (CVar (1,"imps"))))) (CApply (CSymbol ("PrettyFlat","opsDoc")) (CVar (4,"ops"))))) (CApply (CApply (CSymbol ("PrettyFlat","typesDoc")) (CVar (0,"name"))) (CVar (2,"types"))))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcsDoc")) (CApply (CSymbol ("PrettyFlat","precs")) (CVar (4,"ops")))) (CVar (0,"name"))) (CVar (3,"funcs"))))] []]),+  CFunc ("PrettyFlat","qname") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"prog"),CPAs (3,"mn") (CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")])] [(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"mn"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (3,"mn"))),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (2,"name")))),(CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (3,"mn")),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CVar (0,"prog")))) (CApply (CSymbol ("Pretty","parens")) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (2,"name")))))) (CApply (CSymbol ("Pretty","parens")) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (1,"mod")))) (CSymbol ("Pretty","dot")))) (CApply (CSymbol ("PrettyFlat","txt")) (CVar (2,"name"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CVar (0,"prog")))) (CApply (CSymbol ("PrettyFlat","txt")) (CApply (CSymbol ("PrettyFlat","correctName")) (CVar (2,"name"))))) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (1,"mod")))) (CSymbol ("Pretty","dot")))) (CApply (CSymbol ("PrettyFlat","txt")) (CVar (2,"name")))))] [CLocalFunc (CFunc ("PrettyFlat","txt") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (4,"n"),CPVar (5,"ame")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isUpper")) (CVar (4,"n")))) (CApply (CSymbol ("PrettyFlat","consname")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (5,"ame"))))) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (5,"ame")))))] []]))]]),+  CFunc ("PrettyFlat","quoteChar") 1 Public (CFuncType (CTCons ("Prelude","Char") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (0,"c"))) (CSymbol ("PrettyFlat","specialChars"))))] []]),+  CFunc ("PrettyFlat","ruleDoc") 4 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]],CTCons ("Prelude","Int") []]]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Pretty","Doc") []))))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPVar (2,"name"),CPComb ("FlatCurry","Rule") [CPVar (3,"args"),CPVar (4,"body")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (1,"mod"))) (CVar (2,"name")))) (CVar (3,"args"))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CSymbol ("Pretty","equals"))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (4,"body"))))))] [],CRule [CPVar (5,"_"),CPVar (6,"mod"),CPVar (7,"name"),CPComb ("FlatCurry","External") [CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (6,"mod"))) (CVar (7,"name")))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("PrettyFlat","showProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","plainText"))) (CSymbol ("PrettyFlat","showStyledProg")))] []]),+  CFunc ("PrettyFlat","showStyledProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","prettyProg")) (CLit (CIntc 78)))] []]),+  CFunc ("PrettyFlat","specialChars") 0 Public (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Char") [],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\t'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","toList") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (1,"x"),CPComb ("Prelude",":") [CPVar (2,"xs"),CPComb ("Prelude","[]") []]]]) (CApply (CApply (CSymbol ("Maybe",">>-")) (CApply (CSymbol ("PrettyFlat","toList")) (CVar (2,"xs")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","Just"))) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"x"))) (CVar (3,"x0")))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","Nothing"))])] []]),+  CFunc ("PrettyFlat","toString") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"c")]],CPComb ("Prelude",":") [CPVar (2,"cs"),CPComb ("Prelude","[]") []]]]) (CApply (CApply (CSymbol ("Maybe",">>-")) (CApply (CSymbol ("PrettyFlat","toString")) (CVar (2,"cs")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","Just"))) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("PrettyFlat","quoteChar")) (CVar (1,"c")))) (CVar (3,"x0")))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","Nothing"))])] []]),+  CFunc ("PrettyFlat","tvarDoc") 1 Public (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"i")] [(CApply (CApply (CSymbol ("Prelude",">")) (CVar (0,"i"))) (CLit (CIntc 25)),CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))),(CSymbol ("Prelude","otherwise"),CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("PrettyFlat","typeDoc") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Type") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"params"),CPVar (4,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name"))))) (CVar (3,"params"))) (CApply (CApply (CSymbol ("PrettyFlat","consDeclsDoc")) (CVar (0,"mod"))) (CVar (4,"cs"))))] [],CRule [CPVar (5,"mod"),CPComb ("FlatCurry","TypeSyn") [CPVar (6,"name"),CPVar (7,"_"),CPVar (8,"params"),CPVar (9,"syn")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (5,"mod"))) (CVar (6,"name"))))) (CVar (8,"params"))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals")))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (5,"mod"))) (CSymbol ("Prelude","False"))) (CVar (9,"syn")))))] []]),+  CFunc ("PrettyFlat","typeExprDoc") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","tvarDoc")) (CVar (2,"n")))] [],CRule [CPVar (3,"mod"),CPVar (4,"br"),CPComb ("FlatCurry","TCons") [CPVar (5,"name"),CPVar (6,"args")]] [(CApply (CSymbol ("Prelude","null")) (CVar (6,"args")),CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (3,"mod"))) (CVar (5,"name"))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CSymbol ("Pretty","brackets")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (6,"args"))))),(CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (5,"name")),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","False")))) (CVar (6,"args")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (4,"br")))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (3,"mod"))) (CVar (5,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","True")))) (CVar (6,"args")))))] [],CRule [CPVar (7,"mod"),CPVar (8,"br"),CPAs (11,"typ") (CPComb ("FlatCurry","FuncType") [CPVar (9,"_"),CPVar (10,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (8,"br")))) (CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CSymbol ("PrettyFlat","arrow")))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (7,"mod"))) (CSymbol ("Prelude","True")))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (11,"typ"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (7,"mod"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (11,"typ"))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","typesDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","vcat"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("PrettyFlat","typeDoc")) (CVar (0,"mod")))))] []]),+  CFunc ("PrettyFlat","varDoc") 0 Public (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","text"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CVar (0,"x0"))))) (CSymbol ("Prelude","show"))))] []])]+ []
+ src/lib/Curry/Module/.curry/PrettyFlat.cy view
@@ -0,0 +1,126 @@+Module "PrettyFlat"+Nothing+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (3,1) "Char" False Nothing Nothing)+,(ImportDecl (4,1) "Maybe" False Nothing Nothing)+,(ImportDecl (5,1) "Pretty" False Nothing Nothing)+,(ImportDecl (6,1) "FlatCurry" False Nothing Nothing)+,(ImportDecl (7,1) "FlatCurryGoodies" False Nothing Nothing)+,(ImportDecl (8,1) "StyledText" False Nothing Nothing)+,(ImportDecl (9,1) "System" False Nothing Nothing)+,(TypeDecl (17,1) (Ident "Precs" 0) [] (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "QName" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])])))+,(FunctionDecl (11,1) (Ident "prelude" 0) [(Equation (11,1) (FunLhs (Ident "prelude" 0) []) (SimpleRhs (11,11) (Literal (String "Prelude")) []))])+,(FunctionDecl (13,1) (Ident "arrow" 0) [(Equation (13,1) (FunLhs (Ident "arrow" 0) []) (SimpleRhs (13,9) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Literal (String "->"))))) []))])+,(FunctionDecl (14,1) (Ident "bar" 0) [(Equation (14,1) (FunLhs (Ident "bar" 0) []) (SimpleRhs (14,7) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "char" 0))) (Literal (Char '|'))))) []))])+,(FunctionDecl (15,1) (Ident "dcolon" 0) [(Equation (15,1) (FunLhs (Ident "dcolon" 0) []) (SimpleRhs (15,10) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Literal (String "::"))))) []))])+,(TypeSig (19,1) [(Ident "precFillEncloseSep" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))))))+,(FunctionDecl (20,1) (Ident "precFillEncloseSep" 0) [(Equation (20,1) (FunLhs (Ident "precFillEncloseSep" 0) [(VariablePattern (Ident "p1" 10)),(VariablePattern (Ident "p2" 10)),(VariablePattern (Ident "l" 10)),(VariablePattern (Ident "r" 10)),(VariablePattern (Ident "s" 10)),(VariablePattern (Ident "ds" 10))]) (SimpleRhs (21,3) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillEncloseSep" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "pre" 11))) (Variable (QualIdent Nothing (Ident "p1" 10)))) (Variable (QualIdent Nothing (Ident "p2" 10)))) (Variable (QualIdent Nothing (Ident "l" 10)))))) (Paren (Apply (Apply (Apply (Variable (QualIdent Nothing (Ident "pre" 11))) (Variable (QualIdent Nothing (Ident "p1" 10)))) (Variable (QualIdent Nothing (Ident "p2" 10)))) (Variable (QualIdent Nothing (Ident "r" 10)))))) (Variable (QualIdent Nothing (Ident "s" 10)))) (Variable (QualIdent Nothing (Ident "ds" 10)))) [(FunctionDecl (23,3) (Ident "pre" 11) [(Equation (23,3) (FunLhs (Ident "pre" 11) [(VariablePattern (Ident "pO" 12)),(VariablePattern (Ident "pI" 12)),(VariablePattern (Ident "br" 12))]) (GuardedRhs [(CondExpr (24,5) (InfixApply (Variable (QualIdent Nothing (Ident "pO" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Variable (QualIdent Nothing (Ident "pI" 12)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))),(CondExpr (25,5) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) (Variable (QualIdent Nothing (Ident "br" 12))))] []))])]))])+,(TypeSig (27,1) [(Ident "isInfixName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (28,1) (Ident "isInfixName" 0) [(Equation (28,1) (FunLhs (Ident "isInfixName" 0) [(TuplePattern [(VariablePattern (Ident "_" 15)),(VariablePattern (Ident "n" 14))])]) (SimpleRhs (28,21) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "all" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "infixIDs" 0))))) (Variable (QualIdent Nothing (Ident "n" 14)))) []))])+,(TypeSig (30,1) [(Ident "infixIDs" 0)] (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))+,(FunctionDecl (31,1) (Ident "infixIDs" 0) [(Equation (31,1) (FunLhs (Ident "infixIDs" 0) []) (SimpleRhs (31,13) (Literal (String "~!@#$%^&*+-=<>?./|\\:")) []))])+,(TypeSig (33,1) [(Ident "isTupleName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (34,1) (Ident "isTupleName" 0) [(Equation (34,1) (FunLhs (Ident "isTupleName" 0) [(TuplePattern [(VariablePattern (Ident "mod" 19)),(VariablePattern (Ident "name" 19))])]) (SimpleRhs (34,26) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mod" 19))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "elem" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 21) 2))) (Variable (QualIdent Nothing (Ident "name" 19)))))) (List [(Literal (String "()")),(Literal (String "(,"))]))) []))])+,(TypeSig (36,1) [(Ident "showStyledProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (37,1) (Ident "showStyledProg" 0) [(Equation (37,1) (FunLhs (Ident "showStyledProg" 0) []) (SimpleRhs (37,18) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "prettyProg" 0))) (Literal (Int (Ident "_" 24) 78))) []))])+,(TypeSig (39,1) [(Ident "prettyProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (40,1) (Ident "prettyProg" 0) [(Equation (40,1) (FunLhs (Ident "prettyProg" 0) [(VariablePattern (Ident "n" 25))]) (SimpleRhs (40,16) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "pretty" 0))) (Variable (QualIdent Nothing (Ident "n" 25)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (Variable (QualIdent (Just "PrettyFlat") (Ident "progDoc" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updProgExps" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "elimApp" 0)))))) []))])+,(TypeSig (42,1) [(Ident "prettyTypeExpr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (43,1) (Ident "prettyTypeExpr" 0) [(Equation (43,1) (FunLhs (Ident "prettyTypeExpr" 0) [(VariablePattern (Ident "mod" 27))]) (SimpleRhs (43,22) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "pretty" 0))) (Literal (Int (Ident "_" 29) 78))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 27)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))))) []))])+,(TypeSig (45,1) [(Ident "prettyTypes" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (46,1) (Ident "prettyTypes" 0) [(Equation (46,1) (FunLhs (Ident "prettyTypes" 0) [(VariablePattern (Ident "mod" 30))]) (SimpleRhs (46,19) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "pretty" 0))) (Literal (Int (Ident "_" 32) 78))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typesDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 30))))) []))])+,(TypeSig (48,1) [(Ident "prettyOps" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (49,1) (Ident "prettyOps" 0) [(Equation (49,1) (FunLhs (Ident "prettyOps" 0) []) (SimpleRhs (49,13) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "pretty" 0))) (Literal (Int (Ident "_" 35) 78))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "opsDoc" 0)))) []))])+,(TypeSig (51,1) [(Ident "showProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (52,1) (Ident "showProg" 0) [(Equation (52,1) (FunLhs (Ident "showProg" 0) []) (SimpleRhs (52,12) (InfixApply (Variable (QualIdent (Just "StyledText") (Ident "plainText" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "showStyledProg" 0)))) []))])+,(TypeSig (54,1) [(Ident "printStyledProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (55,1) (Ident "printStyledProg" 0) [(Equation (55,1) (FunLhs (Ident "printStyledProg" 0) [(VariablePattern (Ident "f" 38))]) (SimpleRhs (55,21) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurry" 0))) (Variable (QualIdent Nothing (Ident "f" 38)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "StyledText") (Ident "printStyledText" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "showStyledProg" 0))))) []))])+,(TypeSig (57,1) [(Ident "mainPrint" 0)] (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))+,(FunctionDecl (58,1) (Ident "mainPrint" 0) [(Equation (58,1) (FunLhs (Ident "mainPrint" 0) []) (SimpleRhs (58,13) (InfixApply (Variable (QualIdent (Just "System") (Ident "getArgs" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "mapIO_" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "printProg" 0))))) []))])+,(TypeSig (60,1) [(Ident "printProg" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (61,1) (Ident "printProg" 0) [(Equation (61,1) (FunLhs (Ident "printProg" 0) [(VariablePattern (Ident "f" 42))]) (SimpleRhs (61,15) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurry") (Ident "readFlatCurryFile" 0))) (Variable (QualIdent Nothing (Ident "f" 42)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "putStrLn" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "showProg" 0))))) []))])+,(TypeSig (69,1) [(Ident "keyword" 0),(Ident "consname" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (70,1) (Ident "keyword" 0) [(Equation (70,1) (FunLhs (Ident "keyword" 0) []) (SimpleRhs (70,11) (InfixApply (Variable (QualIdent (Just "StyledText") (Ident "magentaDoc" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Pretty") (Ident "text" 0)))) []))])+,(FunctionDecl (71,1) (Ident "consname" 0) [(Equation (71,1) (FunLhs (Ident "consname" 0) []) (SimpleRhs (71,12) (InfixApply (Variable (QualIdent (Just "StyledText") (Ident "greenDoc" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Pretty") (Ident "text" 0)))) []))])+,(TypeSig (73,1) [(Ident "operator" 0),(Ident "literal" 0),(Ident "marked" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (74,1) (Ident "operator" 0) [(Equation (74,1) (FunLhs (Ident "operator" 0) []) (SimpleRhs (74,12) (Variable (QualIdent (Just "StyledText") (Ident "blueDoc" 0))) []))])+,(FunctionDecl (75,1) (Ident "literal" 0) [(Equation (75,1) (FunLhs (Ident "literal" 0) []) (SimpleRhs (75,11) (Variable (QualIdent (Just "StyledText") (Ident "cyanDoc" 0))) []))])+,(FunctionDecl (76,1) (Ident "marked" 0) [(Equation (76,1) (FunLhs (Ident "marked" 0) []) (SimpleRhs (76,10) (InfixApply (Variable (QualIdent (Just "StyledText") (Ident "bgYellowDoc" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "StyledText") (Ident "boldDoc" 0)))) []))])+,(TypeSig (78,1) [(Ident "block" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (79,1) (Ident "block" 0) [(Equation (79,1) (FunLhs (Ident "block" 0) []) (SimpleRhs (79,9) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "group" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "hang" 0))) (Literal (Int (Ident "_" 56) 1)))) []))])+,(TypeSig (81,1) [(Ident "def" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (82,1) (Ident "def" 0) [(Equation (82,1) (FunLhs (Ident "def" 0) [(VariablePattern (Ident "name" 57)),(VariablePattern (Ident "params" 57)),(VariablePattern (Ident "body" 57))]) (SimpleRhs (82,24) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "block" 0))) (Paren (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 57))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent Nothing (Ident "paramDoc" 58)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Variable (QualIdent Nothing (Ident "body" 57)))))) [(PatternDecl (84,3) (VariablePattern (Ident "paramDoc" 58)) (SimpleRhs (84,14) (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "params" 57)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0))) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "space" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillSep" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0)))) (Variable (QualIdent Nothing (Ident "params" 57)))))))))) []))]))])+,(TypeSig (92,1) [(Ident "app" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (93,1) (Ident "app" 0) [(Equation (93,1) (FunLhs (Ident "app" 0) [(VariablePattern (Ident "d" 60)),(VariablePattern (Ident "ds" 60))]) (SimpleRhs (93,12) (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "ds" 60)))) (Variable (QualIdent Nothing (Ident "d" 60))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "block" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillEncloseSep" 0))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "d" 60))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ds" 60))))))))) []))])+,(TypeSig (98,1) [(Ident "layout" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (99,1) (Ident "layout" 0) [(Equation (99,1) (FunLhs (Ident "layout" 0) []) (SimpleRhs (99,10) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "compose" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "combine" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "linesep" 0))) (Literal (String "; ")))))))) []))])+,(TypeSig (101,1) [(Ident "qname" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (102,1) (Ident "qname" 0) [(Equation (102,1) (FunLhs (Ident "qname" 0) [(VariablePattern (Ident "prog" 64)),(AsPattern (Ident "mn" 64) (TuplePattern [(VariablePattern (Ident "mod" 64)),(VariablePattern (Ident "name" 64))]))]) (GuardedRhs [(CondExpr (103,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "mn" 64))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "[]"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "||" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isTupleName" 0))) (Variable (QualIdent Nothing (Ident "mn" 64))))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Variable (QualIdent Nothing (Ident "name" 64))))))),(CondExpr (104,3) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isInfixName" 0))) (Variable (QualIdent Nothing (Ident "mn" 64)))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "mod" 64))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "prog" 64)))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "parens" 0))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Variable (QualIdent Nothing (Ident "name" 64)))))))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "parens" 0))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0))) (Variable (QualIdent Nothing (Ident "mod" 64)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "dot" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "txt" 65))) (Variable (QualIdent Nothing (Ident "name" 64)))))))))))),(CondExpr (108,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "mod" 64))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "prog" 64)))) (Apply (Variable (QualIdent Nothing (Ident "txt" 65))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "correctName" 0))) (Variable (QualIdent Nothing (Ident "name" 64)))))) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0))) (Variable (QualIdent Nothing (Ident "mod" 64)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "dot" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Paren (Apply (Variable (QualIdent Nothing (Ident "txt" 65))) (Variable (QualIdent Nothing (Ident "name" 64))))))))] [(FunctionDecl (115,3) (Ident "txt" 65) [(Equation (115,3) (FunLhs (Ident "txt" 65) [(ParenPattern (InfixPattern (VariablePattern (Ident "n" 66)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ame" 66))))]) (SimpleRhs (115,17) (IfThenElse (Apply (Variable (QualIdent (Just "Char") (Ident "isUpper" 0))) (Variable (QualIdent Nothing (Ident "n" 66)))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "n" 66))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ame" 66)))))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "n" 66))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ame" 66))))))) []))])]))])+,(TypeSig (117,1) [(Ident "correctName" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (118,1) (Ident "correctName" 0) [(Equation (118,1) (FunLhs (Ident "correctName" 0) [(VariablePattern (Ident "name" 68))]) (SimpleRhs (119,3) (Let [(PatternDecl (119,7) (VariablePattern (Ident "name'" 70)) (SimpleRhs (119,15) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "flip" 0))) (Variable (QualIdent (Just "Prelude") (Ident "elem" 0)))) (List [(Literal (Char '#')),(Literal (Char '.'))]))))) (Variable (QualIdent Nothing (Ident "name" 68)))) []))] (Case (Variable (QualIdent Nothing (Ident "name'" 70))) [(Alt (122,8) (ParenPattern (InfixPattern (LiteralPattern (Char '_')) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xs" 72)))) (SimpleRhs (122,20) (Variable (QualIdent Nothing (Ident "xs" 72))) [])),(Alt (123,8) (VariablePattern (Ident "_" 75)) (SimpleRhs (123,20) (Variable (QualIdent Nothing (Ident "name'" 70))) []))])) []))])+,(FunctionDecl (125,1) (Ident "<$>>" 0) [(Equation (125,1) (OpLhs (VariablePattern (Ident "d1" 77)) (Ident "<$>>" 0) (VariablePattern (Ident "d2" 77))) (SimpleRhs (125,14) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "d1" 77))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "line" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent Nothing (Ident "d2" 77)))) []))])+,(TypeSig (127,1) [(Ident "progDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (128,1) (Ident "progDoc" 0) [(Equation (128,1) (FunLhs (Ident "progDoc" 0) [(AsPattern (Ident "prog" 79) (ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "name" 79)),(VariablePattern (Ident "imps" 79)),(VariablePattern (Ident "types" 79)),(VariablePattern (Ident "funcs" 79)),(VariablePattern (Ident "ops" 79))])))]) (SimpleRhs (129,5) (InfixApply (InfixApply (InfixApply (InfixApply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "moduleHeaderDoc" 0))) (Variable (QualIdent Nothing (Ident "name" 79)))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "exportedNames" 0))) (Variable (QualIdent Nothing (Ident "name" 79)))) (Variable (QualIdent Nothing (Ident "prog" 79)))))) (InfixOp (QualIdent (Just "PrettyFlat") (Ident "<$>>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "impsDoc" 0))) (Variable (QualIdent Nothing (Ident "imps" 79))))) (InfixOp (QualIdent (Just "PrettyFlat") (Ident "<$>>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "opsDoc" 0))) (Variable (QualIdent Nothing (Ident "ops" 79))))) (InfixOp (QualIdent (Just "PrettyFlat") (Ident "<$>>" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typesDoc" 0))) (Variable (QualIdent Nothing (Ident "name" 79)))) (Variable (QualIdent Nothing (Ident "types" 79))))) (InfixOp (QualIdent (Just "PrettyFlat") (Ident "<$>>" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "funcsDoc" 0))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "precs" 0))) (Variable (QualIdent Nothing (Ident "ops" 79)))))) (Variable (QualIdent Nothing (Ident "name" 79)))) (Variable (QualIdent Nothing (Ident "funcs" 79))))) []))])+,(TypeSig (134,1) [(Ident "precs" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) [])))+,(FunctionDecl (135,1) (Ident "precs" 0) [(Equation (135,1) (FunLhs (Ident "precs" 0) []) (SimpleRhs (135,9) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Lambda [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(VariablePattern (Ident "name" 83)),(VariablePattern (Ident "_" 84)),(VariablePattern (Ident "i" 83))]))] (Tuple [(Variable (QualIdent Nothing (Ident "name" 83))),(Variable (QualIdent Nothing (Ident "i" 83)))])))) []))])+,(TypeSig (137,1) [(Ident "exportedNames" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Prog" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (138,1) (Ident "exportedNames" 0) [(Equation (138,1) (FunLhs (Ident "exportedNames" 0) [(VariablePattern (Ident "mod" 85)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Prog" 0)) [(VariablePattern (Ident "_" 86)),(VariablePattern (Ident "_" 87)),(VariablePattern (Ident "types" 85)),(VariablePattern (Ident "funcs" 85)),(VariablePattern (Ident "_" 88))]))]) (SimpleRhs (139,5) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "typeExpDoc" 89)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (LeftSection (Constructor (QualIdent (Just "FlatCurry") (Ident "Public" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "typeVisibility" 0)))))) (Variable (QualIdent Nothing (Ident "types" 85)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 85)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcName" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (LeftSection (Constructor (QualIdent (Just "FlatCurry") (Ident "Public" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "funcVisibility" 0)))))) (Variable (QualIdent Nothing (Ident "funcs" 85))))))) [(FunctionDecl (142,3) (Ident "typeExpDoc" 89) [(Equation (142,3) (FunLhs (Ident "typeExpDoc" 89) [(VariablePattern (Ident "tdecl" 90))]) (SimpleRhs (143,5) (Let [(PatternDecl (143,9) (VariablePattern (Ident "ecs" 92)) (SimpleRhs (143,15) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (LeftSection (Constructor (QualIdent (Just "FlatCurry") (Ident "Public" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "consVisibility" 0)))))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "trType" 0))) (Paren (Lambda [(VariablePattern (Ident "_" 95)),(VariablePattern (Ident "_" 96)),(VariablePattern (Ident "_" 97)),(VariablePattern (Ident "cs" 94))] (Variable (QualIdent Nothing (Ident "cs" 94)))))) (Paren (Lambda [(VariablePattern (Ident "_" 99)),(VariablePattern (Ident "_" 100)),(VariablePattern (Ident "_" 101)),(VariablePattern (Ident "_" 102))] (List [])))) (Variable (QualIdent Nothing (Ident "tdecl" 90)))))) []))] (InfixApply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 85)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "typeName" 0))) (Variable (QualIdent Nothing (Ident "tdecl" 90)))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "ecs" 92)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Literal (String "(..)")))))) []))])]))])+,(TypeSig (147,1) [(Ident "moduleHeaderDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (148,1) (Ident "moduleHeaderDoc" 0) [(Equation (148,1) (FunLhs (Ident "moduleHeaderDoc" 0) [(VariablePattern (Ident "name" 103)),(VariablePattern (Ident "exports" 103))]) (SimpleRhs (149,5) (InfixApply (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "module"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0))) (Variable (QualIdent Nothing (Ident "name" 103))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "exportsDoc" 0))) (Variable (QualIdent Nothing (Ident "exports" 103))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "where")))) []))])+,(TypeSig (152,1) [(Ident "exportsDoc" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (153,1) (Ident "exportsDoc" 0) [(Equation (153,1) (FunLhs (Ident "exportsDoc" 0) [(VariablePattern (Ident "xs" 105))]) (SimpleRhs (154,5) (Apply (Variable (QualIdent (Just "Pretty") (Ident "group" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "nest" 0))) (Literal (Int (Ident "_" 107) 1))) (Paren (InfixApply (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "lparen" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillSep" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "punctuate" 0))) (Variable (QualIdent (Just "Pretty") (Ident "comma" 0)))) (Variable (QualIdent Nothing (Ident "xs" 105))))))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "rparen" 0)))))))) []))])+,(TypeSig (156,1) [(Ident "impsDoc" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (157,1) (Ident "impsDoc" 0) [(Equation (157,1) (FunLhs (Ident "impsDoc" 0) [(VariablePattern (Ident "imps" 108))]) (SimpleRhs (157,16) (Apply (Variable (QualIdent (Just "Pretty") (Ident "vcat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (LeftSection (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "import"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0)))))) (Variable (QualIdent Nothing (Ident "imps" 108)))))) []))])+,(TypeSig (159,1) [(Ident "opsDoc" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (160,1) (Ident "opsDoc" 0) [(Equation (160,1) (FunLhs (Ident "opsDoc" 0) [(VariablePattern (Ident "ops" 110))]) (SimpleRhs (160,14) (Apply (Variable (QualIdent (Just "Pretty") (Ident "vcat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "opDoc" 0)))) (Variable (QualIdent Nothing (Ident "ops" 110)))))) []))])+,(TypeSig (162,1) [(Ident "opDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "OpDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (163,1) (Ident "opDoc" 0) [(Equation (163,1) (FunLhs (Ident "opDoc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Op" 0)) [(AsPattern (Ident "n" 112) (TuplePattern [(VariablePattern (Ident "_" 113)),(VariablePattern (Ident "name" 112))])),(VariablePattern (Ident "fix" 112)),(VariablePattern (Ident "prec" 112))]))]) (SimpleRhs (164,5) (InfixApply (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "infix"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent Nothing (Ident "fixDoc" 114))) (Variable (QualIdent Nothing (Ident "fix" 112))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "int" 0))) (Variable (QualIdent Nothing (Ident "prec" 112))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Variable (QualIdent Nothing (Ident "infname" 114))))))) [(PatternDecl (166,3) (VariablePattern (Ident "infname" 114)) (SimpleRhs (166,13) (IfThenElse (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isInfixName" 0))) (Variable (QualIdent Nothing (Ident "n" 112)))) (Variable (QualIdent Nothing (Ident "name" 112))) (InfixApply (Literal (Char '`')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 112))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "`"))))) [])),(FunctionDecl (167,3) (Ident "fixDoc" 114) [(Equation (167,3) (FunLhs (Ident "fixDoc" 114) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixOp" 0)) [])]) (SimpleRhs (167,20) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0))) [])),(Equation (168,3) (FunLhs (Ident "fixDoc" 114) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixlOp" 0)) [])]) (SimpleRhs (168,21) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "l"))) [])),(Equation (169,3) (FunLhs (Ident "fixDoc" 114) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "InfixrOp" 0)) [])]) (SimpleRhs (169,21) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "r"))) []))])]))])+,(TypeSig (171,1) [(Ident "typesDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (172,1) (Ident "typesDoc" 0) [(Equation (172,1) (FunLhs (Ident "typesDoc" 0) [(VariablePattern (Ident "mod" 122))]) (SimpleRhs (172,16) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "vcat" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 122))))))) []))])+,(TypeSig (174,1) [(Ident "typeDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (175,1) (Ident "typeDoc" 0) [(Equation (175,1) (FunLhs (Ident "typeDoc" 0) [(VariablePattern (Ident "mod" 124)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Type" 0)) [(VariablePattern (Ident "name" 124)),(VariablePattern (Ident "_" 125)),(VariablePattern (Ident "params" 124)),(VariablePattern (Ident "cs" 124))]))]) (SimpleRhs (176,5) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "def" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "data"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 124)))) (Variable (QualIdent Nothing (Ident "name" 124))))))) (Variable (QualIdent Nothing (Ident "params" 124)))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consDeclsDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 124)))) (Variable (QualIdent Nothing (Ident "cs" 124)))))) [])),(Equation (178,1) (FunLhs (Ident "typeDoc" 0) [(VariablePattern (Ident "mod" 127)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TypeSyn" 0)) [(VariablePattern (Ident "name" 127)),(VariablePattern (Ident "_" 128)),(VariablePattern (Ident "params" 127)),(VariablePattern (Ident "syn" 127))]))]) (SimpleRhs (179,5) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "def" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "type"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 127)))) (Variable (QualIdent Nothing (Ident "name" 127))))))) (Variable (QualIdent Nothing (Ident "params" 127)))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Variable (QualIdent (Just "Pretty") (Ident "equals" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 127)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "syn" 127))))))) []))])+,(TypeSig (182,1) [(Ident "varDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (183,1) (Ident "varDoc" 0) [(Equation (183,1) (FunLhs (Ident "varDoc" 0) []) (SimpleRhs (183,10) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (InfixApply (LeftSection (Literal (Char 'x')) (InfixConstr (QualIdent Nothing (Ident ":" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "show" 0))))) []))])+,(TypeSig (185,1) [(Ident "tvarDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (186,1) (Ident "tvarDoc" 0) [(Equation (186,1) (FunLhs (Ident "tvarDoc" 0) [(VariablePattern (Ident "i" 132))]) (GuardedRhs [(CondExpr (187,3) (InfixApply (Variable (QualIdent Nothing (Ident "i" 132))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Literal (Int (Ident "_" 134) 25))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Paren (InfixApply (Literal (String "x")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Variable (QualIdent Nothing (Ident "i" 132)))))))),(CondExpr (188,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (List [(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (InfixApply (Literal (Int (Ident "_" 135) 97)) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Variable (QualIdent Nothing (Ident "i" 132))))))])))] []))])+,(TypeSig (190,1) [(Ident "consDeclsDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (191,1) (Ident "consDeclsDoc" 0) [(Equation (191,1) (FunLhs (Ident "consDeclsDoc" 0) [(VariablePattern (Ident "mod" 136))]) (SimpleRhs (192,5) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillEncloseSep" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Variable (QualIdent (Just "Pretty") (Ident "equals" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Paren (InfixApply (Variable (QualIdent (Just "PrettyFlat") (Ident "bar" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (RightSection (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consDeclDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 136)))))))) []))])+,(TypeSig (196,1) [(Ident "consDeclDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "ConsDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (197,1) (Ident "consDeclDoc" 0) [(Equation (197,1) (FunLhs (Ident "consDeclDoc" 0) [(VariablePattern (Ident "mod" 138)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Cons" 0)) [(VariablePattern (Ident "name" 138)),(VariablePattern (Ident "_" 139)),(VariablePattern (Ident "_" 140)),(VariablePattern (Ident "args" 138))]))]) (SimpleRhs (198,5) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "app" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 138)))) (Variable (QualIdent Nothing (Ident "name" 138)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 138)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Variable (QualIdent Nothing (Ident "args" 138)))))) []))])+,(TypeSig (200,1) [(Ident "typeExprDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (201,1) (Ident "typeExprDoc" 0) [(Equation (201,1) (FunLhs (Ident "typeExprDoc" 0) [(VariablePattern (Ident "_" 143)),(VariablePattern (Ident "_" 144)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TVar" 0)) [(VariablePattern (Ident "n" 142))]))]) (SimpleRhs (201,28) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "tvarDoc" 0))) (Variable (QualIdent Nothing (Ident "n" 142)))) [])),(Equation (203,1) (FunLhs (Ident "typeExprDoc" 0) [(VariablePattern (Ident "mod" 146)),(VariablePattern (Ident "br" 146)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "TCons" 0)) [(VariablePattern (Ident "name" 146)),(VariablePattern (Ident "args" 146))]))]) (GuardedRhs [(CondExpr (204,3) (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "args" 146)))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 146)))) (Variable (QualIdent Nothing (Ident "name" 146))))),(CondExpr (205,3) (InfixApply (Variable (QualIdent Nothing (Ident "name" 146))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "[]"))])) (Apply (Variable (QualIdent (Just "Pretty") (Ident "brackets" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 146)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 146))))))))),(CondExpr (206,3) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isTupleName" 0))) (Variable (QualIdent Nothing (Ident "name" 146)))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "tupled" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 146)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "args" 146))))))),(CondExpr (207,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 146)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "app" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 146)))) (Variable (QualIdent Nothing (Ident "name" 146)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 146)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Variable (QualIdent Nothing (Ident "args" 146))))))))] [])),(Equation (210,1) (FunLhs (Ident "typeExprDoc" 0) [(VariablePattern (Ident "mod" 148)),(VariablePattern (Ident "br" 148)),(AsPattern (Ident "typ" 148) (ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "FuncType" 0)) [(VariablePattern (Ident "_" 149)),(VariablePattern (Ident "_" 150))])))]) (SimpleRhs (211,5) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 148)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillEncloseSep" 0))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Paren (InfixApply (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "space" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "arrow" 0)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))))) (Paren (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 148)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "argTypes" 0))) (Variable (QualIdent Nothing (Ident "typ" 148)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 148)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "resultType" 0))) (Variable (QualIdent Nothing (Ident "typ" 148))))))]))))) []))])+,(FunctionDecl (216,1) (Ident "par" 0) [(Equation (216,1) (FunLhs (Ident "par" 0) [(VariablePattern (Ident "br" 152))]) (SimpleRhs (216,10) (IfThenElse (Variable (QualIdent Nothing (Ident "br" 152))) (Variable (QualIdent (Just "Pretty") (Ident "parens" 0))) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) []))])+,(TypeSig (218,1) [(Ident "funcsDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (219,1) (Ident "funcsDoc" 0) [(Equation (219,1) (FunLhs (Ident "funcsDoc" 0) [(VariablePattern (Ident "pr" 154)),(VariablePattern (Ident "mod" 154)),(VariablePattern (Ident "funcs" 154))]) (SimpleRhs (219,25) (Apply (Variable (QualIdent (Just "Pretty") (Ident "vcat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "punctuate" 0))) (Variable (QualIdent (Just "Pretty") (Ident "line" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "funcDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 154)))) (Variable (QualIdent Nothing (Ident "mod" 154)))))) (Variable (QualIdent Nothing (Ident "funcs" 154)))))))) []))])+,(TypeSig (221,1) [(Ident "funcDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "FuncDecl" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (222,1) (Ident "funcDoc" 0) [(Equation (222,1) (FunLhs (Ident "funcDoc" 0) [(VariablePattern (Ident "pr" 156)),(VariablePattern (Ident "mod" 156)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Func" 0)) [(VariablePattern (Ident "name" 156)),(VariablePattern (Ident "_" 157)),(VariablePattern (Ident "_" 158)),(VariablePattern (Ident "typ" 156)),(VariablePattern (Ident "rule" 156))]))]) (SimpleRhs (223,5) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "funcTypeDeclDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 156)))) (Variable (QualIdent Nothing (Ident "name" 156)))) (Variable (QualIdent Nothing (Ident "typ" 156)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "ruleDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 156)))) (Variable (QualIdent Nothing (Ident "mod" 156)))) (Variable (QualIdent Nothing (Ident "name" 156)))) (Variable (QualIdent Nothing (Ident "rule" 156))))) []))])+,(TypeSig (226,1) [(Ident "funcTypeDeclDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (227,1) (Ident "funcTypeDeclDoc" 0) [(Equation (227,1) (FunLhs (Ident "funcTypeDeclDoc" 0) [(VariablePattern (Ident "mod" 160)),(VariablePattern (Ident "name" 160)),(VariablePattern (Ident "typ" 160))]) (SimpleRhs (228,5) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "def" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 160)))) (Variable (QualIdent Nothing (Ident "name" 160)))))) (List [])) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "funcTypeDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 160)))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "argTypes" 0))) (Variable (QualIdent Nothing (Ident "typ" 160)))))) (Paren (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "resultType" 0))) (Variable (QualIdent Nothing (Ident "typ" 160)))))))) []))])+,(TypeSig (230,1) [(Ident "funcTypeDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "TypeExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (231,1) (Ident "funcTypeDoc" 0) [(Equation (231,1) (FunLhs (Ident "funcTypeDoc" 0) [(VariablePattern (Ident "mod" 162)),(VariablePattern (Ident "args" 162)),(VariablePattern (Ident "res" 162))]) (SimpleRhs (232,5) (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillEncloseSep" 0))) (Paren (InfixApply (Variable (QualIdent (Just "PrettyFlat") (Ident "dcolon" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (Paren (InfixApply (Variable (QualIdent (Just "PrettyFlat") (Ident "arrow" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (RightSection (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "typeExprDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 162)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 162))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Variable (QualIdent Nothing (Ident "res" 162)))])))))) []))])+,(TypeSig (236,1) [(Ident "ruleDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "QName" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Rule" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))))+,(FunctionDecl (237,1) (Ident "ruleDoc" 0) [(Equation (237,1) (FunLhs (Ident "ruleDoc" 0) [(VariablePattern (Ident "pr" 164)),(VariablePattern (Ident "mod" 164)),(VariablePattern (Ident "name" 164)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rule" 0)) [(VariablePattern (Ident "args" 164)),(VariablePattern (Ident "body" 164))]))]) (SimpleRhs (238,5) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "def" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 164)))) (Variable (QualIdent Nothing (Ident "name" 164)))))) (Variable (QualIdent Nothing (Ident "args" 164)))) (Paren (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "equals" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 164)))) (Literal (Int (Ident "_" 166) 0))) (Variable (QualIdent Nothing (Ident "mod" 164)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "body" 164))))))))) [])),(Equation (240,1) (FunLhs (Ident "ruleDoc" 0) [(VariablePattern (Ident "_" 168)),(VariablePattern (Ident "mod" 167)),(VariablePattern (Ident "name" 167)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "External" 0)) [(VariablePattern (Ident "_" 169))]))]) (SimpleRhs (241,5) (InfixApply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 167)))) (Variable (QualIdent Nothing (Ident "name" 167)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "external")))) []))])+,(TypeSig (243,1) [(Ident "expDoc" 0),(Ident "expDoc2" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))))+,(FunctionDecl (244,1) (Ident "expDoc" 0) [(Equation (244,1) (FunLhs (Ident "expDoc" 0) [(VariablePattern (Ident "pr" 171)),(VariablePattern (Ident "_" 172)),(VariablePattern (Ident "mod" 171)),(VariablePattern (Ident "br" 171)),(VariablePattern (Ident "exp" 171))]) (SimpleRhs (245,3) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc2" 0))) (Variable (QualIdent Nothing (Ident "pr" 171)))) (Literal (Int (Ident "_" 174) 0))) (Variable (QualIdent Nothing (Ident "mod" 171)))) (Variable (QualIdent Nothing (Ident "br" 171)))) (Variable (QualIdent Nothing (Ident "exp" 171)))))) (Paren (Lambda [(VariablePattern (Ident "l" 175))] (Apply (Variable (QualIdent (Just "Pretty") (Ident "list" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 171)))) (Literal (Int (Ident "_" 176) 0))) (Variable (QualIdent Nothing (Ident "mod" 171)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "l" 175))))))))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "toList" 0))) (Variable (QualIdent Nothing (Ident "exp" 171)))))))) (Paren (Lambda [(VariablePattern (Ident "s" 177))] (IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "s" 177)))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "consname" 0))) (Literal (String "[]"))) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "literal" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "dquotes" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Variable (QualIdent Nothing (Ident "s" 177)))))))))))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "toString" 0))) (Variable (QualIdent Nothing (Ident "exp" 171)))))) []))])+,(FunctionDecl (251,1) (Ident "expDoc2" 0) [(Equation (251,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "_" 179)),(VariablePattern (Ident "_" 180)),(VariablePattern (Ident "_" 181)),(VariablePattern (Ident "_" 182)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Var" 0)) [(VariablePattern (Ident "n" 178))]))]) (SimpleRhs (251,27) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0))) (Variable (QualIdent Nothing (Ident "n" 178)))) [])),(Equation (252,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "_" 185)),(VariablePattern (Ident "_" 186)),(VariablePattern (Ident "_" 187)),(VariablePattern (Ident "_" 188)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(VariablePattern (Ident "l" 184))]))]) (SimpleRhs (252,27) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "litDoc" 0))) (Variable (QualIdent Nothing (Ident "l" 184)))) [])),(Equation (254,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "pr" 190)),(VariablePattern (Ident "p" 190)),(VariablePattern (Ident "mod" 190)),(VariablePattern (Ident "br" 190)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 190)),(VariablePattern (Ident "name" 190)),(VariablePattern (Ident "args" 190))]))]) (GuardedRhs [(CondExpr (255,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "ct" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "name" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "apply"))]))) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 190)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "app" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Literal (Int (Ident "_" 199) 0))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 200) 0))))))) (List [(Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Literal (Int (Ident "_" 201) 0))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 202) 1)))))])))),(CondExpr (258,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "ct" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isTupleName" 0))) (Variable (QualIdent Nothing (Ident "name" 190))))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "tupled" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Literal (Int (Ident "_" 203) 0))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))))) (Variable (QualIdent Nothing (Ident "args" 190))))))),(CondExpr (260,3) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isInfixName" 0))) (Variable (QualIdent Nothing (Ident "name" 190)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 190)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 204) 2)))) (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "precFillEncloseSep" 0))) (Variable (QualIdent Nothing (Ident "pOp" 191)))) (Variable (QualIdent Nothing (Ident "p" 190)))) (Variable (QualIdent Nothing (Ident "lbr" 191)))) (Variable (QualIdent Nothing (Ident "rbr" 191)))) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))) (List [(Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Variable (QualIdent Nothing (Ident "pOp" 191)))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 205) 0))))),(InfixApply (InfixApply (Variable (QualIdent (Just "Pretty") (Ident "space" 0))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "name" 190))))))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Variable (QualIdent (Just "Pretty") (Ident "space" 0)))),(Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Variable (QualIdent Nothing (Ident "pOp" 191)))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 190))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 206) 1)))))])))),(CondExpr (267,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "args" 190)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Variable (QualIdent Nothing (Ident "br" 190)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "app" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Variable (QualIdent Nothing (Ident "name" 190)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 190)))) (Literal (Int (Ident "_" 207) 0))) (Variable (QualIdent Nothing (Ident "mod" 190)))) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0)))))) (Variable (QualIdent Nothing (Ident "args" 190))))))))] [(PatternDecl (271,3) (TuplePattern [(VariablePattern (Ident "lbr" 191)),(VariablePattern (Ident "rbr" 191))]) (SimpleRhs (271,15) (IfThenElse (Variable (QualIdent Nothing (Ident "br" 190))) (Tuple [(Variable (QualIdent (Just "Pretty") (Ident "lparen" 0))),(Variable (QualIdent (Just "Pretty") (Ident "rparen" 0)))]) (Tuple [(Variable (QualIdent (Just "Pretty") (Ident "empty" 0))),(Variable (QualIdent (Just "Pretty") (Ident "empty" 0)))])) [])),(PatternDecl (272,3) (VariablePattern (Ident "pOp" 191)) (SimpleRhs (272,9) (Case (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "lookup" 0))) (Variable (QualIdent Nothing (Ident "name" 190)))) (Variable (QualIdent Nothing (Ident "pr" 190)))) [(Alt (273,14) (ConstructorPattern (QualIdent (Just "Prelude") (Ident "Just" 0)) [(VariablePattern (Ident "pr" 194))]) (SimpleRhs (273,25) (Variable (QualIdent Nothing (Ident "pr" 194))) [])),(Alt (274,14) (ConstructorPattern (QualIdent (Just "Prelude") (Ident "Nothing" 0)) []) (SimpleRhs (274,25) (Literal (Int (Ident "_" 198) 0)) []))]) []))])),(Equation (276,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "pr" 208)),(VariablePattern (Ident "_" 209)),(VariablePattern (Ident "mod" 208)),(VariablePattern (Ident "br" 208)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Let" 0)) [(VariablePattern (Ident "bs" 208)),(VariablePattern (Ident "e" 208))]))]) (SimpleRhs (277,5) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "hang" 0))) (Literal (Int (Ident "_" 211) 1))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "let"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "letBindsDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 208)))) (Variable (QualIdent Nothing (Ident "mod" 208)))) (Variable (QualIdent Nothing (Ident "bs" 208))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "in")))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 208)))) (Literal (Int (Ident "_" 212) 0))) (Variable (QualIdent Nothing (Ident "mod" 208)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "e" 208))))))) [])),(Equation (281,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "pr" 213)),(VariablePattern (Ident "_" 214)),(VariablePattern (Ident "mod" 213)),(VariablePattern (Ident "br" 213)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Free" 0)) [(VariablePattern (Ident "vs" 213)),(VariablePattern (Ident "e" 213))]))]) (SimpleRhs (285,7) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 213)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "hang" 0))) (Literal (Int (Ident "_" 216) 1))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (InfixApply (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "let"))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "fillSep" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Pretty") (Ident "punctuate" 0))) (Variable (QualIdent (Just "Pretty") (Ident "comma" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0)))) (Variable (QualIdent Nothing (Ident "vs" 213))))))))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "free")))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "in")))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 213)))) (Literal (Int (Ident "_" 217) 0))) (Variable (QualIdent Nothing (Ident "mod" 213)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "e" 213))))))) [])),(Equation (289,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "pr" 218)),(VariablePattern (Ident "_" 219)),(VariablePattern (Ident "mod" 218)),(VariablePattern (Ident "br" 218)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Or" 0)) [(VariablePattern (Ident "e1" 218)),(VariablePattern (Ident "e2" 218))]))]) (SimpleRhs (290,5) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 218)))) (Literal (Int (Ident "_" 221) 0))) (Variable (QualIdent Nothing (Ident "mod" 218)))) (Variable (QualIdent Nothing (Ident "br" 218)))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "?"))])) (List [(Variable (QualIdent Nothing (Ident "e1" 218))),(Variable (QualIdent Nothing (Ident "e2" 218)))])))) [])),(Equation (292,1) (FunLhs (Ident "expDoc2" 0) [(VariablePattern (Ident "pr" 222)),(VariablePattern (Ident "_" 223)),(VariablePattern (Ident "mod" 222)),(VariablePattern (Ident "br" 222)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Case" 0)) [(VariablePattern (Ident "ct" 222)),(VariablePattern (Ident "e" 222)),(VariablePattern (Ident "bs" 222))]))]) (SimpleRhs (293,5) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "par" 0))) (Variable (QualIdent Nothing (Ident "br" 222)))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Pretty") (Ident "hang" 0))) (Literal (Int (Ident "_" 225) 1))) (InfixOp (QualIdent (Just "Prelude") (Ident "$" 0))) (InfixApply (InfixApply (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "caseTypeDoc" 0))) (Variable (QualIdent Nothing (Ident "ct" 222)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "case")))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 222)))) (Literal (Int (Ident "_" 226) 0))) (Variable (QualIdent Nothing (Ident "mod" 222)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "e" 222))))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "keyword" 0))) (Literal (String "of")))) (InfixOp (QualIdent (Just "Pretty") (Ident "<$>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "layout" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "branchDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 222)))) (Variable (QualIdent Nothing (Ident "mod" 222)))))) (Variable (QualIdent Nothing (Ident "bs" 222))))))))) []))])+,(TypeSig (297,1) [(Ident "branchDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "BranchExpr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (298,1) (Ident "branchDoc" 0) [(Equation (298,1) (FunLhs (Ident "branchDoc" 0) [(VariablePattern (Ident "pr" 227)),(VariablePattern (Ident "mod" 227)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Branch" 0)) [(VariablePattern (Ident "pat" 227)),(VariablePattern (Ident "e" 227))]))]) (SimpleRhs (299,5) (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "def" 0))) (Paren (InfixApply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "patternDoc" 0))) (Variable (QualIdent Nothing (Ident "mod" 227)))) (Variable (QualIdent Nothing (Ident "pat" 227)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "arrow" 0)))))) (List [])) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "align" 0))) (Paren (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 227)))) (Literal (Int (Ident "_" 229) 0))) (Variable (QualIdent Nothing (Ident "mod" 227)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "e" 227)))))))) []))])+,(TypeSig (301,1) [(Ident "caseTypeDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "CaseType" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (302,1) (Ident "caseTypeDoc" 0) [(Equation (302,1) (FunLhs (Ident "caseTypeDoc" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Rigid" 0)) [])]) (SimpleRhs (302,21) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0))) [])),(Equation (303,1) (FunLhs (Ident "caseTypeDoc" 0) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Flex" 0)) [])]) (SimpleRhs (303,21) (Variable (QualIdent (Just "Pretty") (Ident "empty" 0))) []))])+,(TypeSig (305,1) [(Ident "patternDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Pattern" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) []))))+,(FunctionDecl (306,1) (Ident "patternDoc" 0) [(Equation (306,1) (FunLhs (Ident "patternDoc" 0) [(VariablePattern (Ident "mod" 234)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Pattern" 0)) [(VariablePattern (Ident "name" 234)),(VariablePattern (Ident "args" 234))]))]) (GuardedRhs [(CondExpr (307,3) (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "args" 234)))) (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 234)))) (Variable (QualIdent Nothing (Ident "name" 234))))),(CondExpr (308,3) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isTupleName" 0))) (Variable (QualIdent Nothing (Ident "name" 234)))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "tupled" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0)))) (Variable (QualIdent Nothing (Ident "args" 234))))))),(CondExpr (309,3) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "isInfixName" 0))) (Variable (QualIdent Nothing (Ident "name" 234)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "args" 234)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 236) 2)))) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 234))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 237) 0))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "snd" 0))) (Variable (QualIdent Nothing (Ident "name" 234))))))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 234))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 238) 1))))))),(CondExpr (313,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "qname" 0))) (Variable (QualIdent Nothing (Ident "mod" 234)))) (Variable (QualIdent Nothing (Ident "name" 234)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "Pretty") (Ident "hsep" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0)))) (Variable (QualIdent Nothing (Ident "args" 234))))))))] [])),(Equation (315,1) (FunLhs (Ident "patternDoc" 0) [(VariablePattern (Ident "_" 240)),(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "LPattern" 0)) [(VariablePattern (Ident "l" 239))]))]) (SimpleRhs (315,29) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "litDoc" 0))) (Variable (QualIdent Nothing (Ident "l" 239)))) []))])+,(TypeSig (317,1) [(Ident "letBindsDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])])) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (318,1) (Ident "letBindsDoc" 0) [(Equation (318,1) (FunLhs (Ident "letBindsDoc" 0) [(VariablePattern (Ident "pr" 242)),(VariablePattern (Ident "mod" 242))]) (SimpleRhs (318,22) (InfixApply (Variable (QualIdent (Just "PrettyFlat") (Ident "layout" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "letBindDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 242)))) (Variable (QualIdent Nothing (Ident "mod" 242))))))) []))])+,(TypeSig (320,1) [(Ident "letBindDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Precs" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (TupleType [(ConstructorType (QualIdent Nothing (Ident "Int" 0)) []),(ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])]) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))))+,(FunctionDecl (321,1) (Ident "letBindDoc" 0) [(Equation (321,1) (FunLhs (Ident "letBindDoc" 0) [(VariablePattern (Ident "pr" 244)),(VariablePattern (Ident "mod" 244)),(TuplePattern [(VariablePattern (Ident "n" 244)),(VariablePattern (Ident "e" 244))])]) (SimpleRhs (322,3) (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "varDoc" 0))) (Variable (QualIdent Nothing (Ident "n" 244)))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "operator" 0))) (Variable (QualIdent (Just "Pretty") (Ident "equals" 0))))) (InfixOp (QualIdent (Just "Pretty") (Ident "<+>" 0))) (Apply (Apply (Apply (Apply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "expDoc" 0))) (Variable (QualIdent Nothing (Ident "pr" 244)))) (Literal (Int (Ident "_" 246) 0))) (Variable (QualIdent Nothing (Ident "mod" 244)))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (Variable (QualIdent Nothing (Ident "e" 244))))) []))])+,(TypeSig (324,1) [(Ident "litDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Literal" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Doc" 0)) [])))+,(FunctionDecl (325,1) (Ident "litDoc" 0) [(Equation (325,1) (FunLhs (Ident "litDoc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Intc" 0)) [(VariablePattern (Ident "n" 247))]))]) (SimpleRhs (325,19) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "literal" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "int" 0))) (Variable (QualIdent Nothing (Ident "n" 247)))))) [])),(Equation (326,1) (FunLhs (Ident "litDoc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Floatc" 0)) [(VariablePattern (Ident "x" 249))]))]) (SimpleRhs (326,21) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "literal" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "float" 0))) (Variable (QualIdent Nothing (Ident "x" 249)))))) [])),(Equation (327,1) (FunLhs (Ident "litDoc" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 251))]))]) (SimpleRhs (327,20) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "literal" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "squotes" 0))) (Paren (Apply (Variable (QualIdent (Just "Pretty") (Ident "text" 0))) (Paren (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "quoteChar" 0))) (Variable (QualIdent Nothing (Ident "c" 251)))))))))) []))])+,(FunctionDecl (329,1) (Ident "quoteChar" 0) [(Equation (329,1) (FunLhs (Ident "quoteChar" 0) [(VariablePattern (Ident "c" 253))]) (SimpleRhs (329,15) (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 253)))])) (Variable (QualIdent (Just "Prelude") (Ident "id" 0)))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "lookup" 0))) (Variable (QualIdent Nothing (Ident "c" 253)))) (Variable (QualIdent (Just "PrettyFlat") (Ident "specialChars" 0)))))) []))])+,(FunctionDecl (332,1) (Ident "specialChars" 0) [(Equation (332,1) (FunLhs (Ident "specialChars" 0) []) (SimpleRhs (332,16) (List [(Tuple [(Literal (Char '\\')),(Literal (String "\\\\"))]),(Tuple [(Literal (Char '\n')),(Literal (String "\\n"))]),(Tuple [(Literal (Char '\r')),(Literal (String "\\r"))]),(Tuple [(Literal (Char '\t')),(Literal (String "\\t"))])]) []))])+,(TypeSig (334,1) [(Ident "toString" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (335,1) (Ident "toString" 0) [(Equation (335,1) (FunLhs (Ident "toString" 0) [(VariablePattern (Ident "exp" 257))]) (SimpleRhs (336,5) (Case (Variable (QualIdent Nothing (Ident "exp" 257))) [(Alt (337,7) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]) (SimpleRhs (337,44) (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Literal (String ""))) [])),(Alt (338,7) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Lit" 0)) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Charc" 0)) [(VariablePattern (Ident "c" 261))]))]),(VariablePattern (Ident "cs" 261))])]) (SimpleRhs (339,9) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "toString" 0))) (Variable (QualIdent Nothing (Ident "cs" 261)))) (InfixOp (QualIdent (Just "Maybe") (Ident ">>-" 0))) (InfixApply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (LeftSection (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "quoteChar" 0))) (Variable (QualIdent Nothing (Ident "c" 261)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))))) [])),(Alt (340,7) (VariablePattern (Ident "_" 264)) (SimpleRhs (340,12) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0))) []))]) []))])+,(TypeSig (342,1) [(Ident "toList" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []))])))+,(FunctionDecl (343,1) (Ident "toList" 0) [(Equation (343,1) (FunLhs (Ident "toList" 0) [(VariablePattern (Ident "exp" 266))]) (SimpleRhs (344,5) (Case (Variable (QualIdent Nothing (Ident "exp" 266))) [(Alt (345,7) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String "[]"))]),(ListPattern [])]) (SimpleRhs (345,44) (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (List [])) [])),(Alt (346,7) (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "ConsCall" 0)) []),(TuplePattern [(LiteralPattern (String "Prelude")),(LiteralPattern (String ":"))]),(ListPattern [(VariablePattern (Ident "x" 270)),(VariablePattern (Ident "xs" 270))])]) (SimpleRhs (346,47) (InfixApply (Apply (Variable (QualIdent (Just "PrettyFlat") (Ident "toList" 0))) (Variable (QualIdent Nothing (Ident "xs" 270)))) (InfixOp (QualIdent (Just "Maybe") (Ident ">>-" 0))) (InfixApply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (LeftSection (Variable (QualIdent Nothing (Ident "x" 270))) (InfixConstr (QualIdent Nothing (Ident ":" 0)))))) [])),(Alt (347,7) (VariablePattern (Ident "_" 273)) (SimpleRhs (347,12) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0))) []))]) []))])+,(TypeSig (350,1) [(Ident "elimApp" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Expr" 0)) [])))+,(FunctionDecl (351,1) (Ident "elimApp" 0) [(Equation (351,1) (FunLhs (Ident "elimApp" 0) []) (SimpleRhs (351,11) (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "updCombs" 0))) (Variable (QualIdent Nothing (Ident "elim" 276)))) [(FunctionDecl (353,3) (Ident "elim" 276) [(Equation (353,3) (FunLhs (Ident "elim" 276) [(VariablePattern (Ident "ct" 277)),(VariablePattern (Ident "name" 277)),(VariablePattern (Ident "args" 277))]) (GuardedRhs [(CondExpr (354,5) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "ct" 277))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Constructor (QualIdent (Just "FlatCurry") (Ident "FuncCall" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "name" 277))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "apply"))])) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "isComb" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 277)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "FlatCurryGoodies") (Ident "combName" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 277)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Tuple [(Variable (QualIdent (Just "PrettyFlat") (Ident "prelude" 0))),(Literal (String "apply"))]))))) (Apply (Apply (Variable (QualIdent Nothing (Ident "extend" 276))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "args" 277)))))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 277))) (InfixOp (QualIdent (Just "Prelude") (Ident "!!" 0))) (Literal (Int (Ident "_" 279) 1)))))),(CondExpr (357,5) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 277)))) (Variable (QualIdent Nothing (Ident "name" 277)))) (Variable (QualIdent Nothing (Ident "args" 277)))))] []))]),(FunctionDecl (358,3) (Ident "extend" 276) [(Equation (358,3) (FunLhs (Ident "extend" 276) [(ParenPattern (ConstructorPattern (QualIdent (Just "FlatCurry") (Ident "Comb" 0)) [(VariablePattern (Ident "ct" 280)),(VariablePattern (Ident "name" 280)),(VariablePattern (Ident "args" 280))])),(VariablePattern (Ident "arg" 280))]) (SimpleRhs (358,36) (Apply (Apply (Apply (Constructor (QualIdent (Just "FlatCurry") (Ident "Comb" 0))) (Variable (QualIdent Nothing (Ident "ct" 280)))) (Variable (QualIdent Nothing (Ident "name" 280)))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "args" 280))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Variable (QualIdent Nothing (Ident "arg" 280)))])))) []))])]))])+]
+ src/lib/Curry/Module/.curry/PrettyFlat.efc view
@@ -0,0 +1,1 @@+Prog "PrettyFlat" ["Char","FlatCurry","FlatCurryGoodies","Maybe","Prelude","Pretty","StyledText","System"] [TypeSyn ((Nothing,Nothing,"PrettyFlat","Precs")) Public [] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]])] [Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","arrow")) 0 Public (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","bar")) 0 Public (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","char")) [Lit (Charc  '|')]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","dcolon")) 0 Public (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))))),"PrettyFlat","precFillEncloseSep")) 6 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),4),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),6)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"Pretty","fillEncloseSep")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","precFillEncloseSep.pre.11")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","precFillEncloseSep.pre.11")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),4))],Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),6))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","precFillEncloseSep.pre.11")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isInfixName")) 1 Public (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","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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 4) (FuncType (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","(,)")) [(Just (TVar 4),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","all")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","infixIDs")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","infixIDs")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '~'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '@'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '$'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '%'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '^'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '*'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '+'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '|'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]])),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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isTupleName")) 1 Public (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","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)] (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (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,"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") []]),2)),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","[]")) []]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","showStyledProg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"PrettyFlat","prettyProg")) [Lit (Intc  78)])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"PrettyFlat","prettyProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Pretty","pretty")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","progDoc")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") []))) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))),"Prelude","apply")) [Comb FuncCall ((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")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"PrettyFlat","elimApp")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"PrettyFlat","prettyTypeExpr")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Pretty","pretty")) [Lit (Intc  78)],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"PrettyFlat","prettyTypes")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Pretty","pretty")) [Lit (Intc  78)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","typesDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","prettyOps")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Pretty","pretty")) [Lit (Intc  78)],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opsDoc")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","showProg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [] (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,"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",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"StyledText","plainText")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","showStyledProg")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"PrettyFlat","printStyledProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurry")) [Var ((Just (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"StyledText","printStyledText")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","showStyledProg")) []]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]),"PrettyFlat","mainPrint")) 0 Public (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"System","getArgs")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","mapIO_")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"PrettyFlat","printProg")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"PrettyFlat","printProg")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurry","readFlatCurryFile")) [Var ((Just (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStrLn")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","showProg")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","magentaDoc")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","greenDoc")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","blueDoc")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","literal")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","cyanDoc")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","marked")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","bgYellowDoc")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"StyledText","boldDoc")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","block")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","group")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","hang")) [Lit (Intc  1)]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3)] (Let [((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),4),Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 2]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 7) (TVar 8)) (FuncType (TVar 7) (TVar 8))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 5) (TVar 6)) (FuncType (TVar 5) (TVar 6))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","fillSep")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 3) (TVar 4)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 3]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 4]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))]]]])])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","block")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1)),Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),4))]],Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3))]]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","app")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","block")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"Pretty","fillEncloseSep")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) [],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),2))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","layout")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","compose")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Pretty","combine")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","linesep")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]])),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) 2 Public (FuncType (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,"Pretty","Doc")) []))) (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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Case  Flex (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Rigid (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,"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","Bool") []))),"Prelude","==")) [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)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isTupleName")) [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))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isInfixName")) [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))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","parens")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","parens")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","dot")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","qname.txt.65")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]]])]),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")) []) (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") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","qname.txt.65")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","correctName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","dot")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","qname.txt.65")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","qname.txt.65")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isUpper")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","correctName")) 1 Public (FuncType (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","Char") []]),1)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 17) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 14) (TVar 15)) (FuncType (FuncType (TVar 16) (TVar 14)) (FuncType (TVar 16) (TVar 15)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 11) (FuncType (TVar 12) (TVar 13))) (FuncType (TVar 12) (FuncType (TVar 11) (TVar 13)))),"Prelude","flip")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 7) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 10) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10]))),"Prelude",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (FuncType (TVar 9) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 9]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (TVar 8),"Prelude","[]")) []]]]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '_')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)))]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","<$>>")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),1))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","line")) []],Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","progDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [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") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","<$>>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","<$>>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","<$>>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","<$>>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","moduleHeaderDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"PrettyFlat","exportedNames")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","impsDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opsDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","typesDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcsDoc")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]])),"PrettyFlat","precs")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]])),"PrettyFlat","precs")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []])),"PrettyFlat","precs._#lambda3")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []])),"PrettyFlat","precs._#lambda3")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (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","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]))),"Prelude","(,)")) [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","Int") []),4))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"PrettyFlat","exportedNames")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","exportedNames.typeExpDoc.89")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","typeVisibility")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),5))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"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,"Pretty","Doc") [])) (FuncType (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") []]])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((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")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","funcVisibility")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),6))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","exportedNames.typeExpDoc.89")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),3),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 10) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 10]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 5) (TVar 6)) (FuncType (FuncType (TVar 7) (TVar 5)) (FuncType (TVar 7) (TVar 6)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 4) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryGoodies","consVisibility")) []],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 9))))) (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 9))))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TVar 9)))),"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") []]))))),"PrettyFlat","exportedNames.typeExpDoc.89._#lambda4")) [],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","[]") [TVar 8]))))),"PrettyFlat","exportedNames.typeExpDoc.89._#lambda5")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),2))]])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (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") []]])) (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") []]]))),"Prelude","apply")) [Comb FuncCall ((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")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),2))]],Case  Rigid (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") []]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '('),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ')'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]])]]))),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") []]))))),"PrettyFlat","exportedNames.typeExpDoc.89._#lambda4")) 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,"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","[]") [TVar 1]))))),"PrettyFlat","exportedNames.typeExpDoc.89._#lambda5")) 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","[]")) [TVar 1]))))) (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","[]") [TVar 1]),"Prelude","[]")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","moduleHeaderDoc")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","exportsDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),2))]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","exportsDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","group")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","nest")) [Lit (Intc  1),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","lparen")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","fillSep")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Pretty","punctuate")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","comma")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),1))]]]]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","rparen")) []]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","impsDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (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,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","vcat")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opsDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","vcat")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),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,"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") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (TVar 7) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TVar 6),5),(Just (TVar 7),6)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),Case  Rigid (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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isInfixName")) [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))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TVar 7),6))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 13]))),"Prelude",":")) [Lit (Charc  '`'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 12]))),"Prelude","++")) [Var ((Just (TVar 7),6)),Comb ConsCall ((Nothing,Just (FuncType (TVar 11) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]))),"Prelude",":")) [Lit (Charc  '`'),Comb ConsCall ((Nothing,Just (TVar 10),"Prelude","[]")) []]]])])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opDoc.fixDoc.114")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3))]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","int")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))]]]))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","opDoc.fixDoc.114")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","typesDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","vcat")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","typeDoc")) [Var ((Just (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","TypeDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","typeDoc")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),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","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") []]]),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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,"Prelude","Int") []]),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","consDeclsDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),6))]]),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") []]]),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),8),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),10)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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") []]]),7))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","equals")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),10))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [],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","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x')],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","tvarDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  25)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Lit (Intc  97),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Prelude","failed")) [])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","consDeclsDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"Pretty","fillEncloseSep")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","equals")) []],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","bar")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","consDeclDoc")) [Var ((Just (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","ConsDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","consDeclDoc")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","app")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","tvarDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]),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") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","brackets")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isTupleName")) [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))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","tupled")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]]),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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","app")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),6))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Prelude","failed")) [])])])])]),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") []),7),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),8)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"Pretty","fillEncloseSep")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","arrow")) []],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],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") []),3))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","resultType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),"Prelude","[]")) []]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"Pretty","Doc")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1)] (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","parens")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Prelude","id")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcsDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),3)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","vcat")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Pretty","punctuate")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","line")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),3))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),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","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") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),6),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),7),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),8)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcTypeDeclDoc")) [Var ((Just (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)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),7))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (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,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"PrettyFlat","ruleDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (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)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),8))]])])),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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcTypeDeclDoc")) 3 Public (FuncType (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,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcTypeDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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") []),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryGoodies","resultType")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","funcTypeDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"Pretty","fillEncloseSep")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","dcolon")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","arrow")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","typeExprDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []]],Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),2)),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") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (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,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))))),"PrettyFlat","ruleDoc")) 4 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (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,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (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,"FlatCurry","Rule") []),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),4))) [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") []]),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","equals")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),6))]]]]),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") []]),7)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) 5 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","maybe")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc2")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))],Comb (FuncPartCall 1) ((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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","expDoc._#lambda6")) [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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","Int") []]]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"PrettyFlat","toList")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc._#lambda7")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"PrettyFlat","toString")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]])),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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","expDoc._#lambda6")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","list")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),2)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc._#lambda7")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","consname")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '['),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ']'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","literal")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","dquotes")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Var ((Just (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","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]],TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc2")) 5 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Bool")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),7)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","litDoc")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),7))]),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") []),8),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10)]) (Let [((Just (TVar 7),11),Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TVar 36),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","lparen")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","rparen")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TVar 37),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []])])] (Let [((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),12),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc2._#selFP3#lbr")) [Var ((Just (TVar 7),11))])] (Let [((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),13),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc2._#selFP4#rbr")) [Var ((Just (TVar 7),11))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14),Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 38) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 38,TVar 39]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 39]))),"Prelude","lookup")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1))]) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 40])),"Prelude","Just")) [(Just (TVar 10),15)]) (Var ((Just (TVar 10),15))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 41]),"Prelude","Nothing")) []) (Lit (Intc  0))])] (Case  Rigid (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","CombType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","app")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10)),Lit (Intc  0)]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10)),Lit (Intc  1)]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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","CombType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),8)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []],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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isTupleName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","tupled")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isInfixName")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10))],Lit (Intc  2)]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))))))),"PrettyFlat","precFillEncloseSep")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),12)),Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),13)),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10)),Lit (Intc  0)]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))]]]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","space")) []],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10)),Lit (Intc  1)]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]),"Prelude","[]")) []]]]]]),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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [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,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","app")) [Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),9))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),10))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Prelude","failed")) [])])])])]))))),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") []]]),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","hang")) [Lit (Intc  1)],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","letBindsDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),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","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16))]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))]]]]),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 (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","hang")) [Lit (Intc  1)],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","fillSep")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Pretty","punctuate")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","comma")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),18))]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],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)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),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")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) [],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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") []),20)),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") []),21)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]]]),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") []),22),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),24)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","par")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Bool") []),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","$")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","hang")) [Lit (Intc  1)],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<$>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","caseTypeDoc")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),22))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),23))]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","keyword")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","layout")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","branchDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),24))]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc2._#selFP3#lbr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Pretty","Doc")) [],TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","expDoc2._#selFP4#rbr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Pretty","Doc")) [],TCons ((Nothing,Nothing,"Pretty","Doc")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Pretty","Doc") [],TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"Pretty","Doc") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","branchDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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 (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","def")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","patternDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),4))]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"PrettyFlat","arrow")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","align")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","caseTypeDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","CaseType")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","empty")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","patternDoc")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Pattern")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),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,"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") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isTupleName")) [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))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","tupled")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"PrettyFlat","isInfixName")) [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 (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))],Lit (Intc  2)]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<>")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)),Lit (Intc  0)]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","snd")) [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","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)),Lit (Intc  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 FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((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") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"PrettyFlat","qname")) [Var ((Just (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))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","hsep")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]))),"Prelude","map")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Prelude","failed")) [])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","litDoc")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (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,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","letBindsDoc")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (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,"FlatCurry","Expr")) []]]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (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,"Pretty","Doc") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Pretty","Doc") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","layout")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (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,"Pretty","Doc") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","letBindDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"PrettyFlat","letBindDoc")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [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","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Pretty","<+>")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","varDoc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","operator")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Pretty","Doc") []),"Pretty","equals")) []]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])))))),"PrettyFlat","expDoc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [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","Int") []]]),1)),Lit (Intc  0),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","litDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"Pretty","Doc")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","literal")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","int")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","literal")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","float")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"PrettyFlat","literal")) [],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])) (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Pretty","Doc") []) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","squotes")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Pretty","Doc") [])),"Pretty","text")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","quoteChar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","quoteChar")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Char")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (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,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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 FuncCall ((Nothing,Just (FuncType (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","lookup")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),1)),Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Char") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"PrettyFlat","specialChars")) []]])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Char") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"PrettyFlat","specialChars")) 0 Public (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Char")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]) (Rule [] (Comb ConsCall ((Nothing,Just (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","(,)") [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",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (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","Char") []]]))),"Prelude","(,)")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (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","(,)") [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",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (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","Char") []]]))),"Prelude","(,)")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (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","(,)") [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",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (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","Char") []]]))),"Prelude","(,)")) [Lit (Charc  '\r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (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","(,)") [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",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (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","Char") []]]))),"Prelude","(,)")) [Lit (Charc  '\t'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\\'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Char") [],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"PrettyFlat","toString")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]])) (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")) []) (Case  Rigid (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7)),Lit (Charc  'P')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9)),Lit (Charc  'r')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),13),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13)),Lit (Charc  'l')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15)),Lit (Charc  'u')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17)),Lit (Charc  'd')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),19),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),21),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21)),Lit (Charc  '[')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),23),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),24)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23)),Lit (Charc  ']')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),24))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),26)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),27),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21)),Lit (Charc  ':')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))) [Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),29),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),30)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),29))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),31)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),31))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),32)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),30))) [Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),33),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),34)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),34))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Maybe",">>-")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"PrettyFlat","toString")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),33))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","Just")) [],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","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"PrettyFlat","quoteChar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))]]]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),35),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),36)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),37)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),38)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),39)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []),40),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),41),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),42)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []]]),43),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),44)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []]),45),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),46)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []),47),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),48)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []),49),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),50),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),51)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),52),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),53)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),54),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),55)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),56)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),57)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),58)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),59)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []]]),60),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),61)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []]),62),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),63)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []),64),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),65)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []),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") []),66),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),67),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),68)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"PrettyFlat","toList")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]])) (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")) []) (Case  Rigid (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))) [Branch (Pattern ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7)),Lit (Charc  'P')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9)),Lit (Charc  'r')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),11),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),13),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13)),Lit (Charc  'l')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),14))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),15),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15)),Lit (Charc  'u')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),16))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),17),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17)),Lit (Charc  'd')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),18))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),19),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19)),Lit (Charc  'e')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),20))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),21),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21)),Lit (Charc  '[')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),23),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),24)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23)),Lit (Charc  ']')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),24))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),25),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),26)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),27),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),28)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21)),Lit (Charc  ':')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),22))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),4))) [Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),29),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),30)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),30))) [Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),31),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),32)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),32))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]))),"Maybe",">>-")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"PrettyFlat","toList")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),31))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])) (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","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"Prelude","Just")) [],Comb (ConsPartCall 1) ((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") []),29))]]]),Branch (Pattern ((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",":")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),33),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),34)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),35),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),36)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),37),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),38)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),39)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),40)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),41)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),42)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),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") []]]),43),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),44)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),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") []]),45),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),46)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),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") []),47),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),48)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) []),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") []),49),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),50),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),51)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),"Prelude","Nothing")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"PrettyFlat","elimApp")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [] (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","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurryGoodies","updCombs")) [Comb (FuncPartCall 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") [])))),"PrettyFlat","elimApp.elim.276")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"PrettyFlat","elimApp.extend.276")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),2)] (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") []),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,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),5)]) (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") []),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") []]]),4)),Comb FuncCall ((Nothing,Just (FuncType (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","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),5)),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 (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),"Prelude","[]")) []]]])])),Func ((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") [])))),"PrettyFlat","elimApp.elim.276")) 3 Private (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 (TCons (Nothing,Nothing,"FlatCurry","CombType") []),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","Expr") []]),3)] (Case  Rigid (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","CombType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []],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,"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","Bool") []))),"Prelude","==")) [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)),Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb FuncCall ((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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))]],Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"PrettyFlat","prelude")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"PrettyFlat","elimApp.extend.276")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"Prelude","!!")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),3)),Lit (Intc  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","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") []),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","Expr") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),"Prelude","failed")) [])])]))] []
+ src/lib/Curry/Module/.curry/PrettyFlat.fcy view
@@ -0,0 +1,1 @@+Prog "PrettyFlat" ["Char","FlatCurry","FlatCurryGoodies","Maybe","Prelude","Pretty","StyledText","System"] [TypeSyn ("PrettyFlat","Precs") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]])] [Func ("PrettyFlat","prelude") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("PrettyFlat","arrow") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("PrettyFlat","bar") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","char") [Lit (Charc  '|')]])),Func ("PrettyFlat","dcolon") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("PrettyFlat","precFillEncloseSep") 6 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))))))) (Rule [1,2,3,4,5,6] (Comb FuncCall ("Pretty","fillEncloseSep") [Comb FuncCall ("PrettyFlat","precFillEncloseSep.pre.11") [Var 1,Var 2,Var 3],Comb FuncCall ("PrettyFlat","precFillEncloseSep.pre.11") [Var 1,Var 2,Var 4],Var 5,Var 6])),Func ("PrettyFlat","precFillEncloseSep.pre.11") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","empty") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb ConsCall ("Prelude","True") []) [Branch (Pattern ("Prelude","True") []) (Var 3),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("PrettyFlat","isInfixName") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 1) ("Prelude","elem") [],Comb FuncCall ("PrettyFlat","infixIDs") []]],Var 3])])),Func ("PrettyFlat","infixIDs") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Charc  '~'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude",":") [Lit (Charc  '@'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude",":") [Lit (Charc  '$'),Comb ConsCall ("Prelude",":") [Lit (Charc  '%'),Comb ConsCall ("Prelude",":") [Lit (Charc  '^'),Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '*'),Comb ConsCall ("Prelude",":") [Lit (Charc  '+'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '|'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]])),Func ("PrettyFlat","isTupleName") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Comb FuncCall ("PrettyFlat","prelude") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 3]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","[]") []]]]])])),Func ("PrettyFlat","showStyledProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("PrettyFlat","prettyProg") [Lit (Intc  78)])),Func ("PrettyFlat","prettyProg") 1 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","pretty") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("PrettyFlat","progDoc") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","updProgExps") [],Comb FuncCall ("PrettyFlat","elimApp") []]]])),Func ("PrettyFlat","prettyTypeExpr") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","pretty") [Lit (Intc  78)],Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","False") []]])),Func ("PrettyFlat","prettyTypes") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","pretty") [Lit (Intc  78)],Comb FuncCall ("PrettyFlat","typesDoc") [Var 1]])),Func ("PrettyFlat","prettyOps") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","pretty") [Lit (Intc  78)],Comb (FuncPartCall 1) ("PrettyFlat","opsDoc") []])),Func ("PrettyFlat","showProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("StyledText","plainText") [],Comb FuncCall ("PrettyFlat","showStyledProg") []])),Func ("PrettyFlat","printStyledProg") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurry") [Var 1],Comb FuncCall ("Prelude",".") [Comb FuncCall ("StyledText","printStyledText") [],Comb FuncCall ("PrettyFlat","showStyledProg") []]])),Func ("PrettyFlat","mainPrint") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","()") []]) (Rule [] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("System","getArgs") [],Comb FuncCall ("Prelude","mapIO_") [Comb (FuncPartCall 1) ("PrettyFlat","printProg") []]])),Func ("PrettyFlat","printProg") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FlatCurry","readFlatCurryFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","putStrLn") [],Comb FuncCall ("PrettyFlat","showProg") []]])),Func ("PrettyFlat","keyword") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("StyledText","magentaDoc") [],Comb (FuncPartCall 1) ("Pretty","text") []])),Func ("PrettyFlat","consname") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("StyledText","greenDoc") [],Comb (FuncPartCall 1) ("Pretty","text") []])),Func ("PrettyFlat","operator") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("StyledText","blueDoc") [])),Func ("PrettyFlat","literal") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("StyledText","cyanDoc") [])),Func ("PrettyFlat","marked") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("StyledText","bgYellowDoc") [],Comb FuncCall ("StyledText","boldDoc") []])),Func ("PrettyFlat","block") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","group") [],Comb (FuncPartCall 1) ("Pretty","hang") [Lit (Intc  1)]])),Func ("PrettyFlat","def") 3 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Let [(4,Case  Rigid (Comb FuncCall ("Prelude","null") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","empty") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","space") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","fillSep") [],Comb FuncCall ("Prelude","map") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 2]]]])])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","block") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Pretty","<>") [Var 1,Var 4]],Var 3]]))),Func ("PrettyFlat","app") 2 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","block") [],Comb FuncCall ("Pretty","fillEncloseSep") [Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","space") [],Comb ConsCall ("Prelude",":") [Var 1,Var 2]]])])),Func ("PrettyFlat","layout") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Pretty","align") [],Comb (FuncPartCall 1) ("Pretty","compose") [Comb (FuncPartCall 2) ("Pretty","combine") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","linesep") [],Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]])),Func ("PrettyFlat","qname") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 2,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("PrettyFlat","isTupleName") [Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Var 4]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("PrettyFlat","isInfixName") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","parens") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","parens") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consname") [],Var 3],Comb FuncCall ("Pretty","dot") []],Comb FuncCall ("PrettyFlat","qname.txt.65") [Var 4]]]])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("PrettyFlat","qname.txt.65") [Comb FuncCall ("PrettyFlat","correctName") [Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consname") [],Var 3],Comb FuncCall ("Pretty","dot") []],Comb FuncCall ("PrettyFlat","qname.txt.65") [Var 4]])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("PrettyFlat","qname.txt.65") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Char","isUpper") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consname") [],Comb ConsCall ("Prelude",":") [Var 2,Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Pretty","text") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]])])])),Func ("PrettyFlat","correctName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 1) ("Prelude","elem") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []]]]],Var 1])] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '_')]) [Branch (Pattern ("Prelude","True") []) (Var 4),Branch (Pattern ("Prelude","False") []) (Var 2)]),Branch (Pattern ("Prelude","[]") []) (Var 2)]))),Func ("PrettyFlat","<$>>") 2 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Var 1],Comb FuncCall ("Pretty","line") []],Var 2])),Func ("PrettyFlat","progDoc") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Prog") [2,3,4,5,6]) (Comb FuncCall ("PrettyFlat","<$>>") [Comb FuncCall ("PrettyFlat","<$>>") [Comb FuncCall ("PrettyFlat","<$>>") [Comb FuncCall ("PrettyFlat","<$>>") [Comb FuncCall ("PrettyFlat","moduleHeaderDoc") [Var 2,Comb FuncCall ("PrettyFlat","exportedNames") [Var 2,Var 1]],Comb FuncCall ("PrettyFlat","impsDoc") [Var 3]],Comb FuncCall ("PrettyFlat","opsDoc") [Var 6]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","typesDoc") [Var 2],Var 4]],Comb FuncCall ("PrettyFlat","funcsDoc") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","precs") [],Var 6],Var 2,Var 5]])])),Func ("PrettyFlat","precs") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","precs._#lambda3") []])),Func ("PrettyFlat","precs._#lambda3") 1 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Op") [2,3,4]) (Comb ConsCall ("Prelude","(,)") [Var 2,Var 4])])),Func ("PrettyFlat","exportedNames") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","exportedNames.typeExpDoc.89") [Var 1],Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","==") [Comb ConsCall ("FlatCurry","Public") []],Comb FuncCall ("FlatCurryGoodies","typeVisibility") []],Var 5]],Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("PrettyFlat","qname") [Var 1],Comb FuncCall ("FlatCurryGoodies","funcName") []],Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","==") [Comb ConsCall ("FlatCurry","Public") []],Comb FuncCall ("FlatCurryGoodies","funcVisibility") []],Var 6]]])])),Func ("PrettyFlat","exportedNames.typeExpDoc.89") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Let [(3,Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","==") [Comb ConsCall ("FlatCurry","Public") []],Comb FuncCall ("FlatCurryGoodies","consVisibility") []],Comb FuncCall ("FlatCurryGoodies","trType") [Comb (FuncPartCall 4) ("PrettyFlat","exportedNames.typeExpDoc.89._#lambda4") [],Comb (FuncPartCall 4) ("PrettyFlat","exportedNames.typeExpDoc.89._#lambda5") [],Var 2]])] (Comb FuncCall ("Pretty","<>") [Comb FuncCall ("PrettyFlat","qname") [Var 1,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("FlatCurryGoodies","typeName") [],Var 2]],Case  Rigid (Comb FuncCall ("Prelude","null") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","empty") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Pretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc  '('),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  ')'),Comb ConsCall ("Prelude","[]") []]]]]])]]))),Func ("PrettyFlat","exportedNames.typeExpDoc.89._#lambda4") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))))) (Rule [1,2,3,4] (Var 4)),Func ("PrettyFlat","exportedNames.typeExpDoc.89._#lambda5") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [1,2,3,4] (Comb ConsCall ("Prelude","[]") [])),Func ("PrettyFlat","moduleHeaderDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consname") [],Var 1]]],Comb FuncCall ("PrettyFlat","exportsDoc") [Var 2]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'w'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]])),Func ("PrettyFlat","exportsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Comb FuncCall ("Pretty","group") [Comb FuncCall ("Pretty","nest") [Lit (Intc  1),Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Pretty","lparen") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","fillSep") [],Comb FuncCall ("Pretty","punctuate") [Comb FuncCall ("Pretty","comma") [],Var 1]]]]],Comb FuncCall ("Pretty","rparen") []]]])),Func ("PrettyFlat","impsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Pretty","Doc") [])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","vcat") [],Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("PrettyFlat","consname") []],Var 1]])),Func ("PrettyFlat","opsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","vcat") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","opDoc") [],Var 1]])),Func ("PrettyFlat","opDoc") 1 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Op") [2,3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Case  Rigid (Comb FuncCall ("PrettyFlat","isInfixName") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Var 6),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '`'),Comb FuncCall ("Prelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc  '`'),Comb ConsCall ("Prelude","[]") []]]])])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("PrettyFlat","opDoc.fixDoc.114") [Var 3]]],Comb FuncCall ("Pretty","int") [Var 4]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Var 7]]]))])])),Func ("PrettyFlat","opDoc.fixDoc.114") 1 Private (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("Pretty","empty") []),Branch (Pattern ("FlatCurry","InfixlOp") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("FlatCurry","InfixrOp") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]])])),Func ("PrettyFlat","typesDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Pretty","Doc") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Pretty","vcat") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","typeDoc") [Var 1]]])),Func ("PrettyFlat","typeDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Comb FuncCall ("PrettyFlat","def") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 3]],Var 5,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consDeclsDoc") [Var 1],Var 6]]),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Comb FuncCall ("PrettyFlat","def") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 7]],Var 9,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","equals") []]],Comb FuncCall ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","False") [],Var 10]]])])),Func ("PrettyFlat","varDoc") 0 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Pretty","Doc") [])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","text") [],Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("Prelude",":") [Lit (Charc  'x')],Comb (FuncPartCall 1) ("Prelude","show") []]])),Func ("PrettyFlat","tvarDoc") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 1,Lit (Intc  25)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","text") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","show") [Var 1]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","text") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Lit (Intc  97),Var 1]],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("PrettyFlat","consDeclsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Pretty","Doc") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Pretty","fillEncloseSep") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","equals") []],Comb FuncCall ("Pretty","space") []],Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("PrettyFlat","bar") [],Comb FuncCall ("Pretty","space") []]],Comb (FuncPartCall 1) ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Pretty","<>") [],Comb FuncCall ("Pretty","space") []],Comb (FuncPartCall 1) ("PrettyFlat","consDeclDoc") [Var 1]]]])),Func ("PrettyFlat","consDeclDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Comb FuncCall ("PrettyFlat","app") [Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 3],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","True") []],Var 6]])])),Func ("PrettyFlat","typeExprDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","TVar") [4]) (Comb FuncCall ("PrettyFlat","tvarDoc") [Var 4]),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 5,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","brackets") [],Comb FuncCall ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("Prelude","head") [Var 6]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("PrettyFlat","isTupleName") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","tupled") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","False") []],Var 6]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 2],Comb FuncCall ("PrettyFlat","app") [Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 5],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","True") []],Var 6]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]),Branch (Pattern ("FlatCurry","FuncType") [7,8]) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 2],Comb FuncCall ("Pretty","fillEncloseSep") [Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","space") [],Comb FuncCall ("PrettyFlat","arrow") []],Comb FuncCall ("Pretty","space") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","True") []],Comb FuncCall ("FlatCurryGoodies","argTypes") [Var 3]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("FlatCurryGoodies","resultType") [Var 3]],Comb ConsCall ("Prelude","[]") []]]]])])),Func ("PrettyFlat","par") 1 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") []))) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","parens") []),Branch (Pattern ("Prelude","False") []) (Comb (FuncPartCall 1) ("Prelude","id") [])])),Func ("PrettyFlat","funcsDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","vcat") [],Comb FuncCall ("Pretty","punctuate") [Comb FuncCall ("Pretty","line") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","funcDoc") [Var 1,Var 2],Var 3]]])),Func ("PrettyFlat","funcDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Func") [4,5,6,7,8]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("PrettyFlat","funcTypeDeclDoc") [Var 2,Var 4,Var 7]],Comb FuncCall ("PrettyFlat","ruleDoc") [Var 1,Var 2,Var 4,Var 8]])])),Func ("PrettyFlat","funcTypeDeclDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Comb FuncCall ("PrettyFlat","def") [Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 2],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("PrettyFlat","funcTypeDoc") [Var 1,Comb FuncCall ("FlatCurryGoodies","argTypes") [Var 3],Comb FuncCall ("FlatCurryGoodies","resultType") [Var 3]]])),Func ("PrettyFlat","funcTypeDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Comb FuncCall ("Pretty","fillEncloseSep") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("PrettyFlat","dcolon") [],Comb FuncCall ("Pretty","space") []],Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("PrettyFlat","arrow") [],Comb FuncCall ("Pretty","space") []],Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Pretty","<>") [],Comb FuncCall ("Pretty","space") []],Comb (FuncPartCall 1) ("PrettyFlat","typeExprDoc") [Var 1,Comb ConsCall ("Prelude","True") []]],Comb FuncCall ("Prelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]]])),Func ("PrettyFlat","ruleDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Pretty","Doc") []))))) (Rule [1,2,3,4] (Case  Flex (Var 4) [Branch (Pattern ("FlatCurry","Rule") [5,6]) (Comb FuncCall ("PrettyFlat","def") [Comb FuncCall ("PrettyFlat","qname") [Var 2,Var 3],Var 5,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Pretty","equals") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 2,Comb ConsCall ("Prelude","False") [],Var 6]]]]),Branch (Pattern ("FlatCurry","External") [7]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("PrettyFlat","qname") [Var 2,Var 3]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])])),Func ("PrettyFlat","expDoc") 5 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Pretty","Doc") [])))))) (Rule [1,2,3,4,5] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("PrettyFlat","expDoc2") [Var 1,Lit (Intc  0),Var 3,Var 4,Var 5],Comb (FuncPartCall 1) ("PrettyFlat","expDoc._#lambda6") [Var 3,Var 1],Comb FuncCall ("PrettyFlat","toList") [Var 5]],Comb (FuncPartCall 1) ("PrettyFlat","expDoc._#lambda7") [],Comb FuncCall ("PrettyFlat","toString") [Var 5]])),Func ("PrettyFlat","expDoc._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","list") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","expDoc") [Var 2,Lit (Intc  0),Var 1,Comb ConsCall ("Prelude","False") []],Var 3]])),Func ("PrettyFlat","expDoc._#lambda7") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","consname") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude",":") [Lit (Charc  ']'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","literal") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","dquotes") [],Comb FuncCall ("Pretty","text") [Var 1]]])])),Func ("PrettyFlat","expDoc2") 5 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Pretty","Doc") [])))))) (Rule [1,2,3,4,5] (Case  Flex (Var 5) [Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 6]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("PrettyFlat","litDoc") [Var 7]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Let [(11,Case  Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Pretty","lparen") [],Comb FuncCall ("Pretty","rparen") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Pretty","empty") [],Comb FuncCall ("Pretty","empty") []])])] (Let [(12,Comb FuncCall ("PrettyFlat","expDoc2._#selFP3#lbr") [Var 11])] (Let [(13,Comb FuncCall ("PrettyFlat","expDoc2._#selFP4#rbr") [Var 11])] (Let [(14,Case  Rigid (Comb FuncCall ("Prelude","lookup") [Var 9,Var 1]) [Branch (Pattern ("Prelude","Just") [15]) (Var 15),Branch (Pattern ("Prelude","Nothing") []) (Lit (Intc  0))])] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("FlatCurry","FuncCall") []],Comb FuncCall ("Prelude","==") [Var 9,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 4],Comb FuncCall ("PrettyFlat","app") [Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Prelude","!!") [Var 10,Lit (Intc  0)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Prelude","!!") [Var 10,Lit (Intc  1)]],Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 8,Comb ConsCall ("FlatCurry","ConsCall") []],Comb FuncCall ("PrettyFlat","isTupleName") [Var 9]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","tupled") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","False") []],Var 10]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("PrettyFlat","isInfixName") [Var 9],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 10],Lit (Intc  2)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("PrettyFlat","precFillEncloseSep") [Var 14,Var 2,Var 12,Var 13,Comb FuncCall ("Pretty","empty") [],Comb ConsCall ("Prelude",":") [Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Var 14,Var 3,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Prelude","!!") [Var 10,Lit (Intc  0)]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","space") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Comb FuncCall ("Prelude","snd") [Var 9]]]],Comb FuncCall ("Pretty","space") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Var 14,Var 3,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("Prelude","!!") [Var 10,Lit (Intc  1)]],Comb ConsCall ("Prelude","[]") []]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","null") [Var 10]],Var 4]],Comb FuncCall ("PrettyFlat","app") [Comb FuncCall ("PrettyFlat","qname") [Var 3,Var 9],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","True") []],Var 10]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]))))),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 4],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Pretty","hang") [Lit (Intc  1)],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","letBindsDoc") [Var 1,Var 3],Var 16]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","False") [],Var 17]]]]),Branch (Pattern ("FlatCurry","Free") [18,19]) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 4],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Pretty","hang") [Lit (Intc  1)],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","fillSep") [],Comb FuncCall ("Pretty","punctuate") [Comb FuncCall ("Pretty","comma") [],Comb FuncCall ("Prelude","map") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 18]]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","False") [],Var 19]]]]),Branch (Pattern ("FlatCurry","Or") [20,21]) (Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Var 4,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("FlatCurry","Case") [22,23,24]) (Comb FuncCall ("Prelude","$") [Comb FuncCall ("PrettyFlat","par") [Var 4],Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Pretty","hang") [Lit (Intc  1)],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<$>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Pretty","<>") [Comb FuncCall ("PrettyFlat","caseTypeDoc") [Var 22],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 3,Comb ConsCall ("Prelude","False") [],Var 23]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","keyword") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'f'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","layout") [],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","branchDoc") [Var 1,Var 3],Var 24]]]]])])),Func ("PrettyFlat","expDoc2._#selFP3#lbr") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Pretty","Doc") [],TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("PrettyFlat","expDoc2._#selFP4#rbr") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Pretty","Doc") [],TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("PrettyFlat","branchDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Comb FuncCall ("PrettyFlat","def") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("PrettyFlat","patternDoc") [Var 2,Var 4]],Comb FuncCall ("PrettyFlat","arrow") []],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","align") [],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 2,Comb ConsCall ("Prelude","False") [],Var 5]]])])),Func ("PrettyFlat","caseTypeDoc") 1 Public (FuncType (TCons ("FlatCurry","CaseType") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Rigid") []) (Comb FuncCall ("Pretty","empty") []),Branch (Pattern ("FlatCurry","Flex") []) (Comb FuncCall ("Pretty","empty") [])])),Func ("PrettyFlat","patternDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Pretty","Doc") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("PrettyFlat","isTupleName") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","tupled") [],Comb FuncCall ("Prelude","map") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 4]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("PrettyFlat","isInfixName") [Var 3],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 4],Lit (Intc  2)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Pretty","<>") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","varDoc") [],Comb FuncCall ("Prelude","!!") [Var 4,Lit (Intc  0)]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","text") [Comb FuncCall ("Prelude","snd") [Var 3]]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","varDoc") [],Comb FuncCall ("Prelude","!!") [Var 4,Lit (Intc  1)]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("PrettyFlat","qname") [Var 1,Var 3]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","hsep") [],Comb FuncCall ("Prelude","map") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]),Branch (Pattern ("FlatCurry","LPattern") [5]) (Comb FuncCall ("PrettyFlat","litDoc") [Var 5])])),Func ("PrettyFlat","letBindsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (TCons ("Pretty","Doc") [])))) (Rule [1,2] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("PrettyFlat","layout") [],Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("PrettyFlat","letBindDoc") [Var 1,Var 2]]])),Func ("PrettyFlat","letBindDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Pretty","Doc") [])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","<+>") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","varDoc") [],Var 4]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","operator") [],Comb FuncCall ("Pretty","equals") []]]],Comb FuncCall ("PrettyFlat","expDoc") [Var 1,Lit (Intc  0),Var 2,Comb ConsCall ("Prelude","False") [],Var 5]])])),Func ("PrettyFlat","litDoc") 1 Public (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Pretty","Doc") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Intc") [2]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","literal") [],Comb FuncCall ("Pretty","int") [Var 2]]),Branch (Pattern ("FlatCurry","Floatc") [3]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","literal") [],Comb FuncCall ("Pretty","float") [Var 3]]),Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("PrettyFlat","literal") [],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Pretty","squotes") [],Comb FuncCall ("Pretty","text") [Comb FuncCall ("PrettyFlat","quoteChar") [Var 4]]]])])),Func ("PrettyFlat","quoteChar") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 1) ("Prelude","id") [],Comb FuncCall ("Prelude","lookup") [Var 1,Comb FuncCall ("PrettyFlat","specialChars") []]])),Func ("PrettyFlat","specialChars") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Char") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Lit (Charc  '\r'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Lit (Charc  '\t'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]])),Func ("PrettyFlat","toString") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Case  Rigid (Var 2) [Branch (Pattern ("FlatCurry","ConsCall") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Lit (Charc  'P')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 9,Lit (Charc  'r')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 11,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 13,Lit (Charc  'l')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 15,Lit (Charc  'u')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 17,Lit (Charc  'd')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 19,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 21,Lit (Charc  '[')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 23,Lit (Charc  ']')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [25,26]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [27,28]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 21,Lit (Charc  ':')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Rigid (Var 29) [Branch (Pattern ("FlatCurry","Lit") [31]) (Case  Rigid (Var 31) [Branch (Pattern ("FlatCurry","Charc") [32]) (Case  Rigid (Var 30) [Branch (Pattern ("Prelude",":") [33,34]) (Case  Rigid (Var 34) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Maybe",">>-") [Comb FuncCall ("PrettyFlat","toString") [Var 33],Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("Prelude","Just") [],Comb (FuncPartCall 1) ("Prelude","++") [Comb FuncCall ("PrettyFlat","quoteChar") [Var 32]]]]),Branch (Pattern ("Prelude",":") [35,36]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("FlatCurry","Intc") [37]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Floatc") [38]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("FlatCurry","Var") [39]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Comb") [40,41,42]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Let") [43,44]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Free") [45,46]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Or") [47,48]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Case") [49,50,51]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [52,53]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [54,55]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])])]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","FuncPartCall") [56]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","ConsPartCall") [57]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("FlatCurry","Var") [58]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Lit") [59]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Let") [60,61]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Free") [62,63]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Or") [64,65]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Case") [66,67,68]) (Comb ConsCall ("Prelude","Nothing") [])])),Func ("PrettyFlat","toList") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]])) (Rule [1] (Case  Rigid (Var 1) [Branch (Pattern ("FlatCurry","Comb") [2,3,4]) (Case  Rigid (Var 2) [Branch (Pattern ("FlatCurry","ConsCall") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Lit (Charc  'P')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 9,Lit (Charc  'r')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 11,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 13,Lit (Charc  'l')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 15,Lit (Charc  'u')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 17,Lit (Charc  'd')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 19,Lit (Charc  'e')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 20) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 21,Lit (Charc  '[')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 23,Lit (Charc  ']')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 24) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [25,26]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [27,28]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 21,Lit (Charc  ':')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 22) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude",":") [29,30]) (Case  Rigid (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Case  Rigid (Var 32) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Maybe",">>-") [Comb FuncCall ("PrettyFlat","toList") [Var 31],Comb FuncCall ("Prelude",".") [Comb (ConsPartCall 1) ("Prelude","Just") [],Comb (ConsPartCall 1) ("Prelude",":") [Var 29]]]),Branch (Pattern ("Prelude",":") [33,34]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [35,36]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude",":") [37,38]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") [])])]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","FuncPartCall") [39]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","ConsPartCall") [40]) (Comb ConsCall ("Prelude","Nothing") [])]),Branch (Pattern ("FlatCurry","Var") [41]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Lit") [42]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Let") [43,44]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Free") [45,46]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Or") [47,48]) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("FlatCurry","Case") [49,50,51]) (Comb ConsCall ("Prelude","Nothing") [])])),Func ("PrettyFlat","elimApp") 0 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Comb FuncCall ("FlatCurryGoodies","updCombs") [Comb (FuncPartCall 3) ("PrettyFlat","elimApp.elim.276") []])),Func ("PrettyFlat","elimApp.extend.276") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb ConsCall ("FlatCurry","Comb") [Var 3,Var 4,Comb FuncCall ("Prelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]])])),Func ("PrettyFlat","elimApp.elim.276") 3 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") [])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("FlatCurry","FuncCall") []],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("FlatCurryGoodies","isComb") [Comb FuncCall ("Prelude","head") [Var 3]],Comb FuncCall ("Prelude","/=") [Comb FuncCall ("FlatCurryGoodies","combName") [Comb FuncCall ("Prelude","head") [Var 3]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("PrettyFlat","prelude") [],Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("PrettyFlat","elimApp.extend.276") [Comb FuncCall ("Prelude","head") [Var 3],Comb FuncCall ("Prelude","!!") [Var 3,Lit (Intc  1)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("FlatCurry","Comb") [Var 1,Var 2,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])]))] []
+ src/lib/Curry/Module/.curry/PrettyFlat.fint view
@@ -0,0 +1,1 @@+Prog "PrettyFlat" ["Char","FlatCurry","FlatCurryGoodies","Maybe","Prelude","Pretty","StyledText","System"] [TypeSyn ("PrettyFlat","Precs") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]])] [Func ("PrettyFlat","prelude") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Var 0)),Func ("PrettyFlat","arrow") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Var 0)),Func ("PrettyFlat","bar") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Var 0)),Func ("PrettyFlat","dcolon") 0 Public (TCons ("Pretty","Doc") []) (Rule [] (Var 0)),Func ("PrettyFlat","precFillEncloseSep") 6 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))))))) (Rule [] (Var 0)),Func ("PrettyFlat","isInfixName") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("PrettyFlat","infixIDs") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Var 0)),Func ("PrettyFlat","isTupleName") 1 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","Bool") [])) (Rule [] (Var 0)),Func ("PrettyFlat","showStyledProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("PrettyFlat","prettyProg") 1 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0)),Func ("PrettyFlat","prettyTypeExpr") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0)),Func ("PrettyFlat","prettyTypes") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0)),Func ("PrettyFlat","prettyOps") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("PrettyFlat","showProg") 0 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("PrettyFlat","printStyledProg") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [] (Var 0)),Func ("PrettyFlat","mainPrint") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","()") []]) (Rule [] (Var 0)),Func ("PrettyFlat","printProg") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [] (Var 0)),Func ("PrettyFlat","keyword") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","consname") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","operator") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","literal") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","marked") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","block") 0 Public (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","def") 3 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","app") 2 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","layout") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","qname") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","correctName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("PrettyFlat","<$>>") 2 Public (FuncType (TCons ("Pretty","Doc") []) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","progDoc") 1 Public (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","precs") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]])) (Rule [] (Var 0)),Func ("PrettyFlat","exportedNames") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]))) (Rule [] (Var 0)),Func ("PrettyFlat","moduleHeaderDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","exportsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Pretty","Doc") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","impsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","opsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","opDoc") 1 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","typesDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","typeDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","varDoc") 0 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","tvarDoc") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","consDeclsDoc") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","consDeclDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","typeExprDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","par") 1 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Pretty","Doc") []) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","funcsDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","funcDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","funcTypeDeclDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","funcTypeDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","ruleDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Pretty","Doc") []))))) (Rule [] (Var 0)),Func ("PrettyFlat","expDoc") 5 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Pretty","Doc") [])))))) (Rule [] (Var 0)),Func ("PrettyFlat","expDoc2") 5 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Pretty","Doc") [])))))) (Rule [] (Var 0)),Func ("PrettyFlat","branchDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","caseTypeDoc") 1 Public (FuncType (TCons ("FlatCurry","CaseType") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","patternDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Pretty","Doc") []))) (Rule [] (Var 0)),Func ("PrettyFlat","letBindsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","letBindDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (TCons ("Pretty","Doc") [])))) (Rule [] (Var 0)),Func ("PrettyFlat","litDoc") 1 Public (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("Pretty","Doc") [])) (Rule [] (Var 0)),Func ("PrettyFlat","quoteChar") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("PrettyFlat","specialChars") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Char") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (Rule [] (Var 0)),Func ("PrettyFlat","toString") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [] (Var 0)),Func ("PrettyFlat","toList") 1 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]])) (Rule [] (Var 0)),Func ("PrettyFlat","elimApp") 0 Public (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/PrettyFlat.uacy view
@@ -0,0 +1,67 @@+CurryProg "PrettyFlat"+ ["Prelude","Char","Maybe","Pretty","FlatCurry","FlatCurryGoodies","StyledText","System"]+ [CTypeSyn ("PrettyFlat","Precs") Public [] (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("FlatCurry","QName") [],CTCons ("Prelude","Int") []]])]+ [CFunc ("PrettyFlat","<$>>") 2 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"d1"),CPVar (1,"d2")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CVar (0,"d1"))) (CSymbol ("Pretty","line")))) (CVar (1,"d2")))] []]),+  CFunc ("PrettyFlat","app") 2 Public (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"d"),CPVar (1,"ds")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"ds")))) (CVar (0,"d"))) (CApply (CSymbol ("PrettyFlat","block")) (CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","space"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"d"))) (CVar (1,"ds"))))))] []]),+  CFunc ("PrettyFlat","arrow") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","bar") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","char")) (CLit (CCharc '|'))))] []]),+  CFunc ("PrettyFlat","block") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","group"))) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1))))] []]),+  CFunc ("PrettyFlat","branchDoc") 3 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","BranchExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("FlatCurry","Branch") [CPVar (2,"pat"),CPVar (3,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","patternDoc")) (CVar (1,"mod"))) (CVar (2,"pat")))) (CSymbol ("PrettyFlat","arrow")))) (CSymbol ("Prelude","[]"))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (3,"e")))))] []]),+  CFunc ("PrettyFlat","caseTypeDoc") 1 Public (CFuncType (CTCons ("FlatCurry","CaseType") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Rigid") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] [],CRule [CPComb ("FlatCurry","Flex") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] []]),+  CFunc ("PrettyFlat","consDeclDoc") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","ConsDecl") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Cons") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"args")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","True")))) (CVar (4,"args"))))] []]),+  CFunc ("PrettyFlat","consDeclsDoc") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","ConsDecl") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals")))) (CSymbol ("Pretty","space")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","bar"))) (CSymbol ("Pretty","space"))))) (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (1,"x0"))) (CSymbol ("Pretty","space"))))) (CApply (CSymbol ("PrettyFlat","consDeclDoc")) (CVar (0,"mod"))))))] []]),+  CFunc ("PrettyFlat","consname") 0 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","greenDoc"))) (CSymbol ("Pretty","text")))] []]),+  CFunc ("PrettyFlat","correctName") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"name")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (1,"name'")) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CApply (CApply (CSymbol ("Prelude","flip")) (CSymbol ("Prelude","elem"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CSymbol ("Prelude","[]"))))))) (CVar (0,"name"))) []] (CCase (CVar (1,"name'")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc '_'),CPVar (2,"xs")]) (CVar (2,"xs")),CBranch (CPVar (3,"_")) (CVar (1,"name'"))]))] []]),+  CFunc ("PrettyFlat","dcolon") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","def") 3 Public (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"params"),CPVar (2,"body")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","block")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (0,"name"))) (CVar (3,"paramDoc")))) (CVar (2,"body"))))] [CLocalPat (CPVar (3,"paramDoc")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (1,"params")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (1,"params"))))))) []]]),+  CFunc ("PrettyFlat","elimApp") 0 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("FlatCurry","Expr") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","updCombs")) (CSymbol ("PrettyFlat","elim")))] [CLocalFunc (CFunc ("PrettyFlat","elim") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"ct"),CPVar (1,"name"),CPVar (2,"args")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"ct"))) (CSymbol ("FlatCurry","FuncCall")))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("FlatCurryGoodies","isComb")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args"))))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("FlatCurryGoodies","combName")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args"))))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))))),CApply (CApply (CSymbol ("PrettyFlat","extend")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"args")))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 1)))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (0,"ct"))) (CVar (1,"name"))) (CVar (2,"args")))] []])),CLocalFunc (CFunc ("PrettyFlat","extend") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","Comb") [CPVar (0,"ct"),CPVar (1,"name"),CPVar (2,"args")],CPVar (3,"arg")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CVar (0,"ct"))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (2,"args"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (3,"arg"))) (CSymbol ("Prelude","[]")))))] []]))]]),+  CFunc ("PrettyFlat","expDoc") 5 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Pretty","Doc") [])))))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"_"),CPVar (2,"mod"),CPVar (3,"br"),CPVar (4,"exp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc2")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (2,"mod"))) (CVar (3,"br"))) (CVar (4,"exp")))) (CLambda [CPVar (5,"l")] (CApply (CSymbol ("Pretty","list")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (2,"mod"))) (CSymbol ("Prelude","False")))) (CVar (5,"l")))))) (CApply (CSymbol ("PrettyFlat","toList")) (CVar (4,"exp"))))) (CLambda [CPVar (6,"s")] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (6,"s")))) (CApply (CSymbol ("PrettyFlat","consname")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("FlatCurryGoodies","literal")) (CApply (CSymbol ("Pretty","dquotes")) (CApply (CSymbol ("Pretty","text")) (CVar (6,"s")))))))) (CApply (CSymbol ("PrettyFlat","toString")) (CVar (4,"exp"))))] []]),+  CFunc ("PrettyFlat","expDoc2") 5 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Pretty","Doc") [])))))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_"),CPComb ("FlatCurry","Var") [CPVar (4,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","varDoc")) (CVar (4,"n")))] [],CRule [CPVar (5,"_"),CPVar (6,"_"),CPVar (7,"_"),CPVar (8,"_"),CPComb ("FlatCurry","Lit") [CPVar (9,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","litDoc")) (CVar (9,"l")))] [],CRule [CPVar (10,"pr"),CPVar (11,"p"),CPVar (12,"mod"),CPVar (13,"br"),CPComb ("FlatCurry","Comb") [CPVar (14,"ct"),CPVar (15,"name"),CPVar (16,"args")]] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (14,"ct"))) (CSymbol ("FlatCurry","FuncCall")))) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (15,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CSymbol ("Prelude","[]"))))))))),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (13,"br")))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 0))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 1))))) (CSymbol ("Prelude","[]"))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (14,"ct"))) (CSymbol ("FlatCurry","ConsCall")))) (CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (15,"name"))),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","False")))) (CVar (16,"args")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (15,"name")))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (16,"args")))) (CLit (CIntc 2))),CApply (CApply (CSymbol ("Prelude","$")) (CSymbol ("Pretty","align"))) (CApply (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","precFillEncloseSep")) (CVar (19,"pOp"))) (CVar (11,"p"))) (CVar (17,"lbr"))) (CVar (18,"rbr"))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CVar (19,"pOp"))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 0))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("Prelude","snd")) (CVar (15,"name"))))))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CVar (19,"pOp"))) (CVar (12,"mod"))) (CSymbol ("Prelude","True"))) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (16,"args"))) (CLit (CIntc 1))))) (CSymbol ("Prelude","[]"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("Prelude","not")) (CApply (CSymbol ("Prelude","null")) (CVar (16,"args"))))) (CVar (13,"br"))))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (12,"mod"))) (CVar (15,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (10,"pr"))) (CLit (CIntc 0))) (CVar (12,"mod"))) (CSymbol ("Prelude","True")))) (CVar (16,"args")))))] [CLocalPat (CPComb ("Prelude","(,)") [CPVar (17,"lbr"),CPVar (18,"rbr")]) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (13,"br"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Pretty","lparen"))) (CSymbol ("Pretty","rparen")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty")))) [],CLocalPat (CPVar (19,"pOp")) (CCase (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (15,"name"))) (CVar (10,"pr"))) [CBranch (CPComb ("Prelude","Just") [CPVar (20,"pr")]) (CVar (20,"pr")),CBranch (CPComb ("Prelude","Nothing") []) (CLit (CIntc 0))]) []],CRule [CPVar (21,"pr"),CPVar (22,"_"),CPVar (23,"mod"),CPVar (24,"br"),CPComb ("FlatCurry","Let") [CPVar (25,"bs"),CPVar (26,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (24,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","letBindsDoc")) (CVar (21,"pr"))) (CVar (23,"mod"))) (CVar (25,"bs"))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (21,"pr"))) (CLit (CIntc 0))) (CVar (23,"mod"))) (CSymbol ("Prelude","False"))) (CVar (26,"e"))))))] [],CRule [CPVar (27,"pr"),CPVar (28,"_"),CPVar (29,"mod"),CPVar (30,"br"),CPComb ("FlatCurry","Free") [CPVar (31,"vs"),CPVar (32,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (30,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","comma"))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (31,"vs")))))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (27,"pr"))) (CLit (CIntc 0))) (CVar (29,"mod"))) (CSymbol ("Prelude","False"))) (CVar (32,"e"))))))] [],CRule [CPVar (33,"pr"),CPVar (34,"_"),CPVar (35,"mod"),CPVar (36,"br"),CPComb ("FlatCurry","Or") [CPVar (37,"e1"),CPVar (38,"e2")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (33,"pr"))) (CLit (CIntc 0))) (CVar (35,"mod"))) (CVar (36,"br"))) (CApply (CApply (CApply (CSymbol ("FlatCurry","Comb")) (CSymbol ("FlatCurry","FuncCall"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (37,"e1"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (38,"e2"))) (CSymbol ("Prelude","[]"))))))] [],CRule [CPVar (39,"pr"),CPVar (40,"_"),CPVar (41,"mod"),CPVar (42,"br"),CPComb ("FlatCurry","Case") [CPVar (43,"ct"),CPVar (44,"e"),CPVar (45,"bs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (42,"br")))) (CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("Pretty","hang")) (CLit (CIntc 1)))) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","caseTypeDoc")) (CVar (43,"ct")))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (39,"pr"))) (CLit (CIntc 0))) (CVar (41,"mod"))) (CSymbol ("Prelude","False"))) (CVar (44,"e")))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("PrettyFlat","layout")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","branchDoc")) (CVar (39,"pr"))) (CVar (41,"mod")))) (CVar (45,"bs")))))))] []]),+  CFunc ("PrettyFlat","exportedNames") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Prog") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"types"),CPVar (4,"funcs"),CPVar (5,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","typeExpDoc"))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (6,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (6,"x0"))))) (CSymbol ("FlatCurryGoodies","typeVisibility")))) (CVar (3,"types"))))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod")))) (CSymbol ("FlatCurryGoodies","funcName")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (7,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (7,"x0"))))) (CSymbol ("FlatCurryGoodies","funcVisibility")))) (CVar (4,"funcs")))))] [CLocalFunc (CFunc ("PrettyFlat","typeExpDoc") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (6,"tdecl")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (7,"ecs")) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (8,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CSymbol ("FlatCurry","Public"))) (CVar (8,"x0"))))) (CSymbol ("FlatCurryGoodies","consVisibility")))) (CApply (CApply (CApply (CSymbol ("FlatCurryGoodies","trType")) (CLambda [CPVar (9,"_"),CPVar (10,"_"),CPVar (11,"_"),CPVar (12,"cs")] (CVar (12,"cs")))) (CLambda [CPVar (13,"_"),CPVar (14,"_"),CPVar (15,"_"),CPVar (16,"_")] (CSymbol ("Prelude","[]")))) (CVar (6,"tdecl")))) []] (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","typeName")) (CVar (6,"tdecl"))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (7,"ecs")))) (CSymbol ("Pretty","empty"))) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))))))))] []]))]]),+  CFunc ("PrettyFlat","exportsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"xs")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","group")) (CApply (CApply (CSymbol ("Pretty","nest")) (CLit (CIntc 1))) (CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CSymbol ("Pretty","<$>")) (CSymbol ("Pretty","lparen"))) (CApply (CSymbol ("Pretty","align")) (CApply (CSymbol ("Pretty","fillSep")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","comma"))) (CVar (0,"xs"))))))) (CSymbol ("Pretty","rparen")))))] []]),+  CFunc ("PrettyFlat","funcDoc") 3 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","FuncDecl") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("FlatCurry","Func") [CPVar (2,"name"),CPVar (3,"_"),CPVar (4,"_"),CPVar (5,"typ"),CPVar (6,"rule")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<$>")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcTypeDeclDoc")) (CVar (1,"mod"))) (CVar (2,"name"))) (CVar (5,"typ")))) (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","ruleDoc")) (CVar (0,"pr"))) (CVar (1,"mod"))) (CVar (2,"name"))) (CVar (6,"rule"))))] []]),+  CFunc ("PrettyFlat","funcTypeDeclDoc") 3 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"name"),CPVar (2,"typ")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CSymbol ("Prelude","[]"))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcTypeDoc")) (CVar (0,"mod"))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (2,"typ")))) (CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (2,"typ")))))] []]),+  CFunc ("PrettyFlat","funcTypeDoc") 3 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeExpr") []]) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"mod"),CPVar (1,"args"),CPVar (2,"res")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","dcolon"))) (CSymbol ("Pretty","space")))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("PrettyFlat","arrow"))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Pretty","<>")) (CVar (3,"x0"))) (CSymbol ("Pretty","space"))))) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","True"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"args"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"res"))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","funcsDoc") 3 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","FuncDecl") []]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPVar (2,"funcs")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Pretty","punctuate")) (CSymbol ("Pretty","line"))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","funcDoc")) (CVar (0,"pr"))) (CVar (1,"mod")))) (CVar (2,"funcs")))))] []]),+  CFunc ("PrettyFlat","impsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","String") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"imps")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (1,"x0")] (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))))))) (CVar (1,"x0"))))) (CSymbol ("PrettyFlat","consname")))) (CVar (0,"imps"))))] []]),+  CFunc ("PrettyFlat","infixIDs") 0 Public (CTCons ("Prelude","String") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '~'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '@'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '$'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '%'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '^'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '*'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '+'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '|'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ':'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))] []]),+  CFunc ("PrettyFlat","isInfixName") 1 Public (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"n")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","all")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","elem")) (CVar (2,"x0"))) (CSymbol ("PrettyFlat","infixIDs"))))) (CVar (1,"n")))] []]),+  CFunc ("PrettyFlat","isTupleName") 1 Public (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (0,"mod"),CPVar (1,"name")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"mod"))) (CSymbol ("PrettyFlat","prelude")))) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ')'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '('))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ','))) (CSymbol ("Prelude","[]"))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","keyword") 0 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","magentaDoc"))) (CSymbol ("Pretty","text")))] []]),+  CFunc ("PrettyFlat","layout") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","align"))) (CApply (CSymbol ("Pretty","compose")) (CApply (CSymbol ("Pretty","combine")) (CApply (CSymbol ("Pretty","linesep")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))] []]),+  CFunc ("PrettyFlat","letBindDoc") 3 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPComb ("Prelude","(,)") [CPVar (2,"n"),CPVar (3,"e")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","varDoc")) (CVar (2,"n")))) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals"))))) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (3,"e"))))] []]),+  CFunc ("PrettyFlat","letBindsDoc") 2 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","Int") [],CTCons ("FlatCurry","Expr") []]]) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("PrettyFlat","layout"))) (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","letBindDoc")) (CVar (0,"pr"))) (CVar (1,"mod")))))] []]),+  CFunc ("PrettyFlat","litDoc") 1 Public (CFuncType (CTCons ("FlatCurry","Literal") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Intc") [CPVar (0,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","literal")) (CApply (CSymbol ("Pretty","int")) (CVar (0,"n"))))] [],CRule [CPComb ("FlatCurry","Floatc") [CPVar (1,"x")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","literal")) (CApply (CSymbol ("Pretty","float")) (CVar (1,"x"))))] [],CRule [CPComb ("FlatCurry","Charc") [CPVar (2,"c")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("FlatCurryGoodies","literal")) (CApply (CSymbol ("Pretty","squotes")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("PrettyFlat","quoteChar")) (CVar (2,"c"))))))] []]),+  CFunc ("PrettyFlat","literal") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CSymbol ("StyledText","cyanDoc"))] []]),+  CFunc ("PrettyFlat","mainPrint") 0 Public (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CSymbol ("System","getArgs"))) (CApply (CSymbol ("Prelude","mapIO_")) (CSymbol ("PrettyFlat","printProg"))))] []]),+  CFunc ("PrettyFlat","marked") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","bgYellowDoc"))) (CSymbol ("StyledText","boldDoc")))] []]),+  CFunc ("PrettyFlat","moduleHeaderDoc") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"name"),CPVar (1,"exports")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (0,"name"))))) (CApply (CSymbol ("PrettyFlat","exportsDoc")) (CVar (1,"exports"))))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'w'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("PrettyFlat","opDoc") 1 Public (CFuncType (CTCons ("FlatCurry","OpDecl") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPComb ("FlatCurry","Op") [CPAs (2,"n") (CPComb ("Prelude","(,)") [CPVar (0,"_"),CPVar (1,"name")]),CPVar (3,"fix"),CPVar (4,"prec")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'f'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("PrettyFlat","fixDoc")) (CVar (3,"fix"))))) (CApply (CSymbol ("Pretty","int")) (CVar (4,"prec"))))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (5,"infname")))))] [CLocalPat (CPVar (5,"infname")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (2,"n")))) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"name"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '`'))) (CSymbol ("Prelude","[]")))))) [],CLocalFunc (CFunc ("PrettyFlat","fixDoc") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("FlatCurry","InfixOp") []] [(CSymbol ("Prelude","success"),CSymbol ("Pretty","empty"))] [],CRule [CPComb ("FlatCurry","InfixlOp") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))] [],CRule [CPComb ("FlatCurry","InfixrOp") []] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]"))))] []]))]]),+  CFunc ("PrettyFlat","operator") 0 Public (CFuncType (CTCons ("Pretty","Doc") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CSymbol ("StyledText","blueDoc"))] []]),+  CFunc ("PrettyFlat","opsDoc") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"ops")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Pretty","vcat")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","opDoc"))) (CVar (0,"ops"))))] []]),+  CFunc ("PrettyFlat","par") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"br")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CVar (0,"br"))) (CSymbol ("Pretty","parens"))) (CSymbol ("Prelude","id")))] []]),+  CFunc ("PrettyFlat","patternDoc") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","Pattern") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Pattern") [CPVar (1,"name"),CPVar (2,"args")]] [(CApply (CSymbol ("Prelude","null")) (CVar (2,"args")),CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name"))),(CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (1,"name")),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (2,"args")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (1,"name")))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (2,"args")))) (CLit (CIntc 2))),CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","varDoc")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 0))))) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CApply (CSymbol ("Prelude","snd")) (CVar (1,"name"))))))) (CApply (CSymbol ("PrettyFlat","varDoc")) (CApply (CApply (CSymbol ("Prelude","!!")) (CVar (2,"args"))) (CLit (CIntc 1))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name")))) (CApply (CSymbol ("Pretty","hsep")) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("PrettyFlat","varDoc"))) (CVar (2,"args")))))] [],CRule [CPVar (3,"_"),CPComb ("FlatCurry","LPattern") [CPVar (4,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","litDoc")) (CVar (4,"l")))] []]),+  CFunc ("PrettyFlat","precFillEncloseSep") 6 Public (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Pretty","Doc") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Pretty","Doc") []]) (CTCons ("Pretty","Doc") []))))))) (CRules CFlex [CRule [CPVar (0,"p1"),CPVar (1,"p2"),CPVar (2,"l"),CPVar (3,"r"),CPVar (4,"s"),CPVar (5,"ds")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","pre")) (CVar (0,"p1"))) (CVar (1,"p2"))) (CVar (2,"l")))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","pre")) (CVar (0,"p1"))) (CVar (1,"p2"))) (CVar (3,"r")))) (CVar (4,"s"))) (CVar (5,"ds")))] [CLocalFunc (CFunc ("PrettyFlat","pre") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (6,"pO"),CPVar (7,"pI"),CPVar (8,"br")] [(CApply (CApply (CSymbol ("Prelude","<")) (CVar (6,"pO"))) (CVar (7,"pI")),CSymbol ("Pretty","empty")),(CSymbol ("Prelude","True"),CVar (8,"br"))] []]))]]),+  CFunc ("PrettyFlat","precs") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("PrettyFlat","Precs") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","map")) (CLambda [CPComb ("FlatCurry","Op") [CPVar (0,"name"),CPVar (1,"_"),CPVar (2,"i")]] (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (0,"name"))) (CVar (2,"i")))))] []]),+  CFunc ("PrettyFlat","prelude") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))))] []]),+  CFunc ("PrettyFlat","prettyOps") 0 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","OpDecl") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CSymbol ("PrettyFlat","opsDoc")))] []]),+  CFunc ("PrettyFlat","prettyProg") 1 Public (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"n")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CVar (0,"n")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("PrettyFlat","progDoc"))) (CApply (CSymbol ("FlatCurryGoodies","updProgExps")) (CSymbol ("PrettyFlat","elimApp")))))] []]),+  CFunc ("PrettyFlat","prettyTypeExpr") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (0,"mod"))) (CSymbol ("Prelude","False"))))] []]),+  CFunc ("PrettyFlat","prettyTypes") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CApply (CSymbol ("Pretty","pretty")) (CLit (CIntc 78)))) (CApply (CSymbol ("PrettyFlat","typesDoc")) (CVar (0,"mod"))))] []]),+  CFunc ("PrettyFlat","printProg") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurryFile")) (CVar (0,"f")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","putStrLn"))) (CSymbol ("PrettyFlat","showProg"))))] []]),+  CFunc ("PrettyFlat","printStyledProg") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"f")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("FlatCurry","readFlatCurry")) (CVar (0,"f")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","printStyledText"))) (CSymbol ("PrettyFlat","showStyledProg"))))] []]),+  CFunc ("PrettyFlat","progDoc") 1 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPAs (5,"prog") (CPComb ("FlatCurry","Prog") [CPVar (0,"name"),CPVar (1,"imps"),CPVar (2,"types"),CPVar (3,"funcs"),CPVar (4,"ops")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","<$>>")) (CApply (CApply (CSymbol ("PrettyFlat","moduleHeaderDoc")) (CVar (0,"name"))) (CApply (CApply (CSymbol ("PrettyFlat","exportedNames")) (CVar (0,"name"))) (CVar (5,"prog"))))) (CApply (CSymbol ("PrettyFlat","impsDoc")) (CVar (1,"imps"))))) (CApply (CSymbol ("PrettyFlat","opsDoc")) (CVar (4,"ops"))))) (CApply (CApply (CSymbol ("PrettyFlat","typesDoc")) (CVar (0,"name"))) (CVar (2,"types"))))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","funcsDoc")) (CApply (CSymbol ("PrettyFlat","precs")) (CVar (4,"ops")))) (CVar (0,"name"))) (CVar (3,"funcs"))))] []]),+  CFunc ("PrettyFlat","qname") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"prog"),CPAs (3,"mn") (CPComb ("Prelude","(,)") [CPVar (1,"mod"),CPVar (2,"name")])] [(CApply (CApply (CSymbol ("Prelude","||")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (3,"mn"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (3,"mn"))),CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (2,"name")))),(CApply (CSymbol ("PrettyFlat","isInfixName")) (CVar (3,"mn")),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CVar (0,"prog")))) (CApply (CSymbol ("Pretty","parens")) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CSymbol ("Pretty","text")) (CVar (2,"name")))))) (CApply (CSymbol ("Pretty","parens")) (CApply (CSymbol ("PrettyFlat","operator")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (1,"mod")))) (CSymbol ("Pretty","dot")))) (CApply (CSymbol ("PrettyFlat","txt")) (CVar (2,"name"))))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"mod"))) (CVar (0,"prog")))) (CApply (CSymbol ("PrettyFlat","txt")) (CApply (CSymbol ("PrettyFlat","correctName")) (CVar (2,"name"))))) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CSymbol ("PrettyFlat","consname")) (CVar (1,"mod")))) (CSymbol ("Pretty","dot")))) (CApply (CSymbol ("PrettyFlat","txt")) (CVar (2,"name")))))] [CLocalFunc (CFunc ("PrettyFlat","txt") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPVar (4,"n"),CPVar (5,"ame")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Char","isUpper")) (CVar (4,"n")))) (CApply (CSymbol ("PrettyFlat","consname")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (5,"ame"))))) (CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (4,"n"))) (CVar (5,"ame")))))] []]))]]),+  CFunc ("PrettyFlat","quoteChar") 1 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","id"))) (CApply (CApply (CSymbol ("Prelude","lookup")) (CVar (0,"c"))) (CSymbol ("PrettyFlat","specialChars"))))] []]),+  CFunc ("PrettyFlat","ruleDoc") 4 Public (CFuncType (CTCons ("PrettyFlat","Precs") []) (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","QName") []) (CFuncType (CTCons ("FlatCurry","Rule") []) (CTCons ("Pretty","Doc") []))))) (CRules CFlex [CRule [CPVar (0,"pr"),CPVar (1,"mod"),CPVar (2,"name"),CPComb ("FlatCurry","Rule") [CPVar (3,"args"),CPVar (4,"body")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (1,"mod"))) (CVar (2,"name")))) (CVar (3,"args"))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CSymbol ("Pretty","equals"))) (CApply (CSymbol ("Pretty","align")) (CApply (CApply (CApply (CApply (CApply (CSymbol ("PrettyFlat","expDoc")) (CVar (0,"pr"))) (CLit (CIntc 0))) (CVar (1,"mod"))) (CSymbol ("Prelude","False"))) (CVar (4,"body"))))))] [],CRule [CPVar (5,"_"),CPVar (6,"mod"),CPVar (7,"name"),CPComb ("FlatCurry","External") [CPVar (8,"_")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (6,"mod"))) (CVar (7,"name")))) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]"))))))))))))] []]),+  CFunc ("PrettyFlat","showProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("StyledText","plainText"))) (CSymbol ("PrettyFlat","showStyledProg")))] []]),+  CFunc ("PrettyFlat","showStyledProg") 0 Public (CFuncType (CTCons ("FlatCurry","Prog") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","prettyProg")) (CLit (CIntc 78)))] []]),+  CFunc ("PrettyFlat","specialChars") 0 Public (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CSymbol ("Prelude","[]")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CLit (CCharc '\t'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\\'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","toList") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("FlatCurry","Expr") []]])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPVar (1,"x"),CPComb ("Prelude",":") [CPVar (2,"xs"),CPComb ("Prelude","[]") []]]]) (CApply (CApply (CSymbol ("Maybe",">>-")) (CApply (CSymbol ("PrettyFlat","toList")) (CVar (2,"xs")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","Just"))) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"x"))) (CVar (3,"x0")))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","Nothing"))])] []]),+  CFunc ("PrettyFlat","toString") 1 Public (CFuncType (CTCons ("FlatCurry","Expr") []) (CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPVar (0,"exp")] [(CSymbol ("Prelude","success"),CCase (CVar (0,"exp")) [CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc '['),CPComb ("Prelude",":") [CPLit (CCharc ']'),CPComb ("Prelude","[]") []]]],CPComb ("Prelude","[]") []]) (CApply (CSymbol ("Prelude","Just")) (CSymbol ("Prelude","[]"))),CBranch (CPComb ("FlatCurry","Comb") [CPComb ("FlatCurry","ConsCall") [],CPComb ("Prelude","(,)") [CPComb ("Prelude",":") [CPLit (CCharc 'P'),CPComb ("Prelude",":") [CPLit (CCharc 'r'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude",":") [CPLit (CCharc 'l'),CPComb ("Prelude",":") [CPLit (CCharc 'u'),CPComb ("Prelude",":") [CPLit (CCharc 'd'),CPComb ("Prelude",":") [CPLit (CCharc 'e'),CPComb ("Prelude","[]") []]]]]]]],CPComb ("Prelude",":") [CPLit (CCharc ':'),CPComb ("Prelude","[]") []]],CPComb ("Prelude",":") [CPComb ("FlatCurry","Lit") [CPComb ("FlatCurry","Charc") [CPVar (1,"c")]],CPComb ("Prelude",":") [CPVar (2,"cs"),CPComb ("Prelude","[]") []]]]) (CApply (CApply (CSymbol ("Maybe",">>-")) (CApply (CSymbol ("PrettyFlat","toString")) (CVar (2,"cs")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","Just"))) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("PrettyFlat","quoteChar")) (CVar (1,"c")))) (CVar (3,"x0")))))),CBranch (CPVar (4,"_")) (CSymbol ("Prelude","Nothing"))])] []]),+  CFunc ("PrettyFlat","tvarDoc") 1 Public (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [CPVar (0,"i")] [(CApply (CApply (CSymbol ("Prelude",">")) (CVar (0,"i"))) (CLit (CIntc 25)),CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","show")) (CVar (0,"i"))))),(CSymbol ("Prelude","otherwise"),CApply (CSymbol ("Pretty","text")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CApply (CSymbol ("Prelude","+")) (CLit (CIntc 97))) (CVar (0,"i"))))) (CSymbol ("Prelude","[]"))))] []]),+  CFunc ("PrettyFlat","typeDoc") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("FlatCurry","TypeDecl") []) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod"),CPComb ("FlatCurry","Type") [CPVar (1,"name"),CPVar (2,"_"),CPVar (3,"params"),CPVar (4,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (0,"mod"))) (CVar (1,"name"))))) (CVar (3,"params"))) (CApply (CApply (CSymbol ("PrettyFlat","consDeclsDoc")) (CVar (0,"mod"))) (CVar (4,"cs"))))] [],CRule [CPVar (5,"mod"),CPComb ("FlatCurry","TypeSyn") [CPVar (6,"name"),CPVar (7,"_"),CPVar (8,"params"),CPVar (9,"syn")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("PrettyFlat","def")) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","keyword")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (5,"mod"))) (CVar (6,"name"))))) (CVar (8,"params"))) (CApply (CApply (CSymbol ("Pretty","<+>")) (CApply (CSymbol ("PrettyFlat","operator")) (CSymbol ("Pretty","equals")))) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (5,"mod"))) (CSymbol ("Prelude","False"))) (CVar (9,"syn")))))] []]),+  CFunc ("PrettyFlat","typeExprDoc") 3 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","Bool") []) (CFuncType (CTCons ("FlatCurry","TypeExpr") []) (CTCons ("Pretty","Doc") [])))) (CRules CFlex [CRule [CPVar (0,"_"),CPVar (1,"_"),CPComb ("FlatCurry","TVar") [CPVar (2,"n")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("PrettyFlat","tvarDoc")) (CVar (2,"n")))] [],CRule [CPVar (3,"mod"),CPVar (4,"br"),CPComb ("FlatCurry","TCons") [CPVar (5,"name"),CPVar (6,"args")]] [(CApply (CSymbol ("Prelude","null")) (CVar (6,"args")),CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (3,"mod"))) (CVar (5,"name"))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"name"))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("PrettyFlat","prelude"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '['))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ']'))) (CSymbol ("Prelude","[]"))))),CApply (CSymbol ("Pretty","brackets")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("Prelude","head")) (CVar (6,"args"))))),(CApply (CSymbol ("PrettyFlat","isTupleName")) (CVar (5,"name")),CApply (CSymbol ("Pretty","tupled")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","False")))) (CVar (6,"args")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (4,"br")))) (CApply (CApply (CSymbol ("PrettyFlat","app")) (CApply (CApply (CSymbol ("PrettyFlat","qname")) (CVar (3,"mod"))) (CVar (5,"name")))) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (3,"mod"))) (CSymbol ("Prelude","True")))) (CVar (6,"args")))))] [],CRule [CPVar (7,"mod"),CPVar (8,"br"),CPAs (11,"typ") (CPComb ("FlatCurry","FuncType") [CPVar (9,"_"),CPVar (10,"_")])] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","$")) (CApply (CSymbol ("PrettyFlat","par")) (CVar (8,"br")))) (CApply (CApply (CApply (CApply (CSymbol ("Pretty","fillEncloseSep")) (CSymbol ("Pretty","empty"))) (CSymbol ("Pretty","empty"))) (CApply (CApply (CSymbol ("Pretty","<>")) (CApply (CApply (CSymbol ("Pretty","<>")) (CSymbol ("Pretty","space"))) (CSymbol ("PrettyFlat","arrow")))) (CSymbol ("Pretty","space")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (7,"mod"))) (CSymbol ("Prelude","True")))) (CApply (CSymbol ("FlatCurryGoodies","argTypes")) (CVar (11,"typ"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("PrettyFlat","typeExprDoc")) (CVar (7,"mod"))) (CSymbol ("Prelude","False"))) (CApply (CSymbol ("FlatCurryGoodies","resultType")) (CVar (11,"typ"))))) (CSymbol ("Prelude","[]"))))))] []]),+  CFunc ("PrettyFlat","typesDoc") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("FlatCurry","TypeDecl") []]) (CTCons ("Pretty","Doc") []))) (CRules CFlex [CRule [CPVar (0,"mod")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","vcat"))) (CApply (CSymbol ("Prelude","map")) (CApply (CSymbol ("PrettyFlat","typeDoc")) (CVar (0,"mod")))))] []]),+  CFunc ("PrettyFlat","varDoc") 0 Public (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Pretty","Doc") [])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Pretty","text"))) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (0,"x0")] (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CVar (0,"x0"))))) (CSymbol ("Prelude","show"))))] []])]+ []
+ src/lib/Curry/Module/.curry/XML.acy view
@@ -0,0 +1,46 @@+CurryProg "XML"+ ["Prelude","Char","Read","List"]+ [CType ("XML","XmlExp") Public [] [CCons ("XML","XText") 1 Public [CTCons ("Prelude","String") []],CCons ("XML","XElem") 3 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]],CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]]],+  CType ("XML","Encoding") Public [] [CCons ("XML","StandardEnc") 0 Public [],CCons ("XML","Iso88591Enc") 0 Public []],+  CType ("XML","XmlDocParams") Public [] [CCons ("XML","Enc") 1 Public [CTCons ("XML","Encoding") []],CCons ("XML","DtdUrl") 1 Public [CTCons ("Prelude","String") []]]]+ [CFunc ("XML","dropBlanks") 0 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","dropWhile")) (CSymbol ("Char","isSpace")))] []]),+  CFunc ("XML","dropCData") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '[')),CApply (CSymbol ("Prelude","tail")) (CApply (CApply (CSymbol ("Prelude","dropWhile")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (2,"x0"))) (CLit (CCharc ']'))))) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))),(CSymbol ("Prelude","otherwise"),CApply (CSymbol ("XML","dropCData")) (CVar (1,"cs")))] []]),+  CFunc ("XML","encoding2Attribute") 1 Private (CFuncType (CTCons ("XML","Encoding") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("XML","StandardEnc") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("XML","Iso88591Enc") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '8'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '8'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '5'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '9'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))] []]),+  CFunc ("XML","encoding2EncFunc") 1 Private (CFuncType (CTCons ("XML","Encoding") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPComb ("XML","StandardEnc") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","standardEncoding"))] [],CRule [CPComb ("XML","Iso88591Enc") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","iso88591Encoding"))] []]),+  CFunc ("XML","hasDtdUrl") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (0,"_")],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (2,"_")],CPVar (3,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","hasDtdUrl")) (CVar (3,"l")))] []]),+  CFunc ("XML","isXText") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("XML","XText") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("XML","XElem") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("XML","iso88591Encoding") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CSymbol ("XML","iso88591list")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","iso88591Encoding")) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","standardEncoding")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("XML","iso88591Encoding")) (CVar (1,"cs")))))] []]),+  CFunc ("XML","iso88591list") 0 Private (CTCons ("Prelude","[]") [CTCons ("Prelude","Int") []]) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 192))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 193))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 194))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 195))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 196))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 197))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 198))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 199))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 200))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 201))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 202))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 203))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 204))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 205))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 207))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 208))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 209))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 210))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 211))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 212))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 214))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 216))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 217))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 218))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 219))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 220))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 221))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 224))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 225))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 228))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 229))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 226))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 227))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 230))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 231))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 233))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 232))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 235))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 234))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 236))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 237))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 239))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 240))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 241))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 248))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 246))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 242))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 243))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 244))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 245))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 250))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 249))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 252))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 251))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 253))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 255))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("XML","lookupDtdUrl") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (0,"_")],CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","lookupDtdUrl")) (CVar (1,"l")))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (2,"url")],CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"url"))] []]),+  CFunc ("XML","lookupEncoding") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("XML","Encoding") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (0,"f")],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"f"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (2,"_")],CPVar (3,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","lookupEncoding")) (CVar (3,"l")))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","StandardEnc"))] []]),+  CFunc ("XML","parseAttrs") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CSymbol ("Char","isAlpha")) (CVar (0,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"name"),CPVar (3,"rest1")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"value"),CPVar (5,"rest2")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc '"'))) (CApply (CSymbol ("Prelude","tail")) (CVar (3,"rest1")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (6,"rem_attrs"),CPVar (7,"rem_inp")]) (CApply (CSymbol ("XML","parseAttrs")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (5,"rest2")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"name"))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (4,"value"))))) (CVar (6,"rem_attrs")))) (CVar (7,"rem_inp")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))))] []]),+  CFunc ("XML","parseXmlString") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","fst")) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CApply (CSymbol ("XML","scanXmlString")) (CVar (0,"s")))) (CSymbol ("Prelude","Nothing"))))] []]),+  CFunc ("XML","parseXmlTokens") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CFuncType (CTCons ("Prelude","Maybe") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []],CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]]))) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPComb ("Prelude","Nothing") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XText") [CPVar (0,"s")],CPVar (1,"xtokens")],CPVar (2,"stop")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"xexps"),CPVar (4,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (1,"xtokens"))) (CVar (2,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","XText")) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (0,"s"))))) (CVar (3,"xexps")))) (CVar (4,"rem_xtokens"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPVar (5,"t"),CPVar (6,"ts")],CPVar (7,"args"),CPVar (8,"cont")],CPVar (9,"xtokens")],CPVar (10,"stop")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"t"))) (CLit (CCharc '<')))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("Prelude","head")) (CVar (6,"ts")))) (CLit (CCharc '/'))),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (11,"xexps1"),CPVar (12,"xtokens1")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CApply (CSymbol ("Prelude","Just")) (CVar (6,"ts")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (13,"xexps"),CPVar (14,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (12,"xtokens1"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (6,"ts"))) (CVar (7,"args"))) (CVar (11,"xexps1")))) (CVar (13,"xexps")))) (CVar (14,"rem_xtokens")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"t"))) (CLit (CCharc '<')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (6,"ts")))) (CLit (CCharc '/'))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (15,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CVar (15,"x0"))) (CApply (CSymbol ("Prelude","tail")) (CVar (6,"ts")))))) (CVar (10,"stop")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CVar (9,"xtokens")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (16,"xexps"),CPVar (17,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (6,"ts"))) (CVar (7,"args"))) (CVar (8,"cont")))) (CVar (16,"xexps")))) (CVar (17,"rem_xtokens"))))),(CSymbol ("Prelude","otherwise"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (18,"xexps"),CPVar (19,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"t"))) (CVar (6,"ts")))) (CVar (7,"args"))) (CVar (8,"cont")))) (CVar (18,"xexps")))) (CVar (19,"rem_xtokens"))))] []]),+  CFunc ("XML","readFileWithXmlDocs") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("XML","parseXmlString"))))] []]),+  CFunc ("XML","readUnsafeXmlFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("XML","XmlExp") []]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","catchFail")) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just"))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing"))))] []]),+  CFunc ("XML","readXmlFile") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"xmlstring")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"file"))),CSLet [CLocalPat (CPVar (2,"xexps")) (CApply (CSymbol ("XML","parseXmlString")) (CVar (1,"xmlstring"))) []],CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"xexps"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("Prelude","tail")) (CVar (2,"xexps")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"xexps"))))))])] []]),+  CFunc ("XML","scanXmlCData") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"cs")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (1,"rest")) (CApply (CSymbol ("XML","dropCData")) (CVar (0,"cs"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"rest")))) (CLit (CCharc '>')))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (1,"rest"))))) (CApply (CSymbol ("XML","scanXmlCData")) (CVar (1,"rest")))))] []]),+  CFunc ("XML","scanXmlComment") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlComment")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","scanXmlElem") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '!')),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("XML","scanXmlComment")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlCData")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '?')),CApply (CSymbol ("XML","scanXmlProcInstr")) (CVar (1,"cs"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("XML","scanXmlElemName")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))) (CVar (1,"cs")))] []]),+  CFunc ("XML","scanXmlElemName") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]))) (CRules CFlex [CRule [CPVar (0,"ct"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (0,"ct")))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"ct"),CPComb ("Prelude",":") [CPVar (2,"c"),CPVar (3,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (1,"ct")))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CVar (3,"cs")))),(CApply (CSymbol ("Char","isSpace")) (CVar (2,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"attrs"),CPVar (5,"rest")]) (CApply (CSymbol ("XML","parseAttrs")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (3,"cs")))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (5,"rest")))) (CLit (CCharc '/')))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"ct"))) (CVar (4,"attrs"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (5,"rest")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (1,"ct")))) (CVar (4,"attrs"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (5,"rest"))))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CLit (CCharc '/')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"cs")))) (CLit (CCharc '>'))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"ct"))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (3,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("XML","scanXmlElemName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"ct"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CSymbol ("Prelude","[]"))))) (CVar (3,"cs")))] []]),+  CFunc ("XML","scanXmlProcInstr") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '?')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"cs")))) (CLit (CCharc '>'))))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlProcInstr")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","scanXmlString") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","scanXml")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (0,"s"))))] [CLocalFunc (CFunc ("XML","scanXml") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (1,"c"),CPVar (2,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"c"))) (CLit (CCharc '<')))) (CApply (CSymbol ("XML","scanXmlElem")) (CVar (2,"cs")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"initxt"),CPVar (4,"remtag")]) (CApply (CSymbol ("XML","scanXmlText")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"c"))) (CVar (2,"cs")))) []] (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","XText")) (CVar (3,"initxt")))) (CApply (CSymbol ("XML","scanXml")) (CVar (4,"remtag"))))))] []]))]]),+  CFunc ("XML","scanXmlText") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '<')),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))),(CApply (CSymbol ("Char","isSpace")) (CVar (0,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"txt"),CPVar (3,"rem")]) (CApply (CSymbol ("XML","scanXmlText")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (1,"cs")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (2,"txt")))) (CVar (2,"txt"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CVar (2,"txt"))))) (CVar (3,"rem")))),(CSymbol ("Prelude","otherwise"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"txt"),CPVar (5,"rem")]) (CApply (CSymbol ("XML","scanXmlText")) (CVar (1,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (4,"txt")))) (CVar (5,"rem"))))] []]),+  CFunc ("XML","showXmlDoc") 1 Public (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CSymbol ("Prelude","[]"))) (CVar (0,"xexp")))] []]),+  CFunc ("XML","showXmlDocWithParams") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"ps"),CPComb ("XML","XElem") [CPVar (1,"root"),CPVar (2,"attrL"),CPVar (3,"xmlEL")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '0'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","encoding2Attribute")) (CApply (CSymbol ("XML","lookupEncoding")) (CVar (0,"ps"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("XML","hasDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("XML","hasDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"root"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","lookupDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("XML","showXmlExp")) (CLit (CIntc 0))) (CApply (CSymbol ("XML","encoding2EncFunc")) (CApply (CSymbol ("XML","lookupEncoding")) (CVar (0,"ps"))))) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"root"))) (CVar (2,"attrL"))) (CVar (3,"xmlEL"))))))))))] []]),+  CFunc ("XML","showXmlExp") 3 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"i"),CPVar (1,"encFun"),CPComb ("XML","XText") [CPVar (2,"s")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (1,"encFun")) (CVar (2,"s")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPVar (3,"i"),CPVar (4,"encFun"),CPComb ("XML","XElem") [CPVar (5,"tag"),CPVar (6,"attrs"),CPVar (7,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (3,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("XML","showXmlOpenTag")) (CVar (5,"tag"))) (CVar (6,"attrs"))) (CVar (4,"encFun")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"xexps"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (7,"xexps")))) (CLit (CIntc 1)))) (CApply (CSymbol ("XML","isXText")) (CApply (CSymbol ("Prelude","head")) (CVar (7,"xexps")))))) (CLetDecl [CLocalPat (CPComb ("Prelude",":") [CPComb ("XML","XText") [CPVar (8,"s")],CPComb ("Prelude","[]") []]) (CVar (7,"xexps")) []] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (4,"encFun")) (CVar (8,"s")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"tag"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("XML","showXmlExps")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (3,"i"))) (CLit (CIntc 2)))) (CVar (7,"xexps"))) (CVar (4,"encFun")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (3,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"tag"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("XML","showXmlExps") 3 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CFuncType (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"encFun"),CPVar (1,"xexps"),CPVar (2,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("XML","showXmlExp")) (CVar (0,"encFun"))) (CVar (2,"i")))) (CVar (1,"xexps")))] []]),+  CFunc ("XML","showXmlFile") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","putStr"))) (CSymbol ("XML","showXmlDoc"))))] []]),+  CFunc ("XML","showXmlOpenTag") 3 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTVar (0,"a")]]) (CFuncType (CFuncType (CTVar (0,"a")) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])))) (CRules CFlex [CRule [CPVar (0,"tag"),CPVar (1,"attrs"),CPVar (2,"encFun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"tag"))) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CVar (3,"x0"))))) (CSymbol ("XML","attr2string")))) (CVar (1,"attrs"))))))] [CLocalFunc (CFunc ("XML","attr2string") 1 Private (CFuncType (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []],CTVar (1,"_130")]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (3,"attr"),CPVar (4,"value")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"attr"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (2,"encFun")) (CVar (4,"value")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))] []]))]]),+  CFunc ("XML","splitAtChar") 2 Private (CFuncType (CTVar (0,"a")) (CFuncType (CTCons ("Prelude","[]") [CTVar (0,"a")]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTVar (0,"a")],CTCons ("Prelude","[]") [CTVar (0,"a")]]))) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"char"),CPComb ("Prelude",":") [CPVar (2,"c"),CPVar (3,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CVar (1,"char")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CVar (3,"cs")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"first"),CPVar (5,"rest")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CVar (1,"char"))) (CVar (3,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CVar (4,"first")))) (CVar (5,"rest")))))] []]),+  CFunc ("XML","standardEncoding") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '<')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '&')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CLit (CIntc 32)),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))))),(CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CLit (CIntc 127)),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","textOfXml") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"xexps")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CSymbol ("Prelude","null")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("XML","textOfXmlItem"))) (CVar (0,"xexps"))))))] [CLocalFunc (CFunc ("XML","textOfXmlItem") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("XML","XText") [CPVar (1,"s")]] [(CSymbol ("Prelude","success"),CVar (1,"s"))] [],CRule [CPComb ("XML","XElem") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"xs")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","textOfXml")) (CVar (4,"xs")))] []]))]]),+  CFunc ("XML","unquoteUnicode") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '#')),CCase (CVar (1,"cs")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPVar (2,"cs'")]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readHex")) (CVar (2,"cs'"))))) (CSymbol ("Prelude","[]"))),CBranch (CPVar (3,"_")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readInt")) (CVar (1,"cs"))))) (CSymbol ("Prelude","[]")))]),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("XML","writeXmlFile") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","writeXmlFileWithParams")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","Enc")) (CSymbol ("XML","StandardEnc")))) (CSymbol ("Prelude","[]")))) (CVar (1,"xexp")))] []]),+  CFunc ("XML","writeXmlFileWithParams") 3 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"ps"),CPVar (2,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CVar (1,"ps"))) (CVar (2,"xexp"))))] []]),+  CFunc ("XML","xml") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CTCons ("XML","XmlExp") []))) (CRules CFlex [CRule [CPVar (0,"t"),CPVar (1,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (0,"t"))) (CSymbol ("Prelude","[]"))) (CVar (1,"c")))] []]),+  CFunc ("XML","xmlUnquoteSpecial") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]))) (CRules CFlex [CRule [CPVar (0,"special"),CPVar (1,"cs")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 228)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 246)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 252)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 196)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 214)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'U'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 220)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'z'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]"))))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 223)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","unquoteUnicode")) (CVar (0,"special")))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","xmlUnquoteSpecials") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '&')),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"special"),CPVar (3,"rest")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc ';'))) (CVar (1,"cs"))) []] (CApply (CApply (CSymbol ("XML","xmlUnquoteSpecial")) (CVar (2,"special"))) (CVar (3,"rest")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","xtab") 1 Private (CFuncType (CTCons ("Prelude","Int") []) (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []])) (CRules CFlex [CRule [CPVar (0,"n")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"n"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("XML","xtxt") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("Prelude","Char") []]) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","XText")) (CVar (0,"s")))] []])]+ []
+ src/lib/Curry/Module/.curry/XML.cy view
@@ -0,0 +1,82 @@+Module "XML"+(Just (Exporting (11,11) [(ExportTypeAll (QualIdent Nothing (Ident "XmlExp" 0))),(ExportTypeAll (QualIdent Nothing (Ident "Encoding" 0))),(ExportTypeAll (QualIdent Nothing (Ident "XmlDocParams" 0))),(Export (QualIdent Nothing (Ident "xtxt" 0))),(Export (QualIdent Nothing (Ident "xml" 0))),(Export (QualIdent Nothing (Ident "showXmlDoc" 0))),(Export (QualIdent Nothing (Ident "showXmlDocWithParams" 0))),(Export (QualIdent Nothing (Ident "writeXmlFile" 0))),(Export (QualIdent Nothing (Ident "writeXmlFileWithParams" 0))),(Export (QualIdent Nothing (Ident "parseXmlString" 0))),(Export (QualIdent Nothing (Ident "readXmlFile" 0))),(Export (QualIdent Nothing (Ident "readUnsafeXmlFile" 0))),(Export (QualIdent Nothing (Ident "readFileWithXmlDocs" 0))),(Export (QualIdent Nothing (Ident "textOfXml" 0)))]))+[(ImportDecl (1,1) "Prelude" False Nothing Nothing)+,(ImportDecl (16,1) "Char" False Nothing Nothing)+,(ImportDecl (17,1) "Read" False Nothing Nothing)+,(ImportDecl (18,1) "List" False Nothing (Just (Importing (18,12) [(Import (Ident "intersperse" 0))])))+,(DataDecl (25,1) (Ident "XmlExp" 0) [] [(ConstrDecl (25,15) [] (Ident "XText" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]),(ConstrDecl (26,15) [] (Ident "XElem" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])),(ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))])])+,(DataDecl (30,1) (Ident "Encoding" 0) [] [(ConstrDecl (30,17) [] (Ident "StandardEnc" 0) []),(ConstrDecl (31,17) [] (Ident "Iso88591Enc" 0) [])])+,(DataDecl (79,1) (Ident "XmlDocParams" 0) [] [(ConstrDecl (79,21) [] (Ident "Enc" 0) [(ConstructorType (QualIdent Nothing (Ident "Encoding" 0)) [])]),(ConstrDecl (80,21) [] (Ident "DtdUrl" 0) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])])+,(TypeSig (34,1) [(Ident "encoding2Attribute" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Encoding" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (35,1) (Ident "encoding2Attribute" 0) [(Equation (35,1) (FunLhs (Ident "encoding2Attribute" 0) [(ConstructorPattern (QualIdent (Just "XML") (Ident "StandardEnc" 0)) [])]) (SimpleRhs (35,34) (Literal (String "")) [])),(Equation (36,1) (FunLhs (Ident "encoding2Attribute" 0) [(ConstructorPattern (QualIdent (Just "XML") (Ident "Iso88591Enc" 0)) [])]) (SimpleRhs (36,34) (Literal (String "encoding=\"iso-8859-1\" ")) []))])+,(TypeSig (39,1) [(Ident "encoding2EncFunc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Encoding" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (40,1) (Ident "encoding2EncFunc" 0) [(Equation (40,1) (FunLhs (Ident "encoding2EncFunc" 0) [(ConstructorPattern (QualIdent (Just "XML") (Ident "StandardEnc" 0)) [])]) (SimpleRhs (40,32) (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) [])),(Equation (41,1) (FunLhs (Ident "encoding2EncFunc" 0) [(ConstructorPattern (QualIdent (Just "XML") (Ident "Iso88591Enc" 0)) [])]) (SimpleRhs (41,32) (Variable (QualIdent (Just "XML") (Ident "iso88591Encoding" 0))) []))])+,(TypeSig (47,1) [(Ident "standardEncoding" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (48,1) (Ident "standardEncoding" 0) [(Equation (48,1) (FunLhs (Ident "standardEncoding" 0) [(ListPattern [])]) (SimpleRhs (48,23) (List []) [])),(Equation (49,1) (FunLhs (Ident "standardEncoding" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 12)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 12))))]) (GuardedRhs [(CondExpr (50,4) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '<'))) (InfixApply (Literal (String "&lt;")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))),(CondExpr (51,4) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>'))) (InfixApply (Literal (String "&gt;")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))),(CondExpr (52,4) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '&'))) (InfixApply (Literal (String "&amp;")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))),(CondExpr (53,4) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '"'))) (InfixApply (Literal (String "&quot;")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))),(CondExpr (54,4) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '\''))) (InfixApply (Literal (String "&apos;")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))),(CondExpr (55,4) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 12)))) (InfixOp (QualIdent (Just "Prelude") (Ident "<" 0))) (Literal (Int (Ident "_" 14) 32))) (InfixApply (Literal (String "&#")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 12)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ";")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))))),(CondExpr (56,4) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 12)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">" 0))) (Literal (Int (Ident "_" 15) 127))) (InfixApply (Literal (String "&#")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "show" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 12)))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String ";")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12)))))))),(CondExpr (57,4) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 12))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 12))))))] []))])+,(TypeSig (60,1) [(Ident "iso88591Encoding" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (61,1) (Ident "iso88591Encoding" 0) [(Equation (61,1) (FunLhs (Ident "iso88591Encoding" 0) [(ListPattern [])]) (SimpleRhs (61,23) (List []) [])),(Equation (62,1) (FunLhs (Ident "iso88591Encoding" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 18)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 18))))]) (SimpleRhs (63,4) (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "ord" 0))) (Variable (QualIdent Nothing (Ident "c" 18)))) (InfixOp (QualIdent (Just "Prelude") (Ident "elem" 0))) (Variable (QualIdent (Just "XML") (Ident "iso88591list" 0)))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 18))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "iso88591Encoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 18))))) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "standardEncoding" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 18)))])) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "iso88591Encoding" 0))) (Variable (QualIdent Nothing (Ident "cs" 18)))))) []))])+,(FunctionDecl (69,1) (Ident "iso88591list" 0) [(Equation (69,1) (FunLhs (Ident "iso88591list" 0) []) (SimpleRhs (69,16) (List [(Literal (Int (Ident "_" 22) 192)),(Literal (Int (Ident "_" 23) 193)),(Literal (Int (Ident "_" 24) 194)),(Literal (Int (Ident "_" 25) 195)),(Literal (Int (Ident "_" 26) 196)),(Literal (Int (Ident "_" 27) 197)),(Literal (Int (Ident "_" 28) 198)),(Literal (Int (Ident "_" 29) 199)),(Literal (Int (Ident "_" 30) 200)),(Literal (Int (Ident "_" 31) 201)),(Literal (Int (Ident "_" 32) 202)),(Literal (Int (Ident "_" 33) 203)),(Literal (Int (Ident "_" 34) 204)),(Literal (Int (Ident "_" 35) 205)),(Literal (Int (Ident "_" 36) 207)),(Literal (Int (Ident "_" 37) 208)),(Literal (Int (Ident "_" 38) 209)),(Literal (Int (Ident "_" 39) 210)),(Literal (Int (Ident "_" 40) 211)),(Literal (Int (Ident "_" 41) 212)),(Literal (Int (Ident "_" 42) 214)),(Literal (Int (Ident "_" 43) 216)),(Literal (Int (Ident "_" 44) 217)),(Literal (Int (Ident "_" 45) 218)),(Literal (Int (Ident "_" 46) 219)),(Literal (Int (Ident "_" 47) 220)),(Literal (Int (Ident "_" 48) 221)),(Literal (Int (Ident "_" 49) 224)),(Literal (Int (Ident "_" 50) 225)),(Literal (Int (Ident "_" 51) 228)),(Literal (Int (Ident "_" 52) 229)),(Literal (Int (Ident "_" 53) 226)),(Literal (Int (Ident "_" 54) 227)),(Literal (Int (Ident "_" 55) 230)),(Literal (Int (Ident "_" 56) 231)),(Literal (Int (Ident "_" 57) 233)),(Literal (Int (Ident "_" 58) 232)),(Literal (Int (Ident "_" 59) 235)),(Literal (Int (Ident "_" 60) 234)),(Literal (Int (Ident "_" 61) 236)),(Literal (Int (Ident "_" 62) 237)),(Literal (Int (Ident "_" 63) 239)),(Literal (Int (Ident "_" 64) 240)),(Literal (Int (Ident "_" 65) 241)),(Literal (Int (Ident "_" 66) 248)),(Literal (Int (Ident "_" 67) 246)),(Literal (Int (Ident "_" 68) 242)),(Literal (Int (Ident "_" 69) 243)),(Literal (Int (Ident "_" 70) 244)),(Literal (Int (Ident "_" 71) 245)),(Literal (Int (Ident "_" 72) 250)),(Literal (Int (Ident "_" 73) 249)),(Literal (Int (Ident "_" 74) 252)),(Literal (Int (Ident "_" 75) 251)),(Literal (Int (Ident "_" 76) 253)),(Literal (Int (Ident "_" 77) 255))]) []))])+,(TypeSig (84,1) [(Ident "lookupEncoding" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlDocParams" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Encoding" 0)) [])))+,(FunctionDecl (85,1) (Ident "lookupEncoding" 0) [(Equation (85,1) (FunLhs (Ident "lookupEncoding" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "Enc" 0)) [(VariablePattern (Ident "f" 78))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "_" 79))))]) (SimpleRhs (85,28) (Variable (QualIdent Nothing (Ident "f" 78))) [])),(Equation (86,1) (FunLhs (Ident "lookupEncoding" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "DtdUrl" 0)) [(VariablePattern (Ident "_" 82))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "l" 81))))]) (SimpleRhs (86,31) (Apply (Variable (QualIdent (Just "XML") (Ident "lookupEncoding" 0))) (Variable (QualIdent Nothing (Ident "l" 81)))) [])),(Equation (87,1) (FunLhs (Ident "lookupEncoding" 0) [(ListPattern [])]) (SimpleRhs (87,21) (Constructor (QualIdent (Just "XML") (Ident "StandardEnc" 0))) []))])+,(TypeSig (90,1) [(Ident "lookupDtdUrl" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlDocParams" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (91,1) (Ident "lookupDtdUrl" 0) [(Equation (91,1) (FunLhs (Ident "lookupDtdUrl" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "Enc" 0)) [(VariablePattern (Ident "_" 87))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "l" 86))))]) (SimpleRhs (91,26) (Apply (Variable (QualIdent (Just "XML") (Ident "lookupDtdUrl" 0))) (Variable (QualIdent Nothing (Ident "l" 86)))) [])),(Equation (92,1) (FunLhs (Ident "lookupDtdUrl" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "DtdUrl" 0)) [(VariablePattern (Ident "url" 89))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "_" 90))))]) (SimpleRhs (92,31) (Variable (QualIdent Nothing (Ident "url" 89))) []))])+,(TypeSig (95,1) [(Ident "hasDtdUrl" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlDocParams" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (96,1) (Ident "hasDtdUrl" 0) [(Equation (96,1) (FunLhs (Ident "hasDtdUrl" 0) [(ListPattern [])]) (SimpleRhs (96,16) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) [])),(Equation (97,1) (FunLhs (Ident "hasDtdUrl" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "DtdUrl" 0)) [(VariablePattern (Ident "_" 95))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "_" 96))))]) (SimpleRhs (97,26) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (98,1) (FunLhs (Ident "hasDtdUrl" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "Enc" 0)) [(VariablePattern (Ident "_" 99))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "l" 98))))]) (SimpleRhs (98,23) (Apply (Variable (QualIdent (Just "XML") (Ident "hasDtdUrl" 0))) (Variable (QualIdent Nothing (Ident "l" 98)))) []))])+,(TypeSig (104,1) [(Ident "xtxt" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])))+,(FunctionDecl (105,1) (Ident "xtxt" 0) [(Equation (105,1) (FunLhs (Ident "xtxt" 0) [(VariablePattern (Ident "s" 101))]) (SimpleRhs (105,10) (Apply (Constructor (QualIdent (Just "XML") (Ident "XText" 0))) (Variable (QualIdent Nothing (Ident "s" 101)))) []))])+,(TypeSig (108,1) [(Ident "xml" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (109,1) (Ident "xml" 0) [(Equation (109,1) (FunLhs (Ident "xml" 0) [(VariablePattern (Ident "t" 103)),(VariablePattern (Ident "c" 103))]) (SimpleRhs (109,11) (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "t" 103)))) (List [])) (Variable (QualIdent Nothing (Ident "c" 103)))) []))])+,(TypeSig (115,1) [(Ident "writeXmlFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])]))))+,(FunctionDecl (116,1) (Ident "writeXmlFile" 0) [(Equation (116,1) (FunLhs (Ident "writeXmlFile" 0) [(VariablePattern (Ident "file" 105)),(VariablePattern (Ident "xexp" 105))]) (SimpleRhs (117,4) (Apply (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "writeXmlFileWithParams" 0))) (Variable (QualIdent Nothing (Ident "file" 105)))) (List [(Apply (Constructor (QualIdent (Just "XML") (Ident "Enc" 0))) (Constructor (QualIdent (Just "XML") (Ident "StandardEnc" 0))))])) (Variable (QualIdent Nothing (Ident "xexp" 105)))) []))])+,(TypeSig (120,1) [(Ident "writeXmlFileWithParams" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlDocParams" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))))+,(FunctionDecl (121,1) (Ident "writeXmlFileWithParams" 0) [(Equation (121,1) (FunLhs (Ident "writeXmlFileWithParams" 0) [(VariablePattern (Ident "file" 107)),(VariablePattern (Ident "ps" 107)),(VariablePattern (Ident "xexp" 107))]) (SimpleRhs (122,4) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "writeFile" 0))) (Variable (QualIdent Nothing (Ident "file" 107)))) (Paren (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlDocWithParams" 0))) (Variable (QualIdent Nothing (Ident "ps" 107)))) (Variable (QualIdent Nothing (Ident "xexp" 107)))))) []))])+,(TypeSig (129,1) [(Ident "showXmlDoc" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (130,1) (Ident "showXmlDoc" 0) [(Equation (130,1) (FunLhs (Ident "showXmlDoc" 0) [(VariablePattern (Ident "xexp" 109))]) (SimpleRhs (130,19) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlDocWithParams" 0))) (List [])) (Variable (QualIdent Nothing (Ident "xexp" 109)))) []))])+,(TypeSig (132,1) [(Ident "showXmlDocWithParams" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlDocParams" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) []))))+,(FunctionDecl (133,1) (Ident "showXmlDocWithParams" 0) [(Equation (133,1) (FunLhs (Ident "showXmlDocWithParams" 0) [(VariablePattern (Ident "ps" 111)),(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(VariablePattern (Ident "root" 111)),(VariablePattern (Ident "attrL" 111)),(VariablePattern (Ident "xmlEL" 111))]))]) (SimpleRhs (134,4) (InfixApply (Literal (String "<?xml version=\"1.0\" ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "encoding2Attribute" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "lookupEncoding" 0))) (Variable (QualIdent Nothing (Ident "ps" 111))))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "standalone=\"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (Apply (Variable (QualIdent (Just "XML") (Ident "hasDtdUrl" 0))) (Variable (QualIdent Nothing (Ident "ps" 111)))) (Literal (String "no")) (Literal (String "yes")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "\"?>\n\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (IfThenElse (Apply (Variable (QualIdent (Just "XML") (Ident "hasDtdUrl" 0))) (Variable (QualIdent Nothing (Ident "ps" 111)))) (InfixApply (Literal (String "<!DOCTYPE ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "root" 111))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String " SYSTEM \"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "lookupDtdUrl" 0))) (Variable (QualIdent Nothing (Ident "ps" 111)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\">\n\n")))))) (Literal (String "")))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlExp" 0))) (Literal (Int (Ident "_" 113) 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "encoding2EncFunc" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "lookupEncoding" 0))) (Variable (QualIdent Nothing (Ident "ps" 111)))))))) (Paren (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "root" 111)))) (Variable (QualIdent Nothing (Ident "attrL" 111)))) (Variable (QualIdent Nothing (Ident "xmlEL" 111)))))))))))) []))])+,(TypeSig (143,1) [(Ident "showXmlExp" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (144,1) (Ident "showXmlExp" 0) [(Equation (144,1) (FunLhs (Ident "showXmlExp" 0) [(VariablePattern (Ident "i" 114)),(VariablePattern (Ident "encFun" 114)),(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XText" 0)) [(VariablePattern (Ident "s" 114))]))]) (SimpleRhs (144,34) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "xtab" 0))) (Variable (QualIdent Nothing (Ident "i" 114)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "encFun" 114))) (Variable (QualIdent Nothing (Ident "s" 114))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\n")))) [])),(Equation (145,1) (FunLhs (Ident "showXmlExp" 0) [(VariablePattern (Ident "i" 116)),(VariablePattern (Ident "encFun" 116)),(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(VariablePattern (Ident "tag" 116)),(VariablePattern (Ident "attrs" 116)),(VariablePattern (Ident "xexps" 116))]))]) (SimpleRhs (146,3) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "xtab" 0))) (Variable (QualIdent Nothing (Ident "i" 116)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlOpenTag" 0))) (Variable (QualIdent Nothing (Ident "tag" 116)))) (Variable (QualIdent Nothing (Ident "attrs" 116)))) (Variable (QualIdent Nothing (Ident "encFun" 116)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "xexps" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Literal (String " />\n")) (IfThenElse (InfixApply (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "length" 0))) (Variable (QualIdent Nothing (Ident "xexps" 116)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Int (Ident "_" 118) 1))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "isXText" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "xexps" 116))))))) (Let [(PatternDecl (150,17) (ListPattern [(ConstructorPattern (QualIdent (Just "XML") (Ident "XText" 0)) [(VariablePattern (Ident "s" 119))])]) (SimpleRhs (150,29) (Variable (QualIdent Nothing (Ident "xexps" 116))) []))] (InfixApply (Literal (String ">")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "encFun" 116))) (Variable (QualIdent Nothing (Ident "s" 119))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "</")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "tag" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ">\n"))))))) (InfixApply (Literal (String ">\n")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlExps" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "i" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "+" 0))) (Literal (Int (Ident "_" 121) 2))))) (Variable (QualIdent Nothing (Ident "xexps" 116)))) (Variable (QualIdent Nothing (Ident "encFun" 116)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "xtab" 0))) (Variable (QualIdent Nothing (Ident "i" 116)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "</")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "tag" 116))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ">\n"))))))))))) []))])+,(FunctionDecl (155,1) (Ident "xtab" 0) [(Equation (155,1) (FunLhs (Ident "xtab" 0) [(VariablePattern (Ident "n" 122))]) (SimpleRhs (155,10) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Variable (QualIdent Nothing (Ident "n" 122)))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "repeat" 0))) (Literal (Char ' '))))) []))])+,(FunctionDecl (157,1) (Ident "showXmlOpenTag" 0) [(Equation (157,1) (FunLhs (Ident "showXmlOpenTag" 0) [(VariablePattern (Ident "tag" 124)),(VariablePattern (Ident "attrs" 124)),(VariablePattern (Ident "encFun" 124))]) (SimpleRhs (158,3) (InfixApply (Literal (String "<")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "tag" 124))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Paren (InfixApply (LeftSection (Literal (String " ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0)))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent Nothing (Ident "attr2string" 125)))))) (Variable (QualIdent Nothing (Ident "attrs" 124)))))))) [(FunctionDecl (159,9) (Ident "attr2string" 125) [(Equation (159,9) (FunLhs (Ident "attr2string" 125) [(TuplePattern [(VariablePattern (Ident "attr" 126)),(VariablePattern (Ident "value" 126))])]) (SimpleRhs (159,36) (InfixApply (Variable (QualIdent Nothing (Ident "attr" 126))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Literal (String "=\"")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Paren (Apply (Variable (QualIdent Nothing (Ident "encFun" 124))) (Variable (QualIdent Nothing (Ident "value" 126))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String "\""))))) []))])]))])+,(TypeSig (162,1) [(Ident "showXmlExps" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "Int" 0)) []) (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])) (ArrowType (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))))+,(FunctionDecl (163,1) (Ident "showXmlExps" 0) [(Equation (163,1) (FunLhs (Ident "showXmlExps" 0) [(VariablePattern (Ident "encFun" 128)),(VariablePattern (Ident "xexps" 128)),(VariablePattern (Ident "i" 128))]) (SimpleRhs (163,30) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "concatMap" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "showXmlExp" 0))) (Variable (QualIdent Nothing (Ident "encFun" 128)))) (Variable (QualIdent Nothing (Ident "i" 128)))))) (Variable (QualIdent Nothing (Ident "xexps" 128)))) []))])+,(TypeSig (165,1) [(Ident "isXText" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []) (ConstructorType (QualIdent Nothing (Ident "Bool" 0)) [])))+,(FunctionDecl (166,1) (Ident "isXText" 0) [(Equation (166,1) (FunLhs (Ident "isXText" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XText" 0)) [(VariablePattern (Ident "_" 131))]))]) (SimpleRhs (166,21) (Constructor (QualIdent (Just "Prelude") (Ident "True" 0))) [])),(Equation (167,1) (FunLhs (Ident "isXText" 0) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(VariablePattern (Ident "_" 134)),(VariablePattern (Ident "_" 135)),(VariablePattern (Ident "_" 136))]))]) (SimpleRhs (167,25) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0))) []))])+,(TypeSig (170,1) [(Ident "xmlUnquoteSpecials" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (171,1) (Ident "xmlUnquoteSpecials" 0) [(Equation (171,1) (FunLhs (Ident "xmlUnquoteSpecials" 0) [(ListPattern [])]) (SimpleRhs (171,25) (List []) [])),(Equation (172,1) (FunLhs (Ident "xmlUnquoteSpecials" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 140)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 140))))]) (GuardedRhs [(CondExpr (173,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 140))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '&'))) (Let [(PatternDecl (173,21) (TuplePattern [(VariablePattern (Ident "special" 142)),(VariablePattern (Ident "rest" 142))]) (SimpleRhs (173,38) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "splitAtChar" 0))) (Literal (Char ';'))) (Variable (QualIdent Nothing (Ident "cs" 140)))) []))] (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecial" 0))) (Variable (QualIdent Nothing (Ident "special" 142)))) (Variable (QualIdent Nothing (Ident "rest" 142)))))),(CondExpr (175,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 140))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 140))))))] []))])+,(FunctionDecl (177,1) (Ident "xmlUnquoteSpecial" 0) [(Equation (177,1) (FunLhs (Ident "xmlUnquoteSpecial" 0) [(VariablePattern (Ident "special" 144)),(VariablePattern (Ident "cs" 144))]) (GuardedRhs [(CondExpr (178,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "lt"))) (InfixApply (Literal (Char '<')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (179,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "gt"))) (InfixApply (Literal (Char '>')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (180,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "amp"))) (InfixApply (Literal (Char '&')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (181,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "quot"))) (InfixApply (Literal (Char '"')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (182,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "apos"))) (InfixApply (Literal (Char '\'')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (183,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "auml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 146) 228))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (184,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "ouml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 147) 246))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (185,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "uuml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 148) 252))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (186,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Auml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 149) 196))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (187,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Ouml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 150) 214))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (188,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "Uuml"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 151) 220))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (189,3) (InfixApply (Variable (QualIdent Nothing (Ident "special" 144))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "szlig"))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Literal (Int (Ident "_" 152) 223))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144)))))),(CondExpr (190,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "unquoteUnicode" 0))) (Variable (QualIdent Nothing (Ident "special" 144)))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "cs" 144))))))] []))])+,(TypeSig (192,1) [(Ident "unquoteUnicode" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (193,1) (Ident "unquoteUnicode" 0) [(Equation (193,1) (FunLhs (Ident "unquoteUnicode" 0) [(ListPattern [])]) (SimpleRhs (193,21) (List []) [])),(Equation (194,1) (FunLhs (Ident "unquoteUnicode" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 155)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 155))))]) (GuardedRhs [(CondExpr (195,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 155))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '#'))) (Case (Variable (QualIdent Nothing (Ident "cs" 155))) [(Alt (196,20) (InfixPattern (LiteralPattern (Char 'x')) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs'" 157))) (SimpleRhs (196,31) (List [(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readHex" 0))) (Variable (QualIdent Nothing (Ident "cs'" 157))))))]) [])),(Alt (197,20) (VariablePattern (Ident "_" 160)) (SimpleRhs (197,31) (List [(Apply (Variable (QualIdent (Just "Prelude") (Ident "chr" 0))) (Paren (Apply (Variable (QualIdent (Just "Read") (Ident "readInt" 0))) (Variable (QualIdent Nothing (Ident "cs" 155))))))]) []))])),(CondExpr (198,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (InfixApply (Literal (Char '&')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (InfixApply (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c" 155))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 155))))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String ";")))))] []))])+,(TypeSig (206,1) [(Ident "readXmlFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])])))+,(FunctionDecl (207,1) (Ident "readXmlFile" 0) [(Equation (207,1) (FunLhs (Ident "readXmlFile" 0) [(VariablePattern (Ident "file" 162))]) (SimpleRhs (208,2) (Do [(StmtBind (VariablePattern (Ident "xmlstring" 164)) (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "file" 162))))),(StmtDecl [(PatternDecl (209,9) (VariablePattern (Ident "xexps" 165)) (SimpleRhs (209,17) (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlString" 0))) (Variable (QualIdent Nothing (Ident "xmlstring" 164)))) []))])] (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "xexps" 165))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (List [])) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Paren (InfixApply (Literal (String "File ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "file" 162))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " contains no XML document!")))))) (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "xexps" 165)))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (List [])) (Apply (Variable (QualIdent (Just "Prelude") (Ident "error" 0))) (Paren (InfixApply (Literal (String "File ")) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (InfixApply (Variable (QualIdent Nothing (Ident "file" 162))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (Literal (String " contains more than one XML document!")))))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "xexps" 165))))))))) []))])+,(TypeSig (219,1) [(Ident "readUnsafeXmlFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])])])))+,(FunctionDecl (220,1) (Ident "readUnsafeXmlFile" 0) [(Equation (220,1) (FunLhs (Ident "readUnsafeXmlFile" 0) [(VariablePattern (Ident "file" 167))]) (SimpleRhs (221,3) (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "catchFail" 0))) (Paren (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "readXmlFile" 0))) (Variable (QualIdent Nothing (Ident "file" 167)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))))))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) []))])+,(TypeSig (224,1) [(Ident "showXmlFile" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(TupleType [])])))+,(FunctionDecl (225,1) (Ident "showXmlFile" 0) [(Equation (225,1) (FunLhs (Ident "showXmlFile" 0) [(VariablePattern (Ident "file" 169))]) (SimpleRhs (225,20) (InfixApply (Apply (Variable (QualIdent (Just "XML") (Ident "readXmlFile" 0))) (Variable (QualIdent Nothing (Ident "file" 169)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "putStr" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "XML") (Ident "showXmlDoc" 0))))) []))])+,(TypeSig (229,1) [(Ident "readFileWithXmlDocs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ConstructorType (QualIdent Nothing (Ident "IO" 0)) [(ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))])))+,(FunctionDecl (230,1) (Ident "readFileWithXmlDocs" 0) [(Equation (230,1) (FunLhs (Ident "readFileWithXmlDocs" 0) [(VariablePattern (Ident "file" 171))]) (SimpleRhs (230,28) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "readFile" 0))) (Variable (QualIdent Nothing (Ident "file" 171)))) (InfixOp (QualIdent (Just "Prelude") (Ident ">>=" 0))) (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "return" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "XML") (Ident "parseXmlString" 0))))) []))])+,(TypeSig (236,1) [(Ident "parseXmlString" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (237,1) (Ident "parseXmlString" 0) [(Equation (237,1) (FunLhs (Ident "parseXmlString" 0) [(VariablePattern (Ident "s" 173))]) (SimpleRhs (237,20) (Apply (Variable (QualIdent (Just "Prelude") (Ident "fst" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Variable (QualIdent Nothing (Ident "s" 173)))))) (Constructor (QualIdent (Just "Prelude") (Ident "Nothing" 0)))))) []))])+,(TypeSig (241,1) [(Ident "parseXmlTokens" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])) (ArrowType (ConstructorType (QualIdent Nothing (Ident "Maybe" 0)) [(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])]) (TupleType [(ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])),(ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))]))))+,(FunctionDecl (242,1) (Ident "parseXmlTokens" 0) [(Equation (242,1) (FunLhs (Ident "parseXmlTokens" 0) [(ListPattern []),(ConstructorPattern (QualIdent (Just "Prelude") (Ident "Nothing" 0)) [])]) (SimpleRhs (242,29) (Tuple [(List []),(List [])]) [])),(Equation (243,1) (FunLhs (Ident "parseXmlTokens" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XText" 0)) [(VariablePattern (Ident "s" 177))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xtokens" 177)))),(VariablePattern (Ident "stop" 177))]) (SimpleRhs (244,3) (Let [(PatternDecl (244,7) (TuplePattern [(VariablePattern (Ident "xexps" 179)),(VariablePattern (Ident "rem_xtokens" 179))]) (SimpleRhs (244,30) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Variable (QualIdent Nothing (Ident "xtokens" 177)))) (Variable (QualIdent Nothing (Ident "stop" 177)))) []))] (Tuple [(InfixApply (Apply (Constructor (QualIdent (Just "XML") (Ident "XText" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "s" 177)))))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xexps" 179)))),(Variable (QualIdent Nothing (Ident "rem_xtokens" 179)))])) [])),(Equation (246,1) (FunLhs (Ident "parseXmlTokens" 0) [(ParenPattern (InfixPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(ParenPattern (InfixPattern (VariablePattern (Ident "t" 181)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "ts" 181)))),(VariablePattern (Ident "args" 181)),(VariablePattern (Ident "cont" 181))]) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "xtokens" 181)))),(VariablePattern (Ident "stop" 181))]) (GuardedRhs [(CondExpr (247,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "t" 181))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '<'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))) (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char '/')))) (Let [(PatternDecl (248,10) (TuplePattern [(VariablePattern (Ident "xexps1" 183)),(VariablePattern (Ident "xtokens1" 183))]) (SimpleRhs (248,31) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Variable (QualIdent Nothing (Ident "xtokens" 181)))) (Paren (Apply (Constructor (QualIdent (Just "Prelude") (Ident "Just" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))))) [])),(PatternDecl (249,10) (TuplePattern [(VariablePattern (Ident "xexps" 183)),(VariablePattern (Ident "rem_xtokens" 183))]) (SimpleRhs (249,33) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Variable (QualIdent Nothing (Ident "xtokens1" 183)))) (Variable (QualIdent Nothing (Ident "stop" 181)))) []))] (Tuple [(InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))) (Variable (QualIdent Nothing (Ident "args" 181)))) (Variable (QualIdent Nothing (Ident "xexps1" 183)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xexps" 183)))),(Variable (QualIdent Nothing (Ident "rem_xtokens" 183)))]))),(CondExpr (251,2) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "t" 181))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '<'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '/')))) (IfThenElse (Apply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "maybe" 0))) (Constructor (QualIdent (Just "Prelude") (Ident "False" 0)))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "ts" 181))))))) (Variable (QualIdent Nothing (Ident "stop" 181)))) (Tuple [(List []),(Variable (QualIdent Nothing (Ident "xtokens" 181)))]) (Let [(PatternDecl (254,15) (TuplePattern [(VariablePattern (Ident "xexps" 186)),(VariablePattern (Ident "rem_xtokens" 186))]) (SimpleRhs (254,38) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Variable (QualIdent Nothing (Ident "xtokens" 181)))) (Variable (QualIdent Nothing (Ident "stop" 181)))) []))] (Tuple [(InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))) (Variable (QualIdent Nothing (Ident "args" 181)))) (Variable (QualIdent Nothing (Ident "cont" 181)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xexps" 186)))),(Variable (QualIdent Nothing (Ident "rem_xtokens" 186)))])))),(CondExpr (256,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Let [(PatternDecl (256,20) (TuplePattern [(VariablePattern (Ident "xexps" 188)),(VariablePattern (Ident "rem_xtokens" 188))]) (SimpleRhs (256,43) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "parseXmlTokens" 0))) (Variable (QualIdent Nothing (Ident "xtokens" 181)))) (Variable (QualIdent Nothing (Ident "stop" 181)))) []))] (Tuple [(InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "t" 181))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ts" 181)))))) (Variable (QualIdent Nothing (Ident "args" 181)))) (Variable (QualIdent Nothing (Ident "cont" 181)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "xexps" 188)))),(Variable (QualIdent Nothing (Ident "rem_xtokens" 188)))])))] []))])+,(TypeSig (264,1) [(Ident "scanXmlString" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (265,1) (Ident "scanXmlString" 0) [(Equation (265,1) (FunLhs (Ident "scanXmlString" 0) [(VariablePattern (Ident "s" 190))]) (SimpleRhs (265,19) (Apply (Variable (QualIdent Nothing (Ident "scanXml" 191))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "dropBlanks" 0))) (Variable (QualIdent Nothing (Ident "s" 190)))))) [(FunctionDecl (267,3) (Ident "scanXml" 191) [(Equation (267,3) (FunLhs (Ident "scanXml" 191) [(ListPattern [])]) (SimpleRhs (267,20) (List []) [])),(Equation (268,3) (FunLhs (Ident "scanXml" 191) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 194)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 194))))]) (SimpleRhs (268,20) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "c" 194))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '<'))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlElem" 0))) (Variable (QualIdent Nothing (Ident "cs" 194)))) (Let [(PatternDecl (270,29) (TuplePattern [(VariablePattern (Ident "initxt" 196)),(VariablePattern (Ident "remtag" 196))]) (SimpleRhs (270,47) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlText" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c" 194))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 194)))))) []))] (InfixApply (Apply (Constructor (QualIdent (Just "XML") (Ident "XText" 0))) (Variable (QualIdent Nothing (Ident "initxt" 196)))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent Nothing (Ident "scanXml" 191))) (Variable (QualIdent Nothing (Ident "remtag" 196))))))) []))])]))])+,(TypeSig (274,1) [(Ident "scanXmlText" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (279,1) (Ident "scanXmlText" 0) [(Equation (279,1) (FunLhs (Ident "scanXmlText" 0) [(ListPattern [])]) (SimpleRhs (279,18) (Tuple [(List []),(List [])]) [])),(Equation (280,1) (FunLhs (Ident "scanXmlText" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 200)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 200))))]) (GuardedRhs [(CondExpr (280,20) (InfixApply (Variable (QualIdent Nothing (Ident "c" 200))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '<'))) (Tuple [(List []),(InfixApply (Variable (QualIdent Nothing (Ident "c" 200))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 200))))])),(CondExpr (281,20) (Apply (Variable (QualIdent (Just "Char") (Ident "isSpace" 0))) (Variable (QualIdent Nothing (Ident "c" 200)))) (Let [(PatternDecl (281,38) (TuplePattern [(VariablePattern (Ident "txt" 202)),(VariablePattern (Ident "rem" 202))]) (SimpleRhs (281,50) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlText" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "dropBlanks" 0))) (Variable (QualIdent Nothing (Ident "cs" 200)))))) []))] (Tuple [(IfThenElse (Apply (Variable (QualIdent (Just "Prelude") (Ident "null" 0))) (Variable (QualIdent Nothing (Ident "txt" 202)))) (Variable (QualIdent Nothing (Ident "txt" 202))) (InfixApply (Literal (Char ' ')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "txt" 202))))),(Variable (QualIdent Nothing (Ident "rem" 202)))]))),(CondExpr (283,20) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Let [(PatternDecl (283,38) (TuplePattern [(VariablePattern (Ident "txt" 204)),(VariablePattern (Ident "rem" 204))]) (SimpleRhs (283,50) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlText" 0))) (Variable (QualIdent Nothing (Ident "cs" 200)))) []))] (Tuple [(InfixApply (Variable (QualIdent Nothing (Ident "c" 200))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "txt" 204)))),(Variable (QualIdent Nothing (Ident "rem" 204)))])))] []))])+,(TypeSig (287,1) [(Ident "scanXmlElem" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (288,1) (Ident "scanXmlElem" 0) [(Equation (288,1) (FunLhs (Ident "scanXmlElem" 0) [(ListPattern [])]) (SimpleRhs (288,18) (List []) [])),(Equation (289,1) (FunLhs (Ident "scanXmlElem" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 208)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 208))))]) (GuardedRhs [(CondExpr (290,2) (InfixApply (Variable (QualIdent Nothing (Ident "c" 208))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '!'))) (IfThenElse (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 210) 2))) (Variable (QualIdent Nothing (Ident "cs" 208)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "--"))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlComment" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "drop" 0))) (Literal (Int (Ident "_" 211) 2))) (Variable (QualIdent Nothing (Ident "cs" 208)))))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlCData" 0))) (Variable (QualIdent Nothing (Ident "cs" 208)))))),(CondExpr (293,2) (InfixApply (Variable (QualIdent Nothing (Ident "c" 208))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '?'))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlProcInstr" 0))) (Variable (QualIdent Nothing (Ident "cs" 208))))),(CondExpr (294,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlElemName" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 208)))])) (Variable (QualIdent Nothing (Ident "cs" 208)))))] []))])+,(FunctionDecl (296,1) (Ident "scanXmlElemName" 0) [(Equation (296,1) (FunLhs (Ident "scanXmlElemName" 0) [(VariablePattern (Ident "ct" 212)),(ListPattern [])]) (SimpleRhs (296,25) (List [(Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Paren (InfixApply (Literal (Char '<')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ct" 212)))))) (List [])) (List []))]) [])),(Equation (297,1) (FunLhs (Ident "scanXmlElemName" 0) [(VariablePattern (Ident "ct" 214)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 214)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 214))))]) (GuardedRhs [(CondExpr (298,3) (InfixApply (Variable (QualIdent Nothing (Ident "c" 214))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>'))) (InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Paren (InfixApply (Literal (Char '<')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ct" 214)))))) (List [])) (List [])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Variable (QualIdent Nothing (Ident "cs" 214)))))),(CondExpr (299,3) (Apply (Variable (QualIdent (Just "Char") (Ident "isSpace" 0))) (Variable (QualIdent Nothing (Ident "c" 214)))) (Let [(PatternDecl (299,21) (TuplePattern [(VariablePattern (Ident "attrs" 216)),(VariablePattern (Ident "rest" 216))]) (SimpleRhs (299,36) (Apply (Variable (QualIdent (Just "XML") (Ident "parseAttrs" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "dropBlanks" 0))) (Variable (QualIdent Nothing (Ident "cs" 214)))))) []))] (IfThenElse (InfixApply (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "rest" 216))))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '/'))) (InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "ct" 214)))) (Variable (QualIdent Nothing (Ident "attrs" 216)))) (List [])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "drop" 0))) (Literal (Int (Ident "_" 218) 2))) (Variable (QualIdent Nothing (Ident "rest" 216))))))) (InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Paren (InfixApply (Literal (Char '<')) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "ct" 214)))))) (Variable (QualIdent Nothing (Ident "attrs" 216)))) (List [])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "rest" 216)))))))))),(CondExpr (303,3) (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 214))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '/'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "cs" 214)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>')))) (InfixApply (Apply (Apply (Apply (Constructor (QualIdent (Just "XML") (Ident "XElem" 0))) (Variable (QualIdent Nothing (Ident "ct" 214)))) (List [])) (List [])) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "cs" 214)))))))),(CondExpr (304,3) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlElemName" 0))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "ct" 214))) (InfixOp (QualIdent (Just "Prelude") (Ident "++" 0))) (List [(Variable (QualIdent Nothing (Ident "c" 214)))])))) (Variable (QualIdent Nothing (Ident "cs" 214)))))] []))])+,(TypeSig (307,1) [(Ident "scanXmlComment" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (308,1) (Ident "scanXmlComment" 0) [(Equation (308,1) (FunLhs (Ident "scanXmlComment" 0) [(ListPattern [])]) (SimpleRhs (308,21) (List []) [])),(Equation (309,1) (FunLhs (Ident "scanXmlComment" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 221)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 221))))]) (SimpleRhs (310,3) (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 221))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '-'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "take" 0))) (Literal (Int (Ident "_" 223) 2))) (Variable (QualIdent Nothing (Ident "cs" 221)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (String "->")))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "drop" 0))) (Literal (Int (Ident "_" 224) 2))) (Variable (QualIdent Nothing (Ident "cs" 221)))))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlComment" 0))) (Variable (QualIdent Nothing (Ident "cs" 221))))) []))])+,(TypeSig (315,1) [(Ident "scanXmlCData" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (316,1) (Ident "scanXmlCData" 0) [(Equation (316,1) (FunLhs (Ident "scanXmlCData" 0) [(VariablePattern (Ident "cs" 225))]) (SimpleRhs (317,3) (Let [(PatternDecl (317,7) (VariablePattern (Ident "rest" 227)) (SimpleRhs (317,14) (Apply (Variable (QualIdent (Just "XML") (Ident "dropCData" 0))) (Variable (QualIdent Nothing (Ident "cs" 225)))) []))] (IfThenElse (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "rest" 227)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>'))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "rest" 227)))))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlCData" 0))) (Variable (QualIdent Nothing (Ident "rest" 227)))))) []))])+,(FunctionDecl (321,1) (Ident "dropCData" 0) [(Equation (321,1) (FunLhs (Ident "dropCData" 0) [(ListPattern [])]) (SimpleRhs (321,16) (List []) [])),(Equation (322,1) (FunLhs (Ident "dropCData" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 231)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 231))))]) (GuardedRhs [(CondExpr (323,2) (InfixApply (Variable (QualIdent Nothing (Ident "c" 231))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '['))) (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "dropWhile" 0))) (RightSection (InfixOp (QualIdent (Just "Prelude") (Ident "/=" 0))) (Literal (Char ']')))) (Variable (QualIdent Nothing (Ident "cs" 231))))))),(CondExpr (324,2) (InfixApply (Variable (QualIdent Nothing (Ident "c" 231))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>'))) (InfixApply (Variable (QualIdent Nothing (Ident "c" 231))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 231))))),(CondExpr (325,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Apply (Variable (QualIdent (Just "XML") (Ident "dropCData" 0))) (Variable (QualIdent Nothing (Ident "cs" 231)))))] []))])+,(TypeSig (328,1) [(Ident "scanXmlProcInstr" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) []))))+,(FunctionDecl (329,1) (Ident "scanXmlProcInstr" 0) [(Equation (329,1) (FunLhs (Ident "scanXmlProcInstr" 0) [(ListPattern [])]) (SimpleRhs (329,23) (List []) [])),(Equation (330,1) (FunLhs (Ident "scanXmlProcInstr" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 235)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 235))))]) (SimpleRhs (331,3) (IfThenElse (InfixApply (InfixApply (Variable (QualIdent Nothing (Ident "c" 235))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '?'))) (InfixOp (QualIdent (Just "Prelude") (Ident "&&" 0))) (InfixApply (Apply (Variable (QualIdent (Just "Prelude") (Ident "head" 0))) (Variable (QualIdent Nothing (Ident "cs" 235)))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Literal (Char '>')))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlString" 0))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "cs" 235)))))) (Apply (Variable (QualIdent (Just "XML") (Ident "scanXmlProcInstr" 0))) (Variable (QualIdent Nothing (Ident "cs" 235))))) []))])+,(TypeSig (336,1) [(Ident "parseAttrs" 0)] (ArrowType (ConstructorType (QualIdent Nothing (Ident "String" 0)) []) (TupleType [(ListType (TupleType [(ConstructorType (QualIdent Nothing (Ident "String" 0)) []),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])),(ConstructorType (QualIdent Nothing (Ident "String" 0)) [])])))+,(FunctionDecl (337,1) (Ident "parseAttrs" 0) [(Equation (337,1) (FunLhs (Ident "parseAttrs" 0) [(ListPattern [])]) (SimpleRhs (337,17) (Tuple [(List []),(List [])]) [])),(Equation (338,1) (FunLhs (Ident "parseAttrs" 0) [(ParenPattern (InfixPattern (VariablePattern (Ident "c" 239)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 239))))]) (GuardedRhs [(CondExpr (339,2) (Apply (Variable (QualIdent (Just "Char") (Ident "isAlpha" 0))) (Variable (QualIdent Nothing (Ident "c" 239)))) (Let [(PatternDecl (339,20) (TuplePattern [(VariablePattern (Ident "name" 241)),(VariablePattern (Ident "rest1" 241))]) (SimpleRhs (339,36) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "splitAtChar" 0))) (Literal (Char '='))) (Paren (InfixApply (Variable (QualIdent Nothing (Ident "c" 239))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 239)))))) [])),(PatternDecl (340,20) (TuplePattern [(VariablePattern (Ident "value" 241)),(VariablePattern (Ident "rest2" 241))]) (SimpleRhs (340,36) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "splitAtChar" 0))) (Literal (Char '"'))) (Paren (Apply (Variable (QualIdent (Just "Prelude") (Ident "tail" 0))) (Variable (QualIdent Nothing (Ident "rest1" 241)))))) [])),(PatternDecl (341,20) (TuplePattern [(VariablePattern (Ident "rem_attrs" 241)),(VariablePattern (Ident "rem_inp" 241))]) (SimpleRhs (341,42) (Apply (Variable (QualIdent (Just "XML") (Ident "parseAttrs" 0))) (Paren (Apply (Variable (QualIdent (Just "XML") (Ident "dropBlanks" 0))) (Variable (QualIdent Nothing (Ident "rest2" 241)))))) []))] (Tuple [(InfixApply (Tuple [(Variable (QualIdent Nothing (Ident "name" 241))),(Apply (Variable (QualIdent (Just "XML") (Ident "xmlUnquoteSpecials" 0))) (Variable (QualIdent Nothing (Ident "value" 241))))]) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "rem_attrs" 241)))),(Variable (QualIdent Nothing (Ident "rem_inp" 241)))]))),(CondExpr (343,2) (Variable (QualIdent (Just "Prelude") (Ident "otherwise" 0))) (Tuple [(List []),(InfixApply (Variable (QualIdent Nothing (Ident "c" 239))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "cs" 239))))]))] []))])+,(FunctionDecl (346,1) (Ident "dropBlanks" 0) [(Equation (346,1) (FunLhs (Ident "dropBlanks" 0) []) (SimpleRhs (346,14) (Apply (Variable (QualIdent (Just "Prelude") (Ident "dropWhile" 0))) (Variable (QualIdent (Just "Char") (Ident "isSpace" 0)))) []))])+,(FunctionDecl (349,1) (Ident "splitAtChar" 0) [(Equation (349,1) (FunLhs (Ident "splitAtChar" 0) [(VariablePattern (Ident "_" 248)),(ListPattern [])]) (SimpleRhs (349,20) (Tuple [(List []),(List [])]) [])),(Equation (350,1) (FunLhs (Ident "splitAtChar" 0) [(VariablePattern (Ident "char" 250)),(ParenPattern (InfixPattern (VariablePattern (Ident "c" 250)) (QualIdent Nothing (Ident ":" 0)) (VariablePattern (Ident "cs" 250))))]) (SimpleRhs (351,2) (IfThenElse (InfixApply (Variable (QualIdent Nothing (Ident "c" 250))) (InfixOp (QualIdent (Just "Prelude") (Ident "==" 0))) (Variable (QualIdent Nothing (Ident "char" 250)))) (Tuple [(List []),(Variable (QualIdent Nothing (Ident "cs" 250)))]) (Let [(PatternDecl (352,22) (TuplePattern [(VariablePattern (Ident "first" 252)),(VariablePattern (Ident "rest" 252))]) (SimpleRhs (352,37) (Apply (Apply (Variable (QualIdent (Just "XML") (Ident "splitAtChar" 0))) (Variable (QualIdent Nothing (Ident "char" 250)))) (Variable (QualIdent Nothing (Ident "cs" 250)))) []))] (Tuple [(InfixApply (Variable (QualIdent Nothing (Ident "c" 250))) (InfixConstr (QualIdent Nothing (Ident ":" 0))) (Variable (QualIdent Nothing (Ident "first" 252)))),(Variable (QualIdent Nothing (Ident "rest" 252)))]))) []))])+,(TypeSig (361,1) [(Ident "textOfXml" 0)] (ArrowType (ListType (ConstructorType (QualIdent Nothing (Ident "XmlExp" 0)) [])) (ConstructorType (QualIdent Nothing (Ident "String" 0)) [])))+,(FunctionDecl (362,1) (Ident "textOfXml" 0) [(Equation (362,1) (FunLhs (Ident "textOfXml" 0) [(VariablePattern (Ident "xexps" 254))]) (SimpleRhs (363,4) (Apply (Variable (QualIdent (Just "Prelude") (Ident "concat" 0))) (Paren (Apply (Apply (Variable (QualIdent (Just "List") (Ident "intersperse" 0))) (Literal (String " "))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "filter" 0))) (Paren (InfixApply (Variable (QualIdent (Just "Prelude") (Ident "not" 0))) (InfixOp (QualIdent (Just "Prelude") (Ident "." 0))) (Variable (QualIdent (Just "Prelude") (Ident "null" 0)))))) (Paren (Apply (Apply (Variable (QualIdent (Just "Prelude") (Ident "map" 0))) (Variable (QualIdent Nothing (Ident "textOfXmlItem" 255)))) (Variable (QualIdent Nothing (Ident "xexps" 254)))))))))) [(FunctionDecl (365,4) (Ident "textOfXmlItem" 255) [(Equation (365,4) (FunLhs (Ident "textOfXmlItem" 255) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XText" 0)) [(VariablePattern (Ident "s" 256))]))]) (SimpleRhs (365,30) (Variable (QualIdent Nothing (Ident "s" 256))) [])),(Equation (366,4) (FunLhs (Ident "textOfXmlItem" 255) [(ParenPattern (ConstructorPattern (QualIdent (Just "XML") (Ident "XElem" 0)) [(VariablePattern (Ident "_" 259)),(VariablePattern (Ident "_" 260)),(VariablePattern (Ident "xs" 258))]))]) (SimpleRhs (366,35) (Apply (Variable (QualIdent (Just "XML") (Ident "textOfXml" 0))) (Variable (QualIdent Nothing (Ident "xs" 258)))) []))])]))])+]
+ src/lib/Curry/Module/.curry/XML.efc view
@@ -0,0 +1,1 @@+Prog "XML" ["Char","List","Prelude","Read"] [Type ((Nothing,Nothing,"XML","XmlExp")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]],Cons ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) 3 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [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,"XML","XmlExp")) []]]],Type ((Nothing,Nothing,"XML","Encoding")) Public [] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","StandardEnc")) 0 Public [],Cons ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","Iso88591Enc")) 0 Public []],Type ((Nothing,Nothing,"XML","XmlDocParams")) Public [] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","Enc")) 1 Public [TCons ((Nothing,Nothing,"XML","Encoding")) []],Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) 1 Public [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","encoding2Attribute")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","Encoding")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","Encoding") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","Encoding") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","StandardEnc")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","Iso88591Enc")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '8'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '8'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '5'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '9'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '1'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","encoding2EncFunc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","Encoding")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"XML","Encoding") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","Encoding") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","StandardEnc")) []) (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","Iso88591Enc")) []) (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","iso88591Encoding")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '<')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '>')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '&')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '"')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'q'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '\'')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))],Lit (Intc  32)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))],Lit (Intc  127)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '#'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]]]),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","iso88591Encoding")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","elem")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"XML","iso88591list")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","iso88591Encoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","standardEncoding")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","iso88591Encoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"XML","iso88591list")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (Rule [] (Comb ConsCall ((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",":")) [Lit (Intc  192),Comb ConsCall ((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",":")) [Lit (Intc  193),Comb ConsCall ((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",":")) [Lit (Intc  194),Comb ConsCall ((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",":")) [Lit (Intc  195),Comb ConsCall ((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",":")) [Lit (Intc  196),Comb ConsCall ((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",":")) [Lit (Intc  197),Comb ConsCall ((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",":")) [Lit (Intc  198),Comb ConsCall ((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",":")) [Lit (Intc  199),Comb ConsCall ((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",":")) [Lit (Intc  200),Comb ConsCall ((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",":")) [Lit (Intc  201),Comb ConsCall ((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",":")) [Lit (Intc  202),Comb ConsCall ((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",":")) [Lit (Intc  203),Comb ConsCall ((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",":")) [Lit (Intc  204),Comb ConsCall ((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",":")) [Lit (Intc  205),Comb ConsCall ((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",":")) [Lit (Intc  207),Comb ConsCall ((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",":")) [Lit (Intc  208),Comb ConsCall ((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",":")) [Lit (Intc  209),Comb ConsCall ((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",":")) [Lit (Intc  210),Comb ConsCall ((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",":")) [Lit (Intc  211),Comb ConsCall ((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",":")) [Lit (Intc  212),Comb ConsCall ((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",":")) [Lit (Intc  214),Comb ConsCall ((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",":")) [Lit (Intc  216),Comb ConsCall ((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",":")) [Lit (Intc  217),Comb ConsCall ((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",":")) [Lit (Intc  218),Comb ConsCall ((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",":")) [Lit (Intc  219),Comb ConsCall ((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",":")) [Lit (Intc  220),Comb ConsCall ((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",":")) [Lit (Intc  221),Comb ConsCall ((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",":")) [Lit (Intc  224),Comb ConsCall ((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",":")) [Lit (Intc  225),Comb ConsCall ((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",":")) [Lit (Intc  228),Comb ConsCall ((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",":")) [Lit (Intc  229),Comb ConsCall ((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",":")) [Lit (Intc  226),Comb ConsCall ((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",":")) [Lit (Intc  227),Comb ConsCall ((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",":")) [Lit (Intc  230),Comb ConsCall ((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",":")) [Lit (Intc  231),Comb ConsCall ((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",":")) [Lit (Intc  233),Comb ConsCall ((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",":")) [Lit (Intc  232),Comb ConsCall ((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",":")) [Lit (Intc  235),Comb ConsCall ((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",":")) [Lit (Intc  234),Comb ConsCall ((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",":")) [Lit (Intc  236),Comb ConsCall ((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",":")) [Lit (Intc  237),Comb ConsCall ((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",":")) [Lit (Intc  239),Comb ConsCall ((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",":")) [Lit (Intc  240),Comb ConsCall ((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",":")) [Lit (Intc  241),Comb ConsCall ((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",":")) [Lit (Intc  248),Comb ConsCall ((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",":")) [Lit (Intc  246),Comb ConsCall ((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",":")) [Lit (Intc  242),Comb ConsCall ((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",":")) [Lit (Intc  243),Comb ConsCall ((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",":")) [Lit (Intc  244),Comb ConsCall ((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",":")) [Lit (Intc  245),Comb ConsCall ((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",":")) [Lit (Intc  250),Comb ConsCall ((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",":")) [Lit (Intc  249),Comb ConsCall ((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",":")) [Lit (Intc  252),Comb ConsCall ((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",":")) [Lit (Intc  251),Comb ConsCall ((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",":")) [Lit (Intc  253),Comb ConsCall ((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",":")) [Lit (Intc  255),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"XML","Encoding") [])),"XML","lookupEncoding")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlDocParams")) []]) (TCons ((Nothing,Nothing,"XML","Encoding")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","Enc")) [(Just (TCons (Nothing,Nothing,"XML","Encoding") []),4)]) (Var ((Just (TCons (Nothing,Nothing,"XML","Encoding") []),4))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"XML","Encoding") [])),"XML","lookupEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","StandardEnc")) [])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","lookupDtdUrl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlDocParams")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","Enc")) [(Just (TCons (Nothing,Nothing,"XML","Encoding") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","lookupDtdUrl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","hasDtdUrl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlDocParams")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlDocParams") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","Enc")) [(Just (TCons (Nothing,Nothing,"XML","Encoding") []),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","hasDtdUrl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),3))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"XML","writeXmlFile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"XML","writeXmlFileWithParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","Enc")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"XML","Encoding") []),"XML","StandardEnc")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"XML","writeXmlFileWithParams")) 3 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlDocParams")) []]) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),2),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3)] (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlDocWithParams")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),2)),Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","showXmlDoc")) 1 Public (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlDocWithParams")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlDocWithParams")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlDocParams")) []]) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '1'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '0'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","encoding2Attribute")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"XML","Encoding") [])),"XML","lookupEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","hasDtdUrl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]])],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '?'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","hasDtdUrl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'D'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'Y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'P'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'Y'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'S'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'T'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","lookupDtdUrl")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) [])],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"XML","showXmlExp")) [Lit (Intc  0),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","Encoding") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","encoding2EncFunc")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"XML","Encoding") [])),"XML","lookupEncoding")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),1))]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),5))]]]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"XML","showXmlExp")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),2),(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xtab")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),7)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xtab")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],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") []])) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"XML","showXmlOpenTag")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),2))],Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7))],Lit (Intc  1)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","isXText")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 9),8),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7)))] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","showXmlExp._#selFP3#s")) [Var ((Just (TVar 9),8))])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [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") []])),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (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","Char") []])))),"XML","showXmlExps")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Lit (Intc  2)],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7)),Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),2))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xtab")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]])])]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","showXmlExp._#selFP3#s")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xtab")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","repeat")) [Lit (Charc  ' ')]])),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]) (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"XML","showXmlOpenTag")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 0]]) (FuncType (FuncType (TVar 0) (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","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]),2),(Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3)] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),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") []])),"Prelude","concat")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [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") []]]))),"Prelude","map")) [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") []],TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"Prelude",".")) [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","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlOpenTag.attr2string.125")) [Var ((Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),3))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]),2))]]]])),Func ((Nothing,Just (FuncType (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlOpenTag.attr2string.125")) 2 Private (FuncType (FuncType (TVar 130) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 130]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]))) (Rule [(Just (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 130]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 130]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 130]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TVar 130),4)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Var ((Just (FuncType (TVar 130) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),1)),Var ((Just (TVar 130),4))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (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","Char") []])))),"XML","showXmlExps")) 3 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (FuncType (FuncType (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","Char")) []])))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (FuncType (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,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])))),"XML","showXmlExp")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),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,"XML","XmlExp") []]),2))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"XML","isXText")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),5)]) (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '&')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 5),4),Comb FuncCall ((Nothing,Just (FuncType (TVar 8) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 8],TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]]))),"XML","splitAtChar")) [Lit (Charc  ';'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials._#selFP5#special")) [Var ((Just (TVar 5),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials._#selFP6#rest")) [Var ((Just (TVar 5),4))])] (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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","xmlUnquoteSpecial")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))])))),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials._#selFP5#special")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials._#selFP6#rest")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((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") []]))),"XML","xmlUnquoteSpecial")) 2 Private (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")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '&'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'q'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '"'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '\''),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  228)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  246)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  252)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'A'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  196)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'O'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  214)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'U'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  220)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (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") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'z'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Lit (Intc  223)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),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 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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","unquoteUnicode")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","unquoteUnicode")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '#')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)),Lit (Charc  'x')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readHex")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readInt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readInt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []])]),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","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '&'),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ';'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],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","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"XML","readXmlFile._#lambda3")) [Var ((Just (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"XML","readXmlFile._#lambda3")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlString")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","error")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'X'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","error")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'X'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'L'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3))]])])]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])),"XML","readUnsafeXmlFile")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","catchFail")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []])) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])),"Prelude","return")) [],Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","Just")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]])),"Prelude","return")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","Nothing")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"XML","showXmlFile")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) [Var ((Just (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","IO") [TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","putStr")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","showXmlDoc")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]])),"XML","readFileWithXmlDocs")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]])),"Prelude","readFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]])),"Prelude","return")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlString")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlString")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"Prelude","fst")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),"Prelude","Nothing")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 26) (FuncType (TVar 27) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 26),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 27),"Prelude","[]")) []])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Let [((Just (TVar 10),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP8#xexps")) [Var ((Just (TVar 10),6))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP9#rem_xtokens")) [Var ((Just (TVar 10),6))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),7))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),8))])))),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))) [Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),12),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)]) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12)),Lit (Charc  '<')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],Lit (Charc  '/')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 17),14),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)),Comb ConsCall ((Nothing,Just (FuncType (TVar 35) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 35])),"Prelude","Just")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),15),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP14#xexps1")) [Var ((Just (TVar 17),14))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),16),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP15#xtokens1")) [Var ((Just (TVar 17),14))])] (Let [((Just (TVar 18),17),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),16)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),18),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP12#xexps")) [Var ((Just (TVar 18),17))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),19),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP13#rem_xtokens")) [Var ((Just (TVar 18),17))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),15))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),18))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),19))]))))))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12)),Lit (Charc  '<')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],Lit (Charc  '/')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (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,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) [],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","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (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","flip")) [Comb (FuncPartCall 2) ((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","==")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 48) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 48),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TVar 22),20),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),21),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP17#xexps")) [Var ((Just (TVar 22),20))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),22),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP18#rem_xtokens")) [Var ((Just (TVar 22),20))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),11))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),21))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),22))]))))]),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")) []) (Let [((Just (TVar 24),23),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"XML","parseXmlTokens")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),24),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP20#xexps")) [Var ((Just (TVar 24),23))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),25),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP21#rem_xtokens")) [Var ((Just (TVar 24),23))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),13))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),10)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),11))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),24))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),25))])))),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,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),"Prelude","failed")) [])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP8#xexps")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP9#rem_xtokens")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP14#xexps1")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP15#xtokens1")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP12#xexps")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP13#rem_xtokens")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP17#xexps")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP18#rem_xtokens")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP20#xexps")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","parseXmlTokens._#selFP21#rem_xtokens")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString.scanXml.191")) [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")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropBlanks")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString.scanXml.191")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '<')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TVar 5),4),Comb FuncCall ((Nothing,Just (FuncType (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") []]])),"XML","scanXmlText")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 8) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlString.scanXml.191._#selFP23#initxt")) [Var ((Just (TVar 5),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlString.scanXml.191._#selFP24#remtag")) [Var ((Just (TVar 5),4))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString.scanXml.191")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]]))))])])),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlString.scanXml.191._#selFP23#initxt")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlString.scanXml.191._#selFP24#remtag")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (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") []]])),"XML","scanXmlText")) 1 Private (FuncType (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")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 14) (FuncType (TVar 15) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 14),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 15),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '<')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 18) (FuncType (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","(,)")) [Comb ConsCall ((Nothing,Just (TVar 18),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isSpace")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 10),4),Comb FuncCall ((Nothing,Just (FuncType (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") []]])),"XML","scanXmlText")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 21) (TVar 22)) (FuncType (TVar 21) (TVar 22))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropBlanks")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP26#txt")) [Var ((Just (TVar 10),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP27#rem")) [Var ((Just (TVar 10),4))])] (Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5))])],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))])))),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")) []) (Let [((Just (TVar 12),7),Comb FuncCall ((Nothing,Just (FuncType (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") []]])),"XML","scanXmlText")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP29#txt")) [Var ((Just (TVar 12),7))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP30#rem")) [Var ((Just (TVar 12),7))])] (Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))])))),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") []],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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP26#txt")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP27#rem")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP29#txt")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlText._#selFP30#rem")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlElem")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '!')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlComment")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","drop")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlCData")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '?')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlProcInstr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),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 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","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"XML","scanXmlElemName")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","failed")) [])])])])])),Func ((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,"XML","XmlExp") []]))),"XML","scanXmlElemName")) 2 Private (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,"XML","XmlExp")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '>')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isSpace")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 10),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]])),"XML","parseAttrs")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 26) (TVar 27)) (FuncType (TVar 26) (TVar 27))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropBlanks")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [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 (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"XML","scanXmlElemName._#selFP32#attrs")) [Var ((Just (TVar 10),5))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlElemName._#selFP33#rest")) [Var ((Just (TVar 10),5))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))],Lit (Charc  '/')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","drop")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '<'),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),6)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),7))]]])])))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Lit (Charc  '/')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Lit (Charc  '>')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]]]),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 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","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"XML","scanXmlElemName")) [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","failed")) [])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"XML","scanXmlElemName._#selFP32#attrs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","(,)") [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","Char") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","scanXmlElemName._#selFP33#rest")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlComment")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '-')],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","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","take")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","drop")) [Lit (Intc  2),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlComment")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlCData")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropCData")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Lit (Charc  '>')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlCData")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))])]))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropCData")) 1 Private (FuncType (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","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '[')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","dropWhile")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Lit (Charc  ']')],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '>')]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),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 FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropCData")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlProcInstr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (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,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Lit (Charc  '?')],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","head")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))],Lit (Charc  '>')]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlString")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","scanXmlProcInstr")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]])),"XML","parseAttrs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 15) (FuncType (TVar 16) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 15),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 16),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (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",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isAlpha")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Let [((Just (TVar 8),4),Comb FuncCall ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 19],TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]]))),"XML","splitAtChar")) [Lit (Charc  '='),Comb ConsCall ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP41#name")) [Var ((Just (TVar 8),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP42#rest1")) [Var ((Just (TVar 8),4))])] (Let [((Just (TVar 9),7),Comb FuncCall ((Nothing,Just (FuncType (TVar 21) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 21],TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]]))),"XML","splitAtChar")) [Lit (Charc  '"'),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 20])),"Prelude","tail")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP39#value")) [Var ((Just (TVar 9),7))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP40#rest2")) [Var ((Just (TVar 9),7))])] (Let [((Just (TVar 10),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]])),"XML","parseAttrs")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 22) (TVar 23)) (FuncType (TVar 22) (TVar 23))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropBlanks")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),9))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),11),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"XML","parseAttrs._#selFP37#rem_attrs")) [Var ((Just (TVar 10),10))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP38#rem_inp")) [Var ((Just (TVar 10),10))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,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","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [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","(,)") [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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","xmlUnquoteSpecials")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),8))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),11))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),12))])))))))))),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 (TVar 27) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 27),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3))]]),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","(,)") [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","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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP41#name")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP42#rest1")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP39#value")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP40#rest2")) 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")) []]]) (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)] (Case  Flex (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))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (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","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"XML","parseAttrs._#selFP37#rem_attrs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [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","(,)") [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","Char") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","parseAttrs._#selFP38#rem_inp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [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","Char")) []]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [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","Char") []]]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","dropBlanks")) 0 Private (FuncType (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","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","dropWhile")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Char","isSpace")) []])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"XML","splitAtChar")) 2 Private (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0],TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]]))) (Rule [(Just (TVar 0),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 242) (FuncType (TVar 243) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 242),"Prelude","[]")) [],Comb ConsCall ((Nothing,Just (TVar 243),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [(Just (TVar 0),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 0),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 246) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 246),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TVar 240),5),Comb FuncCall ((Nothing,Just (FuncType (TVar 248) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 248]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 248],TCons (Nothing,Nothing,"Prelude","[]") [TVar 248]]))),"XML","splitAtChar")) [Var ((Just (TVar 0),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 249],TCons (Nothing,Nothing,"Prelude","[]") [TVar 249]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 249])),"XML","splitAtChar._#selFP44#first")) [Var ((Just (TVar 240),5))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 250],TCons (Nothing,Nothing,"Prelude","[]") [TVar 250]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 250])),"XML","splitAtChar._#selFP45#rest")) [Var ((Just (TVar 240),5))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 0],TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Prelude",":")) [Var ((Just (TVar 0),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),7))]))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231])),"XML","splitAtChar._#selFP44#first")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231],TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]) (FuncType (TVar 234) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),2),(Just (TVar 234),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231])),"XML","splitAtChar._#selFP45#rest")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231],TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 231])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 233) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TVar 231],TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]]))),"Prelude","(,)")) [(Just (TVar 233),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1)] (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") []])),"Prelude","concat")) [Comb FuncCall ((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") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"List","intersperse")) [Comb ConsCall ((Nothing,Just (FuncType (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",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (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","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (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,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","null")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml.textOfXmlItem.255")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1))]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml.textOfXmlItem.255")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","XText")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),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","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [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,"XML","XmlExp") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),5))])]))] []
+ src/lib/Curry/Module/.curry/XML.fcy view
@@ -0,0 +1,1 @@+Prog "XML" ["Char","List","Prelude","Read"] [Type ("XML","XmlExp") Public [] [Cons ("XML","XText") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("XML","XElem") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]],Type ("XML","Encoding") Public [] [Cons ("XML","StandardEnc") 0 Public [],Cons ("XML","Iso88591Enc") 0 Public []],Type ("XML","XmlDocParams") Public [] [Cons ("XML","Enc") 1 Public [TCons ("XML","Encoding") []],Cons ("XML","DtdUrl") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]] [Func ("XML","encoding2Attribute") 1 Private (FuncType (TCons ("XML","Encoding") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","StandardEnc") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("XML","Iso88591Enc") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '8'),Comb ConsCall ("Prelude",":") [Lit (Charc  '8'),Comb ConsCall ("Prelude",":") [Lit (Charc  '5'),Comb ConsCall ("Prelude",":") [Lit (Charc  '9'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '1'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]])])),Func ("XML","encoding2EncFunc") 1 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","StandardEnc") []) (Comb (FuncPartCall 1) ("XML","standardEncoding") []),Branch (Pattern ("XML","Iso88591Enc") []) (Comb (FuncPartCall 1) ("XML","iso88591Encoding") [])])),Func ("XML","standardEncoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '&')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'q'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","<") [Comb FuncCall ("Prelude","ord") [Var 2],Lit (Intc  32)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","standardEncoding") [Var 3]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude",">") [Comb FuncCall ("Prelude","ord") [Var 2],Lit (Intc  127)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","standardEncoding") [Var 3]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])])])])),Func ("XML","iso88591Encoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("XML","iso88591list") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","iso88591Encoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","standardEncoding") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("XML","iso88591Encoding") [Var 3]])])])),Func ("XML","iso88591list") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Intc  192),Comb ConsCall ("Prelude",":") [Lit (Intc  193),Comb ConsCall ("Prelude",":") [Lit (Intc  194),Comb ConsCall ("Prelude",":") [Lit (Intc  195),Comb ConsCall ("Prelude",":") [Lit (Intc  196),Comb ConsCall ("Prelude",":") [Lit (Intc  197),Comb ConsCall ("Prelude",":") [Lit (Intc  198),Comb ConsCall ("Prelude",":") [Lit (Intc  199),Comb ConsCall ("Prelude",":") [Lit (Intc  200),Comb ConsCall ("Prelude",":") [Lit (Intc  201),Comb ConsCall ("Prelude",":") [Lit (Intc  202),Comb ConsCall ("Prelude",":") [Lit (Intc  203),Comb ConsCall ("Prelude",":") [Lit (Intc  204),Comb ConsCall ("Prelude",":") [Lit (Intc  205),Comb ConsCall ("Prelude",":") [Lit (Intc  207),Comb ConsCall ("Prelude",":") [Lit (Intc  208),Comb ConsCall ("Prelude",":") [Lit (Intc  209),Comb ConsCall ("Prelude",":") [Lit (Intc  210),Comb ConsCall ("Prelude",":") [Lit (Intc  211),Comb ConsCall ("Prelude",":") [Lit (Intc  212),Comb ConsCall ("Prelude",":") [Lit (Intc  214),Comb ConsCall ("Prelude",":") [Lit (Intc  216),Comb ConsCall ("Prelude",":") [Lit (Intc  217),Comb ConsCall ("Prelude",":") [Lit (Intc  218),Comb ConsCall ("Prelude",":") [Lit (Intc  219),Comb ConsCall ("Prelude",":") [Lit (Intc  220),Comb ConsCall ("Prelude",":") [Lit (Intc  221),Comb ConsCall ("Prelude",":") [Lit (Intc  224),Comb ConsCall ("Prelude",":") [Lit (Intc  225),Comb ConsCall ("Prelude",":") [Lit (Intc  228),Comb ConsCall ("Prelude",":") [Lit (Intc  229),Comb ConsCall ("Prelude",":") [Lit (Intc  226),Comb ConsCall ("Prelude",":") [Lit (Intc  227),Comb ConsCall ("Prelude",":") [Lit (Intc  230),Comb ConsCall ("Prelude",":") [Lit (Intc  231),Comb ConsCall ("Prelude",":") [Lit (Intc  233),Comb ConsCall ("Prelude",":") [Lit (Intc  232),Comb ConsCall ("Prelude",":") [Lit (Intc  235),Comb ConsCall ("Prelude",":") [Lit (Intc  234),Comb ConsCall ("Prelude",":") [Lit (Intc  236),Comb ConsCall ("Prelude",":") [Lit (Intc  237),Comb ConsCall ("Prelude",":") [Lit (Intc  239),Comb ConsCall ("Prelude",":") [Lit (Intc  240),Comb ConsCall ("Prelude",":") [Lit (Intc  241),Comb ConsCall ("Prelude",":") [Lit (Intc  248),Comb ConsCall ("Prelude",":") [Lit (Intc  246),Comb ConsCall ("Prelude",":") [Lit (Intc  242),Comb ConsCall ("Prelude",":") [Lit (Intc  243),Comb ConsCall ("Prelude",":") [Lit (Intc  244),Comb ConsCall ("Prelude",":") [Lit (Intc  245),Comb ConsCall ("Prelude",":") [Lit (Intc  250),Comb ConsCall ("Prelude",":") [Lit (Intc  249),Comb ConsCall ("Prelude",":") [Lit (Intc  252),Comb ConsCall ("Prelude",":") [Lit (Intc  251),Comb ConsCall ("Prelude",":") [Lit (Intc  253),Comb ConsCall ("Prelude",":") [Lit (Intc  255),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ("XML","lookupEncoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("XML","Encoding") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","Enc") [4]) (Var 4),Branch (Pattern ("XML","DtdUrl") [5]) (Comb FuncCall ("XML","lookupEncoding") [Var 3])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("XML","StandardEnc") [])])),Func ("XML","lookupDtdUrl") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","Enc") [4]) (Comb FuncCall ("XML","lookupDtdUrl") [Var 3]),Branch (Pattern ("XML","DtdUrl") [5]) (Var 5)])])),Func ("XML","hasDtdUrl") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","DtdUrl") [4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("XML","hasDtdUrl") [Var 3])])])),Func ("XML","xtxt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("XML","XmlExp") [])) (Rule [1] (Comb ConsCall ("XML","XText") [Var 1])),Func ("XML","xml") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("XML","XmlExp") []))) (Rule [1,2] (Comb ConsCall ("XML","XElem") [Var 1,Comb ConsCall ("Prelude","[]") [],Var 2])),Func ("XML","writeXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("XML","writeXmlFileWithParams") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","Enc") [Comb ConsCall ("XML","StandardEnc") []],Comb ConsCall ("Prelude","[]") []],Var 2])),Func ("XML","writeXmlFileWithParams") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("XML","showXmlDocWithParams") [Var 2,Var 3]])),Func ("XML","showXmlDoc") 1 Public (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("XML","showXmlDocWithParams") [Comb ConsCall ("Prelude","[]") [],Var 1])),Func ("XML","showXmlDocWithParams") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '1'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '0'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","encoding2Attribute") [Comb FuncCall ("XML","lookupEncoding") [Var 1]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("XML","hasDtdUrl") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]])],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("XML","hasDtdUrl") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'Y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'Y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","lookupDtdUrl") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])],Comb FuncCall ("XML","showXmlExp") [Lit (Intc  0),Comb FuncCall ("XML","encoding2EncFunc") [Comb FuncCall ("XML","lookupEncoding") [Var 1]],Comb ConsCall ("XML","XElem") [Var 3,Var 4,Var 5]]]]]]]])])),Func ("XML","showXmlExp") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("XML","XText") [4]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 2,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("XML","XElem") [5,6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","showXmlOpenTag") [Var 5,Var 6,Var 2],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 7],Lit (Intc  1)],Comb FuncCall ("XML","isXText") [Comb FuncCall ("Prelude","head") [Var 7]]]) [Branch (Pattern ("Prelude","True") []) (Let [(8,Var 7)] (Let [(9,Comb FuncCall ("XML","showXmlExp._#selFP3#s") [Var 8])] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 2,Var 9],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","showXmlExps") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  2)],Var 7,Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]])])]]])])),Func ("XML","showXmlExp._#selFP3#s") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","XText") [4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 4)])])])),Func ("XML","xtab") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","take") [Var 1,Comb FuncCall ("Prelude","repeat") [Lit (Charc  ' ')]])),Func ("XML","showXmlOpenTag") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]) (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","concat") [Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 1) ("XML","showXmlOpenTag.attr2string.125") [Var 3]],Var 2]]]])),Func ("XML","showXmlOpenTag.attr2string.125") 2 Private (FuncType (FuncType (TVar 130) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 130]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]])])),Func ("XML","showXmlExps") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("XML","showXmlExp") [Var 1,Var 3]],Var 2])),Func ("XML","isXText") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XText") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("XML","XElem") [3,4,5]) (Comb ConsCall ("Prelude","False") [])])),Func ("XML","xmlUnquoteSpecials") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '&')]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  ';'),Var 3])] (Let [(5,Comb FuncCall ("XML","xmlUnquoteSpecials._#selFP5#special") [Var 4])] (Let [(6,Comb FuncCall ("XML","xmlUnquoteSpecials._#selFP6#rest") [Var 4])] (Comb FuncCall ("XML","xmlUnquoteSpecial") [Var 5,Var 6])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","xmlUnquoteSpecials._#selFP5#special") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","xmlUnquoteSpecials._#selFP6#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","xmlUnquoteSpecial") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'q'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  228)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  246)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  252)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  196)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  214)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'U'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  220)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'z'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  223)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","unquoteUnicode") [Var 1],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])])])])])])])])),Func ("XML","unquoteUnicode") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '#')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Lit (Charc  'x')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readHex") [Var 5]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readInt") [Var 3]],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readInt") [Var 3]],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","readXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("XML","readXmlFile._#lambda3") [Var 1]])),Func ("XML","readXmlFile._#lambda3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("XML","parseXmlString") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","tail") [Var 3],Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","head") [Var 3]])])]))),Func ("XML","readUnsafeXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("XML","XmlExp") []]])) (Rule [1] (Comb FuncCall ("Prelude","catchFail") [Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []]],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []]])),Func ("XML","showXmlFile") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","putStr") [],Comb (FuncPartCall 1) ("XML","showXmlDoc") []]])),Func ("XML","readFileWithXmlDocs") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("XML","parseXmlString") []]])),Func ("XML","parseXmlString") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("Prelude","fst") [Comb FuncCall ("XML","parseXmlTokens") [Comb FuncCall ("XML","scanXmlString") [Var 1],Comb ConsCall ("Prelude","Nothing") []]])),Func ("XML","parseXmlTokens") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("XML","XText") [5]) (Let [(6,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(7,Comb FuncCall ("XML","parseXmlTokens._#selFP8#xexps") [Var 6])] (Let [(8,Comb FuncCall ("XML","parseXmlTokens._#selFP9#rem_xtokens") [Var 6])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 5]],Var 7],Var 8])))),Branch (Pattern ("XML","XElem") [9,10,11]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 12,Lit (Charc  '<')],Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","head") [Var 13],Lit (Charc  '/')]]) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Comb ConsCall ("Prelude","Just") [Var 13]])] (Let [(15,Comb FuncCall ("XML","parseXmlTokens._#selFP14#xexps1") [Var 14])] (Let [(16,Comb FuncCall ("XML","parseXmlTokens._#selFP15#xtokens1") [Var 14])] (Let [(17,Comb FuncCall ("XML","parseXmlTokens") [Var 16,Var 2])] (Let [(18,Comb FuncCall ("XML","parseXmlTokens._#selFP12#xexps") [Var 17])] (Let [(19,Comb FuncCall ("XML","parseXmlTokens._#selFP13#rem_xtokens") [Var 17])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 13,Var 10,Var 15],Var 18],Var 19]))))))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 12,Lit (Charc  '<')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 13],Lit (Charc  '/')]]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","==") [],Comb FuncCall ("Prelude","tail") [Var 13]],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(21,Comb FuncCall ("XML","parseXmlTokens._#selFP17#xexps") [Var 20])] (Let [(22,Comb FuncCall ("XML","parseXmlTokens._#selFP18#rem_xtokens") [Var 20])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 13,Var 10,Var 11],Var 21],Var 22]))))]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(23,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(24,Comb FuncCall ("XML","parseXmlTokens._#selFP20#xexps") [Var 23])] (Let [(25,Comb FuncCall ("XML","parseXmlTokens._#selFP21#rem_xtokens") [Var 23])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Var 12,Var 13],Var 10,Var 11],Var 24],Var 25])))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])),Func ("XML","parseXmlTokens._#selFP8#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP9#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP14#xexps1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP15#xtokens1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP12#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP13#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP17#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP18#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP20#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP21#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlString") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("XML","scanXmlString.scanXml.191") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 1]])),Func ("XML","scanXmlString.scanXml.191") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElem") [Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("XML","scanXmlText") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("XML","scanXmlString.scanXml.191._#selFP23#initxt") [Var 4])] (Let [(6,Comb FuncCall ("XML","scanXmlString.scanXml.191._#selFP24#remtag") [Var 4])] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Var 5],Comb FuncCall ("XML","scanXmlString.scanXml.191") [Var 6]]))))])])),Func ("XML","scanXmlString.scanXml.191._#selFP23#initxt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlString.scanXml.191._#selFP24#remtag") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlText") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 2,Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isSpace") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","scanXmlText") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 3]])] (Let [(5,Comb FuncCall ("XML","scanXmlText._#selFP26#txt") [Var 4])] (Let [(6,Comb FuncCall ("XML","scanXmlText._#selFP27#rem") [Var 4])] (Comb ConsCall ("Prelude","(,)") [Case  Rigid (Comb FuncCall ("Prelude","null") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Var 5])],Var 6])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("XML","scanXmlText") [Var 3])] (Let [(8,Comb FuncCall ("XML","scanXmlText._#selFP29#txt") [Var 7])] (Let [(9,Comb FuncCall ("XML","scanXmlText._#selFP30#rem") [Var 7])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 2,Var 8],Var 9])))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlText._#selFP26#txt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlText._#selFP27#rem") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlText._#selFP29#txt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlText._#selFP30#rem") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlElem") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '!')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlComment") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlCData") [Var 3])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '?')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlProcInstr") [Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElemName") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlElemName") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Var 4]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isSpace") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("XML","parseAttrs") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 4]])] (Let [(6,Comb FuncCall ("XML","scanXmlElemName._#selFP32#attrs") [Var 5])] (Let [(7,Comb FuncCall ("XML","scanXmlElemName._#selFP33#rest") [Var 5])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 7],Lit (Charc  '/')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 1,Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 7]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 7]]])])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '/')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 4],Lit (Charc  '>')]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 1,Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 4]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElemName") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("XML","scanXmlElemName._#selFP32#attrs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlElemName._#selFP33#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlComment") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '-')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlComment") [Var 3])])])),Func ("XML","scanXmlCData") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Let [(2,Comb FuncCall ("XML","dropCData") [Var 1])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 2],Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlCData") [Var 2])]))),Func ("XML","dropCData") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '[')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  ']')],Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","dropCData") [Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlProcInstr") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '?')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 3],Lit (Charc  '>')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlProcInstr") [Var 3])])])),Func ("XML","parseAttrs") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("XML","parseAttrs._#selFP41#name") [Var 4])] (Let [(6,Comb FuncCall ("XML","parseAttrs._#selFP42#rest1") [Var 4])] (Let [(7,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  '"'),Comb FuncCall ("Prelude","tail") [Var 6]])] (Let [(8,Comb FuncCall ("XML","parseAttrs._#selFP39#value") [Var 7])] (Let [(9,Comb FuncCall ("XML","parseAttrs._#selFP40#rest2") [Var 7])] (Let [(10,Comb FuncCall ("XML","parseAttrs") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 9]])] (Let [(11,Comb FuncCall ("XML","parseAttrs._#selFP37#rem_attrs") [Var 10])] (Let [(12,Comb FuncCall ("XML","parseAttrs._#selFP38#rem_inp") [Var 10])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 8]],Var 11],Var 12])))))))))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 2,Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","parseAttrs._#selFP41#name") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP42#rest1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseAttrs._#selFP39#value") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP40#rest2") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseAttrs._#selFP37#rem_attrs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP38#rem_inp") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","dropBlanks") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Char","isSpace") []])),Func ("XML","splitAtChar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("XML","splitAtChar") [Var 1,Var 4])] (Let [(6,Comb FuncCall ("XML","splitAtChar._#selFP44#first") [Var 5])] (Let [(7,Comb FuncCall ("XML","splitAtChar._#selFP45#rest") [Var 5])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]))))])])),Func ("XML","splitAtChar._#selFP44#first") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (TCons ("Prelude","[]") [TVar 231])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","splitAtChar._#selFP45#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (TCons ("Prelude","[]") [TVar 231])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","textOfXml") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb (FuncPartCall 1) ("Prelude","null") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("XML","textOfXml.textOfXmlItem.255") [],Var 1]]]])),Func ("XML","textOfXml.textOfXmlItem.255") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XText") [2]) (Var 2),Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("XML","textOfXml") [Var 5])]))] []
+ src/lib/Curry/Module/.curry/XML.fint view
@@ -0,0 +1,1 @@+Prog "XML" ["Char","List","Prelude","Read"] [Type ("XML","XmlExp") Public [] [Cons ("XML","XText") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("XML","XElem") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]],Type ("XML","Encoding") Public [] [Cons ("XML","StandardEnc") 0 Public [],Cons ("XML","Iso88591Enc") 0 Public []],Type ("XML","XmlDocParams") Public [] [Cons ("XML","Enc") 1 Public [TCons ("XML","Encoding") []],Cons ("XML","DtdUrl") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]] [Func ("XML","xtxt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("XML","XmlExp") [])) (Rule [] (Var 0)),Func ("XML","xml") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("XML","XmlExp") []))) (Rule [] (Var 0)),Func ("XML","writeXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [] (Var 0)),Func ("XML","writeXmlFileWithParams") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [] (Var 0)),Func ("XML","showXmlDoc") 1 Public (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0)),Func ("XML","showXmlDocWithParams") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [] (Var 0)),Func ("XML","readXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []])) (Rule [] (Var 0)),Func ("XML","readUnsafeXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("XML","XmlExp") []]])) (Rule [] (Var 0)),Func ("XML","readFileWithXmlDocs") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]])) (Rule [] (Var 0)),Func ("XML","parseXmlString") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [] (Var 0)),Func ("XML","textOfXml") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Var 0))] []
+ src/lib/Curry/Module/.curry/XML.uacy view
@@ -0,0 +1,46 @@+CurryProg "XML"+ ["Prelude","Char","Read","List"]+ [CType ("XML","XmlExp") Public [] [CCons ("XML","XText") 1 Public [CTCons ("Prelude","String") []],CCons ("XML","XElem") 3 Public [CTCons ("Prelude","String") [],CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]],CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]]],+  CType ("XML","Encoding") Public [] [CCons ("XML","StandardEnc") 0 Public [],CCons ("XML","Iso88591Enc") 0 Public []],+  CType ("XML","XmlDocParams") Public [] [CCons ("XML","Enc") 1 Public [CTCons ("XML","Encoding") []],CCons ("XML","DtdUrl") 1 Public [CTCons ("Prelude","String") []]]]+ [CFunc ("XML","dropBlanks") 0 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","dropWhile")) (CSymbol ("Char","isSpace")))] []]),+  CFunc ("XML","dropCData") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '[')),CApply (CSymbol ("Prelude","tail")) (CApply (CApply (CSymbol ("Prelude","dropWhile")) (CLambda [CPVar (2,"x0")] (CApply (CApply (CSymbol ("Prelude","/=")) (CVar (2,"x0"))) (CLit (CCharc ']'))))) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))),(CSymbol ("Prelude","otherwise"),CApply (CSymbol ("XML","dropCData")) (CVar (1,"cs")))] []]),+  CFunc ("XML","encoding2Attribute") 1 Private (CFuncType (CTCons ("XML","Encoding") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("XML","StandardEnc") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("XML","Iso88591Enc") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '8'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '8'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '5'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '9'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))] []]),+  CFunc ("XML","encoding2EncFunc") 1 Private (CFuncType (CTCons ("XML","Encoding") []) (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPComb ("XML","StandardEnc") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","standardEncoding"))] [],CRule [CPComb ("XML","Iso88591Enc") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","iso88591Encoding"))] []]),+  CFunc ("XML","hasDtdUrl") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (0,"_")],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (2,"_")],CPVar (3,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","hasDtdUrl")) (CVar (3,"l")))] []]),+  CFunc ("XML","isXText") 1 Private (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","Bool") [])) (CRules CFlex [CRule [CPComb ("XML","XText") [CPVar (0,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","True"))] [],CRule [CPComb ("XML","XElem") [CPVar (1,"_"),CPVar (2,"_"),CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","False"))] []]),+  CFunc ("XML","iso88591Encoding") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","elem")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CSymbol ("XML","iso88591list")))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","iso88591Encoding")) (CVar (1,"cs"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","standardEncoding")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]"))))) (CApply (CSymbol ("XML","iso88591Encoding")) (CVar (1,"cs")))))] []]),+  CFunc ("XML","iso88591list") 0 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 192))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 193))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 194))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 195))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 196))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 197))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 198))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 199))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 200))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 201))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 202))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 203))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 204))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 205))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 207))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 208))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 209))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 210))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 211))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 212))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 214))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 216))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 217))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 218))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 219))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 220))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 221))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 224))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 225))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 228))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 229))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 226))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 227))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 230))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 231))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 233))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 232))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 235))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 234))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 236))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 237))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 239))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 240))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 241))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 248))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 246))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 242))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 243))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 244))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 245))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 250))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 249))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 252))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 251))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 253))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CIntc 255))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))))))))))))))))))] []]),+  CFunc ("XML","lookupDtdUrl") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (0,"_")],CPVar (1,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","lookupDtdUrl")) (CVar (1,"l")))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (2,"url")],CPVar (3,"_")]] [(CSymbol ("Prelude","success"),CVar (2,"url"))] []]),+  CFunc ("XML","lookupEncoding") 1 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CTCons ("XML","Encoding") [])) (CRules CFlex [CRule [CPComb ("Prelude",":") [CPComb ("XML","Enc") [CPVar (0,"f")],CPVar (1,"_")]] [(CSymbol ("Prelude","success"),CVar (0,"f"))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","DtdUrl") [CPVar (2,"_")],CPVar (3,"l")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","lookupEncoding")) (CVar (3,"l")))] [],CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("XML","StandardEnc"))] []]),+  CFunc ("XML","parseAttrs") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []]],CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CSymbol ("Char","isAlpha")) (CVar (0,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"name"),CPVar (3,"rest1")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"value"),CPVar (5,"rest2")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc '"'))) (CApply (CSymbol ("Prelude","tail")) (CVar (3,"rest1")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (6,"rem_attrs"),CPVar (7,"rem_inp")]) (CApply (CSymbol ("XML","parseAttrs")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (5,"rest2")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CSymbol ("Prelude","(,)")) (CVar (2,"name"))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (4,"value"))))) (CVar (6,"rem_attrs")))) (CVar (7,"rem_inp")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs"))))] []]),+  CFunc ("XML","parseXmlString") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","fst")) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CApply (CSymbol ("XML","scanXmlString")) (CVar (0,"s")))) (CSymbol ("Prelude","Nothing"))))] []]),+  CFunc ("XML","parseXmlTokens") 2 Private (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CFuncType (CTCons ("Prelude","Maybe") [CTCons ("Prelude","String") []]) (CTCons ("Prelude","(,)") [CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []],CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]]))) (CRules CFlex [CRule [CPComb ("Prelude","[]") [],CPComb ("Prelude","Nothing") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XText") [CPVar (0,"s")],CPVar (1,"xtokens")],CPVar (2,"stop")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"xexps"),CPVar (4,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (1,"xtokens"))) (CVar (2,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","XText")) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (0,"s"))))) (CVar (3,"xexps")))) (CVar (4,"rem_xtokens"))))] [],CRule [CPComb ("Prelude",":") [CPComb ("XML","XElem") [CPComb ("Prelude",":") [CPVar (5,"t"),CPVar (6,"ts")],CPVar (7,"args"),CPVar (8,"cont")],CPVar (9,"xtokens")],CPVar (10,"stop")] [(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"t"))) (CLit (CCharc '<')))) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("Prelude","head")) (CVar (6,"ts")))) (CLit (CCharc '/'))),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (11,"xexps1"),CPVar (12,"xtokens1")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CApply (CSymbol ("Prelude","Just")) (CVar (6,"ts")))) [],CLocalPat (CPComb ("Prelude","(,)") [CPVar (13,"xexps"),CPVar (14,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (12,"xtokens1"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (6,"ts"))) (CVar (7,"args"))) (CVar (11,"xexps1")))) (CVar (13,"xexps")))) (CVar (14,"rem_xtokens")))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (5,"t"))) (CLit (CCharc '<')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (6,"ts")))) (CLit (CCharc '/'))),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CApply (CSymbol ("Prelude","maybe")) (CSymbol ("Prelude","False"))) (CLambda [CPVar (15,"x0")] (CApply (CApply (CSymbol ("Prelude","==")) (CVar (15,"x0"))) (CApply (CSymbol ("Prelude","tail")) (CVar (6,"ts")))))) (CVar (10,"stop")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CVar (9,"xtokens")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (16,"xexps"),CPVar (17,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (6,"ts"))) (CVar (7,"args"))) (CVar (8,"cont")))) (CVar (16,"xexps")))) (CVar (17,"rem_xtokens"))))),(CSymbol ("Prelude","otherwise"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (18,"xexps"),CPVar (19,"rem_xtokens")]) (CApply (CApply (CSymbol ("XML","parseXmlTokens")) (CVar (9,"xtokens"))) (CVar (10,"stop"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (5,"t"))) (CVar (6,"ts")))) (CVar (7,"args"))) (CVar (8,"cont")))) (CVar (18,"xexps")))) (CVar (19,"rem_xtokens"))))] []]),+  CFunc ("XML","readFileWithXmlDocs") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("XML","parseXmlString"))))] []]),+  CFunc ("XML","readUnsafeXmlFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","Maybe") [CTCons ("XML","XmlExp") []]])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","catchFail")) (CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","return"))) (CSymbol ("Prelude","Just"))))) (CApply (CSymbol ("Prelude","return")) (CSymbol ("Prelude","Nothing"))))] []]),+  CFunc ("XML","readXmlFile") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CDoExpr [CSPat (CPVar (1,"xmlstring")) (CApply (CSymbol ("Prelude","readFile")) (CVar (0,"file"))),CSLet [CLocalPat (CPVar (2,"xexps")) (CApply (CSymbol ("XML","parseXmlString")) (CVar (1,"xmlstring"))) []],CSExpr (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"xexps"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]")))))))))))))))))))))))))))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","/=")) (CApply (CSymbol ("Prelude","tail")) (CVar (2,"xexps")))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("Prelude","error")) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'F'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'h'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'X'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'L'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'c'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CSymbol ("Prelude","[]"))))))))))))))))))))))))))))))))))))))))))) (CApply (CSymbol ("Prelude","return")) (CApply (CSymbol ("Prelude","head")) (CVar (2,"xexps"))))))])] []]),+  CFunc ("XML","scanXmlCData") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"cs")] [(CSymbol ("Prelude","success"),CLetDecl [CLocalPat (CPVar (1,"rest")) (CApply (CSymbol ("XML","dropCData")) (CVar (0,"cs"))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"rest")))) (CLit (CCharc '>')))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (1,"rest"))))) (CApply (CSymbol ("XML","scanXmlCData")) (CVar (1,"rest")))))] []]),+  CFunc ("XML","scanXmlComment") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '-')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlComment")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","scanXmlElem") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '!')),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CApply (CSymbol ("Prelude","take")) (CLit (CIntc 2))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '-'))) (CSymbol ("Prelude","[]")))))) (CApply (CSymbol ("XML","scanXmlComment")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlCData")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '?')),CApply (CSymbol ("XML","scanXmlProcInstr")) (CVar (1,"cs"))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("XML","scanXmlElemName")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CSymbol ("Prelude","[]")))) (CVar (1,"cs")))] []]),+  CFunc ("XML","scanXmlElemName") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"ct"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (0,"ct")))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"ct"),CPComb ("Prelude",":") [CPVar (2,"c"),CPVar (3,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (1,"ct")))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CVar (3,"cs")))),(CApply (CSymbol ("Char","isSpace")) (CVar (2,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"attrs"),CPVar (5,"rest")]) (CApply (CSymbol ("XML","parseAttrs")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (3,"cs")))) []] (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (5,"rest")))) (CLit (CCharc '/')))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"ct"))) (CVar (4,"attrs"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CApply (CSymbol ("Prelude","drop")) (CLit (CIntc 2))) (CVar (5,"rest")))))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CVar (1,"ct")))) (CVar (4,"attrs"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (5,"rest"))))))),(CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CLit (CCharc '/')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (3,"cs")))) (CLit (CCharc '>'))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"ct"))) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (3,"cs"))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("XML","scanXmlElemName")) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"ct"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CSymbol ("Prelude","[]"))))) (CVar (3,"cs")))] []]),+  CFunc ("XML","scanXmlProcInstr") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '?')))) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","head")) (CVar (1,"cs")))) (CLit (CCharc '>'))))) (CApply (CSymbol ("XML","scanXmlString")) (CApply (CSymbol ("Prelude","tail")) (CVar (1,"cs"))))) (CApply (CSymbol ("XML","scanXmlProcInstr")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","scanXmlString") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","scanXml")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (0,"s"))))] [CLocalFunc (CFunc ("XML","scanXml") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (1,"c"),CPVar (2,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (1,"c"))) (CLit (CCharc '<')))) (CApply (CSymbol ("XML","scanXmlElem")) (CVar (2,"cs")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (3,"initxt"),CPVar (4,"remtag")]) (CApply (CSymbol ("XML","scanXmlText")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (1,"c"))) (CVar (2,"cs")))) []] (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","XText")) (CVar (3,"initxt")))) (CApply (CSymbol ("XML","scanXml")) (CVar (4,"remtag"))))))] []]))]]),+  CFunc ("XML","scanXmlText") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","(,)") [CTCons ("Prelude","String") [],CTCons ("Prelude","String") []])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '<')),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))),(CApply (CSymbol ("Char","isSpace")) (CVar (0,"c")),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"txt"),CPVar (3,"rem")]) (CApply (CSymbol ("XML","scanXmlText")) (CApply (CSymbol ("XML","dropBlanks")) (CVar (1,"cs")))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("Prelude","null")) (CVar (2,"txt")))) (CVar (2,"txt"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CVar (2,"txt"))))) (CVar (3,"rem")))),(CSymbol ("Prelude","otherwise"),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"txt"),CPVar (5,"rem")]) (CApply (CSymbol ("XML","scanXmlText")) (CVar (1,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (4,"txt")))) (CVar (5,"rem"))))] []]),+  CFunc ("XML","showXmlDoc") 1 Public (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CSymbol ("Prelude","[]"))) (CVar (0,"xexp")))] []]),+  CFunc ("XML","showXmlDocWithParams") 2 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","String") []))) (CRules CFlex [CRule [CPVar (0,"ps"),CPComb ("XML","XElem") [CPVar (1,"root"),CPVar (2,"attrL"),CPVar (3,"xmlEL")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'x'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'v'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'r'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '1'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '.'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '0'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","encoding2Attribute")) (CApply (CSymbol ("XML","lookupEncoding")) (CVar (0,"ps"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'd'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("XML","hasDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'e'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '?'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CSymbol ("XML","hasDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '!'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'D'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'C'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'P'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]"))))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (1,"root"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'Y'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'S'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'T'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'E'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'M'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]")))))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","lookupDtdUrl")) (CVar (0,"ps")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))))))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CApply (CSymbol ("XML","showXmlExp")) (CLit (CIntc 0))) (CApply (CSymbol ("XML","encoding2EncFunc")) (CApply (CSymbol ("XML","lookupEncoding")) (CVar (0,"ps"))))) (CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (1,"root"))) (CVar (2,"attrL"))) (CVar (3,"xmlEL"))))))))))] []]),+  CFunc ("XML","showXmlExp") 3 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"i"),CPVar (1,"encFun"),CPComb ("XML","XText") [CPVar (2,"s")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (0,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (1,"encFun")) (CVar (2,"s")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))] [],CRule [CPVar (3,"i"),CPVar (4,"encFun"),CPComb ("XML","XElem") [CPVar (5,"tag"),CPVar (6,"attrs"),CPVar (7,"xexps")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (3,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("XML","showXmlOpenTag")) (CVar (5,"tag"))) (CVar (6,"attrs"))) (CVar (4,"encFun")))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (7,"xexps"))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))))) (CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","&&")) (CApply (CApply (CSymbol ("Prelude","==")) (CApply (CSymbol ("Prelude","length")) (CVar (7,"xexps")))) (CLit (CIntc 1)))) (CApply (CSymbol ("XML","isXText")) (CApply (CSymbol ("Prelude","head")) (CVar (7,"xexps")))))) (CLetDecl [CLocalPat (CPComb ("Prelude",":") [CPComb ("XML","XText") [CPVar (8,"s")],CPComb ("Prelude","[]") []]) (CVar (7,"xexps")) []] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (4,"encFun")) (CVar (8,"s")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"tag"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CApply (CSymbol ("XML","showXmlExps")) (CApply (CApply (CSymbol ("Prelude","+")) (CVar (3,"i"))) (CLit (CIntc 2)))) (CVar (7,"xexps"))) (CVar (4,"encFun")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","xtab")) (CVar (3,"i")))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '/'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (5,"tag"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\n'))) (CSymbol ("Prelude","[]")))))))))))))] []]),+  CFunc ("XML","showXmlExps") 3 Private (CFuncType (CTCons ("Prelude","Int") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CFuncType (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CTCons ("Prelude","String") [])))) (CRules CFlex [CRule [CPVar (0,"encFun"),CPVar (1,"xexps"),CPVar (2,"i")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","concatMap")) (CApply (CApply (CSymbol ("XML","showXmlExp")) (CVar (0,"encFun"))) (CVar (2,"i")))) (CVar (1,"xexps")))] []]),+  CFunc ("XML","showXmlFile") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])) (CRules CFlex [CRule [CPVar (0,"file")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude",">>=")) (CApply (CSymbol ("XML","readXmlFile")) (CVar (0,"file")))) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","putStr"))) (CSymbol ("XML","showXmlDoc"))))] []]),+  CFunc ("XML","showXmlOpenTag") 3 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"tag"),CPVar (1,"attrs"),CPVar (2,"encFun")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","++")) (CVar (0,"tag"))) (CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("Prelude","map")) (CApply (CApply (CSymbol ("Prelude",".")) (CLambda [CPVar (3,"x0")] (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CVar (3,"x0"))))) (CSymbol ("XML","attr2string")))) (CVar (1,"attrs"))))))] [CLocalFunc (CFunc ("XML","attr2string") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("Prelude","(,)") [CPVar (3,"attr"),CPVar (4,"value")]] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","++")) (CVar (3,"attr"))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '='))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CVar (2,"encFun")) (CVar (4,"value")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CSymbol ("Prelude","[]"))))))] []]))]]),+  CFunc ("XML","splitAtChar") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"_"),CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CSymbol ("Prelude","[]")))] [],CRule [CPVar (1,"char"),CPComb ("Prelude",":") [CPVar (2,"c"),CPVar (3,"cs")]] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("Prelude","if_then_else")) (CApply (CApply (CSymbol ("Prelude","==")) (CVar (2,"c"))) (CVar (1,"char")))) (CApply (CApply (CSymbol ("Prelude","(,)")) (CSymbol ("Prelude","[]"))) (CVar (3,"cs")))) (CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (4,"first"),CPVar (5,"rest")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CVar (1,"char"))) (CVar (3,"cs"))) []] (CApply (CApply (CSymbol ("Prelude","(,)")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (2,"c"))) (CVar (4,"first")))) (CVar (5,"rest")))))] []]),+  CFunc ("XML","standardEncoding") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '<')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '>')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '&')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '"')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '\'')),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]"))))))))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","<")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CLit (CIntc 32)),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))))),(CApply (CApply (CSymbol ("Prelude",">")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c")))) (CLit (CIntc 127)),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '#'))) (CSymbol ("Prelude","[]"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("Prelude","show")) (CApply (CSymbol ("Prelude","ord")) (CVar (0,"c"))))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs")))))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","standardEncoding")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","textOfXml") 1 Public (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPVar (0,"xexps")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("Prelude","concat")) (CApply (CApply (CSymbol ("List","intersperse")) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ' '))) (CSymbol ("Prelude","[]")))) (CApply (CApply (CSymbol ("Prelude","filter")) (CApply (CApply (CSymbol ("Prelude",".")) (CSymbol ("Prelude","not"))) (CSymbol ("Prelude","null")))) (CApply (CApply (CSymbol ("Prelude","map")) (CSymbol ("XML","textOfXmlItem"))) (CVar (0,"xexps"))))))] [CLocalFunc (CFunc ("XML","textOfXmlItem") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPComb ("XML","XText") [CPVar (1,"s")]] [(CSymbol ("Prelude","success"),CVar (1,"s"))] [],CRule [CPComb ("XML","XElem") [CPVar (2,"_"),CPVar (3,"_"),CPVar (4,"xs")]] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","textOfXml")) (CVar (4,"xs")))] []]))]]),+  CFunc ("XML","unquoteUnicode") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '#')),CCase (CVar (1,"cs")) [CBranch (CPComb ("Prelude",":") [CPLit (CCharc 'x'),CPVar (2,"cs'")]) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readHex")) (CVar (2,"cs'"))))) (CSymbol ("Prelude","[]"))),CBranch (CPVar (3,"_")) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CApply (CSymbol ("Read","readInt")) (CVar (1,"cs"))))) (CSymbol ("Prelude","[]")))]),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CApply (CSymbol ("Prelude","++")) (CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CVar (1,"cs")))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc ';'))) (CSymbol ("Prelude","[]")))))] []]),+  CFunc ("XML","writeXmlFile") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []]))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","writeXmlFileWithParams")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("XML","Enc")) (CSymbol ("XML","StandardEnc")))) (CSymbol ("Prelude","[]")))) (CVar (1,"xexp")))] []]),+  CFunc ("XML","writeXmlFileWithParams") 3 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlDocParams") []]) (CFuncType (CTCons ("XML","XmlExp") []) (CTCons ("Prelude","IO") [CTCons ("Prelude","()") []])))) (CRules CFlex [CRule [CPVar (0,"file"),CPVar (1,"ps"),CPVar (2,"xexp")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","writeFile")) (CVar (0,"file"))) (CApply (CApply (CSymbol ("XML","showXmlDocWithParams")) (CVar (1,"ps"))) (CVar (2,"xexp"))))] []]),+  CFunc ("XML","xml") 2 Public (CFuncType (CTCons ("Prelude","String") []) (CFuncType (CTCons ("Prelude","[]") [CTCons ("XML","XmlExp") []]) (CTCons ("XML","XmlExp") []))) (CRules CFlex [CRule [CPVar (0,"t"),CPVar (1,"c")] [(CSymbol ("Prelude","success"),CApply (CApply (CApply (CSymbol ("XML","XElem")) (CVar (0,"t"))) (CSymbol ("Prelude","[]"))) (CVar (1,"c")))] []]),+  CFunc ("XML","xmlUnquoteSpecial") 2 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"special"),CPVar (1,"cs")] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '<'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '>'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CSymbol ("Prelude","[]"))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '&'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'q'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 't'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '"'))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'p'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc '\''))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'a'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 228)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'o'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 246)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 252)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'A'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 196)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'O'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 214)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'U'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'u'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'm'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CSymbol ("Prelude","[]")))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 220)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"special"))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 's'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'z'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'l'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'i'))) (CApply (CApply (CSymbol ("Prelude",":")) (CLit (CCharc 'g'))) (CSymbol ("Prelude","[]"))))))),CApply (CApply (CSymbol ("Prelude",":")) (CApply (CSymbol ("Prelude","chr")) (CLit (CIntc 223)))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude","++")) (CApply (CSymbol ("XML","unquoteUnicode")) (CVar (0,"special")))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","xmlUnquoteSpecials") 1 Private (CFuncType (CTCons ("Prelude","String") []) (CTCons ("Prelude","String") [])) (CRules CFlex [CRule [CPComb ("Prelude","[]") []] [(CSymbol ("Prelude","success"),CSymbol ("Prelude","[]"))] [],CRule [CPComb ("Prelude",":") [CPVar (0,"c"),CPVar (1,"cs")]] [(CApply (CApply (CSymbol ("Prelude","==")) (CVar (0,"c"))) (CLit (CCharc '&')),CLetDecl [CLocalPat (CPComb ("Prelude","(,)") [CPVar (2,"special"),CPVar (3,"rest")]) (CApply (CApply (CSymbol ("XML","splitAtChar")) (CLit (CCharc ';'))) (CVar (1,"cs"))) []] (CApply (CApply (CSymbol ("XML","xmlUnquoteSpecial")) (CVar (2,"special"))) (CVar (3,"rest")))),(CSymbol ("Prelude","otherwise"),CApply (CApply (CSymbol ("Prelude",":")) (CVar (0,"c"))) (CApply (CSymbol ("XML","xmlUnquoteSpecials")) (CVar (1,"cs"))))] []]),+  CFunc ("XML","xtab") 1 Private (CTCons ("Prelude","untyped") []) (CRules CFlex [CRule [CPVar (0,"n")] [(CSymbol ("Prelude","success"),CApply (CApply (CSymbol ("Prelude","take")) (CVar (0,"n"))) (CApply (CSymbol ("Prelude","repeat")) (CLit (CCharc ' '))))] []]),+  CFunc ("XML","xtxt") 1 Public (CFuncType (CTCons ("Prelude","String") []) (CTCons ("XML","XmlExp") [])) (CRules CFlex [CRule [CPVar (0,"s")] [(CSymbol ("Prelude","success"),CApply (CSymbol ("XML","XText")) (CVar (0,"s")))] []])]+ []
+ src/lib/Curry/Module/AbstractCurry.curry view
@@ -0,0 +1,308 @@+------------------------------------------------------------------------------+--- Library to support meta-programming in Curry.+---+--- This library contains a definition for representing Curry programs+--- in Curry (type "CurryProg") and an I/O action to read Curry programs and+--- transform them into this abstract representation (function "readCurry").+---+--- Note this defines a slightly new format for AbstractCurry+--- in comparison to the first proposal of 2003.+---+--- Assumption: an abstract Curry program is stored in file with extension .acy+---+--- @author Michael Hanus+--- @version July 2008+------------------------------------------------------------------------------++module AbstractCurry where++import Directory(doesFileExist)+import ReadShowTerm+import Distribution+import FileGoodies(stripSuffix)++------------------------------------------------------------------------------+-- Definition of data types for representing abstract Curry programs:+-- ==================================================================++--- Data type for representing a Curry module in the intermediate form.+--- A value of this data type has the form+--- <CODE>+---  (CProg modname imports typedecls functions opdecls)+--- </CODE>+--- where modname: name of this module,+---       imports: list of modules names that are imported,+---       typedecls, opdecls, functions: see below++data CurryProg = CurryProg String [String] [CTypeDecl] [CFuncDecl] [COpDecl]+++--- The data type for representing qualified names.+--- In AbstractCurry all names are qualified to avoid name clashes.+--- The first component is the module name and the second component the+--- unqualified name as it occurs in the source program.+type QName = (String,String)+++-- Data type to specify the visibility of various entities.++data CVisibility = Public    -- exported entity+                 | Private   -- private entity+++--- The data type for representing type variables.+--- They are represented by (i,n) where i is a type variable index+--- which is unique inside a function and n is a name (if possible,+--- the name written in the source program).+type CTVarIName = (Int,String)++--- Data type for representing definitions of algebraic data types+--- and type synonyms.+---+--- A data type definition of the form+---+--- <code>data t x1...xn = ...| c t1....tkc |...</code>+---+--- is represented by the Curry term+---+--- <code>(CType t v [i1,...,in] [...(CCons c kc v [t1,...,tkc])...])</code>+---+--- where each <code>ij</code> is the index of the type variable+--- <code> xj</code>.+---+--- Note: the type variable indices are unique inside each type declaration+---       and are usually numbered from 0+---+--- Thus, a data type declaration consists of the name of the data type,+--- a list of type parameters and a list of constructor declarations.+---++data CTypeDecl = CType    QName CVisibility [CTVarIName] [CConsDecl]+               | CTypeSyn QName CVisibility [CTVarIName] CTypeExpr+++--- A constructor declaration consists of the name and arity of the+--- constructor and a list of the argument types of the constructor.++data CConsDecl = CCons QName Int CVisibility [CTypeExpr]+++--- Data type for type expressions.+--- A type expression is either a type variable, a function type,+--- or a type constructor application.+---+--- Note: the names of the predefined type constructors are+---       "Int", "Float", "Bool", "Char", "IO", "Success",+---       "()" (unit type), "(,...,)" (tuple types), "[]" (list type)++data CTypeExpr =+    CTVar CTVarIName               -- type variable+  | CFuncType CTypeExpr CTypeExpr  -- function type t1->t2+  | CTCons QName [CTypeExpr]       -- type constructor application+                                   -- (CTCons (module,name) arguments)+++--- Data type for operator declarations.+--- An operator declaration "fix p n" in Curry corresponds to the+--- AbstractCurry term (COp n fix p).++data COpDecl = COp QName CFixity Int++data CFixity = CInfixOp   -- non-associative infix operator+             | CInfixlOp  -- left-associative infix operator+             | CInfixrOp  -- right-associative infix operator+++--- Data types for representing object variables.+--- Object variables occurring in expressions are represented by (Var i)+--- where i is a variable index.++type CVarIName = (Int,String)+++--- Data type for representing function declarations.+--- +--- A function declaration in AbstractCurry is a term of the form+---+--- <code>(CFunc name arity visibility type (CRules eval [CRule rule1,...,rulek]))</code>+---+--- and represents the function <code>name</code> defined by the rules+--- <code>rule1,...,rulek</code>.+---+--- Note: the variable indices are unique inside each rule+---+--- External functions are represented as+--- <code>(CFunc name arity type (CExternal s))</code>+--- where s is the external name associated to this function.+---+--- Thus, a function declaration consists of the name, arity, type, and+--- a list of rules.+---+--- A function declaration with the constructor <code>CmtFunc</code>+--- is similarly to <code>CFunc</code> but has a comment+--- as an additional first argument. This comment could be used+--- by pretty printers that generate a readable Curry program+--- containing documentation comments.++data CFuncDecl = CFunc QName Int CVisibility CTypeExpr CRules+               | CmtFunc String QName Int CVisibility CTypeExpr CRules+++--- A rule is either a list of formal parameters together with an expression+--- (i.e., a rule in flat form), a list of general program rules with+--- an evaluation annotation, or it is externally defined++data CRules = CRules CEvalAnnot [CRule]+            | CExternal String++--- Data type for classifying evaluation annotations for functions.+--- They can be either flexible (default), rigid, or choice.++data CEvalAnnot = CFlex | CRigid | CChoice++--- The most general form of a rule. It consists of a list of patterns+--- (left-hand side), a list of guards ("success" if not present in the+--- source text) with their corresponding right-hand sides, and+--- a list of local declarations.+data CRule = CRule [CPattern] [(CExpr,CExpr)] [CLocalDecl]++--- Data type for representing local (let/where) declarations+data CLocalDecl =+     CLocalFunc CFuncDecl                   -- local function declaration+   | CLocalPat  CPattern CExpr [CLocalDecl] -- local pattern declaration+   | CLocalVar  CVarIName                   -- local free variable declaration++--- Data type for representing Curry expressions.++data CExpr =+   CVar      CVarIName              -- variable (unique index / name)+ | CLit      CLiteral               -- literal (Integer/Float/Char constant)+ | CSymbol   QName                  -- a defined symbol with module and name+ | CApply    CExpr CExpr            -- application (e1 e2)+ | CLambda   [CPattern] CExpr       -- lambda abstraction+ | CLetDecl  [CLocalDecl] CExpr     -- local let declarations+ | CDoExpr   [CStatement]           -- do expression+ | CListComp CExpr [CStatement]     -- list comprehension+ | CCase     CExpr [CBranchExpr]    -- case expression++--- Data type for representing statements in do expressions and+--- list comprehensions.++data CStatement = CSExpr CExpr         -- an expression (I/O action or boolean)+                | CSPat CPattern CExpr -- a pattern definition+                | CSLet [CLocalDecl]   -- a local let declaration++--- Data type for representing pattern expressions.++data CPattern =+   CPVar CVarIName               -- pattern variable (unique index / name)+ | CPLit CLiteral                -- literal (Integer/Float/Char constant)+ | CPComb QName [CPattern]       -- application (m.c e1 ... en) of n-ary+                                 -- constructor m.c (CPComb (m,c) [e1,...,en])+ | CPAs       CVarIName CPattern -- as-pattern (extended Curry)+ | CPFuncComb QName [CPattern]   -- function pattern (extended Curry)++--- Data type for representing branches in case expressions.++data CBranchExpr = CBranch CPattern CExpr++--- Data type for representing literals occurring in an expression.+--- It is either an integer, a float, or a character constant.++data CLiteral = CIntc   Int+              | CFloatc Float+              | CCharc  Char++------------------------------------------------------------------------------+--- I/O action which parses a Curry program and returns the corresponding+--- typed Abstract Curry program.+--- Thus, the argument is the file name without suffix ".curry"+--- or ".lcurry") and the result is a Curry term representing this+--- program.++readCurry :: String -> IO CurryProg+readCurry prog = readCurryWithParseOptions prog (setQuiet True defaultParams)++--- I/O action which parses a Curry program and returns the corresponding+--- untyped Abstract Curry program.+--- Thus, the argument is the file name without suffix ".curry"+--- or ".lcurry") and the result is a Curry term representing this+--- program.++readUntypedCurry :: String -> IO CurryProg+readUntypedCurry prog =+  readUntypedCurryWithParseOptions prog (setQuiet True defaultParams)++--- I/O action which reads a typed Curry program from a file (with extension+--- ".acy") with respect to some parser options.+--- This I/O action is used by the standard action <CODE>readCurry</CODE>.+--- It is currently predefined only in Curry2Prolog.+--- @param progfile - the program file name (without suffix ".curry")+--- @param options - parameters passed to the front end++readCurryWithParseOptions :: String -> FrontendParams -> IO CurryProg+readCurryWithParseOptions progname options = do+  existsCurry <- doesFileExist (progname++".curry")+  existsLCurry <- doesFileExist (progname++".lcurry")+  if existsCurry || existsLCurry+   then callFrontendWithParams ACY options progname+   else done+  filename <- findFileInLoadPath (progname++".acy")+  readAbstractCurryFile filename++--- I/O action which reads an untyped Curry program from a file (with extension+--- ".uacy") with respect to some parser options. For more details+--- see function 'readCurryWithParseOptions'+readUntypedCurryWithParseOptions :: String -> FrontendParams -> IO CurryProg+readUntypedCurryWithParseOptions progname options = do+  existsCurry <- doesFileExist (progname++".curry")+  existsLCurry <- doesFileExist (progname++".lcurry")+  if existsCurry || existsLCurry+   then callFrontendWithParams UACY options progname+   else done+  filename <- findFileInLoadPath (progname++".uacy")+  readAbstractCurryFile filename++--- Transforms a name of a Curry program (with or without suffix ".curry"+--- or ".lcurry") into the name of the file containing the+--- corresponding AbstractCurry program.+abstractCurryFileName :: String -> String+abstractCurryFileName prog = inCurrySubdir (stripSuffix prog ++ ".acy")++--- Transforms a name of a Curry program (with or without suffix ".curry"+--- or ".lcurry") into the name of the file containing the+--- corresponding untyped AbstractCurry program.+untypedAbstractCurryFileName :: String -> String+untypedAbstractCurryFileName prog = inCurrySubdir (stripSuffix prog ++ ".uacy")++--- I/O action which reads an AbstractCurry program from a file in ".acy"+--- format. In contrast to <CODE>readCurry</CODE>, this action does not parse+--- a source program. Thus, the argument must be the name of an existing+--- file (with suffix ".acy") containing an AbstractCurry program in ".acy"+--- format and the result is a Curry term representing this program.+--- It is currently predefined only in Curry2Prolog.++readAbstractCurryFile :: String -> IO CurryProg+readAbstractCurryFile filename = do+  exacy <- doesFileExist filename+  if exacy+   then readExistingACY filename+   else do let subdirfilename = inCurrySubdir filename+           exdiracy <- doesFileExist subdirfilename+           if exdiracy+            then readExistingACY subdirfilename+            else error ("EXISTENCE ERROR: AbstractCurry file '"++filename+++                        "' does not exist")+ where+   readExistingACY fname = do+     filecontents <- readFile fname+     return (readUnqualifiedTerm ["AbstractCurry","Prelude"] filecontents)+++--- Writes an AbstractCurry program into a file in ".acy" format.+--- The first argument must be the name of the target file+--- (with suffix ".acy").+writeAbstractCurryFile :: String -> CurryProg -> IO ()+writeAbstractCurryFile file prog = writeFile file (showTerm prog)++------------------------------------------------------------------------------
+ src/lib/Curry/Module/AbstractCurryPrinter.curry view
@@ -0,0 +1,601 @@+------------------------------------------------------------------------------+--- A pretty printer for AbstractCurry programs.+---+--- This library defines a function "showProg" that shows+--- an AbstractCurry program in standard Curry syntax.+---+--- @author Martin Engelke, Bernd Brassel, Michael Hanus, Marion Mueller,+---         Parissa Sadeghi+--- @version July 2008+------------------------------------------------------------------------------++module AbstractCurryPrinter(showProg,+                            showTypeDecls,+                            showTypeDecl,+                            showTypeExpr,+                            showFuncDecl,+                            showExpr, showPattern) where++import AbstractCurry+import List+import Read(readNat)+import Char(isDigit)+import FiniteMap+import Sort (cmpString)+import Maybe (isJust)++-------------------------------------------------------------------------------+-- Functions to print an AbstractCurry program in standard Curry syntax+-------------------------------------------------------------------------------++--- Shows an AbstractCurry program in standard Curry syntax.+--- The export list contains the public functions and the+--- types with their data constructors (if all data constructors are public),+--- otherwise only the type constructors.+--- The potential comments in function declarations are formatted as+--- documentation comments.+showProg :: CurryProg -> String+showProg (CurryProg m imports typedecls funcdecls opdecls) =+  let exports = showExports typedecls funcdecls in+  "module "++m +  ++ (if exports=="" then "" else "("++exports++")")+  ++ " where\n\n"+  ++ showImports imports+  ++ showOpDecls opdecls+  ++ showTypeDecls typedecls+  ++ prefixInter (showFuncDeclOpt (nameFM funcdecls,m)) funcdecls "\n\n"+  ++ "\n"++type NameFM = FM String ()+type Options = (NameFM,String)+++defaultOptions :: Options+defaultOptions = (emptyFM lessString,"")+++showExports :: [CTypeDecl] -> [CFuncDecl] -> String+showExports types funcs = +  let publicTypes = filter isPublicType types+      (withCons, withoutCons) = partition allPublicCons publicTypes+  in+  concat +    (intersperse ", " +      (map ((++"(..)") . getTypeName) withCons+       ++ map getTypeName withoutCons+       ++ map getFuncName (filter isPublicFunc funcs)))+  where+    isPublicType :: CTypeDecl -> Bool+    isPublicType (CType _ visibility _ _) = visibility==Public +    isPublicType (CTypeSyn _ visibility _ _) = visibility==Public ++    isPublicFunc :: CFuncDecl -> Bool+    isPublicFunc (CFunc _ _ visibility _ _) = visibility==Public +    isPublicFunc (CmtFunc _ _ _ visibility _ _) = visibility==Public ++    getTypeName :: CTypeDecl -> String+    getTypeName (CType (_,name) _ _ _) = name+    getTypeName (CTypeSyn (_,name) _ _ _) = name++    allPublicCons :: CTypeDecl -> Bool+    allPublicCons (CType _ _ _ c) = length (filter isPublicCons c) == length c +      where +        isPublicCons :: CConsDecl -> Bool+        isPublicCons (CCons _ _ visibility _) = visibility==Public++    getFuncName :: CFuncDecl -> String+    getFuncName (CFunc (_,name) _ _ _ _) = name +    getFuncName (CmtFunc _ (_,name) _ _ _ _) = name +++showImports :: [String] -> String+showImports imports =+  prefixInter showImport (filter (/="Prelude") imports) "\n" +++  (if imports==["Prelude"] then "" else "\n\n")++showImport :: String -> String+showImport imp = if imp /= "Prelude" then "import " ++ imp else ""++showOpDecls :: [COpDecl] -> String+showOpDecls opdecls =+  prefixInter showOpDecl opdecls "\n" +++  (if opdecls == [] then "" else "\n\n")++showOpDecl :: COpDecl -> String+showOpDecl (COp (_,name) fixity precedence) =+  showFixity fixity ++ " " ++ show precedence ++ " " +++  if isInfixOpName name then name else '`':name++"`"++showFixity :: CFixity -> String+showFixity CInfixOp  = "infix"+showFixity CInfixlOp = "infixl"+showFixity CInfixrOp = "infixr"++--- Shows a list of AbstractCurry type declarations in standard Curry syntax.+showTypeDecls :: [CTypeDecl] -> String+showTypeDecls typedecls =+  prefixInter showTypeDecl typedecls "\n\n" +++  (if typedecls == [] then "" else "\n\n")++--- Shows an AbstractCurry type declaration in standard Curry syntax.+showTypeDecl :: CTypeDecl -> String+showTypeDecl (CTypeSyn (_,name) _ indexlist typeexpr)+   = "type " ++ name+             ++ (prefixMap (showTypeExpr False) (map CTVar indexlist) " ")+     ++ " = " ++ showTypeExpr False typeexpr+showTypeDecl (CType (_,name) _ indexlist consdecls)+   = "data " ++ name+             ++ (prefixMap (showTypeExpr False) (map CTVar indexlist) " ")+     ++ "\n"++showBlock ("= "++(combineMap showConsDecl consdecls "\n| "))++showConsDecl :: CConsDecl -> String+showConsDecl (CCons (_,name) _ _ typelist)+   = name ++ (prefixMap (showTypeExpr True) typelist " ")++--- Shows an AbstractCurry type expression in standard Curry syntax.+--- If the first argument is True, the type expression is enclosed+--- in brackets.+showTypeExpr :: Bool -> CTypeExpr -> String+showTypeExpr _ (CTVar (_,name)) = showTypeVar (showIdentifier name)+showTypeExpr nested (CFuncType domain range) =+   maybeShowBrackets nested (showTypeExpr (isCFuncType domain) domain +++                             " -> " ++ showTypeExpr False range)+       +showTypeExpr nested (CTCons (mod,name) typelist)+   | mod=="Prelude" && name == "untyped" = "-"+   | otherwise  = maybeShowBrackets (nested && not (null typelist))+                                    (showTypeCons mod name typelist)++-- Show a1,a2,a3 as a_1,a_2,a_3 (due to bug in PAKCS front-end):+showTypeVar (c:cs) =+  if c=='a' && not (null cs) && all isDigit cs+  then c:'_':cs+  else c:cs++-- Remove characters '<' and '>' from identifiers sind these characters+-- are sometimes introduced in new identifiers generated by the front end (for sections)+showIdentifier :: String -> String+showIdentifier = filter (not . flip elem "<>")++isCFuncType t = case t of+                  CFuncType _ _ -> True+                  _ -> False++--- Shows an AbstractCurry function declaration in standard Curry syntax.+showFuncDecl = showFuncDeclOpt defaultOptions++showFuncDeclOpt :: Options -> CFuncDecl -> String+showFuncDeclOpt opts (CmtFunc cmt qname ar vis typeexpr rules) =+  showCmtFunc opts cmt (CFunc qname ar vis typeexpr rules)+showFuncDeclOpt opts cfunc@(CFunc _ _ _ _ _) = showCmtFunc opts "" cfunc++showCmtFunc :: Options -> String -> CFuncDecl -> String+showCmtFunc opts cmt (CFunc (_,name) _ _ typeexpr (CRules evalannot rules)) =+  funcComment cmt +++  (if evalannot == CFlex then ""+      else bolName ++ " eval " ++ (showEvalAnnot evalannot)++"\n") +++  (if isUntyped typeexpr then "\n" +      else bolName ++ " :: " ++ (showTypeExpr False typeexpr)++"\n") +++  (if funcIsInfixOp then  rulePrints+      else name ++ (prefixInter (showRule opts) rules ("\n"++name)))+ where+  funcIsInfixOp = isInfixOpName name+  bolName = if funcIsInfixOp then "("++name++")" else name+  rulePrints = concat $ intersperse "\n" +                 $ map (insertName . (span (/=' ')) . tail . (showRule opts))+                       rules+  insertName (fstArg,rest) = fstArg++" "++name++rest++showCmtFunc _ cmt (CFunc (_,name) _ _ typeexpr (CExternal _)) =+  funcComment cmt +++  bolName ++ " :: " ++ (showTypeExpr False typeexpr) ++"\n"+++  bolName ++ " external"+ where+  bolName = if isInfixOpName name then "("++name++")" else name++-- format function comment as documentation comment+funcComment :: String -> String+funcComment = unlines . map ("--- "++) . lines++showLocalFuncDecl :: Options -> CFuncDecl -> String+showLocalFuncDecl opts = showFuncDeclOpt opts++showRule :: Options -> CRule -> String+showRule opts (CRule pattlist crhslist localdecls) =+  prefixMap showPattern pattlist " " +++  showCrhsList opts crhslist +++  (if null localdecls+   then ""+   else  "\n   where\n" +++           showBlock (prefixMap (showLocalDecl opts) localdecls "\n")+  )++showEvalAnnot :: CEvalAnnot -> String+showEvalAnnot CFlex = "flex"+showEvalAnnot CRigid = "rigid"+showEvalAnnot CChoice = "choice"++showCrhsList :: Options -> [(CExpr,CExpr)] -> String+showCrhsList _ [] = ""+showCrhsList opts ((g,r):cs)+   | cs == [] && g == CSymbol ("Prelude","success") +   =  " = " ++ showExprOpt opts r+   | otherwise +   = "\n" ++ showBlock (combineMap (showCrhs opts) ((g,r):cs) "\n")++showCrhs :: Options -> (CExpr,CExpr) -> String+showCrhs opts (cond,expr) =+  "| " ++ showExprOpt opts cond ++ "\n= " ++ showExprOpt opts expr++showLocalDecl :: Options -> CLocalDecl -> String+showLocalDecl opts (CLocalFunc funcdecl) = showLocalFuncDecl opts funcdecl+showLocalDecl opts (CLocalPat pattern expr localdecls) =+  showPattern pattern ++ " = " ++ showExprOpt opts expr +++  (if null localdecls+   then ""+   else "\n   where\n" +++        showBlock (prefixMap (showLocalDecl opts) localdecls "\n")+  )+showLocalDecl _ (CLocalVar index) = showPattern (CPVar index) ++ " free"++--- Shows an AbstractCurry expression in standard Curry syntax.+showExpr = showExprOpt defaultOptions++showExprOpt :: Options -> CExpr -> String+showExprOpt _ (CVar (_,name)) = showIdentifier name+showExprOpt _ (CLit lit) = showLiteral lit+showExprOpt opts (CSymbol name) +  = if isInfixOpName (snd name) then "("++showSymbol opts name++")" +                                else showSymbol opts name+showExprOpt opts (CApply func arg) = showApplication opts (CApply func arg)+showExprOpt opts (CLambda patts expr) = showLambdaOrSection opts patts expr+showExprOpt opts (CLetDecl localdecls expr)+   = "let\n" ++ showBlock ((combineMap (showLocalDecl opts) localdecls "\n") +     ++ "\n in " ++ (showBoxedExpr opts expr))+showExprOpt opts (CDoExpr stmts)+   = "\n    do\n" ++ showBlock (combineMap (showStatement opts) stmts "\n")+showExprOpt opts (CListComp expr stmts)+   =    "[ " ++ (showBoxedExpr opts expr) ++ " | "+     ++ (combineMap (showStatement opts) stmts ", ") ++ "]"+showExprOpt opts (CCase expr branches)+   =    "case " ++ (showBoxedExpr opts expr) ++ " of\n"+     ++ showBlock (combineMap (showBranchExpr opts) branches "\n")+++showSymbol :: Options -> QName -> String+showSymbol (fm,thisModule) (thatModule,symName)+  | thisModule == thatModule = symName+  | isJust (lookupFM fm symName) = thatModule++"."++symName+  | otherwise = symName++-- show a lambda expression as a left/right section, if +-- it is a literal, var other than the pattern var or non-infix symbol.+-- A better test for sections would need the test for sub expressions+-- which is too complex for this simple purpose.+showLambdaOrSection opts patts expr = case patts of+  [CPVar pvar] -> case expr of+     (CApply (CApply (CSymbol (_,name)) lexpr) (CVar var))+      -> if isInfixOpName name && isAtom lexpr && (CVar var/=lexpr)+         then if pvar==var+              then "(" ++ showBoxedExpr opts lexpr ++ " " ++ name ++ ")"+              else if lexpr == (CVar pvar)+                   then "(" ++ name ++ " " ++ showExprOpt opts (CVar var) ++ ")"+                   else showLambda opts patts expr+         else showLambda opts patts expr+     (CApply (CApply (CSymbol (_,name)) (CVar var)) rexpr)+      -> if isInfixOpName name && pvar==var && isAtom rexpr && (CVar var/=rexpr)+         then "(" ++ name ++ " " ++ showBoxedExpr opts rexpr ++ ")"+         else showLambda opts patts expr+     _ -> showLambda opts patts expr +  _ -> showLambda opts patts expr++showLambda opts patts expr = "\\" ++ (combineMap showPattern patts " ")+                        ++ " -> " ++ (showExprOpt opts expr)+++showStatement :: Options -> CStatement -> String+showStatement opts (CSExpr expr) = showExprOpt opts expr+showStatement opts (CSPat pattern expr)+   = (showPattern pattern) ++ " <- " ++ (showExprOpt opts expr)+showStatement opts (CSLet localdecls)+   = case localdecls of+       (decl:[]) -> "let " ++ showLocalDecl opts decl+       _         -> "let\n" ++ showBlock (combineMap (showLocalDecl opts) localdecls "\n")++showPattern :: CPattern -> String+showPattern (CPVar (_,name)) = showIdentifier name+showPattern (CPLit lit) = showLiteral lit+showPattern (CPComb (_,name) []) = name +showPattern (CPComb (mod,name) (p:ps))+   | mod == "Prelude" = showPreludeCons (CPComb (mod,name) (p:ps))+   | otherwise        = "(" ++ name ++ (prefixMap showPattern (p:ps) " ") ++ ")"+showPattern (CPAs (_,name) pat) = showIdentifier name ++ "@" ++ showPattern pat+showPattern (CPFuncComb qname pats) = showPattern (CPComb qname pats)+   ++showPreludeCons :: CPattern -> String+showPreludeCons p+   | name == ":"  = showPatternList p+   | isTuple name = "(" ++ (combineMap showPattern pattlist ",") ++ ")"+   | otherwise    = "(" ++ name ++ (prefixMap showPattern pattlist " ") ++ ")"+   where+     CPComb (_,name) pattlist = p++showPatternList :: CPattern -> String+showPatternList p+  | isClosedStringPattern p +  = '\"':filter (/='\'') (concat (showPatListElems p))++"\""+  | isClosedPatternList p+  = "["++concat (intersperse "," (showPatListElems p))++"]"+  | isAsPattern p+  = showAsPatternList p+  | otherwise = "(" ++ concat (intersperse ":" (showPatListElems p))++")"++showPatListElems (CPComb ("Prelude",":") [x,xs]) +  = showPattern x : showPatListElems xs+showPatListElems (CPComb ("Prelude","[]") []) = []+showPatListElems (CPVar v) = [showPattern (CPVar v)]+showPatListElems (CPAs name p) = [showPattern (CPAs name p)]++isClosedPatternList (CPComb ("Prelude",":") [_,xs]) = isClosedPatternList xs+isClosedPatternList (CPComb ("Prelude","[]") []) = True+isClosedPatternList (CPVar _) = False+isClosedPatternList (CPAs _ p) = isClosedPatternList p++isClosedStringPattern (CPComb ("Prelude",":") [x,xs]) +  = isCharPattern x && isClosedStringPattern xs+isClosedStringPattern (CPComb ("Prelude","[]") []) = True+isClosedStringPattern (CPVar _) = False++isCharPattern p = case p of +                    CPLit (CCharc _) -> True+                    _                -> False++isAsPattern p = case p of+                  CPAs _ _ -> True+                  _        -> False++showAsPatternList (CPAs (_,name) p) = +     name++"@"++"(" ++ concat (intersperse ":" (showPatListElems p))++")"+++showBranchExpr :: Options -> CBranchExpr -> String+showBranchExpr opts (CBranch pattern expr)+   = (showPattern pattern) ++ " -> " ++ (showExprOpt opts expr)++showLiteral :: CLiteral -> String+showLiteral (CIntc i) = show i+showLiteral (CFloatc f) = show f+showLiteral (CCharc c) = "'"++showCCharc (CCharc c)++"'"++showCCharc :: CLiteral -> String+showCCharc (CCharc c) | c=='\n' = "\\n"+                      | c=='\r' = "\\r"+                      | c=='\\' = "\\\\"+                      | c=='\"' = "\\\""+                      | otherwise = [c]++showBlock :: String -> String+showBlock text+   = combineMap id (map ((++) "     ") (filter ((/=) "") (lines text))) "\n"+++showTypeCons :: String -> String -> [CTypeExpr] -> String+showTypeCons _ name [] = name+showTypeCons mod name (t:ts)+   | mod == "Prelude" = showPreludeTypeCons name (t:ts)+   | otherwise        = name ++ (prefixMap (showTypeExpr True) (t:ts) " ")++showPreludeTypeCons :: String -> [CTypeExpr] -> String+showPreludeTypeCons name typelist+  | name == "[]" && head typelist == CTCons ("Prelude","Char") [] = "String"+  | name == "[]" = "[" ++ (showTypeExpr False (head typelist)) ++ "]"+  | isTuple name = "(" ++ (combineMap (showTypeExpr False) typelist ",") ++ ")"+  | otherwise    = name ++ (prefixMap (showTypeExpr True) typelist " ")++++showApplication :: Options -> CExpr -> String+showApplication opts appl+   = case (applicationHead appl) of+       (CSymbol name) -> showSymbolApplication opts name appl+       _              -> showSimpleApplication opts appl++applicationHead :: CExpr -> CExpr+applicationHead expr+   = case expr of+       (CApply func _) -> applicationHead func+       _               -> expr++showSymbolApplication :: Options -> (String,String) -> CExpr -> String+showSymbolApplication opts (mod,name) appl+   | mod == "Prelude" && name == ":" +   = showListApplication opts appl+   -- this is not correctly implemented, e.g. for "(f . g) x"+   -- | isInfixOpName name +   -- = showInfixApplication opts (mod,name) appl+   | mod == "Prelude" && name == "if_then_else" +   = showITEApplication opts appl+   | isTuple name+   = showTupleApplication opts appl+   | otherwise        +   = showSimpleApplication opts appl++showListApplication :: Options -> CExpr -> String+showListApplication opts appl+   | isStringList appl+     = "\"" ++ (showCharListApplication opts appl) ++ "\""+   | isClosedList appl+     = "[" ++ (showConsListApplication opts appl) ++ "]"+   | otherwise+     = "(" ++ (showSimpleListApplication opts appl) ++ ")"++showCharListApplication :: Options -> CExpr -> String+showCharListApplication opts (CApply (CApply _ (CLit c)) tail)+   = case tail of+       (CSymbol _) -> showCCharc c+       _           -> showCCharc c ++ showCharListApplication opts tail++showConsListApplication :: Options -> CExpr -> String+showConsListApplication opts (CApply (CApply _ head) tail)+   = case tail of+       (CSymbol _) -> showBoxedExpr opts head+       _             -> (showBoxedExpr opts head) ++ "," +                        ++ (showConsListApplication opts tail)++showSimpleListApplication :: Options -> CExpr -> String+showSimpleListApplication opts (CApply (CApply _ head) tail)+   = case tail of+       (CSymbol _) -> showBoxedExpr opts head ++ ":[]"+       _           -> showBoxedExpr opts head ++ ":" ++ showBoxedExpr opts tail+showSimpleListApplication opts (CApply (CSymbol (_,str)) tail)+   = showBoxedExpr opts tail ++ str++showInfixApplication :: Options -> QName -> CExpr -> String+showInfixApplication opts infixop (CApply func arg2) +   = case func of +       (CApply _ arg1) -> showBoxedExpr opts arg1 ++ " "+                          ++ showSymbol opts infixop+                          ++ " " ++ showBoxedExpr opts arg2+       _ -> "(" ++ showSymbol opts infixop ++ ") " ++ (showBoxedExpr opts arg2)++showITEApplication :: Options -> CExpr -> String+showITEApplication opts (CApply (CApply (CApply (CSymbol _) condExpr) thenExpr) elseExpr)+   =    "if " ++ (showExprOpt opts condExpr) ++ " then "+     ++ (showExprOpt opts thenExpr) ++ " else "+     ++ (showExprOpt opts elseExpr) +showITEApplication opts (CApply e@(CApply (CApply (CApply _ _) _) _) e')+   = "("++showITEApplication opts e ++ ") "++showBoxedExpr opts e'++showTupleApplication :: Options -> CExpr -> String+showTupleApplication opts appl+   = "(" ++ (p_showTuple appl) ++ ")"+   where+   p_showTuple (CApply (CSymbol _) arg)+      = showExprOpt opts arg+   p_showTuple (CApply (CApply e1 e2) arg)+      = (p_showTuple (CApply e1 e2)) ++ "," ++ (showExprOpt opts arg)++showSimpleApplication :: Options -> CExpr -> String+showSimpleApplication opts appl =+  case appl of+     CApply func arg -> showSimpleApplication opts func ++ " "+                        ++ showBoxedExpr opts arg+     _               -> showBoxedExpr opts appl++showBoxedExpr :: Options -> CExpr -> String+showBoxedExpr opts expr+   | isSimpleExpr expr = showExprOpt opts expr+   | otherwise         = "(" ++ showExprOpt opts expr ++ ")"++-------------------------------------------------------------------------------+--- composition functions for AbstractCurryPrinter+-------------------------------------------------------------------------------++prefixMap :: (a -> String) -> [a] ->  String -> String+prefixMap f xs s+   = concatMap ((++)s) (map f xs)++prefixInter :: (a -> String) -> [a] ->  String -> String+prefixInter f xs s+   = concat $ intersperse s (map f xs)++combineMap :: (a -> String) -> [a] ->  String -> String+combineMap _ [] _ = ""+combineMap f (x:xs) s+   = (f x) ++ (prefixMap f xs s)+++dropTags :: String -> String+dropTags (x:xs) = case x of+                    '\"' -> dropTags $ tail $ dropWhile (/='\"') xs+                    '>'  -> xs+                    _    -> dropTags xs+++-------------------------------------------------------------------------------+--- tests for various properties of AbstractCurry constructs+-------------------------------------------------------------------------------++isInfixOpName :: String -> Bool+isInfixOpName = all (`elem` infixIDs)++isStringList :: CExpr -> Bool+isStringList (CSymbol (mod,name))+   = mod == "Prelude" && name == "[]"+isStringList (CVar _) = False+isStringList (CApply head tail)+   = case head of +       (CApply _ (CLit (CCharc _))) -> isStringList tail+       _                            -> False++isClosedList :: CExpr -> Bool+isClosedList expr+   = case expr of+       (CApply (CApply (CSymbol (mod,name)) _) tail)+          -> mod=="Prelude" && name==":" && isClosedList tail+       (CSymbol (mod,name))+          -> mod == "Prelude" && name == "[]"+       _  -> False++isSimpleExpr :: CExpr -> Bool+isSimpleExpr expr+   = case expr of+       (CVar _)      -> True+       (CLit _)      -> True+       (CSymbol (_, name)) -> not $ isInfixOpName name+       (CApply f _)  -> case (applicationHead f) of+                          (CSymbol ("Prelude",name)) ->    name == ":"+                                                      || name == "[]"+                                                      || name == "()"+                                                      || isTuple name+                          _                        -> False+       _             -> False+++isAtom :: CExpr -> Bool+isAtom expr+   = case expr of+       (CVar _)      -> True+       (CLit _)      -> True+       (CSymbol (_, name)) -> not $ isInfixOpName name+       _ -> False++isUntyped :: CTypeExpr -> Bool+isUntyped typeexpr+   = case typeexpr of+       (CTCons (mod,name) []) -> mod == "Prelude" && name == "untyped"+       _                    -> False++isTuple :: String -> Bool+isTuple [] = False+isTuple (x:xs) = (x == '(') && (p1_isTuple xs)+   where+   p1_isTuple [] = False+   p1_isTuple (z:[]) = z == ')'+   p1_isTuple (z1:z2:zs) = (z1 == ',') && (p1_isTuple (z2:zs))++------------------------------------------------------------------------------+--- constants used by AbstractCurryPrinter+------------------------------------------------------------------------------++infixIDs :: String+infixIDs =  "~!@#$%^&*+-=<>?./|\\:"+++-- enclose string with brackets, if required by first argument:+maybeShowBrackets nested s =+   (if nested then "(" else "") ++ s ++ (if nested then ")" else "")++------------------------------------------------+-- building the map of defined function names+------------------------------------------------++nameFM :: [CFuncDecl] -> NameFM+nameFM = foldr addName (emptyFM lessString) ++addName :: CFuncDecl -> NameFM -> NameFM+addName (CFunc (_,n) _ _ _ _) fm = addToFM fm n () +addName (CmtFunc _ (_,n) _ _ _ _) fm = addToFM fm n () ++lessString s1 s2 = LT==cmpString s1 s2
+ src/lib/Curry/Module/CompactFlatCurry.curry view
@@ -0,0 +1,548 @@+------------------------------------------------------------------------------+--- This module contains functions to reduce the size of FlatCurry programs+--- by combining the main module and all imports into a single program+--- that contains only the functions directly or indirectly called from+--- a set of main functions.+---+--- @author Michael Hanus, Carsten Heine+--- @version June 2009+------------------------------------------------------------------------------++module CompactFlatCurry(generateCompactFlatCurryFile,computeCompactFlatCurry,+                        Option(..),RequiredSpec,requires,alwaysRequired,+                        defaultRequired) where++import FlatCurry+import SetRBT+import TableRBT+import Maybe+import List(nub,union)+import FileGoodies+import Directory+import Sort(cmpString,leqString)+import XML+import Distribution(getLoadPathForFile)+import Time(clockTimeToInt)++infix 0 `requires`++------------------------------------------------------------------------------+--- Options to guide the compactification process.+--- @cons Verbose  - for more output+--- @cons Main     - optimize for one main (unqualified!) function supplied here+--- @cons Exports  - optimize w.r.t. the exported functions of the module only+--- @cons InitFuncs - optimize w.r.t. given list of initially required functions+--- @cons Required - list of functions that are implicitly required and, thus,+---                  should not be deleted if the corresponding module+---                  is imported+--- @cons Import   - module that should always be imported+---                  (useful in combination with option InitFuncs)+data Option =+    Verbose+  | Main String+  | Exports+  | InitFuncs [QName]+  | Required [RequiredSpec]+  | Import String++isMainOption o = case o of+                   Main _ -> True+                   _      -> False++getMainFuncFromOptions :: [Option] -> String+getMainFuncFromOptions (o:os) =+   case o of+     Main f -> f+     _      -> getMainFuncFromOptions os++getRequiredFromOptions :: [Option] -> [RequiredSpec]+getRequiredFromOptions options = concat [ fs | Required fs <- options ]++-- add Import for modules containing always required functions:+addImport2Options :: [Option] -> [Option]+addImport2Options options =+  options +++  map Import (nub (concatMap alwaysReqMod (getRequiredFromOptions options)))+ where+  alwaysReqMod (AlwaysReq (m,_))  = [m]+  alwaysReqMod (Requires _ _) = []++------------------------------------------------------------------------------+--- Data type to specify requirements of functions.+data RequiredSpec = AlwaysReq QName | Requires QName QName++--- (fun `requires` reqfun) specifies that the use of the function "fun"+--- implies the application of function "reqfun".+requires :: QName -> QName -> RequiredSpec+requires fun reqfun = Requires fun reqfun++--- (alwaysRequired fun) specifies that the function "fun" should be+--- always present if the corresponding module is loaded.+alwaysRequired :: QName -> RequiredSpec+alwaysRequired fun = AlwaysReq fun++--- Functions that are implicitly required in a FlatCurry program+--- (since they might be generated by external functions like+--- "==" or "=:=" on the fly).+defaultRequired :: [RequiredSpec]+defaultRequired =+  [alwaysRequired (prelude,"apply"),+   alwaysRequired (prelude,"letrec"),+   alwaysRequired (prelude,"cond"),+   alwaysRequired (prelude,"failure"),+   (prelude,"==")    `requires` (prelude,"&&"),+   (prelude,"=:=")   `requires` (prelude,"&"),+   (prelude,"=:<=")  `requires` (prelude,"ifVar"),+   (prelude,"=:<=")  `requires` (prelude,"=:="),+   (prelude,"=:<=")  `requires` (prelude,"&>"),+   (prelude,"=:<<=") `requires` (prelude,"&"),+   (prelude,"$#")    `requires` (prelude,"ensureNotFree"),+   (prelude,"readFile") `requires` (prelude,"prim_readFileContents"),+   ("Ports","prim_openPortOnSocket") `requires` ("Ports","basicServerLoop"),+   ("Ports","prim_timeoutOnStream")  `requires` ("Ports","basicServerLoop"),+   ("Ports","prim_choiceSPEP")       `requires` ("Ports","basicServerLoop"),+   ("Dynamic","getDynamicKnowledge") `requires` ("Dynamic","isKnownAtTime") ]++prelude = "Prelude"++--- Get functions that are required in a module w.r.t.+--- a requirement specification.+getRequiredInModule reqspecs mod = concatMap getImpReq reqspecs+ where+  getImpReq (AlwaysReq (mf,f)) = if mf==mod then [(mf,f)] else []+  getImpReq (Requires _ _) = []++--- Get functions that are implicitly required by a function w.r.t.+--- a requirement specification.+getImplicitlyRequired reqspecs fun = concatMap getImpReq reqspecs+ where+  getImpReq (AlwaysReq _) = []+  getImpReq (Requires f reqf) = if f==fun then [reqf] else []++--- The basic types that are always required in a FlatCurry program.+defaultRequiredTypes =+  [(prelude,"()"),(prelude,"Int"),(prelude,"Float"),(prelude,"Char"),+   (prelude,"Success"),(prelude,"IO")]+++-------------------------------------------------------------------------------+-- Main functions:+-------------------------------------------------------------------------------++--- Computes a single FlatCurry program containing all functions potentially+--- called from a set of main functions and writes it into a FlatCurry file.+--- This is done by merging all imported FlatCurry modules and removing+--- the imported functions that are definitely not used.+--- @param options  - list of options+--- @param progname - name of the Curry program that should be compacted+--- @param target   - name of the target file where the compact program is saved+generateCompactFlatCurryFile :: [Option] -> String -> String -> IO ()+generateCompactFlatCurryFile options progname target = do+  optprog <- computeCompactFlatCurry options progname+  writeFCY target optprog+  done++--- Computes a single FlatCurry program containing all functions potentially+--- called from a set of main functions.+--- This is done by merging all imported FlatCurry modules (these are loaded+--- demand-driven so that modules that contains no potentially called functions+--- are not loaded) and removing the imported functions that are definitely+--- not used.+--- @param options  - list of options+--- @param progname - name of the Curry program that should be compacted+--- @return the compact FlatCurry program+computeCompactFlatCurry :: [Option] -> String -> IO Prog+computeCompactFlatCurry orgoptions progname =+  let options = addImport2Options orgoptions in+  if (elem Exports options) && (any isMainOption options)+  then error+        "CompactFlat: Options 'Main' and 'Exports' can't be be used together!"+  else do+    putStr "CompactFlat: Searching relevant functions in module "+    prog <- readCurrentFlatCurry progname+    resultprog <- makeCompactFlatCurry prog options+    putStrLn ("CompactFlat: Number of functions after optimization: " +++              show (length (moduleFuns resultprog)))+    return resultprog++--- Create the optimized program.+makeCompactFlatCurry :: Prog -> [Option] -> IO Prog+makeCompactFlatCurry mainmod options = do+  (initfuncs,loadedmnames,loadedmods) <- requiredInCompactProg mainmod options+  let initFuncTable = extendFuncTable (emptyTableRBT leqQName)+                                      (concatMap moduleFuns loadedmods)+      required = getRequiredFromOptions options+      loadedreqfuns = concatMap (getRequiredInModule required)+                                (map moduleName loadedmods)+      initreqfuncs = initfuncs ++ loadedreqfuns+  (finalmods,finalfuncs,finalcons,finaltcons) <-+     getCalledFuncs required+                    loadedmnames loadedmods initFuncTable+                    (foldr insertRBT (emptySetRBT leqQName) initreqfuncs)+                    (emptySetRBT leqQName) (emptySetRBT leqQName)+                    initreqfuncs+  putStrLn ("\nCompactFlat: Total number of functions (without unused imports): "+            ++ show (foldr (+) 0 (map (length . moduleFuns) finalmods)))+  let finalfnames  = map functionName finalfuncs+  return (Prog (moduleName mainmod)+               []+               (let allTDecls = concatMap moduleTypes finalmods+                    reqTCons  = extendTConsWithConsType finalcons finaltcons+                                                        allTDecls+                    allReqTCons = requiredDatatypes reqTCons allTDecls+                 in filter (\tdecl->tconsName tdecl `elemRBT` allReqTCons)+                           allTDecls)+               finalfuncs+               (filter (\ (Op oname _ _) -> oname `elem` finalfnames)+                       (concatMap moduleOps finalmods)))++-- compute the transitive closure of a set of type constructors w.r.t.+-- to a given list of type declaration so that the set contains+-- all type constructor names occurring in the type declarations:+requiredDatatypes :: SetRBT QName -> [TypeDecl] -> SetRBT QName+requiredDatatypes tcnames tdecls =+  let newtcons = concatMap (newTypeConsOfTDecl tcnames) tdecls+   in if null newtcons+      then tcnames+      else requiredDatatypes (foldr insertRBT tcnames newtcons) tdecls++-- Extract the new type constructors (w.r.t. a given set) contained in a+-- type declaration:+newTypeConsOfTDecl :: SetRBT QName -> TypeDecl -> [QName]+newTypeConsOfTDecl tcnames (TypeSyn tcons _ _ texp) =+  if tcons `elemRBT` tcnames+  then filter (\tc -> not (tc `elemRBT` tcnames)) (allTypesOfTExpr texp)+  else []+newTypeConsOfTDecl tcnames (Type tcons _ _ cdecls) =+  if tcons `elemRBT` tcnames+  then filter (\tc -> not (tc `elemRBT` tcnames))+          (concatMap (\ (Cons _ _ _ texps) -> concatMap allTypesOfTExpr texps)+                    cdecls)+  else []++-- Extend set of type constructor with type constructors of data declarations+-- contain some constructor.+extendTConsWithConsType :: SetRBT QName -> SetRBT QName -> [TypeDecl]+                        -> SetRBT QName+extendTConsWithConsType _ tcons [] = tcons+extendTConsWithConsType cnames tcons (TypeSyn tname _ _ _ : tds) =+  extendTConsWithConsType cnames (insertRBT tname tcons) tds+extendTConsWithConsType cnames tcons (Type tname _ _ cdecls : tds) =+  if tname `elem` defaultRequiredTypes ||+     any (\cdecl->consName cdecl `elemRBT` cnames) cdecls+  then extendTConsWithConsType cnames (insertRBT tname tcons) tds+  else extendTConsWithConsType cnames tcons tds++-- Extend function table (mapping from qualified names to function declarations)+-- by some new function declarations:+extendFuncTable :: TableRBT QName FuncDecl -> [FuncDecl]+                -> TableRBT QName FuncDecl+extendFuncTable ftable fdecls =+  foldr (\f t -> updateRBT (functionName f) f t) ftable fdecls+++-------------------------------------------------------------------------------+-- Generate the Prog to start with:+-------------------------------------------------------------------------------++-- Compute the initially required functions in the compact program+-- together with the set of module names and contents that are initially loaded:+requiredInCompactProg :: Prog -> [Option] -> IO ([QName],SetRBT String,[Prog])+requiredInCompactProg mainmod options+ | not (null initfuncs)+  = do impprogs <- mapIO readCurrentFlatCurry imports+       return (concat initfuncs, add2mainmodset imports, mainmod:impprogs)+ | Exports `elem` options+  = do impprogs <- mapIO readCurrentFlatCurry imports+       return (nub mainexports, add2mainmodset imports, mainmod:impprogs)+ | any isMainOption options+  = let func = getMainFuncFromOptions options in+     if (mainmodname,func) `elem` (map functionName (moduleFuns mainmod))+     then do+       impprogs <- mapIO readCurrentFlatCurry imports+       return ([(mainmodname,func)], add2mainmodset imports, mainmod:impprogs)+     else error $ "CompactFlat: Cannot find main function \""++func++"\"!"+ | otherwise+  = do impprogs <- mapIO readCurrentFlatCurry+                         (nub (imports ++ moduleImports mainmod))+       return (nub (mainexports +++                    concatMap (exportedFuncNames . moduleFuns) impprogs),+               add2mainmodset (map moduleName impprogs),+               mainmod:impprogs)+ where+   imports = nub [ mname | Import mname <- options ]++   mainmodname = moduleName mainmod++   initfuncs = [ fs | InitFuncs fs <- options ]++   mainexports = exportedFuncNames (moduleFuns mainmod)++   mainmodset = insertRBT mainmodname (emptySetRBT leqString)++   add2mainmodset mnames = foldr insertRBT mainmodset mnames+++-- extract the names of all exported functions:+exportedFuncNames :: [FuncDecl] -> [QName]+exportedFuncNames funs =+   map (\(Func name _ _ _ _)->name)+       (filter (\(Func _ _ vis _ _)->vis==Public) funs)+++-------------------------------------------------------------------------------+--- Adds all required functions to the program and load modules, if necessary.+--- @param required - list of potentially required functions+--- @param loadedmnames - set of already considered module names+--- @param progs - list of already loaded modules+--- @param functable - mapping from (loaded) function names to their definitions+--- @param loadedfnames - set of already loaded function names+--- @param loadedcnames - set of already required data constructors+--- @param loadedtnames - set of already required data constructors+--- @param fnames - list of function names to be analyzed for dependencies+--- @return (list of loaded modules, list of required function declarations,+---          set of required data constructors, set of required type names)+getCalledFuncs :: [RequiredSpec] -> SetRBT String -> [Prog]+               -> TableRBT QName FuncDecl+               -> SetRBT QName -> SetRBT QName -> SetRBT QName+               -> [QName]+               -> IO ([Prog],[FuncDecl],SetRBT QName,SetRBT QName)+getCalledFuncs _ _ progs _ _ dcs ts [] = return (progs,[],dcs,ts)+getCalledFuncs required loadedmnames progs functable loadedfnames loadedcnames+               loadedtnames ((m,f):fs)+  | not (elemRBT m loadedmnames)+   = do newmod <- readCurrentFlatCurry m+        let reqnewfun = getRequiredInModule required m+        getCalledFuncs required (insertRBT m loadedmnames) (newmod:progs)+                       (extendFuncTable functable (moduleFuns newmod))+                       (foldr insertRBT loadedfnames reqnewfun) loadedcnames+                       loadedtnames ((m,f):fs ++ reqnewfun)+  | lookupRBT (m,f) functable == Nothing+   = -- this must be a data constructor: ingore it since already considered+     getCalledFuncs required loadedmnames progs+                    functable loadedfnames loadedcnames loadedtnames fs+  | otherwise = do+   let fdecl = fromJust (lookupRBT (m,f) functable)+       funcCalls = allFuncCalls fdecl+       newFuncCalls = filter (\qn->not (elemRBT qn loadedfnames)) funcCalls+       newReqs = concatMap (getImplicitlyRequired required) newFuncCalls+       consCalls = allConstructorsOfFunc fdecl+       newConsCalls = filter (\qn->not (elemRBT qn loadedcnames)) consCalls+       newtcons = allTypesOfFunc fdecl+   (newprogs,newfuns,newcons, newtypes) <-+       getCalledFuncs required loadedmnames progs functable+                      (foldr insertRBT loadedfnames (newFuncCalls++newReqs))+                      (foldr insertRBT loadedcnames consCalls)+                      (foldr insertRBT loadedtnames newtcons)+                      (fs ++ newFuncCalls ++ newReqs ++ newConsCalls)+   return (newprogs, fdecl:newfuns, newcons, newtypes)+++-------------------------------------------------------------------------------+-- Operations to get all function calls, types,... in a function declaration:+-------------------------------------------------------------------------------++--- Get all function calls in a function declaration and remove duplicates.+--- @param funcDecl - a function declaration in FlatCurry+--- @return a list of all function calls+allFuncCalls :: FuncDecl -> [QName]+allFuncCalls (Func _ _ _ _ (External _)) = []+allFuncCalls (Func _ _ _ _ (Rule _ expr)) = nub (allFuncCallsOfExpr expr)+++--- Get all function calls in an expression.+--- @param expr - an expression+--- @return a list of all function calls+allFuncCallsOfExpr :: Expr -> [QName]+allFuncCallsOfExpr (Var _) = []+allFuncCallsOfExpr (Lit _) = []+allFuncCallsOfExpr (Comb ctype fname exprs) = case ctype of+  FuncCall       -> fname:fnames+  FuncPartCall _ -> fname:fnames+  _ -> fnames+ where+  fnames = concatMap allFuncCallsOfExpr exprs+allFuncCallsOfExpr (Free _ expr) = +    allFuncCallsOfExpr expr+allFuncCallsOfExpr (Let bs expr) =+    concatMap (allFuncCallsOfExpr . snd) bs ++ allFuncCallsOfExpr expr+allFuncCallsOfExpr (Or expr1 expr2) = +    allFuncCallsOfExpr expr1 ++ allFuncCallsOfExpr expr2+allFuncCallsOfExpr (Case _ expr branchExprs) =+    allFuncCallsOfExpr expr +++    concatMap allFuncCallsOfBranchExpr branchExprs+++--- Get all function calls in a branch expression in case expressions.+--- @param branchExpr - a branch expression+--- @return a list of all function calls+allFuncCallsOfBranchExpr :: BranchExpr -> [QName]+allFuncCallsOfBranchExpr (Branch _ expr) = allFuncCallsOfExpr expr++++--- Get all data constructors in a function declaration.+allConstructorsOfFunc :: FuncDecl -> [QName]+allConstructorsOfFunc (Func _ _ _ _ (External _)) = []+allConstructorsOfFunc (Func _ _ _ _ (Rule _ expr)) = allConsOfExpr expr++--- Get all data constructors in an expression.+allConsOfExpr :: Expr -> [QName]+allConsOfExpr (Var _) = []+allConsOfExpr (Lit _) = []+allConsOfExpr (Comb ctype cname exprs) = case ctype of+  ConsCall       -> cname:cnames+  ConsPartCall _ -> cname:cnames+  _ -> cnames+ where+  cnames = unionMap allConsOfExpr exprs+allConsOfExpr (Free _ expr) = +   allConsOfExpr expr+allConsOfExpr (Let bs expr) =+   union (unionMap (allConsOfExpr . snd) bs) (allConsOfExpr expr)+allConsOfExpr (Or expr1 expr2) = +   union (allConsOfExpr expr1) (allConsOfExpr expr2)+allConsOfExpr (Case _ expr branchExprs) =+   union (allConsOfExpr expr) (unionMap consOfBranch branchExprs)+ where+  consOfBranch (Branch (LPattern _) e) = allConsOfExpr e+  consOfBranch (Branch (Pattern c _) e) = union [c] (allConsOfExpr e)+++--- Get all type constructors in a function declaration.+allTypesOfFunc :: FuncDecl -> [QName]+allTypesOfFunc (Func _ _ _ texp _) = allTypesOfTExpr texp++--- Get all data constructors in an expression.+allTypesOfTExpr :: TypeExpr -> [QName]+allTypesOfTExpr (TVar _) = []+allTypesOfTExpr (FuncType texp1 texp2) = +   union (allTypesOfTExpr texp1) (allTypesOfTExpr texp2)+allTypesOfTExpr (TCons tcons args) =+  union [tcons] (unionMap allTypesOfTExpr args)++unionMap f = foldr union [] . map f+++-------------------------------------------------------------------------------+-- Functions to get direct access to some data inside a datatype:+-------------------------------------------------------------------------------++--- Extracts the function name of a function declaration.+functionName :: FuncDecl -> QName+functionName (Func name _ _ _ _) = name++--- Extracts the constructor name of a constructor declaration.+consName :: ConsDecl -> QName+consName (Cons name _ _ _) = name++--- Extracts the type name of a type declaration.+tconsName :: TypeDecl -> QName+tconsName (Type name _ _ _) = name+tconsName (TypeSyn name _ _ _) = name++--- Extracts the names of imported modules of a FlatCurry program.+moduleImports :: Prog -> [String]+moduleImports (Prog _ imports _ _ _) = imports+++--- Extracts the types of a FlatCurry program.+moduleTypes :: Prog -> [TypeDecl]+moduleTypes (Prog _ _ types _ _) = types++--- Extracts the operators of a FlatCurry program.+moduleOps :: Prog -> [OpDecl]+moduleOps (Prog _ _ _ _ ops) = ops++--- Extracts the name of the Prog.+moduleName :: Prog -> String+moduleName (Prog name _ _ _ _) = name++--- Extracts the functions of the program.+moduleFuns :: Prog -> [FuncDecl]+moduleFuns (Prog _ _ _ funs _) = funs+++-------------------------------------------------------------------------------+-- Functions for comparison:+-------------------------------------------------------------------------------++--- Compares two qualified names.+--- Returns True, if the first name is lexicographically smaller than+--- the second name using the leString function to compare String.+leqQName :: QName -> QName -> Bool+leqQName (m1,n1) (m2,n2) = let cm = cmpString m1 m2+                            in cm==LT || (cm==EQ && leqString n1 n2)+++-------------------------------------------------------------------------------+-- I/O functions:+-------------------------------------------------------------------------------++-- Read a FlatCurry program (parse only if necessary):+readCurrentFlatCurry :: String -> IO Prog+readCurrentFlatCurry modname = do+  putStr (modname++"...")+  progname <- findSourceFileInLoadPath modname+  fcyexists <- doesFileExist (flatCurryFileName progname)+  if not fcyexists+   then readFlatCurry progname >>= processPrimitives progname+   else do+     ctime <- getSourceModificationTime progname+     ftime <- getModificationTime (flatCurryFileName progname)+     if clockTimeToInt ctime > clockTimeToInt ftime+      then readFlatCurry progname >>= processPrimitives progname+      else readFlatCurryFile (flatCurryFileName progname)+            >>= processPrimitives progname++getSourceModificationTime progname = do+  lexists <- doesFileExist (progname++".lcurry")+  if lexists then getModificationTime (progname++".lcurry")+             else getModificationTime (progname++".curry")++-- add a directory name for a Curry source file by looking up the+-- current load path (CURRYPATH):+findSourceFileInLoadPath modname = do+  loadpath <- getLoadPathForFile modname+  mbfname <- lookupFileInPath (baseName modname) [".lcurry",".curry"] loadpath+  maybe (error ("Curry file for module \""++modname++"\" not found!"))+        (return . stripSuffix)+        mbfname++-- read primitive specification and transform FlatCurry program accordingly:+processPrimitives :: String -> Prog -> IO Prog+processPrimitives progname prog = do+  pspecs <- readPrimSpec (moduleName prog) (progname++".prim_c2p")+  return (mergePrimSpecIntoModule pspecs prog)++mergePrimSpecIntoModule trans (Prog name imps types funcs ops) =+  Prog name imps types (concatMap (mergePrimSpecIntoFunc trans) funcs) ops++mergePrimSpecIntoFunc trans (Func name ar vis tp rule) =+ let fname = lookup name trans in+ if fname==Nothing+ then [Func name ar vis tp rule]+ else let Just (lib,entry) = fname+       in if null entry+          then []+          else [Func name ar vis tp (External (lib++' ':entry))]+++readPrimSpec :: String -> String -> IO [(QName,QName)]+readPrimSpec mod xmlfilename = do+  existsXml <- doesFileExist xmlfilename+  if existsXml+   then do --putStrLn $ "Reading specification '"++xmlfilename++"'..."+           xmldoc <- readXmlFile xmlfilename+           return (xml2primtrans mod xmldoc)+   else return []++xml2primtrans mod (XElem "primitives" [] primitives) = map xml2prim primitives+ where+   xml2prim (XElem "primitive" (("name",fname):_)+                   [XElem "library" [] xlib, XElem "entry" [] xfun]) =+       ((mod,fname),(textOfXml xlib,textOfXml xfun))+   xml2prim (XElem "ignore" (("name",fname):_) []) = ((mod,fname),("",""))+++-------------------------------------------------------------------------------
+ src/lib/Curry/Module/CurryStringClassifier.curry view
@@ -0,0 +1,282 @@+----------------------------------------------------------------------+--- The Curry string classifier is a simple tool to process strings containing +--- Curry source code. The source string is classified into the following+--- categories:+---+--- (1) moduleHead - module interface, imports, operators+---+--- (2) code - the part where the actual program is defined+---+--- (3) big comment - parts enclosed in {- ... -}+---+--- (4) small comment - from "--" to the end of a line+---+--- (5) text - a string, i.e. text enclosed in "..."+---+--- (6) letter - the given string is the representation of a character+---+--- (7) meta - containing information for meta programming+---+--- For an example to use the state scanner cf. addtypes, the tool +--- to add function types to a given program.+---+--- @author Bernd Brassel+--- @version April 2005+----------------------------------------------------------------------+++module CurryStringClassifier+         (Tokens,Token(..), scan, plainCode, unscan,+          isSmallComment, isBigComment, isComment, isText, isLetter,+          isCode, isModuleHead, isMeta,  readScan,testScan) +      where++import Char(isDigit,isSpace)++--- The different categories to classify the source code.+data Token  = SmallComment String +            | BigComment String +            | Text String +            | Letter String +            | Code String +            | ModuleHead String +            | Meta String ++type Tokens = [Token]+++--- test for category "SmallComment"+isSmallComment x = case x of +                    SmallComment _ -> True+                    _ -> False++--- test for category "BigComment"+isBigComment x = case x of +                    BigComment _ -> True+                    _ -> False++--- test if given token is a comment (big or small)+isComment x = isSmallComment x || isBigComment x++--- test for category "Text" (String)+isText x = case x of +                    Text _ -> True+                    _ -> False++--- test for category "Letter" (Char)+isLetter x = case x of +                    Letter _ -> True+                    _ -> False++--- test for category "Code"+isCode x = case x of +                    Code _ -> True+                    _ -> False++--- test for category "ModuleHead", ie imports and operator declarations+isModuleHead x = case x of +                    ModuleHead _ -> True+                    _ -> False++--- test for category "Meta", ie between {+ and +}+isMeta x = case x of +                    Meta _ -> True+                    _ -> False++weaveIntoCode :: (Tokens -> Tokens) -> Tokens -> Tokens+weaveIntoCode f ts  = +   let (cs,ncs) = unweaveCode ts in weave (f cs,ncs)++unweaveCode :: Tokens -> (Tokens,Tokens)+unweaveCode [] = ([],[])+unweaveCode (t:ts) = let (cs,ncs) = unweaveCode ts in +  if isCode t then (t:cs,ncs) else (cs,t:ncs)+ +weave xys = case xys of+       ([],[]) -> []+       ([],[y]) -> [y]+       ([x],[]) -> [x]+       (x:xs,y:ys) -> x:y:weave (xs,ys)+++--- Divides the given string into the six categories.+--- For applications it is important to know whether a given part of+--- code is at the beginning of a line or in the middle. The state scanner+--- organizes the code in such a way that every string categorized as +--- "Code" <b>always</b> starts in the middle of a line.++scan :: [Char] -> Tokens+scan s = modHead id (stateScan 1 (Code x) x s) where x free++stateScan :: Int -> Token -> [Char] -> [Char] -> Tokens+stateScan _ token x ""  | x=:="" = [token]+stateScan _ (Code co) x [c] | x=:=[c] = maybeCode co []+stateScan _ (Text t) x [c] +  | x=:="" = if c=='\"' then [Text t]+                        else error "File ended while scanning string."+stateScan _ (BigComment _) x [_]+  | x=:="" = error "File ended while expecting -}"+stateScan _ (Meta _) x [_]+  | x=:="" = error "File ended while expecting +}"+stateScan line (Code co) x (c:c':cs)+  | c=='\"' = (x=:="") &>+                    (maybeCode co (stateScan line (Text y) y (c':cs))) +  | c=='-' && c'=='-' +  = let (comment,rest) = span (/='\n') cs+     in (x=:="") &> maybeCode co +                       (SmallComment comment :+                       (stateScan line (Code y) y rest))+  | c=='{' && c'=='-'+  = (x=:="") &> maybeCode co (stateScan line (BigComment y) y cs)+  | c=='{' && c'=='+'+  = (x=:="") &> maybeCode co (stateScan line (Meta y) y cs)+  | c'=='\'' && elem c (infixIDs++delimiters) +  = (x=:=[c]) &> maybeCode co $ +     case cs of+       '\\':l:'\'':rest -> Letter ['\\',l] : (stateScan line (Code y) y rest)+       '\\':a:b:d:'\'':rest -> +         if all isDigit [a,b,d] +           then Letter ['\\',a,b,d] : (stateScan line (Code y) y rest)+           else error $ "Improperly terminated character found in line "+                        ++ show line+       l:'\'':rest      -> Letter [l] : (stateScan line (Code y) y rest)+       _ -> error $ "Improperly terminated character in line "++show line+  | c=='\n'+  = (x=:=c:y) &> stateScan (line+1) (Code co) y (c':cs)+  | otherwise+  = (x=:=c:y) &> stateScan line (Code co) y (c':cs)+  where+    y free+stateScan line (BigComment co) x (c:c':cs)+  | c=='-' && c'=='}' +  = (x=:="") &> BigComment co : (stateScan line (Code y) y cs)+  | c=='\n'+  = (x=:=c:y) &> stateScan (line+1) (BigComment co) y (c':cs)+  | otherwise +  = (x=:=c:y) &> stateScan line (BigComment co) y (c':cs)+  where+   y free+stateScan line (Meta co) x (c:c':cs)+  | c=='+' && c'=='}' +  = (x=:="") &> Meta co : (stateScan line (Code y) y cs)+  | c=='\n'+  = (x=:=c:y) &> stateScan (line+1) (Meta co) y (c':cs)+  | otherwise +  = (x=:=c:y) &> stateScan line (Meta co) y (c':cs)+  where+   y free+stateScan line (Text t) x (c:c':cs)+  | c == '\"' = (x=:="") &> Text t : (stateScan line (Code y) y (c':cs))+  | c == '\\' = (x=:=c:c':y) &> stateScan line (Text t) y cs+  | elem c toBeEscaped = error $ "unescaped "++c:" encountered in line "+                                 ++ show line+  | otherwise = (x=:=c:y) &> stateScan line (Text t) y (c':cs)+  where+   y free++modHead :: ([Char] -> [Char]) -> Tokens -> Tokens+modHead fs (Code c : ts) +  = case break (\x->x=='\n'||x=='\r') c of+      ("","")      -> modHead fs ts+      ("",n:rest)  -> modHead (fs . (n:)) (Code rest : ts)+      (line,"")    -> if any (lineBeginsWith line) headers+                        then ModuleHead (fs line) : (modHeadInLine id ts)+                        else maybeMo (fs "") (Code c:ts)+      (line,n:rest)-> if any (lineBeginsWith line) headers+                        then modHead (fs . (line++) . (n:)) (Code rest:ts) +                        else maybeMo (fs "") (Code c : ts)+modHead fs (BigComment c : ts) = maybeMo (fs "") (BigComment c : (modHead id ts))+modHead fs (SmallComment c : ts) =  maybeMo (fs "") (SmallComment c : (modHead id ts))+modHead fs (Meta c : ts) =  maybeMo (fs "") (Meta c : ts)+modHead fs [] = maybeMo (fs "") []++modHeadInLine :: ([Char] -> [Char]) -> Tokens -> Tokens+modHeadInLine fs [] = maybeMo (fs "") []+modHeadInLine fs (Code c : ts)+  = case break (\x->x=='\n'||x=='\r') c of+      (line,n:rest) -> modHead (fs . (line++) . (n:)) (Code rest : ts) +      _ -> modHead fs (Code c : ts)+modHeadInLine fs (BigComment c : ts) = +  maybeMo (fs "") (BigComment c : (modHeadInLine id ts))+modHeadInLine fs (SmallComment c : ts) = +  maybeMo (fs "") (SmallComment c : (modHeadInLine id ts))+modHeadInLine fs (Meta c : ts) = maybeMo (fs "") (Meta c : ts)++headers :: [[Char]]+headers = [" ","import","infix","infixl","infixr","module"]++lineBeginsWith :: [Char] -> [Char] -> Bool+lineBeginsWith line s | length line < lens = False+                      | otherwise +                      = line==s || +                        let (s',rest) = splitAt (length s) line +                         in s==s' && (null rest || isSep (head rest))+  where+    lens = length s+++isSep :: Char -> Bool+isSep c = isSpace c || elem c infixIDs || elem c "([{" ++infixIDs :: String+infixIDs =  "~!@#$%^&*+-=<>?./|\\:"++delimiters :: String+delimiters = " ([{,}])"++toBeEscaped :: [Char]+toBeEscaped = "\\\n\r\t\""++maybeCode :: [Char] -> Tokens -> Tokens+maybeCode s ts = {-if s=="" then ts else-} Code s:ts++maybeMo s ts = if s=="" then ts else ModuleHead s:case ts of+  Code c:ts' -> Code ('\n':c):ts'+  _ -> ts++--- Yields the program code without comments +--- (but with the line breaks for small comments).++plainCode :: Tokens -> String+plainCode (ModuleHead s:ts) = case ts of+                            Code c : ts' -> s++drop 1 c++plainCode ts'+                            _ -> s++plainCode ts+plainCode (Code s:ts) = s++plainCode ts+plainCode (Text s:ts) = '\"':s++'\"':plainCode ts+plainCode (Letter s:ts) = '\'':s++'\'':plainCode ts+plainCode (BigComment _:ts) = plainCode ts+plainCode (SmallComment _:ts) = plainCode ts+plainCode (Meta s:ts) = "{+"++s++"+}"++plainCode ts+plainCode [] = ""+++--- Inverse function of scan, i.e., unscan (scan x) = x.+--- unscan is used to yield a program after changing the list of tokens.++unscan :: Tokens -> String+unscan (ModuleHead s:ts) = s++case ts of +                                (Code (_:c):ts') -> unscan (Code c:ts')+                                _ -> unscan ts+unscan (Code s:ts) = s++unscan ts+unscan (Text s:ts) = '\"':s++'\"':unscan ts+unscan (Letter s:ts) = '\'':s++'\'':unscan ts+unscan (BigComment s:ts) = "{-"++s++"-}"++unscan ts+unscan (SmallComment s:ts) = "--"++s++unscan ts +unscan (Meta s:ts) = "{+"++s++"+}"++unscan ts+unscan [] = ""++--- return tokens for given filename+readScan :: [Char] -> IO Tokens+readScan fn = readFile fn >>= return . scan+ ++--- test whether (unscan . scan) is identity+testScan :: [Char] -> IO ()+testScan fn = do c <- readFile fn+                 print (unscan (scan c)==c)++testWeave :: [Char] -> IO ()+testWeave fn = do c <- readFile fn+                  print (unscan (weave (unweaveCode (scan c)))==c)++
+ src/lib/Curry/Module/CurrySyntax.curry view
@@ -0,0 +1,476 @@+--- This module provides the necessary data structures to maintain the+--- parsed representation of a Curry program employed by the Curry frontend.+---+--- The representation differs from the one of the frontend in two respects:+--- 1. module names are repesented as strings and+--- 2. positions are replaced by polymorphic labels which are positions+---    without filename by default.+---+--- @author Wolfgang Lux, Martin Engelke, Sebastian Fischer+---+module CurrySyntax (++  Module(..), Pos, Position(..), Ident(..), QualIdent(..), ModuleIdent,++  ExportSpec(..), Export(..), ImportSpec(..), Import(..),++  Decl(..), ConstrDecl(..), NewConstrDecl(..),++  Infix(..), EvalAnnotation(..), CallConv(..),++  TypeExpr(..), Equation(..), Lhs(..), Rhs(..), CondExpr(..),++  Literal(..), ConstrTerm(..), Expression(..),++  InfixOp(..), Statement(..), Alt(..), Field(..),++  readCurry, readCurryWithParseOptions, readCurryFile, ++  writeCurryModule, writeCurryFile++  ) where++import Directory ( doesFileExist )+import ReadShowTerm ( readUnqualifiedTerm, showTerm )+import Distribution+  ( callFrontendWithParams , FrontendTarget(..)+  , FrontendParams, defaultParams, setQuiet+  , lookupFileInLoadPath )+import FileGoodies ( baseName )++--- Source positions: <code>(line,column)</code>+---+type Pos = (Int,Int)++--- The original type of source positions used by the frontend:+--- @cons Position <code>filepath line column</code>+---+data Position = Position String Int Int++--- An identifier is represented by its name and an additional number+--- to avoid name clashes. If the number is <code>0</code> the identifier +--- does not need to be renamed: +--- @cons Ident <code>name id</code>+---+data Ident = Ident String Int++--- Qualified identifiers have an attached module name, unqualified have not:+--- @cons UnqualIdent <code>ident</code>+--- @cons QualIdent <code>moduleIdent ident</code>+--- +data QualIdent = UnqualIdent Ident | QualIdent ModuleIdent Ident++--- Module identifiers+---+type ModuleIdent = String++--- A module consists of a name, an optional export specification and a list of+--- declarations. +--- The type variable can be used to label some parts of the module.+--- Initially, a module is labeld with positions of type <code>Pos</code>.+--- @cons Module <code>moduleIdent optExportSpec decls</code>+---+data Module a = Module ModuleIdent (Maybe (ExportSpec a)) [Decl a]++--- An export specification consists of a label and a list of exports:+--- @cons ExportSpec: <code>(ExportSpec lab exports)</code>+---+data ExportSpec a = Exporting a [Export]++--- There are different kinds of exports:+--- @cons Export <code>qident</code>: a qualified identifier+--- @cons ExportTypeWith <code>type idents</code>: some identifiers of a type+--- @cons ExportTypeAll <code>type</code>: all identifiers of a type+--- @cons ExportModule <code>moduleIdent</code>: a complete module+---+data Export+  = Export QualIdent+  | ExportTypeWith QualIdent [Ident]+  | ExportTypeAll QualIdent+  | ExportModule ModuleIdent++--- An import specification either imports or hides names from other modules:+--- @cons Importing <code>lab imports</code>+--- @cons Hiding <code>lab imports</code>+---+data ImportSpec a+  = Importing a [Import]+  | Hiding a [Import]++--- There are different kinds of imports:+--- @cons Import <code>ident</code>: an identifier of the imported/hidden module+--- @cons ImportTypeWith <code>type idents</code>: some identifiers of a type+--- from the imported/hidden module+--- @cons ImportTypeAll <code>type</code>: all identifiers of a type from the+--- imported/hidden module+---+data Import+  = Import Ident+  | ImportTypeWith Ident [Ident]+  | ImportTypeAll Ident++--- There are different kinds of declarations:+--- @cons ImportDecl <code>lab moduleIdent quali optAlias optImportSpec</code>:+--- An import declaration consists of a label, a module identifier, a flag+--- that determines whether the import is qualified, an optional alias and+--- an optional import specification.+--- @cons InfixDecl <code>lab assoc prec idents</code>:+--- An infix declaration consists of a label, an associativity declaration,+--- a precedence and a list of infix identifiers.+--- @cons DataDecl <code>lab name params consDecls</code>:+--- A data declaration consists of a label, the name of the datatype,+--- the names of the type parameters and a list of constructor declarations.+--- @cons NewtypeDecl <code>lab name params newConsDecl</code>:+--- A newtype declaration consists of a label, the name of the datatype,+--- the names of the type parameters and a "newconstructor declaration".+--- @cons TypeDecl <code>lab name params type</code>:+--- A type synonym declaration consists of a label, the name of the synonym,+--- the names of the type parameters and a type expression.+--- @cons TypeSig <code>lab idents type</code>:+--- A type signature consists of a label, a list of identifiers and the+--- specified type of these idetifiers.+--- @cons EvalAnnot <code>lab idents evalMode</code>:+--- An evaluation annotation consists of a label, a list of identifiers and+--- the specified evaluation mode of these identifiers.+--- @cons FunctionDecl <code>lab name eqs</code>:+--- A function declaration consists of a label, the name of the function+--- an a list of defining equations.+--- @cons ExternalDecl <code>lab callConvention optSpec name</code>:+--- The declaration of an external function consists of a label, a calling+--- convention, an optional specification and the name of the function.+--- @cons FlatExternalDecl <code>lab idents</code>:+--- A flat external declaration consists of a label and a list of+--- identifiers.+--- @cons PatternDecl <code>lab pat rhs</code>:+--- A pattern declaration consists of a label, a pattern and a+--- right-hand-side.+--- @cons ExtraVariables <code>lab idents</code>:+--- A declaration of free variables consists of a label and the list of+--- introduced names.+---+data Decl a+  = ImportDecl a ModuleIdent Bool (Maybe ModuleIdent) (Maybe (ImportSpec a))+  | InfixDecl a Infix Int [Ident]+  | DataDecl a Ident [Ident] [ConstrDecl a]+  | NewtypeDecl a Ident [Ident] (NewConstrDecl a)  -- omit?+  | TypeDecl a Ident [Ident] TypeExpr+  | TypeSig a [Ident] TypeExpr+  | EvalAnnot a [Ident] EvalAnnotation  -- deprecated?+  | FunctionDecl a Ident [Equation a]+  | ExternalDecl a CallConv (Maybe String) Ident TypeExpr+  | FlatExternalDecl a [Ident]  -- purpose?+  | PatternDecl a (ConstrTerm a) (Rhs a)+  | ExtraVariables a [Ident]++--- Constructors can be defined in prefix or in infix notation:+--- @cons ConstrDecl <code>lab idents name argTypes</code>+--- @cons ConOpDecl <code>lab idents ltype name rtype</code>+---+data ConstrDecl a  -- purpose of [Ident]?+  = ConstrDecl a [Ident] Ident [TypeExpr]+  | ConOpDecl a [Ident] TypeExpr Ident TypeExpr++--- A "newconstructor declaration" consists of a label, a list of identifiers,+--- the name of the new constructor and its argument type:+--- @cons NewConstrDecl <code>lab idents name type</code>+---+data NewConstrDecl a = NewConstrDecl a [Ident] Ident TypeExpr++--- An infix operator is either left-, right- or not associative.+---+data Infix = InfixL | InfixR | Infix++--- The evaluation mode of a function is either rigid or flexible.+---+data EvalAnnotation = EvalRigid | EvalChoice++--- There are two different kinds of calling conventions for external functions.+---+data CallConv = CallConvPrimitive | CallConvCCall++--- There are different types of type expressions:+--- @cons ConstructorType <code>name paramTypes</code>:+--- A constructed type consists of the name of the type constructor and the+--- list of parameter types.+--- @cons VariableType <code>name</code>:+--- A type variable is represented by its name.+--- @cons TupleType <code>paramTypes</code>:+--- A tuple type is represented by its parameter types.+--- @cons ListType <code>type</code>:+--- A list type is represented by the wrapped element type.+--- @cons ArrowType <code>dom ran</code>:+--- A functional type is represented by its domain and range types.+--- @cons RecordType <code>fieldTypes optType</code>:+--- A record type is represented by a list of type declarations for its+--- fields and an optional remaining type. A field type declaration specifies+--- the type of multiple field identifiers.+---+data TypeExpr+  = ConstructorType QualIdent [TypeExpr]+  | VariableType Ident+  | TupleType [TypeExpr]+  | ListType TypeExpr+  | ArrowType TypeExpr TypeExpr+  | RecordType [([Ident],TypeExpr)] (Maybe TypeExpr)++--- A defining equation consists of a label and the left- and right-hand-side+--- of the equation.+--- @cons Equation <code>lab lhs rhs</code>+---+data Equation a = Equation a (Lhs a) (Rhs a)++--- There are different kinds of left-hand-sides in equations:+--- @cons FunLhs <code>name patterns</code>:+--- The left-hand-side of a function rule consists of the name of the+--- function and a list of patterns.+--- @cons OpLhs <code>lpat opname rpat</code>:+--- The left-hand-side of an infix operator rule consists of the left+--- argument, the name and the right argument of the operator.+--- @cons ApLhs <code>lhs patterns</code>:+--- A left-hand-side can also be the application of another left-hand-side+--- to additional arguments. This is sometimes useful for operator declarations+--- like <pre>(f . g) x = f (g x)</pre>+---+data Lhs a+  = FunLhs Ident [ConstrTerm a]+  | OpLhs (ConstrTerm a) Ident (ConstrTerm a)+  | ApLhs (Lhs a) [ConstrTerm a]++--- The right-hand-side of a defining equation may be quarded and can contain+--- local declarations:+--- @cons SimpleRhs <code>lab body localDecls</code>+--- @cons GuardedRhs <code>condEqs localDecls</code>+---+data Rhs a+  = SimpleRhs a (Expression a) [Decl a]+  | GuardedRhs [CondExpr a] [Decl a]++--- A conditional equation consists of a label, a condition and the conditional+--- right-hand-side:+--- @cons CondExpr <code>lab cond expr</code>+---+data CondExpr a = CondExpr a (Expression a) (Expression a)++--- The are character, integer, float and string literals. <br/>+--- The Ident argument of an Int literal is used for supporting +--- ad-hoc polymorphism on integer numbers. +--- An integer literal can be used either as an integer number or+--- as a floating-point number depending on its context. The compiler uses+--- the identifier of the Int literal for maintaining its type.+---+data Literal+  = Char Char+  | Int Ident Int+  | Float Float+  | String String++--- There are different kinds of patterns:+--- @cons LiteralPattern <code>literal</code>:+--- literal patterns declare the literal to be matched.+--- @cons NegativePattern <code>ident literal</code>:+--- negative patterns consist of an identifier and a literal.+--- @cons VariablePattern <code>name</code>:+--- a named variable pattern+--- @cons ConstructorPattern <code>name argPats</code>:+--- A constructor pattern consists of the name of the matched constructor+--- and a list of argument patterns.+--- @cons InfixPattern <code>lpat opname rpat</code>:+--- An infix pattern consists of the left argument pattern, the+--- name of the infix constructor and the right argument pattern.+--- @cons ParenPattern <code>pat</code>:+--- A pattern enclosed in brackets.+--- @cons TuplePattern <code>argPats</code>:+--- A tuple pattern references a list of argument patterns.+--- @cons ListPattern <code>argPats</code>:+--- A list pattern references a list of argument patterns.+--- @cons AsPattern <code>name pat</code>:+--- An as pattern introduces a name for the expression matched by the+--- enclosed pattern.+--- @cons LazyPattern <code>pat</code>:+--- A lazy pattern is syntactic sugar for a pattern variable that is+--- matched in a local declaration.+--- @cons FunctionPattern <code>name argPats</code>:+--- A function pattern consists of the name of the pattern function and+--- a list of argument patterns.+--- @cons InfixFuncPattern <code>lpat op rpat</code>+--- An infix function pattern consists of the left argument pattern, the +--- name of the infix operator and the right argument pattern.+--- @cons RecordPattern <code>fieldPats optPat</code>:+--- A record pattern consists of a list of field patterns and an optional+--- pattern for the remaining record.+---+data ConstrTerm a+  = LiteralPattern Literal+  | NegativePattern Ident Literal  -- purpose? e.g. f (-3) = 4+  | VariablePattern Ident+  | ConstructorPattern QualIdent [ConstrTerm a]+  | InfixPattern (ConstrTerm a) QualIdent (ConstrTerm a)+  | ParenPattern (ConstrTerm a)+  | TuplePattern [ConstrTerm a]+  | ListPattern [ConstrTerm a]+  | AsPattern Ident (ConstrTerm a)+  | LazyPattern (ConstrTerm a)  -- omit?+  | FunctionPattern QualIdent [ConstrTerm a]+  | InfixFuncPattern (ConstrTerm a) QualIdent (ConstrTerm a)+  | RecordPattern [Field a (ConstrTerm a)] (Maybe (ConstrTerm a))++--- There are different kinds of expressions:+--- @cons Literal <code>literal</code>+--- @cons Variable <code>name</code>+--- @cons Constructor <code>name</code>+--- @cons Paren <code>exp</code>:  bracketed expression+--- @cons Typed <code>exp type</code>:+--- expression with an annotated type (<code>exp :: type</code>)+--- @cons Tuple <code>exps</code>+--- @cons List  <code>exps</code>+--- @cons ListCompr <code>exp stmts</code>:+--- <code>[ exp | stmts ]</code>+--- @cons EnumFrom <code>start</code>: <code>[start..]</code>+--- @cons EnumFromThen <code>start next</code>: <code>[start,next..]</code>+--- @cons EnumFromTo <code>start stop</code>: <code>[start..stop]</code>+--- @cons EnumFromThenTo <code>start next stop</code>:+--- <code>[start,next..stop]</code>+--- @cons UnaryMinus <code>ident exp</code>+--- @cons Apply <code>exp1 exp2</code>+--- @cons InfixApply <code>lexp op rexp</code>+--- @cons LeftSection <code>exp op</code>:+--- infix operator partially applied to left argument+--- @cons RightSection <code>op exp</code>:+--- infix operator partially applied to right argument.+--- @cons Lambda <code>pats exp</code>:+--- lambda abstraction with multiple arguments and pattern matching+--- @cons Let <code>decls exp</code>+--- @cons Do <code>stmts exp</code>:+--- do expression with multiple statements and a final expression+--- @cons IfThenElse <code>cond texp fexp</code>+--- @cons Case <code>exp alts</code>+--- case distinction with matched expression and list of alternatives:+--- @cons RecordConstr <code>fieldDecls</code>:+--- <code>{ key1 = value1, key2 = value2 }</code>+--- @cons RecordSelection <code>exp field</code>: <code>exp -> field</code>+--- @cons RecordUpdate <code>fieldDecls exp</code>:+--- <code>{ key := value | exp }</code>+---+data Expression a+  = Literal Literal+  | Variable QualIdent+  | Constructor QualIdent+  | Paren (Expression a)+  | Typed (Expression a) TypeExpr+  | Tuple [(Expression a)]+  | List [(Expression a)]+  | ListCompr (Expression a) [Statement a]+  | EnumFrom (Expression a)+  | EnumFromThen (Expression a) (Expression a)+  | EnumFromTo (Expression a) (Expression a)+  | EnumFromThenTo (Expression a) (Expression a) (Expression a)+  | UnaryMinus Ident (Expression a)  -- purpose of Ident? type Int/Float?+  | Apply (Expression a) (Expression a)+  | InfixApply (Expression a) InfixOp (Expression a)+  | LeftSection (Expression a) InfixOp+  | RightSection InfixOp (Expression a)+  | Lambda [ConstrTerm a] (Expression a)+  | Let [Decl a] (Expression a)+  | Do [Statement a] (Expression a)+  | IfThenElse (Expression a) (Expression a) (Expression a)+  | Case (Expression a) [Alt a]+  | RecordConstr [Field a (Expression a)]+  | RecordSelection (Expression a) Ident+  | RecordUpdate [Field a (Expression a)] (Expression a)++--- Infix operators can be function and constructor symbols.+---+data InfixOp = InfixOp QualIdent | InfixConstr QualIdent++--- There are different kinds of statements used in list comprehensions and+--- do expressions:+--- @cons StmtExpr <code>exp</code>+--- @cons StmtDecl <code>decls</code>: local declarations+--- @cons StmtBind <code>pat rhs</code>: statement bind with pattern matching+---+data Statement a+  = StmtExpr (Expression a)+  | StmtDecl [Decl a]+  | StmtBind (ConstrTerm a) (Expression a)++--- A case alternative consists of a label, a pattern and a right-hand-side.+--- @cons Alt <code>lab pat rhs</code>+---+data Alt a = Alt a (ConstrTerm a) (Rhs a)++--- A field consists of a label, a field name and either a pattern or an +--- expression.+--- @cons Field <code>lab name pat</code>, <code>Field lab name exp</code>+---+data Field a b = Field a Ident b+++--- Parses a Curry program into its source representation.+--- The argument is the name of a module or the name of its source file.+--- If necessary, a current .cy file is generated in the same place where the+--- .curry or .lcurry file is found.+--- The result is a representation of a module labeled with positions.+---+readCurry :: String -> IO (Module Pos)+readCurry name = readCurryWithParseOptions name (setQuiet True defaultParams)++--- Parses a Curry program into its source representation using the specified+--- parameters to the frontend.+--- The argument is the name of a module or the name of its source file.+--- If necessary, a current .cy file is generated in the same place where the+--- .curry or .lcurry file is found.+--- The result is a representation of a module labeled with positions.+---+readCurryWithParseOptions :: String -> FrontendParams -> IO (Module Pos)+readCurryWithParseOptions name options = do+  parseCurry ".curry" `orElseDo` parseCurry ".lcurry"+  readCurryFile progname+ where+  progname = stripSuffix name+  parseCurry suffix+    = absoluteFileName (progname++suffix) >>= maybe (return Nothing) parse+  parse _ = callFrontendWithParams CY options progname >> return (Just ())++--- Parses a Curry program into its source representation.+--- The argument is the name of a module or the name of its source file.+--- The .cy file is neither generated if it does not exist nor updated if there+--- is a more recent source file!+---+readCurryFile :: String -> IO (Module Pos)+readCurryFile name = do+  filename <- absoluteFileName (progname++".cy")+  maybe (error $ progname ++ ".cy not found") read filename+ where+  progname = stripSuffix name+  read filename = do+    filecontents <- readFile filename+    return (readUnqualifiedTerm ["CurrySyntax","Prelude"] filecontents)++--- Writes the source representation of a Curry module labeled with positions+--- into a file MOD.cy where MOD is the name of the module.+---+writeCurryModule :: Module Pos -> IO ()+writeCurryModule m@(Module name _ _) = writeCurryFile (name++".cy") m++--- Writes the source representation of a Curry module labeled with positions+--- into a file with the given name.+---+writeCurryFile :: String -> Module Pos -> IO ()+writeCurryFile file m = writeFile file (showTerm m)+++-- private auxiliary functions ------------------------------------------------++absoluteFileName :: String -> IO (Maybe String)+absoluteFileName name+  | name == baseName name = lookupFileInLoadPath name+  | otherwise = do+    exists <- doesFileExist name+    return (if exists then Just name else Nothing)++orElseDo :: IO (Maybe a) -> IO (Maybe a) -> IO (Maybe a)+orElseDo ioma ioa = ioma >>= maybe ioa (return . Just)++stripSuffix :: String -> String+stripSuffix = takeWhile (/='.')+
+ src/lib/Curry/Module/Distribution.curry view
@@ -0,0 +1,321 @@+--------------------------------------------------------------------------------+--- This module contains functions to obtain information concerning the current+--- distribution of the Curry implementation.+--- Most of the information is based on the external constants +--- <b>curryCompiler...</b>.+---+--- @author Bernd Brassel, Michael Hanus+--- @version June 2009+--------------------------------------------------------------------------------++module Distribution (+  curryCompiler,curryCompilerMajorVersion,curryCompilerMinorVersion,+  curryRuntime,curryRuntimeMajorVersion,curryRuntimeMinorVersion,+  currySubdir,inCurrySubdir,addCurrySubdir,+  +  rcFileName,rcFileContents,getRcVar,getRcVars,++  findFileInLoadPath,lookupFileInLoadPath,+  readFirstFileInLoadPath,getLoadPath,getLoadPathForFile,++  FrontendTarget(..), +  +  FrontendParams, defaultParams,+  quiet, fullPath, outfile, logfile,+  setQuiet, setFullPath, setOutfile, setLogfile,++  callFrontend,callFrontendWithParams+  ) where++import List(intersperse)+import Char(toLower)+import System+import IO+import Directory+import FileGoodies+import PropertyFile++-----------------------------------------------------------------+-- Compiler and run-time environment name and version+-----------------------------------------------------------------++-- if you do not use other functions but +-- if-then-else, and the _Prelude_ functions+-- (<), (>), (<=), (>=), (==)+-- directly on the following constants, +-- the compiler might be able to eliminate+-- them at compile time.++--- The name of the Curry compiler (e.g., "pakcs" or "kics").+curryCompiler :: String+curryCompiler external++--- The major version number of the Curry compiler.+curryCompilerMajorVersion :: Int+curryCompilerMajorVersion external++--- The minor version number of the Curry compiler.+curryCompilerMinorVersion :: Int+curryCompilerMinorVersion external++--- The name of the run-time environment (e.g., "sicstus", "swi", or "ghc")+curryRuntime :: String+curryRuntime external++--- The major version number of the Curry run-time environment.+curryRuntimeMajorVersion :: Int+curryRuntimeMajorVersion external++--- The minor version number of the Curry run-time environment.+curryRuntimeMinorVersion :: Int+curryRuntimeMinorVersion external++---------------------------------------------------+-- retrieving user specified options from rc file+---------------------------------------------------++--- The name of the file specifying configuration parameters of the+--- current distribution. This file must have the usual format of+--- property files (see description in module PropertyFile).+rcFileName :: IO String+rcFileName = getEnviron "HOME" >>= return . (++"/."++curryCompiler++"rc")++--- Returns the current configuration parameters of the distribution.+--- This action yields the list of pairs (var,val).+rcFileContents :: IO [(String,String)]+rcFileContents = rcFileName >>= readPropertyFile++--- Look up a specific configuration variable as specified by user in his rc file.+--- Uppercase/lowercase is ignored for the variable names.+getRcVar :: String -> IO (Maybe String)+getRcVar var = getRcVars [var] >>= return . head++--- Look up configuration variables as specified by user in his rc file.+--- Uppercase/lowercase is ignored for the variable names.+getRcVars :: [String] -> IO [Maybe String]+getRcVars vars = do+  rcs <- rcFileContents +  return (map (flip lookup (map (\ (a,b)->(map toLower a,b)) rcs))+              (map (map toLower) vars))++-----------------------------------------------------------+--- finding files in correspondence to compiler load path+-----------------------------------------------------------++-- finding the standard libraries+getStdLibDir :: IO String+getStdLibDir external++-- finding the frontend binary+getFrontendCall :: IO String+getFrontendCall external++--- Name of the main installation directory of the Curry compiler.+installDir :: String+installDir external++--- Name of the sub directory where auxiliary files (.fint, .fcy, etc)+--- are stored.+currySubdir :: String+currySubdir = ".curry"++--- Transforms a file name by adding the currySubDir to the file name.+inCurrySubdir :: String -> String+inCurrySubdir filename =+  let (base,file) = splitDirectoryBaseName filename+   in base++'/':currySubdir++'/':file++--- Transforms a directory name into the name of the corresponding+--- sub directory containing auxiliary files.+addCurrySubdir :: String -> String+addCurrySubdir dir = dir++'/':currySubdir++--- Returns the current path (list of directory names) of the+--- system libraries.+getSysLibPath :: IO [String]+getSysLibPath = +  if curryCompiler == "pakcs" +    then do+       pakcspath <- getEnviron "PAKCSLIBPATH"+       return $+          (if null pakcspath+               then [installDir++"/lib",installDir++"/lib/meta"]+               else splitPath pakcspath)+    else if curryCompiler == "kics" then getStdLibDir >>= return . (:[])+    else error "Distribution.getSysLibPath: unknown curryCompiler"+++--- Adds a directory name to a file by looking up the current load path.+--- An error message is delivered if there is no such file.+lookupFileInLoadPath :: String -> IO (Maybe String)+lookupFileInLoadPath fn = +  getLoadPathForFile fn >>= lookupFileInPath (baseName fn) [""] ++--- Adds a directory name to a file by looking up the current load path.+--- An error message is delivered if there is no such file.+findFileInLoadPath :: String -> IO String+findFileInLoadPath fn = +  getLoadPathForFile fn >>= getFileInPath (baseName fn) [""] ++--- Returns the contents of the file found first in the current load path.+--- An error message is delivered if there is no such file.+readFirstFileInLoadPath :: String -> IO String+readFirstFileInLoadPath fn = findFileInLoadPath fn >>= readFile ++--- Returns the current path (list of directory names) that is+--- used for loading modules.+getLoadPath :: IO [String]+getLoadPath = getLoadPathForFile "xxx"++--- Returns the current path (list of directory names) that is+--- used for loading modules w.r.t. a given main module file.+--- The directory prefix of the module file (or "." if there is+--- no such prefix) is the first element of the load path and the+--- remaining elements are determined by the environment variables+--- CURRYRPATH and PAKCSLIBPATH when using pakcs and+--- the entry of kicsrc when using kics, respectively.+getLoadPathForFile :: String -> IO [String]+getLoadPathForFile file = do+  syslib <- getSysLibPath+  mblib <- getRcVar "Libraries"+  let fileDir = dirName file +  if curryCompiler == "pakcs" || curryCompiler == "kics" then+    do currypath <- getEnviron "CURRYPATH"+       let llib = maybe [] splitPath mblib+       return (addCurrySubdirs (fileDir :+                                   (if null currypath+                                    then []+                                    else splitPath currypath) +++                                    llib ++ syslib))++    else error "Distribution.getLoadPathForFile: unknown curryCompiler"+ where+  addCurrySubdirs = concatMap (\d->[d,addCurrySubdir d])+++-------------------------------------------------------------------+-- calling the front end+-------------------------------------------------------------------++--- Data type for representing the different target files that can be produced+--- by the front end of the Curry compiler.+--- @cons FCY - FlatCurry file ending with .fcy+--- @cons FINT - FlatCurry interface file ending with .fint+--- @cons ACY - AbstractCurry file ending with .acy+--- @cons UACY - Untyped (without type checking) AbstractCurry file ending with .uacy+--- @cons HTML - colored HTML representation of source program+--- @cons CY - source representation employed by the frontend+data FrontendTarget = FCY | FINT | ACY | UACY | HTML | CY++--- Abstract data type for representing parameters supported by the front end+--- of the Curry compiler.+-- The parameters are of the form+-- FrontendParams Quiet FullPath OutFile LogFile+-- where+--   Quiet - work silently+--   FullPath dirs - the complete list of directory names for loading modules+--   OutFile file - output file (currently, only relevant for HTML target)+--   LogFile file - store all output (including errors) of the front end in file+data FrontendParams =+  FrontendParams Bool (Maybe [String]) (Maybe String) (Maybe String)++--- The default parameters of the front end.+defaultParams :: FrontendParams+defaultParams = FrontendParams False Nothing Nothing Nothing++--- Set quiet mode of the front end.+setQuiet :: Bool -> FrontendParams -> FrontendParams+setQuiet s (FrontendParams _ x y z) = FrontendParams s x y z++--- Set the full path of the front end.+--- If this parameter is set, the front end searches all modules+--- in this path (instead of using the default path).+setFullPath ::  [String] -> FrontendParams -> FrontendParams +setFullPath s (FrontendParams x _ y z) = FrontendParams x (Just s) y z++--- Set the outfile parameter of the front end.+--- Relevant for HTML generation.+setOutfile ::  String -> FrontendParams -> FrontendParams +setOutfile  s (FrontendParams x y _ z) = FrontendParams x y (Just s) z++--- Set the logfile parameter of the front end.+--- If this parameter is set, all messages produced by the front end+--- are stored in this file.+setLogfile ::  String -> FrontendParams -> FrontendParams +setLogfile  s (FrontendParams x y z _) = FrontendParams x y z (Just s)++--- Returns the value of the "quiet" parameter.+quiet :: FrontendParams -> Bool+quiet (FrontendParams x _ _ _) = x++--- Returns the full path parameter of the front end.+fullPath :: FrontendParams -> Maybe [String]+fullPath (FrontendParams _ x _ _) = x++--- Returns the outfile parameter of the front end.+outfile :: FrontendParams -> Maybe String+outfile  (FrontendParams _ _ x _) = x++--- Returns the logfile parameter of the front end.+logfile :: FrontendParams -> Maybe String+logfile  (FrontendParams _ _ _ x) = x++--- In order to make sure that compiler generated files (like .fcy, .fint, .acy)+--- are up to date, one can call the front end of the Curry compiler with this action.+--- @param target - the kind of target file to be generated+--- @param progname - the name of the main module of the application to be compiled+callFrontend :: FrontendTarget -> String -> IO ()+callFrontend target = callFrontendWithParams target defaultParams++--- In order to make sure that compiler generated files (like .fcy, .fint, .acy)+--- are up to date, one can call the front end of the Curry compiler+--- with this action where various parameters can be set.+--- @param target - the kind of target file to be generated+--- @param params - parameters for the front end+--- @param progname - the name of the main module of the application to be compiled+callFrontendWithParams :: FrontendTarget -> FrontendParams -> String -> IO ()+callFrontendWithParams target params progname = do+  parsecurry <- callParseCurry+  let lf      = maybe "" id (logfile params)+      syscall = parsecurry ++ " " ++ showFrontendTarget target+                     ++ showFrontendParams +                     ++ " " ++ progname+  print syscall+  if null lf+    then system syscall+    else system (syscall++" > "++lf++" 2>&1")+  return ()+ where+   isPakcs =+     if curryCompiler == "pakcs" then True else+     if curryCompiler == "kics"  then False+       else error "Distribution.callFrontend: unknown curryCompiler"++   callParseCurry =+     if isPakcs then+      do return (installDir++"/bin/parsecurry")+     else+      do path <- maybe getLoadPath return (fullPath params)+         frontend <- getFrontendCall+         let call = frontend++concatMap (" -i"++) path+         print call+         return call++   showFrontendTarget FCY  = "--flat"+   showFrontendTarget FINT = "--flat"+   showFrontendTarget ACY  = "--acy"+   showFrontendTarget UACY = "--uacy"+   showFrontendTarget HTML = "--html"+   showFrontendTarget CY   = "--parse-only"++   showFrontendParams =+     (if quiet params then runQuiet else "")+     ++ (maybe "" (" -o "++) (outfile params))+     ++ (maybe "" (\p -> " --fullpath " ++ concat (intersperse ":" p))+               (fullPath params))++   runQuiet = if isPakcs then " --quiet "+                         else " --no-verb --no-warn --no-overlap-warn " -- kics++rcErr :: String -> a -> IO a+rcErr s x = hPutStrLn stderr (s ++ " undefined in rc file") >> return x
src/lib/Curry/Module/Distribution.hs.include view
@@ -7,7 +7,8 @@ ,ForFunction "installDir" ] -import qualified InstallDir as ID+import Curry.Files.KiCSPath   +import Curry.Files.CymakePath   curryCompiler :: Result C_String curryCompiler _ = toCurry "kics"@@ -16,10 +17,17 @@ curryCompilerMajorVersion _ = 0  curryCompilerMinorVersion :: Result C_Int-curryCompilerMinorVersion _ = 9854+curryCompilerMinorVersion _ = 8 +getStdLibDir :: Result (C_IO C_String)+getStdLibDir = ioFunc0 getKiCSLibDir++-- finding the frontend binary+getFrontendCall :: Result (C_IO C_String)+getFrontendCall = ioFunc0 getCymake+ installDir :: Result C_String-installDir _ = toCurry (ID.installDir)+installDir _ = toCurry ""  curryRuntime :: Result C_String curryRuntime _ = toCurry "ghc"@@ -28,5 +36,5 @@ curryRuntimeMajorVersion _ = 6  curryRuntimeMinorVersion :: Result C_Int-curryRuntimeMinorVersion _ = 8+curryRuntimeMinorVersion _ = 10
+ src/lib/Curry/Module/FlatCurry.curry view
@@ -0,0 +1,342 @@+------------------------------------------------------------------------------+--- Library to support meta-programming in Curry.+---+--- This library contains a definition for representing FlatCurry programs+--- in Curry (type "Prog") and an I/O action to read Curry programs and+--- transform them into this representation (function "readFlatCurry").+---+--- @author Michael Hanus+--- @version August 2005+------------------------------------------------------------------------------++module FlatCurry where++import Directory(doesFileExist)+import ReadShowTerm+import Distribution+import FileGoodies(stripSuffix)++------------------------------------------------------------------------------+-- Definition of data types for representing FlatCurry programs:+-- =============================================================++--- Data type for representing a Curry module in the intermediate form.+--- A value of this data type has the form+--- <CODE>+---  (Prog modname imports typedecls functions opdecls translation_table)+--- </CODE>+--- where modname: name of this module,+---       imports: list of modules names that are imported,+---       typedecls, opdecls, functions, translation of type names+---       and constructor/function names: see below++data Prog = Prog String [String] [TypeDecl] [FuncDecl] [OpDecl]+++--- The data type for representing qualified names.+--- In FlatCurry all names are qualified to avoid name clashes.+--- The first component is the module name and the second component the+--- unqualified name as it occurs in the source program.+type QName = (String,String)++--- Data type to specify the visibility of various entities.++data Visibility = Public    -- public (exported) entity+                | Private   -- private entity++--- The data type for representing type variables.+--- They are represented by (TVar i) where i is a type variable index.+type TVarIndex = Int++--- Data type for representing definitions of algebraic data types.+---+--- A data type definition of the form+---+--- <code>data t x1...xn = ...| c t1....tkc |...</code>+---+--- is represented by the FlatCurry term+---+--- <code>(Type t [i1,...,in] [...(Cons c kc [t1,...,tkc])...])</code>+---+--- where each <code>ij</code> is the index of the type variable+--- <code>xj</code>.+---+--- Note: the type variable indices are unique inside each type declaration+---       and are usually numbered from 0+---+--- Thus, a data type declaration consists of the name of the data type,+--- a list of type parameters and a list of constructor declarations.++data TypeDecl = Type    QName Visibility [TVarIndex] [ConsDecl]+              | TypeSyn QName Visibility [TVarIndex] TypeExpr++--- A constructor declaration consists of the name and arity of the+--- constructor and a list of the argument types of the constructor.++data ConsDecl = Cons QName Int Visibility [TypeExpr]+++--- Data type for type expressions.+--- A type expression is either a type variable, a function type,+--- or a type constructor application.+---+--- Note: the names of the predefined type constructors are+---       "Int", "Float", "Bool", "Char", "IO", "Success",+---       "()" (unit type), "(,...,)" (tuple types), "[]" (list type)++data TypeExpr =+     TVar TVarIndex                 -- type variable+   | FuncType TypeExpr TypeExpr     -- function type t1->t2+   | TCons QName [TypeExpr]         -- type constructor application+                                    -- TCons module name typeargs+++--- Data type for operator declarations.+--- An operator declaration "fix p n" in Curry corresponds to the+--- FlatCurry term (Op n fix p).++data OpDecl = Op QName Fixity Int++--- Data types for the different choices for the fixity of an operator.+data Fixity = InfixOp | InfixlOp | InfixrOp+++--- Data type for representing object variables.+--- Object variables occurring in expressions are represented by (Var i)+--- where i is a variable index.++type VarIndex = Int+++--- Data type for representing function declarations.+---+--- A function declaration in FlatCurry is a term of the form+---+--- <code>(Func name arity type (Rule [i_1,...,i_arity] e))</code>+---+--- and represents the function "name" with definition+---+--- <code>name :: type</code><br/>+--- <code>name x_1...x_arity = e</code>+---+--- where each <code>i_j</code> is the index of the variable <code>x_j</code>.+---+--- Note: the variable indices are unique inside each function declaration+---       and are usually numbered from 0+---+--- External functions are represented as+--- <code>(Func name arity type (External s))</code>+--- where s is the external name associated to this function.+---+--- Thus, a function declaration consists of the name, arity, type, and rule.++data FuncDecl = Func QName Int Visibility TypeExpr Rule+++--- A rule is either a list of formal parameters together with an expression+--- or an "External" tag.++data Rule = Rule [VarIndex] Expr+          | External String++--- Data type for classifying case expressions.+--- Case expressions can be either flexible or rigid in Curry.++data CaseType = Rigid | Flex       -- type of a case expression++--- Data type for classifying combinations+--- (i.e., a function/constructor applied to some arguments).+--- @cons FuncCall     - a call to a function where all arguments are provided+--- @cons ConsCall     - a call with a constructor at the top, all arguments are provided+--- @cons FuncPartCall - a partial call to a function (i.e., not all arguments+---                      are provided) where the parameter is the number of+---                      missing arguments+--- @cons ConsPartCall - a partial call to a constructor (i.e., not all arguments+---                      are provided) where the parameter is the number of+---                      missing arguments++data CombType = FuncCall | ConsCall | FuncPartCall Int | ConsPartCall Int++--- Data type for representing expressions.+---+--- Remarks:+---+--- <ol>+--- <li> if-then-else expressions are represented as function calls:+---+---    <code>(if e1 then e2 else e3)</code>+---+---    is represented as+---+---    <code>(Comb FuncCall ("Prelude","if_then_else") [e1,e2,e3])</code>+--- </li>+--- <li>+---    Higher-order applications are represented as calls to the (external)+---    function "apply". For instance, the rule+---+---      <code>app f x = f x</code>+---+---    is represented as+---+---    <code>(Rule  [0,1] (Comb FuncCall ("Prelude","apply") [Var 0, Var 1]))</code>+--- </li>+--- <li>+---    A conditional rule is represented as a call to an external function+---    "cond" where the first argument is the condition (a constraint).+---    For instance, the rule+---+---      <code>equal2 x | x=:=2 = success</code>+---+---    is represented as+---+---     <code>(Rule [0]+---            (Comb FuncCall ("Prelude","cond")+---                  [Comb FuncCall ("Prelude","=:=") [Var 0, Lit (Intc 2)],+---                   Comb FuncCall ("Prelude","success") []]))</code>+--- </li>+--- </ol>+---+--- @cons Var - variable (represented by unique index)+--- @cons Lit - literal (Integer/Float/Char constant)+--- @cons Comb - application (f e1 ... en) of function/constructor f+---              with n&lt;=arity(f)+--- @cons Free - introduction of free local variables+--- @cons Or - disjunction of two expressions (used to translate rules+---            with overlapping left-hand sides)+--- @cons Case - case distinction (rigid or flex)++data Expr = Var VarIndex +          | Lit Literal+          | Comb CombType QName [Expr]+          | Let [(VarIndex,Expr)] Expr+          | Free [VarIndex] Expr+          | Or Expr Expr+          | Case CaseType Expr [BranchExpr]+++--- Data type for representing branches in a case expression.+---+--- Branches "(m.c x1...xn) -> e" in case expressions are represented as+---+---   (Branch (Pattern (m,c) [i1,...,in]) e)+---+--- where each ij is the index of the pattern variable xj, or as+---+---   (Branch (LPattern (Intc i)) e)+---+--- for integers as branch patterns (similarly for other literals+--- like float or character constants).++data BranchExpr = Branch Pattern Expr++--- Data type for representing patterns in case expressions.++data Pattern = Pattern QName [VarIndex]+             | LPattern Literal++--- Data type for representing literals occurring in an expression+--- or case branch. It is either an integer, a float, or a character constant.++data Literal = Intc   Int+             | Floatc Float+             | Charc  Char+++------------------------------------------------------------------------------+--- I/O action which parses a Curry program and returns the corresponding+--- FlatCurry program.+--- Thus, the argument is the file name without suffix ".curry"+--- (or ".lcurry") and the result is a FlatCurry term representing this+--- program.++readFlatCurry :: String -> IO Prog+readFlatCurry progfile =+   readFlatCurryWithParseOptions progfile (setQuiet True defaultParams)++--- I/O action which reads a FlatCurry program from a file+--- with respect to some parser options.+--- This I/O action is used by the standard action <CODE>readFlatCurry</CODE>.+--- It is currently predefined only in Curry2Prolog.+--- @param progfile - the program file name (without suffix ".curry")+--- @param options - parameters passed to the front end++readFlatCurryWithParseOptions :: String -> FrontendParams -> IO Prog+readFlatCurryWithParseOptions progname options = do+  mbCurryFile  <- lookupFileInLoadPath (progname++".curry")+  mbLCurryFile <- lookupFileInLoadPath (progname++".lcurry")+  if mbCurryFile==Nothing && mbLCurryFile==Nothing+   then done+   else callFrontendWithParams FCY options progname+  filename <- findFileInLoadPath (progname++".fcy")+  readFlatCurryFile filename+++--- Transforms a name of a Curry program (with or without suffix ".curry"+--- or ".lcurry") into the name of the file containing the+--- corresponding FlatCurry program.+flatCurryFileName :: String -> String+flatCurryFileName prog = inCurrySubdir (stripSuffix prog ++ ".fcy")++--- Transforms a name of a Curry program (with or without suffix ".curry"+--- or ".lcurry") into the name of the file containing the+--- corresponding FlatCurry program.+flatCurryIntName :: String -> String+flatCurryIntName prog = inCurrySubdir (stripSuffix prog ++ ".fint")++--- I/O action which reads a FlatCurry program from a file in ".fcy" format.+--- In contrast to <CODE>readFlatCurry</CODE>, this action does not parse+--- a source program. Thus, the argument must be the name of an existing+--- file (with suffix ".fcy") containing a FlatCurry program in ".fcy"+--- format and the result is a FlatCurry term representing this program.++readFlatCurryFile :: String -> IO Prog+readFlatCurryFile filename = do+  exfcy <- doesFileExist filename+  if exfcy+   then readExistingFCY filename+   else do let subdirfilename = inCurrySubdir filename+           exdirfcy <- doesFileExist subdirfilename+           if exdirfcy+            then readExistingFCY subdirfilename+            else error ("EXISTENCE ERROR: FlatCurry file '"++filename+++                        "' does not exist")+ where+   readExistingFCY fname = do+     filecontents <- readFile fname+     return (readTerm filecontents)++--- I/O action which returns the interface of a Curry program, i.e.,+--- a FlatCurry program containing only "Public" entities and function+--- definitions without rules (i.e., external functions).+--- The argument is the file name without suffix ".curry"+--- (or ".lcurry") and the result is a FlatCurry term representing the+--- interface of this program.++readFlatCurryInt :: String -> IO Prog+readFlatCurryInt progname = do+  existsCurry <- doesFileExist (progname++".curry")+  existsLCurry <- doesFileExist (progname++".lcurry")+  if existsCurry || existsLCurry+   then callFrontend FINT progname+   else done+  filename <- findFileInLoadPath (progname++".fint")+  readFlatCurryFile filename+++--- Writes a FlatCurry program into a file in ".fcy" format.+--- The first argument must be the name of the target file+--- (with suffix ".fcy").+writeFCY :: String -> Prog -> IO ()+writeFCY file prog = writeFile file (showTerm prog)+++-----------------------------------------------------------------------+--- Translates a given qualified type name into external name relative to+--- a module. Thus, names not defined in this module (except for names+--- defined in the prelude) are prefixed with their module name.+showQNameInModule :: String -> (String,String) -> String+showQNameInModule mod (qmod,name) =+  if qmod==mod || qmod=="Prelude"+  then name+  else qmod++"."++name+
+ src/lib/Curry/Module/FlatCurryGoodies.curry view
@@ -0,0 +1,890 @@+----------------------------------------------------------------------------+--- This library provides selector functions, test and update operations +--- as well as some useful auxiliary functions for FlatCurry data terms.+--- Most of the provided functions are based on general transformation+--- functions that replace constructors with user-defined+--- functions. For recursive datatypes the transformations are defined+--- inductively over the term structure. This is quite usual for+--- transformations on FlatCurry terms,+--- so the provided functions can be used to implement specific transformations+--- without having to explicitly state the recursion. Essentially, the tedious+--- part of such transformations - descend in fairly complex term structures - +--- is abstracted away, which hopefully makes the code more clear and brief.+---+--- @author Sebastian Fischer+--- @version January 2006+----------------------------------------------------------------------------++module FlatCurryGoodies where++import FlatCurry++type Update a b = (b -> b) -> a -> a++-- Prog ----------------------------------------------------------------------++--- transform program+trProg :: (String -> [String] -> [TypeDecl] -> [FuncDecl] -> [OpDecl] -> a)+          -> Prog -> a+trProg prog (Prog name imps types funcs ops) = prog name imps types funcs ops++-- Selectors++--- get name from program+progName :: Prog -> String+progName = trProg (\name _ _ _ _ -> name)++--- get imports from program+progImports :: Prog -> [String]+progImports = trProg (\_ imps _ _ _ -> imps)++--- get type declarations from program+progTypes :: Prog -> [TypeDecl]+progTypes = trProg (\_ _ types _ _ -> types)++--- get functions from program+progFuncs :: Prog -> [FuncDecl]+progFuncs = trProg (\_ _ _ funcs _ -> funcs)++--- get infix operators from program+progOps :: Prog -> [OpDecl]+progOps = trProg (\_ _ _ _ ops -> ops)++-- Update Operations++--- update program+updProg :: (String -> String)         ->+           ([String] -> [String])     ->+           ([TypeDecl] -> [TypeDecl]) ->+           ([FuncDecl] -> [FuncDecl]) ->+           ([OpDecl] -> [OpDecl])     -> Prog -> Prog+updProg fn fi ft ff fo = trProg prog+ where+  prog name imps types funcs ops+    = Prog (fn name) (fi imps) (ft types) (ff funcs) (fo ops)++--- update name of program+updProgName :: Update Prog String+updProgName f = updProg f id id id id++--- update imports of program+updProgImports :: Update Prog [String]+updProgImports f = updProg id f id id id++--- update type declarations of program+updProgTypes :: Update Prog [TypeDecl]+updProgTypes f = updProg id id f id id++--- update functions of program+updProgFuncs :: Update Prog [FuncDecl]+updProgFuncs f = updProg id id id f id++--- update infix operators of program+updProgOps :: Update Prog [OpDecl]+updProgOps = updProg id id id id++-- Auxiliary Functions++--- get all program variables (also from patterns)+allVarsInProg :: Prog -> [VarIndex]+allVarsInProg = concatMap allVarsInFunc . progFuncs++--- lift transformation on expressions to program+updProgExps :: Update Prog Expr+updProgExps = updProgFuncs . map . updFuncBody++--- rename programs variables+rnmAllVarsInProg :: Update Prog VarIndex+rnmAllVarsInProg = updProgFuncs . map . rnmAllVarsInFunc++--- update all qualified names in program+updQNamesInProg :: Update Prog QName+updQNamesInProg f = updProg id id +  (map (updQNamesInType f)) (map (updQNamesInFunc f)) (map (updOpName f))++--- rename program (update name of and all qualified names in program)+rnmProg :: String -> Prog -> Prog+rnmProg name p = updProgName (const name) (updQNamesInProg rnm p)+ where+  rnm (mod,n) | mod==progName p = (name,n)+              | otherwise = (mod,n)++-- TypeDecl ------------------------------------------------------------------++-- Selectors++--- transform type declaration+trType :: (QName -> Visibility -> [TVarIndex] -> [ConsDecl] -> a) ->+          (QName -> Visibility -> [TVarIndex] -> TypeExpr   -> a) -> TypeDecl -> a+trType typ _ (Type name vis params cs) = typ name vis params cs+trType _ typesyn (TypeSyn name vis params syn) = typesyn name vis params syn++--- get name of type declaration+typeName :: TypeDecl -> QName+typeName = trType (\name _ _ _ -> name) (\name _ _ _ -> name)++--- get visibility of type declaration+typeVisibility :: TypeDecl -> Visibility+typeVisibility = trType (\_ vis _ _ -> vis) (\_ vis _ _ -> vis)++--- get type parameters of type declaration+typeParams :: TypeDecl -> [TVarIndex]+typeParams = trType (\_ _ params _ -> params) (\_ _ params _ -> params)++--- get constructor declarations from type declaration+typeConsDecls :: TypeDecl -> [ConsDecl]+typeConsDecls = trType (\_ _ _ cs -> cs) failed++--- get synonym of type declaration+typeSyn :: TypeDecl -> TypeExpr+typeSyn = trType failed (\_ _ _ syn -> syn)++--- is type declaration a type synonym?+isTypeSyn :: TypeDecl -> Bool+isTypeSyn = trType (\_ _ _ _ -> False) (\_ _ _ _ -> True)++-- is type declaration declaring a regular type?+isDataTypeDecl :: TypeDecl -> Bool+isDataTypeDecl = trType (\_ _ _ cs -> not (null cs)) (\_ _ _ _ -> False)++-- is type declaration declaring an external type?+isExternalType :: TypeDecl -> Bool+isExternalType = trType (\_ _ _ cs -> null cs) (\_ _ _ _ -> False)++-- Update Operations++--- update type declaration+updType :: (QName -> QName) ->+           (Visibility -> Visibility) ->+           ([TVarIndex] -> [TVarIndex]) ->+           ([ConsDecl] -> [ConsDecl]) ->+           (TypeExpr -> TypeExpr)     -> TypeDecl -> TypeDecl+updType fn fv fp fc fs = trType typ typesyn+ where+  typ name vis params cs = Type (fn name) (fv vis) (fp params) (fc cs)+  typesyn name vis params syn = TypeSyn (fn name) (fv vis) (fp params) (fs syn)++--- update name of type declaration+updTypeName :: Update TypeDecl QName+updTypeName f = updType f id id id id++--- update visibility of type declaration+updTypeVisibility :: Update TypeDecl Visibility+updTypeVisibility f = updType id f id id id++--- update type parameters of type declaration+updTypeParams :: Update TypeDecl [TVarIndex]+updTypeParams f = updType id id f id id++--- update constructor declarations of type declaration+updTypeConsDecls :: Update TypeDecl [ConsDecl]+updTypeConsDecls f = updType id id id f id++--- update synonym of type declaration+updTypeSynonym :: Update TypeDecl TypeExpr+updTypeSynonym = updType id id id id++-- Auxiliary Functions++--- update all qualified names in type declaration+updQNamesInType :: Update TypeDecl QName+updQNamesInType f +  = updType f id id (map (updQNamesInConsDecl f)) (updQNamesInTypeExpr f)++-- ConsDecl ------------------------------------------------------------------++-- Selectors++--- transform constructor declaration+trCons :: (QName -> Int -> Visibility -> [TypeExpr] -> a) -> ConsDecl -> a+trCons cons (Cons name arity vis args) = cons name arity vis args++--- get name of constructor declaration+consName :: ConsDecl -> QName+consName = trCons (\name _ _ _ -> name)++--- get arity of constructor declaration+consArity :: ConsDecl -> Int+consArity = trCons (\_ arity _ _ -> arity)++--- get visibility of constructor declaration+consVisibility :: ConsDecl -> Visibility+consVisibility = trCons (\_ _ vis _ -> vis)++--- get arguments of constructor declaration+consArgs :: ConsDecl -> [TypeExpr]+consArgs = trCons (\_ _ _ args -> args)++-- Update Operations++--- update constructor declaration+updCons :: (QName -> QName) ->+           (Int -> Int) ->+           (Visibility -> Visibility) ->+           ([TypeExpr] -> [TypeExpr]) -> ConsDecl -> ConsDecl+updCons fn fa fv fas = trCons cons+ where+  cons name arity vis args = Cons (fn name) (fa arity) (fv vis) (fas args)++--- update name of constructor declaration+updConsName :: Update ConsDecl QName+updConsName f = updCons f id id id++--- update arity of constructor declaration+updConsArity :: Update ConsDecl Int+updConsArity f = updCons id f id id++--- update visibility of constructor declaration+updConsVisibility :: Update ConsDecl Visibility+updConsVisibility f = updCons id id f id++--- update arguments of constructor declaration+updConsArgs :: Update ConsDecl [TypeExpr]+updConsArgs = updCons id id id++-- Auxiliary Functions++--- update all qualified names in constructor declaration+updQNamesInConsDecl :: Update ConsDecl QName+updQNamesInConsDecl f = updCons f id id (map (updQNamesInTypeExpr f))++-- TypeExpr ------------------------------------------------------------------++-- Selectors++--- get index from type variable+tVarIndex :: TypeExpr -> TVarIndex+tVarIndex (TVar n) = n++--- get domain from functional type+domain :: TypeExpr -> TypeExpr+domain (FuncType dom _) = dom++--- get range from functional type+range :: TypeExpr -> TypeExpr+range (FuncType _ ran) = ran++--- get name from constructed type+tConsName :: TypeExpr -> QName+tConsName (TCons name _) = name++--- get arguments from constructed type+tConsArgs :: TypeExpr -> [TypeExpr]+tConsArgs (TCons _ args) = args++--- transform type expression+trTypeExpr :: (TVarIndex -> a) ->+              (QName -> [a] -> a) ->+              (a -> a -> a) -> TypeExpr -> a+trTypeExpr tvar _ _ (TVar n) = tvar n+trTypeExpr tvar tcons functype (TCons name args) +  = tcons name (map (trTypeExpr tvar tcons functype) args)+trTypeExpr tvar tcons functype (FuncType from to) = functype (f from) (f to)+ where+  f = trTypeExpr tvar tcons functype++-- Test Operations++--- is type expression a type variable?+isTVar :: TypeExpr -> Bool+isTVar = trTypeExpr (\_ -> True) (\_ _ -> False) (\_ _ -> False)++--- is type declaration a constructed type?+isTCons :: TypeExpr -> Bool+isTCons = trTypeExpr (\_ -> False) (\_ _ -> True) (\_ _ -> False)++--- is type declaration a functional type?+isFuncType :: TypeExpr -> Bool+isFuncType = trTypeExpr (\_ -> False) (\_ _ -> False) (\_ _ -> True)++-- Update Operations++--- update all type variables+updTVars :: (TVarIndex -> TypeExpr) -> TypeExpr -> TypeExpr+updTVars tvar = trTypeExpr tvar TCons FuncType++--- update all type constructors+updTCons :: (QName -> [TypeExpr] -> TypeExpr) -> TypeExpr -> TypeExpr+updTCons tcons = trTypeExpr TVar tcons FuncType++--- update all functional types+updFuncTypes :: (TypeExpr -> TypeExpr -> TypeExpr) -> TypeExpr -> TypeExpr+updFuncTypes = trTypeExpr TVar TCons++-- Auxiliary Functions++--- get argument types from functional type+argTypes :: TypeExpr -> [TypeExpr]+argTypes (TVar _) = []+argTypes (TCons _ _) = []+argTypes (FuncType dom ran) = dom : argTypes ran++--- get result type from (nested) functional type+resultType :: TypeExpr -> TypeExpr+resultType (TVar n) = TVar n+resultType (TCons name args) = TCons name args+resultType (FuncType _ ran) = resultType ran++--- get indexes of all type variables +allVarsInTypeExpr :: TypeExpr -> [TVarIndex]+allVarsInTypeExpr = trTypeExpr (:[]) (const concat) (++)++--- rename variables in type expression+rnmAllVarsInTypeExpr :: (TVarIndex -> TVarIndex) -> TypeExpr -> TypeExpr+rnmAllVarsInTypeExpr f = updTVars (TVar . f)++--- update all qualified names in type expression+updQNamesInTypeExpr :: (QName -> QName) -> TypeExpr -> TypeExpr+updQNamesInTypeExpr f = updTCons (\name args -> TCons (f name) args)++-- OpDecl --------------------------------------------------------------------++--- transform operator declaration+trOp :: (QName -> Fixity -> Int -> a) -> OpDecl -> a+trOp op (Op name fix prec) = op name fix prec++-- Selectors++--- get name from operator declaration+opName :: OpDecl -> QName+opName = trOp (\name _ _ -> name)++--- get fixity of operator declaration+opFixity :: OpDecl -> Fixity+opFixity = trOp (\_ fix _ -> fix)++--- get precedence of operator declaration+opPrecedence :: OpDecl -> Int+opPrecedence = trOp (\_ _ prec -> prec)++-- Update Operations++--- update operator declaration+updOp :: (QName -> QName) ->+         (Fixity -> Fixity) ->+         (Int -> Int)       -> OpDecl -> OpDecl+updOp fn ff fp = trOp op+ where+  op name fix prec = Op (fn name) (ff fix) (fp prec)++--- update name of operator declaration+updOpName :: Update OpDecl QName+updOpName f = updOp f id id++--- update fixity of operator declaration+updOpFixity :: Update OpDecl Fixity+updOpFixity f = updOp id f id++--- update precedence of operator declaration+updOpPrecedence :: Update OpDecl Int+updOpPrecedence = updOp id id++-- FuncDecl ------------------------------------------------------------------++--- transform function+trFunc :: (QName -> Int -> Visibility -> TypeExpr -> Rule -> a) -> FuncDecl -> a+trFunc func (Func name arity vis t rule) = func name arity vis t rule++-- Selectors++--- get name of function+funcName :: FuncDecl -> QName+funcName = trFunc (\name _ _ _ _ -> name)++--- get arity of function+funcArity :: FuncDecl -> Int+funcArity = trFunc (\_ arity _ _ _ -> arity)++--- get visibility of function+funcVisibility :: FuncDecl -> Visibility+funcVisibility = trFunc (\_ _ vis _ _ -> vis)++--- get type of function+funcType :: FuncDecl -> TypeExpr+funcType = trFunc (\_ _ _ t _ -> t)++--- get rule of function+funcRule :: FuncDecl -> Rule+funcRule = trFunc (\_ _ _ _ rule -> rule)++-- Update Operations++--- update function+updFunc :: (QName -> QName) ->+           (Int -> Int) ->+           (Visibility -> Visibility) ->+           (TypeExpr -> TypeExpr) ->+           (Rule -> Rule)             -> FuncDecl -> FuncDecl+updFunc fn fa fv ft fr = trFunc func+ where +  func name arity vis t rule +    = Func (fn name) (fa arity) (fv vis) (ft t) (fr rule)++--- update name of function+updFuncName :: Update FuncDecl QName+updFuncName f = updFunc f id id id id++--- update arity of function+updFuncArity :: Update FuncDecl Int+updFuncArity f = updFunc id f id id id++--- update visibility of function+updFuncVisibility :: Update FuncDecl Visibility+updFuncVisibility f = updFunc id id f id id++--- update type of function+updFuncType :: Update FuncDecl TypeExpr+updFuncType f = updFunc id id id f id++--- update rule of function+updFuncRule :: Update FuncDecl Rule+updFuncRule = updFunc id id id id++-- Auxiliary Functions++--- is function externally defined?+isExternal :: FuncDecl -> Bool+isExternal = isRuleExternal . funcRule++--- get variable names in a function declaration+allVarsInFunc :: FuncDecl -> [VarIndex]+allVarsInFunc = allVarsInRule . funcRule++--- get arguments of function, if not externally defined+funcArgs :: FuncDecl -> [VarIndex]+funcArgs = ruleArgs . funcRule++--- get body of function, if not externally defined+funcBody :: FuncDecl -> Expr+funcBody = ruleBody . funcRule++funcRHS :: FuncDecl -> [Expr]+funcRHS f | not (isExternal f) = orCase (funcBody f)+          | otherwise = []+ where+  orCase e +    | isOr e = concatMap orCase (orExps e)+    | isCase e = concatMap orCase (map branchExpr (caseBranches e))+    | otherwise = [e]++--- rename all variables in function+rnmAllVarsInFunc :: Update FuncDecl VarIndex+rnmAllVarsInFunc = updFunc id id id id . rnmAllVarsInRule++--- update all qualified names in function+updQNamesInFunc :: Update FuncDecl QName+updQNamesInFunc f = updFunc f id id (updQNamesInTypeExpr f) (updQNamesInRule f)++--- update arguments of function, if not externally defined+updFuncArgs :: Update FuncDecl [VarIndex]+updFuncArgs = updFuncRule . updRuleArgs++--- update body of function, if not externally defined+updFuncBody :: Update FuncDecl Expr+updFuncBody = updFuncRule . updRuleBody++-- Rule ----------------------------------------------------------------------++--- transform rule+trRule :: ([VarIndex] -> Expr -> a) -> (String -> a) -> Rule -> a+trRule rule _ (Rule args exp) = rule args exp+trRule _ ext (External s) = ext s++-- Selectors++--- get rules arguments if it's not external+ruleArgs :: Rule -> [VarIndex]+ruleArgs = trRule (\args _ -> args) failed++--- get rules body if it's not external+ruleBody :: Rule -> Expr+ruleBody = trRule (\_ exp -> exp) failed++--- get rules external declaration+ruleExtDecl :: Rule -> String+ruleExtDecl = trRule failed id ++-- Test Operations++--- is rule external?+isRuleExternal :: Rule -> Bool+isRuleExternal = trRule (\_ _ -> False) (\_ -> True)++-- Update Operations++--- update rule+updRule :: ([VarIndex] -> [VarIndex]) ->+           (Expr -> Expr) ->+           (String -> String) -> Rule -> Rule+updRule fa fe fs = trRule rule ext+ where+  rule args exp = Rule (fa args) (fe exp)+  ext s = External (fs s)++--- update rules arguments+updRuleArgs :: Update Rule [VarIndex]+updRuleArgs f = updRule f id id++--- update rules body+updRuleBody :: Update Rule Expr+updRuleBody f = updRule id f id++--- update rules external declaration+updRuleExtDecl :: Update Rule String+updRuleExtDecl f = updRule id id f++-- Auxiliary Functions++--- get variable names in a functions rule+allVarsInRule :: Rule -> [VarIndex]+allVarsInRule = trRule (\args body -> args ++ allVars body) (\_ -> [])++--- rename all variables in rule+rnmAllVarsInRule :: Update Rule VarIndex+rnmAllVarsInRule f = updRule (map f) (rnmAllVars f) id++--- update all qualified names in rule+updQNamesInRule :: Update Rule QName+updQNamesInRule = updRuleBody . updQNames++-- CombType ------------------------------------------------------------------++--- transform combination type+trCombType :: a -> (Int -> a) -> a -> (Int -> a) -> CombType -> a+trCombType fc _ _ _ FuncCall = fc+trCombType _ fpc _ _ (FuncPartCall n) = fpc n+trCombType _ _ cc _ ConsCall = cc+trCombType _ _ _ cpc (ConsPartCall n) = cpc n++-- Test Operations++--- is type of combination FuncCall?+isCombTypeFuncCall :: CombType -> Bool+isCombTypeFuncCall = trCombType True (\_ -> False) False (\_ -> False)++--- is type of combination FuncPartCall?+isCombTypeFuncPartCall :: CombType -> Bool+isCombTypeFuncPartCall = trCombType False (\_ -> True) False (\_ -> False)++--- is type of combination ConsCall?+isCombTypeConsCall :: CombType -> Bool+isCombTypeConsCall = trCombType False (\_ -> False) True (\_ -> False)++--- is type of combination ConsPartCall?+isCombTypeConsPartCall :: CombType -> Bool+isCombTypeConsPartCall = trCombType False (\_ -> False) False (\_ -> True)++-- Auxiliary Functions++missingArgs :: CombType -> Int+missingArgs = trCombType 0 id 0 id++-- Expr ----------------------------------------------------------------------++-- Selectors++--- get internal number of variable+varNr :: Expr -> VarIndex+varNr (Var n) = n++--- get literal if expression is literal expression+literal :: Expr -> Literal+literal (Lit l) = l++--- get combination type of a combined expression+combType :: Expr -> CombType+combType (Comb ct _ _) = ct++--- get name of a combined expression+combName :: Expr -> QName+combName (Comb _ name _) = name++--- get arguments of a combined expression+combArgs :: Expr -> [Expr]+combArgs (Comb _ _ args) = args++--- get number of missing arguments if expression is combined+missingCombArgs :: Expr -> Int+missingCombArgs = missingArgs . combType++--- get indices of varoables in let declaration+letBinds :: Expr -> [(VarIndex,Expr)]+letBinds (Let vs _) = vs++--- get body of let declaration+letBody :: Expr -> Expr+letBody (Let _ e) = e++--- get variable indices from declaration of free variables+freeVars :: Expr -> [VarIndex]+freeVars (Free vs _) = vs++--- get expression from declaration of free variables+freeExpr :: Expr -> Expr+freeExpr (Free _ e) = e++--- get expressions from or-expression+orExps :: Expr -> [Expr]+orExps (FlatCurry.Or e1 e2) = [e1,e2]++--- get case-type of case expression+caseType :: Expr -> CaseType+caseType (Case ct _ _) = ct++--- get scrutinee of case expression+caseExpr :: Expr -> Expr+caseExpr (Case _ e _) = e++--- get branch expressions from case expression+caseBranches :: Expr -> [BranchExpr]+caseBranches (Case _ _ bs) = bs++-- Test Operations++--- is expression a variable?+isVar :: Expr -> Bool+isVar e = case e of +  Var _ -> True+  _ -> False++--- is expression a literal expression?+isLit :: Expr -> Bool+isLit e = case e of+  Lit _ -> True+  _ -> False++--- is expression combined?+isComb :: Expr -> Bool+isComb e = case e of+  Comb _ _ _ -> True+  _ -> False++--- is expression a let expression?+isLet :: Expr -> Bool+isLet e = case e of+  Let _ _ -> True+  _ -> False++--- is expression a declaration of free variables?+isFree :: Expr -> Bool+isFree e = case e of+  Free _ _ -> True+  _ -> False++--- is expression an or-expression?+isOr :: Expr -> Bool+isOr e = case e of+  FlatCurry.Or _ _ -> True+  _ -> False++--- is expression a case expression?+isCase :: Expr -> Bool+isCase e = case e of+  Case _ _ _ -> True+  _ -> False++--- transform expression+trExpr :: (VarIndex -> a) ->+          (Literal -> a) ->+          (CombType -> QName -> [a] -> a) ->+          ([(VarIndex,a)] -> a -> a) ->+          ([VarIndex] -> a -> a) ->+          (a -> a -> a) ->+          (CaseType -> a -> [b] -> a) ->+          (Pattern -> a -> b)         -> Expr -> a+trExpr var _ _ _ _ _ _ _ (Var n) = var n++trExpr _ lit _ _ _ _ _ _ (Lit l) = lit l++trExpr var lit comb lt fr or cas branch (Comb ct name args)+  = comb ct name (map (trExpr var lit comb lt fr or cas branch) args)++trExpr var lit comb lt fr or cas branch (Let bs e)+  = lt (map (\ (n,exp) -> (n,f exp)) bs) (f e)+ where+  f = trExpr var lit comb lt fr or cas branch++trExpr var lit comb lt fr or cas branch (Free vs e)+  = fr vs (trExpr var lit comb lt fr or cas branch e)++trExpr var lit comb lt fr or cas branch (FlatCurry.Or e1 e2) = or (f e1) (f e2)+ where+  f = trExpr var lit comb lt fr or cas branch++trExpr var lit comb lt fr or cas branch (Case ct e bs)+  = cas ct (f e) (map (\ (Branch pat exp) -> branch pat (f exp)) bs)+ where+  f = trExpr var lit comb lt fr or cas branch++-- Update Operations++--- update all variables in given expression+updVars :: (VarIndex -> Expr) -> Expr -> Expr+updVars var = trExpr var Lit Comb Let Free FlatCurry.Or Case Branch++--- update all literals in given expression+updLiterals :: (Literal -> Expr) -> Expr -> Expr+updLiterals lit = trExpr Var lit Comb Let Free FlatCurry.Or Case Branch++--- update all combined expressions in given expression+updCombs :: (CombType -> QName -> [Expr] -> Expr) -> Expr -> Expr+updCombs comb = trExpr Var Lit comb Let Free FlatCurry.Or Case Branch++--- update all let expressions in given expression+updLets :: ([(VarIndex,Expr)] -> Expr -> Expr) -> Expr -> Expr+updLets lt = trExpr Var Lit Comb lt Free FlatCurry.Or Case Branch++--- update all free declarations in given expression+updFrees :: ([VarIndex] -> Expr -> Expr) -> Expr -> Expr+updFrees fr = trExpr Var Lit Comb Let fr FlatCurry.Or Case Branch++--- update all or expressions in given expression+updOrs :: (Expr -> Expr -> Expr) -> Expr -> Expr+updOrs or = trExpr Var Lit Comb Let Free or Case Branch++--- update all case expressions in given expression+updCases :: (CaseType -> Expr -> [BranchExpr] -> Expr) -> Expr -> Expr+updCases cas = trExpr Var Lit Comb Let Free FlatCurry.Or cas Branch++--- update all case branches in given expression+updBranches :: (Pattern -> Expr -> BranchExpr) -> Expr -> Expr+updBranches branch = trExpr Var Lit Comb Let Free FlatCurry.Or Case branch++-- Auxiliary Functions++--- is expression a call of a function where all arguments are provided?+isFuncCall :: Expr -> Bool+isFuncCall e = isComb e && isCombTypeFuncCall (combType e)++--- is expression a partial function call?+isFuncPartCall :: Expr -> Bool+isFuncPartCall e = isComb e && isCombTypeFuncPartCall (combType e)++--- is expression a call of a constructor?+isConsCall :: Expr -> Bool+isConsCall e = isComb e && isCombTypeConsCall (combType e)++--- is expression a partial constructor call?+isConsPartCall :: Expr -> Bool+isConsPartCall e = isComb e && isCombTypeConsPartCall (combType e)++--- is expression fully evaluated?+isGround :: Expr -> Bool+isGround exp +  = case exp of+      Comb ConsCall _ args -> all isGround args+      _ -> isLit exp++--- get all variables (also pattern variables) in expression+allVars :: Expr -> [VarIndex]+allVars e = trExpr (:) (const id) comb lt fr (.) cas branch e []+ where+  comb _ _ = foldr (.) id+  lt bs exp = exp . foldr (.) id (map (\ (n,ns) -> (n:) . ns) bs)+  fr vs exp = (vs++) . exp+  cas _ exp bs = exp . foldr (.) id bs+  branch pat exp = ((args pat)++) . exp+  args pat | isConsPattern pat = patArgs pat+           | otherwise = []++--- rename all variables (also in patterns) in expression+rnmAllVars :: Update Expr VarIndex+rnmAllVars f = trExpr (Var . f) Lit Comb lt (Free . map f) FlatCurry.Or Case branch+ where+   lt = Let . map (\ (n,exp) -> (f n,exp))+   branch = Branch . updPatArgs (map f)++--- update all qualified names in expression+updQNames :: Update Expr QName+updQNames f = trExpr Var Lit comb Let Free FlatCurry.Or Case (Branch . updPatCons f)+ where+  comb ct name args = Comb ct (f name) args++-- BranchExpr ----------------------------------------------------------------++--- transform branch expression+trBranch :: (Pattern -> Expr -> a) -> BranchExpr -> a+trBranch branch (Branch pat exp) = branch pat exp++-- Selectors++--- get pattern from branch expression+branchPattern :: BranchExpr -> Pattern+branchPattern = trBranch (\pat _ -> pat)++--- get expression from branch expression+branchExpr :: BranchExpr -> Expr+branchExpr = trBranch (\_ e -> e)++-- Update Operations++--- update branch expression+updBranch :: (Pattern -> Pattern) -> (Expr -> Expr) -> BranchExpr -> BranchExpr+updBranch fp fe = trBranch branch+ where+  branch pat exp = Branch (fp pat) (fe exp)++--- update pattern of branch expression+updBranchPattern :: Update BranchExpr Pattern+updBranchPattern f = updBranch f id++--- update expression of branch expression+updBranchExpr :: Update BranchExpr Expr+updBranchExpr = updBranch id++-- Pattern -------------------------------------------------------------------++--- transform pattern+trPattern :: (QName -> [VarIndex] -> a) -> (Literal -> a) -> Pattern -> a+trPattern pattern _ (Pattern name args) = pattern name args+trPattern _ lpattern (LPattern l) = lpattern l++-- Selectors++--- get name from constructor pattern+patCons :: Pattern -> QName+patCons = trPattern (\name _ -> name) failed++--- get arguments from constructor pattern+patArgs :: Pattern -> [VarIndex]+patArgs = trPattern (\_ args -> args) failed++--- get literal from literal pattern +patLiteral :: Pattern -> Literal+patLiteral = trPattern failed id++-- Test Operations++--- is pattern a constructor pattern?+isConsPattern :: Pattern -> Bool+isConsPattern = trPattern (\_ _ -> True) (\_ -> False)++-- Update Operations++--- update pattern+updPattern :: (QName -> QName) ->+              ([VarIndex] -> [VarIndex]) ->+              (Literal -> Literal) -> Pattern -> Pattern+updPattern fn fa fl = trPattern pattern lpattern+ where+  pattern name args = Pattern (fn name) (fa args)+  lpattern l = LPattern (fl l)++--- update constructors name of pattern+updPatCons :: (QName -> QName) -> Pattern -> Pattern+updPatCons f = updPattern f id id++--- update arguments of constructor pattern+updPatArgs :: ([VarIndex] -> [VarIndex]) -> Pattern -> Pattern+updPatArgs f = updPattern id f id++--- update literal of pattern+updPatLiteral :: (Literal -> Literal) -> Pattern -> Pattern+updPatLiteral f = updPattern id id f++-- Auxiliary Functions++--- build expression from pattern+patExpr :: Pattern -> Expr+patExpr = trPattern (\ name -> Comb ConsCall name . map Var) Lit+
+ src/lib/Curry/Module/FlatCurryRead.curry view
@@ -0,0 +1,135 @@+------------------------------------------------------------------------------+--- This library defines operations to read a FlatCurry programs or interfaces+--- together with all its imported modules in the current load path.+---+--- @author Michael Hanus+--- @version August 2005+------------------------------------------------------------------------------++module FlatCurryRead(readFlatCurryWithImports,readFlatCurryWithImportsInPath,+                     readFlatCurryIntWithImports,readFlatCurryIntWithImportsInPath)+  where++import FlatCurry+import Directory+import FileGoodies+import System+import Distribution+import List(intersperse)+import Time(clockTimeToInt)++--------------------------------------------------------------------------+--- Reads a FlatCurry program together with all its imported modules.+--- The argument is the name of the main module (possibly with a directory prefix).+readFlatCurryWithImports :: String -> IO [Prog]+readFlatCurryWithImports modname = do+  loadpath <- getLoadPathForFile (flatCurryFileName modname)+  readFlatCurryFileWithImports loadpath (baseName modname) [".fcy"]++--- Reads a FlatCurry program together with all its imported modules in a given+--- load path.+--- The arguments are a load path and the name of the main module.+readFlatCurryWithImportsInPath :: [String] -> String -> IO [Prog]+readFlatCurryWithImportsInPath loadpath modname =+  readFlatCurryFileWithImports loadpath modname [".fcy"]++--- Reads a FlatCurry interface together with all its imported module interfaces.+--- The argument is the name of the main module (possibly with a directory prefix).+--- If there is no interface file but a FlatCurry file (suffix ".fcy"),+--- the FlatCurry file is read instead of the interface.+readFlatCurryIntWithImports :: String -> IO [Prog]+readFlatCurryIntWithImports modname = do+  loadpath <- getLoadPathForFile (flatCurryIntName modname)+  readFlatCurryFileWithImports loadpath (baseName modname) [".fint",".fcy"]++--- Reads a FlatCurry interface together with all its imported module interfaces+--- in a given load path.+--- The arguments are a load path and the name of the main module.+--- If there is no interface file but a FlatCurry file (suffix ".fcy"),+--- the FlatCurry file is read instead of the interface.+readFlatCurryIntWithImportsInPath :: [String] -> String -> IO [Prog]+readFlatCurryIntWithImportsInPath loadpath modname =+  readFlatCurryFileWithImports loadpath modname [".fint",".fcy"]++-- Read a FlatCurry file together with its imported modules.+-- The argument is the loadpath, the name of the main module, and the+-- possible suffixes of the FlatCurry file (e.g., [".fint",".fcy"]).+readFlatCurryFileWithImports :: [String] -> String -> [String] -> IO [Prog]+readFlatCurryFileWithImports loadpath mod suffixes = do+  putStr "Reading FlatCurry files "+  -- try to read the interface files directly:+  mbaimps <- tryReadFlatCurryFileWithImports loadpath mod suffixes+  maybe (parseFlatCurryFileWithImports loadpath mod suffixes) return mbaimps+++parseFlatCurryFileWithImports loadpath modname suffixes = do+  putStrLn $ ">>>>> FlatCurry files not up-to-date, parsing module \""++modname++"\"..."+  callFrontendWithParams FCY+     (setQuiet True (setFullPath loadpath defaultParams)) modname+  putStr "Reading FlatCurry files "+  collectMods [modname] []+ where+  collectMods [] _ = putStrLn "done" >> return []+  collectMods (mod:mods) implist =+    if mod `elem` implist+    then collectMods mods implist+    else lookupFileInPath mod suffixes loadpath >>= \mbfname ->+         maybe (error $ "FlatCurry file for module \""++mod++"\" not found!")+               (\filename ->+                     putStr (filename++" ") >>+                     readFlatCurryFile filename >>= \prog ->+                     collectMods (mods++importsOf prog) (mod:implist) >>= \results ->+                     return (prog : results))+               mbfname++-- Read and process the imported interfaces of a module.+-- First argument is a processing action and second argument+-- is a module to be processed.+-- Nothing is returned if some interface files do not exists or are not+-- up-to-date+tryReadFlatCurryFileWithImports :: [String] -> String -> [String] -> IO (Maybe [Prog])+tryReadFlatCurryFileWithImports loadpath modname suffixes =+  collectMods [modname] []+ where+  collectMods [] _ = putStrLn "done" >> return (Just [])+  collectMods (mod:mods) implist =+    if mod `elem` implist+    then collectMods mods implist+    else+      readFlatCurryIfPossible loadpath mod suffixes >>= \mbprog ->+      maybe (return Nothing)+            (\prog->collectMods (mods++importsOf prog) (mod:implist) >>=+                    \mbresults -> return (maybe Nothing+                                                (\results->Just (prog : results))+                                                mbresults))+             mbprog++importsOf :: Prog -> [String]+importsOf (Prog _ imps _ _ _) = imps++-- Read a FlatCurry file for a module if it exists and is up-to-date+-- w.r.t. the source program. If no source exists, it is always assumed+-- to be up-to-date.+readFlatCurryIfPossible :: [String] -> String -> [String] -> IO (Maybe Prog)+readFlatCurryIfPossible loadpath modname suffixes = do+  mbfname <- lookupFileInPath modname [".lcurry",".curry"] loadpath+  maybe (lookupFileInPath modname suffixes loadpath >>= \fname ->+         maybe (return Nothing)+               (\progname -> readFlatCurryFile progname >>= return . Just)+               fname)+        (\sname -> do+           let moddir    = dirName sname+               pathofmod = [moddir,addCurrySubdir moddir]+           mbflatfile <- lookupFileInPath modname suffixes pathofmod+           maybe (return Nothing)+                 (\flatfile -> do+                    ctime <- getModificationTime sname+                    ftime <- getModificationTime flatfile+                    if clockTimeToInt ctime > clockTimeToInt ftime+                     then return Nothing+                     else putStr (flatfile++" ") >>+                          readFlatCurryFile flatfile >>= return . Just )+                 mbflatfile)+        mbfname++--------------------------------------------------------------------------
+ src/lib/Curry/Module/FlatCurryShow.curry view
@@ -0,0 +1,328 @@+------------------------------------------------------------------------------+--- Some tools to show FlatCurry programs.+---+--- This library contains+--- <UL>+--- <LI> show functions for a string representation of FlatCurry programs+---      (showFlatProg, showFlatType, showFlatFunc)+---+--- <LI> functions for showing FlatCurry (type) expressions in (almost)+---      Curry syntax (showCurryType, showCurryExpr,...)+--- </UL>+---+--- @author Michael Hanus+--- @version December 2005+------------------------------------------------------------------------------++module FlatCurryShow(showFlatProg,showFlatType,showFlatFunc,+                     showCurryType,showCurryExpr,showCurryId,showCurryVar)+   where++import FlatCurry+import List+import Char++--- Shows a FlatCurry program term as a string (with some pretty printing).+showFlatProg :: Prog -> String+showFlatProg (Prog modname imports types funcs ops) =+     " (Prog " ++ show modname+     ++ (if imports==[] then "\n  []" else+         "\n  [" ++ showFlatListElems show imports ++ "]")+     ++ (if types==[] then "\n  []" else+         "\n  [" ++ showFlatListElems showFlatType types ++ "\n ]")+     ++ "\n  [" ++ showFlatListElems showFlatFunc funcs ++ "\n  ]"+     ++ "\n " ++ showFlatList showFlatOp ops+     ++ "\n )\n"++showFlatVisibility Public  = " Public "+showFlatVisibility Private = " Private "++showFlatFixity InfixOp = " InfixOp "+showFlatFixity InfixlOp = " InfixlOp "+showFlatFixity InfixrOp = " InfixrOp "++showFlatOp (Op name fix prec) =+ "(Op " ++ show name ++ showFlatFixity fix ++ show prec ++ ")"++showFlatType :: TypeDecl -> String+showFlatType (Type name vis tpars consdecls) =+  "\n  (Type " ++ show name ++ showFlatVisibility vis+               ++ showFlatList show tpars+               ++ showFlatList showFlatCons consdecls ++ ")"+showFlatType (TypeSyn name vis tpars texp) =+  "\n  (TypeSyn " ++ show name ++ showFlatVisibility vis+                  ++ showFlatList show tpars+                  ++ showFlatTypeExpr texp ++ ")"++showFlatCons (Cons cname arity vis types) =+  "(Cons " ++ show cname ++ " " ++ show arity+           ++ showFlatVisibility vis+           ++ showFlatList showFlatTypeExpr types ++ ")"++showFlatFunc :: FuncDecl -> String+showFlatFunc (Func name arity vis ftype rl) =+  "\n  (Func " ++ show name ++ " " ++ show arity ++ " "+               ++ showFlatVisibility vis +++  "\n        " ++ showFlatTypeExpr ftype +++  "\n       " ++ showFlatRule rl ++ ")"++showFlatRule (Rule params expr) =+  " (Rule " ++ showFlatList show params+            ++ showFlatExpr expr ++ ")"+showFlatRule (External name) =+  " (External " ++ show name ++ ")"++showFlatTypeExpr (FuncType t1 t2) =+  "(FuncType " ++ showFlatTypeExpr t1 ++ " " ++ showFlatTypeExpr t2 ++ ")"+showFlatTypeExpr (TCons tc ts) =+  "(TCons " ++ show tc+            ++ showFlatList showFlatTypeExpr ts ++ ")"+showFlatTypeExpr (TVar n) = "(TVar " ++ show n ++ ")"+++showFlatCombType FuncCall = "FuncCall"+showFlatCombType ConsCall = "ConsCall"+showFlatCombType (FuncPartCall n) = "(FuncPartCall " ++ show n ++ ")"+showFlatCombType (ConsPartCall n) = "(ConsPartCall " ++ show n ++ ")"++showFlatExpr (Var n) = "(Var " ++ show n ++ ")"+showFlatExpr (Lit l) = "(Lit " ++ showFlatLit l ++ ")"+showFlatExpr (Comb ctype cf es) =+  "(Comb " ++ showFlatCombType ctype ++ " "+           ++ show cf ++ showFlatList showFlatExpr es ++ ")"+showFlatExpr (Let bindings exp) =+  "(Let " ++ showFlatList showFlatBinding bindings ++ showFlatExpr exp ++ ")"+ where +   showFlatBinding :: (Int,Expr) -> String+   showFlatBinding (x,e) = "("++show x++","++showFlatExpr e++")"+showFlatExpr (Free xs e) =+  "(Free " ++ showFlatList show xs ++ showFlatExpr e ++ ")"+showFlatExpr (FlatCurry.Or e1 e2) =+  "(Or " ++ showFlatExpr e1 ++ " " ++ showFlatExpr e2 ++ ")"+showFlatExpr (Case Rigid e bs) =+  "(Case Rigid " ++ showFlatExpr e ++ showFlatList showFlatBranch bs ++ ")"+showFlatExpr (Case Flex e bs) =+  "(Case Flex " ++ showFlatExpr e ++ showFlatList showFlatBranch bs ++ ")"++showFlatLit (Intc   i) = "(Intc " ++ show i ++ ")"+showFlatLit (Floatc f) = "(Floatc " ++ show f ++ ")"+showFlatLit (Charc  c) = "(Charc " ++ show c ++ ")"++showFlatBranch (Branch p e) = "(Branch " ++ showFlatPattern p+                                         ++ showFlatExpr e ++ ")"++showFlatPattern (Pattern qn xs) =+      "(Pattern " ++ show qn+                  ++ showFlatList show xs ++ ")"+showFlatPattern (LPattern lit) = "(LPattern " ++ showFlatLit lit ++ ")"+++-- format a finite list of elements:+showFlatList :: (a->String) -> [a] -> String+showFlatList format elems = " [" ++ showFlatListElems format elems ++ "] "++showFlatListElems :: (a->String) -> [a] -> String+showFlatListElems format elems = concat (intersperse "," (map format elems))+++------------------------------------------------------------------------------+--- Shows a FlatCurry type in Curry syntax.+---+--- @param trans - a translation function from qualified type names+---                to external type names+--- @param nested - True iff brackets must be written around complex types+--- @param texpr - the FlatCurry type expression to be formatted+--- @return the String representation of the formatted type expression++showCurryType :: ((String,String) -> String) -> Bool -> TypeExpr -> String++showCurryType _ _ (TVar i) = if i<5 then [chr (97+i)] else 't':show i+showCurryType tf nested (FuncType t1 t2) =+  showBracketsIf nested+    (showCurryType tf (isFuncType t1) t1 ++ " -> " +++     showCurryType tf False t2)+showCurryType tf nested (TCons tc ts)+ | ts==[]  = tf tc+ | tc==("Prelude","[]") && (head ts == TCons ("Prelude","Char") [])+   = "String"+ | tc==("Prelude","[]")+  = "[" ++ showCurryType tf False (head ts) ++ "]" -- list type+ | take 2 (snd tc) == "(,"                         -- tuple type+  = "(" ++ concat (intersperse "," (map (showCurryType tf False) ts)) ++ ")"+ | otherwise+  = showBracketsIf nested+    (tf tc ++ concatMap (\t->' ':showCurryType tf True t) ts)++isFuncType (TVar _)       = False+isFuncType (FuncType _ _) = True+isFuncType (TCons _ _)  = False+++------------------------------------------------------------------------------+--- Shows a FlatCurry expressions in (almost) Curry syntax.+---+--- @param trans - a translation function from qualified functions names+---                to external function names+--- @param nested - True iff brackets must be written around complex terms+--- @param indent - the indentation used in  case expressions and if-then-else+--- @param expr - the FlatCurry expression to be formatted+--- @return the String representation of the formatted expression++showCurryExpr :: ((String,String) -> String) -> Bool -> Int -> Expr -> String++showCurryExpr _ _ _ (Var n) = showCurryVar n++showCurryExpr _ _ _ (Lit l) = showCurryLit l++showCurryExpr tf _ _ (Comb _ cf []) = showCurryId (tf cf)+showCurryExpr tf nested b (Comb _ cf [e]) =+  showBracketsIf nested (showCurryId (tf cf) ++ " "+                            ++ showCurryExpr tf True b e)+showCurryExpr tf nested b (Comb ct cf [e1,e2])+ | cf==("Prelude","apply")+  = showBracketsIf nested+       (showCurryExpr tf True b e1 ++ " " ++ showCurryExpr tf True b e2)+ | isAlpha (head (snd cf))+  = showBracketsIf nested+    (tf cf ++" "++ showCurryElems (showCurryExpr tf True b) [e1,e2])+ | isFiniteList (Comb ct cf [e1,e2])+  = if isStringConstant (Comb ct cf [e1,e2])+    then "\"" ++ showCurryStringConstant (Comb ct cf [e1,e2]) ++ "\""+    else "[" +++         concat (intersperse "," (showCurryFiniteList tf b (Comb ct cf [e1,e2])))+         ++ "]"+ | snd cf == "(,)" -- pair constructor?+  = "(" ++ showCurryExpr tf False b e1 ++ "," +++           showCurryExpr tf False b e2 ++ ")"+ | otherwise+  = showBracketsIf nested+              (showCurryExpr tf True b e1 ++ " " ++ tf cf ++ " " +++               showCurryExpr tf True b e2 )+showCurryExpr tf nested b (Comb _ cf (e1:e2:e3:es))+ | cf==("Prelude","if_then_else") && es==[]+  = showBracketsIf nested+        ("\n" +++         sceBlanks b ++ " if "   ++ showCurryExpr tf False (b+2) e1 ++ "\n" +++         sceBlanks b ++ " then " ++ showCurryExpr tf False (b+2) e2 ++ "\n" +++         sceBlanks b ++ " else " ++ showCurryExpr tf False (b+2) e3)+ | take 2 (snd cf) == "(,"  -- tuple constructor?+  = "(" +++    concat (intersperse "," (map (showCurryExpr tf False b) (e1:e2:e3:es)))+        ++ ")"+ | otherwise+  = showBracketsIf nested+       (showCurryId (tf cf) ++ " "+        ++ showCurryElems (showCurryExpr tf True b) (e1:e2:e3:es))++showCurryExpr tf nested b (Let bindings exp) =+  showBracketsIf nested+    ("\n"++sceBlanks b++"let " ++ concat (intersperse ("\n    "++sceBlanks b)+     (map (\ (x,e)->showCurryVar x ++" = "++showCurryExpr tf False (b+4) e) bindings)) +++     ("\n"++sceBlanks b++" in ") ++ showCurryExpr tf False (b+4) exp)++showCurryExpr tf nested b (Free [] e) = showCurryExpr tf nested b e++showCurryExpr tf nested b (Free (x:xs) e) =+  showBracketsIf nested+    ("let " ++ concat (intersperse "," (map showCurryVar (x:xs))) +++     " free in " ++ showCurryExpr tf False b e)++showCurryExpr tf nested b (FlatCurry.Or e1 e2) =+  showBracketsIf nested+    (showCurryExpr tf True b e1 ++ " ? " ++ showCurryExpr tf True b e2)++showCurryExpr tf nested b (Case ctype e cs) =+  showBracketsIf nested+    ((if ctype==Rigid then "case " else "fcase ") +++     showCurryExpr tf True b e ++ " of\n " +++     showCurryElems (showCurryCase tf (b+2)) cs ++ sceBlanks b)+++showCurryVar i = "v" ++ show i++--- Shows an identifier in Curry form. Thus, operators are enclosed in brackets.+showCurryId name | isAlpha (head name) = name+                 | name == "[]"        = name+                 | otherwise           = ('(':name)++")"++showCurryLit (Intc   i) = show i+showCurryLit (Floatc f) = show f+showCurryLit (Charc  c) = show c++showCurryCase tf b (Branch (Pattern l vs) e) =+  sceBlanks b ++ showPattern (tf l) vs+              ++ " -> " ++ showCurryExpr tf False b e ++ "\n"+ where+   showPattern c [] = c+   showPattern c [x] = c ++ " " ++ showCurryVar x+   showPattern c [x1,x2] =+     if isAlpha (head c)+     then c ++ " " ++ showCurryVar x1 ++ " " ++ showCurryVar x2+     else if c=="(,)" -- pair constructor?+          then "(" ++ showCurryVar x1 ++ "," ++ showCurryVar x2 ++ ")"+          else showCurryVar x1 ++ " " ++ c ++ " " ++ showCurryVar x2+   showPattern c (x1:x2:x3:xs) =+     if take 2 c == "(,"  -- tuple constructor?+     then "("++ concat (intersperse "," (map showCurryVar (x1:x2:x3:xs))) ++")"+     else c ++ " " ++ showCurryElems showCurryVar (x1:x2:x3:xs)++showCurryCase tf b (Branch (LPattern l) e) =+  sceBlanks b ++ showCurryLit l ++ " "+              ++ " -> " ++ showCurryExpr tf False b e ++ "\n"++showCurryFiniteList _ _ (Comb _ ("Prelude","[]") []) = []+showCurryFiniteList tf b (Comb _ ("Prelude",":") [e1,e2]) =+  showCurryExpr tf False b e1 : showCurryFiniteList tf b e2++-- show a string constant+showCurryStringConstant (Comb _ ("Prelude","[]") []) = []+showCurryStringConstant (Comb _ ("Prelude",":") [e1,e2]) =+   showCharExpr e1 ++ showCurryStringConstant e2++showCharExpr (Lit (Charc c))+  | c=='"'  = "\\\""+  | c=='\'' = "\\\'"+  | c=='\n' = "\\n"+  | o < 32 || o > 126 =+    ['\\',chr(o `div` 100 + 48), chr(((o `mod` 100) `div` 10 + 48)),chr(o `mod` 10 + 48)]+  | otherwise = [c]+ where+   o = ord c++showCurryElems :: (a->String) -> [a] -> String+showCurryElems format elems =+   concat (intersperse " " (map format elems))++showBracketsIf nested s = if nested then '(' : s ++ ")" else s++sceBlanks b = take b (repeat ' ')++-- Is the expression a finite list (with an empty list at the end)?+isFiniteList :: Expr -> Bool+isFiniteList (Var _) = False+isFiniteList (Lit _) = False+isFiniteList (Comb _ name args)+  | name==("Prelude","[]") && args==[] = True+  | name==("Prelude",":") && length args == 2 = isFiniteList (args!!1)+  | otherwise = False+isFiniteList (Let _ _) = False+isFiniteList (Free _ _) = False+isFiniteList (FlatCurry.Or _ _) = False+isFiniteList (Case _ _ _) = False++-- Is the expression a string constant?+isStringConstant :: Expr -> Bool+isStringConstant e = case e of+  Comb _ name args -> (name==("Prelude","[]") && null args) ||+                      (name==("Prelude",":") && length args == 2 &&+                       isCharConstant (head args) && isStringConstant (args!!1))+  _                -> False++-- Is the expression a character constant?+isCharConstant :: Expr -> Bool+isCharConstant e = case e of+  Lit (Charc _) -> True+  _             -> False+++------------------------------------------------------------------------------
+ src/lib/Curry/Module/FlatCurryTools.curry view
@@ -0,0 +1,335 @@+------------------------------------------------------------------------------+--- Some tools to support meta-programming in Curry based on FlatCurry.+---+--- This library contains+--- <UL>+--- <LI> a show function for a string representation of FlatCurry programs+---   (function "showFlatProg")+---+--- <LI> a function for showing FlatCurry expressions in (almost) Curry syntax+---   (function "showCurryExpr")+--- </UL>+---+--- Note that the previously contained function "writeFLC"+--- is no longer supported. Use Flat2Fcy.writeFCY instead+--- and change file suffix into ".fcy"!+---+--- @author Michael Hanus+--- @version August 2005+------------------------------------------------------------------------------++module FlatCurryTools(showFlatProg,showFlatType,showFlatFunc,+                      showCurryType,showCurryExpr,showCurryId,showCurryVar)+   where++import FlatCurry+import List+import Char++--- Shows a FlatCurry program term as a string (with some pretty printing).+showFlatProg :: Prog -> String+showFlatProg (Prog modname imports types funcs ops) =+     " (Prog " ++ show modname+     ++ (if imports==[] then "\n  []" else+         "\n  [" ++ showFlatListElems show imports ++ "]")+     ++ (if types==[] then "\n  []" else+         "\n  [" ++ showFlatListElems showFlatType types ++ "\n ]")+     ++ "\n  [" ++ showFlatListElems showFlatFunc funcs ++ "\n  ]"+     ++ "\n " ++ showFlatList showFlatOp ops+     ++ "\n )\n"++showFlatVisibility Public  = " Public "+showFlatVisibility Private = " Private "++showFlatFixity InfixOp = " InfixOp "+showFlatFixity InfixlOp = " InfixlOp "+showFlatFixity InfixrOp = " InfixrOp "++showFlatOp (Op name fix prec) =+ "(Op " ++ show name ++ showFlatFixity fix ++ show prec ++ ")"++showFlatType :: TypeDecl -> String+showFlatType (Type name vis tpars consdecls) =+  "\n  (Type " ++ show name ++ showFlatVisibility vis+               ++ showFlatList show tpars+               ++ showFlatList showFlatCons consdecls ++ ")"+showFlatType (TypeSyn name vis tpars texp) =+  "\n  (TypeSyn " ++ show name ++ showFlatVisibility vis+                  ++ showFlatList show tpars+                  ++ showFlatTypeExpr texp ++ ")"++showFlatCons (Cons cname arity vis types) =+  "(Cons " ++ show cname ++ " " ++ show arity+           ++ showFlatVisibility vis+           ++ showFlatList showFlatTypeExpr types ++ ")"++showFlatFunc :: FuncDecl -> String+showFlatFunc (Func name arity vis ftype rl) =+  "\n  (Func " ++ show name ++ " " ++ show arity ++ " "+               ++ showFlatVisibility vis +++  "\n        " ++ showFlatTypeExpr ftype +++  "\n       " ++ showFlatRule rl ++ ")"++showFlatRule (Rule params expr) =+  " (Rule " ++ showFlatList show params+            ++ showFlatExpr expr ++ ")"+showFlatRule (External name) =+  " (External " ++ show name ++ ")"++showFlatTypeExpr (FuncType t1 t2) =+  "(FuncType " ++ showFlatTypeExpr t1 ++ " " ++ showFlatTypeExpr t2 ++ ")"+showFlatTypeExpr (TCons tc ts) =+  "(TCons " ++ show tc+            ++ showFlatList showFlatTypeExpr ts ++ ")"+showFlatTypeExpr (TVar n) = "(TVar " ++ show n ++ ")"+++showFlatCombType FuncCall = "FuncCall"+showFlatCombType ConsCall = "ConsCall"+showFlatCombType (FuncPartCall n) = "(FuncPartCall " ++ show n ++ ")"+showFlatCombType (ConsPartCall n) = "(ConsPartCall " ++ show n ++ ")"++showFlatExpr (Var n) = "(Var " ++ show n ++ ")"+showFlatExpr (Lit l) = "(Lit " ++ showFlatLit l ++ ")"+showFlatExpr (Comb ctype cf es) =+  "(Comb " ++ showFlatCombType ctype ++ " "+           ++ show cf ++ showFlatList showFlatExpr es ++ ")"+showFlatExpr (Let bindings exp) =+  "(Let " ++ showFlatList showFlatBinding bindings ++ showFlatExpr exp ++ ")"+ where +   showFlatBinding :: (Int,Expr) -> String +   showFlatBinding (x,e) = "("++show x++","++showFlatExpr e++")"+showFlatExpr (Free xs e) =+  "(Free " ++ showFlatList show xs ++ showFlatExpr e ++ ")"+showFlatExpr (Or e1 e2) =+  "(Or " ++ showFlatExpr e1 ++ " " ++ showFlatExpr e2 ++ ")"+showFlatExpr (Case Rigid e bs) =+  "(Case Rigid " ++ showFlatExpr e ++ showFlatList showFlatBranch bs ++ ")"+showFlatExpr (Case Flex e bs) =+  "(Case Flex " ++ showFlatExpr e ++ showFlatList showFlatBranch bs ++ ")"++showFlatLit (Intc   i) = "(Intc " ++ show i ++ ")"+showFlatLit (Floatc f) = "(Floatc " ++ show f ++ ")"+showFlatLit (Charc  c) =+ if ord c >= 32  &&  ord c < 127+ then "(Charc '" ++ [c] ++ "')"+ else "(Charc (chr " ++ show (ord c) ++ "))"++showFlatBranch (Branch p e) = "(Branch " ++ showFlatPattern p+                                         ++ showFlatExpr e ++ ")"++showFlatPattern (Pattern qn xs) =+      "(Pattern " ++ show qn+                  ++ showFlatList show xs ++ ")"+showFlatPattern (LPattern lit) = "(LPattern " ++ showFlatLit lit ++ ")"+++-- format a finite list of elements:+showFlatList :: (a->String) -> [a] -> String+showFlatList format elems = " [" ++ showFlatListElems format elems ++ "] "++showFlatListElems :: (a->String) -> [a] -> String+showFlatListElems format elems = concat (intersperse "," (map format elems))+++------------------------------------------------------------------------------+--- Shows a FlatCurry type in Curry syntax.+---+--- @param trans - a translation function from qualified type names+---                to external type names+--- @param nested - True iff brackets must be written around complex types+--- @param texpr - the FlatCurry type expression to be formatted+--- @return the String representation of the formatted type expression++showCurryType :: ((String,String) -> String) -> Bool -> TypeExpr -> String++showCurryType _ _ (TVar i) = if i<5 then [chr (97+i)] else 't':show i+showCurryType tf nested (FuncType t1 t2) =+  showBracketsIf nested+    (showCurryType tf (isFuncType t1) t1 ++ " -> " +++     showCurryType tf False t2)+showCurryType tf nested (TCons tc ts)+ | ts==[]  = tf tc+ | tc==("prelude","[]") && (head ts == TCons ("prelude","Char") [])+   = "String"+ | tc==("prelude","[]")+  = "[" ++ showCurryType tf False (head ts) ++ "]" -- list type+ | take 2 (snd tc) == "(,"                         -- tuple type+  = "(" ++ concat (intersperse "," (map (showCurryType tf False) ts)) ++ ")"+ | otherwise+  = showBracketsIf nested+    (tf tc ++ concatMap (\t->' ':showCurryType tf True t) ts)++isFuncType (TVar _)       = False+isFuncType (FuncType _ _) = True+isFuncType (TCons _ _)  = False+++------------------------------------------------------------------------------+--- Shows a FlatCurry expressions in (almost) Curry syntax.+---+--- @param trans - a translation function from qualified functions names+---                to external function names+--- @param nested - True iff brackets must be written around complex terms+--- @param indent - the indentation used in  case expressions and if-then-else+--- @param expr - the FlatCurry expression to be formatted+--- @return the String representation of the formatted expression++showCurryExpr :: ((String,String) -> String) -> Bool -> Int -> Expr -> String++showCurryExpr _ _ _ (Var n) = showCurryVar n++showCurryExpr _ _ _ (Lit l) = showCurryLit l++showCurryExpr tf _ _ (Comb _ cf []) = showCurryId (tf cf)+showCurryExpr tf nested b (Comb _ cf [e]) =+  showBracketsIf nested (showCurryId (tf cf) ++ " "+                            ++ showCurryExpr tf True b e)+showCurryExpr tf nested b (Comb ct cf [e1,e2])+ | cf==("prelude","apply")+  = showBracketsIf nested+       (showCurryExpr tf True b e1 ++ " " ++ showCurryExpr tf True b e2)+ | isAlpha (head (snd cf))+  = showBracketsIf nested+    (tf cf ++" "++ showCurryElems (showCurryExpr tf True b) [e1,e2])+ | isFiniteList (Comb ct cf [e1,e2])+  = if isStringConstant (Comb ct cf [e1,e2])+    then "\"" ++ showCurryStringConstant (Comb ct cf [e1,e2]) ++ "\""+    else "[" +++         concat (intersperse "," (showCurryFiniteList tf b (Comb ct cf [e1,e2])))+         ++ "]"+ | snd cf == "(,)" -- pair constructor?+  = "(" ++ showCurryExpr tf False b e1 ++ "," +++           showCurryExpr tf False b e2 ++ ")"+ | otherwise+  = showBracketsIf nested+              (showCurryExpr tf True b e1 ++ " " ++ tf cf ++ " " +++               showCurryExpr tf True b e2 )+showCurryExpr tf nested b (Comb _ cf (e1:e2:e3:es))+ | cf==("prelude","if_then_else") && es==[]+  = showBracketsIf nested+        ("\n" +++         sceBlanks b ++ " if "   ++ showCurryExpr tf False (b+2) e1 ++ "\n" +++         sceBlanks b ++ " then " ++ showCurryExpr tf False (b+2) e2 ++ "\n" +++         sceBlanks b ++ " else " ++ showCurryExpr tf False (b+2) e3)+ | take 2 (snd cf) == "(,"  -- tuple constructor?+  = "(" +++    concat (intersperse "," (map (showCurryExpr tf False b) (e1:e2:e3:es)))+        ++ ")"+ | otherwise+  = showBracketsIf nested+       (showCurryId (tf cf) ++ " "+        ++ showCurryElems (showCurryExpr tf True b) (e1:e2:e3:es))++showCurryExpr tf nested b (Let bindings exp) =+  showBracketsIf nested+    ("\n"++sceBlanks b++"let " ++ concat (intersperse ("\n    "++sceBlanks b)+     (map (\ (x,e)->showCurryVar x ++" = "++showCurryExpr tf False (b+4) e) bindings)) +++     ("\n"++sceBlanks b++" in ") ++ showCurryExpr tf False (b+4) exp)++showCurryExpr tf nested b (Free [] e) = showCurryExpr tf nested b e++showCurryExpr tf nested b (Free (x:xs) e) =+  showBracketsIf nested+    ("let " ++ concat (intersperse "," (map showCurryVar (x:xs))) +++     " free in " ++ showCurryExpr tf False b e)++showCurryExpr tf nested b (Or e1 e2) =+  showBracketsIf nested+    (showCurryExpr tf True b e1 ++ " ? " ++ showCurryExpr tf True b e2)++showCurryExpr tf nested b (Case ctype e cs) =+  showBracketsIf nested+    ((if ctype==Rigid then "case " else "fcase ") +++     showCurryExpr tf True b e ++ " of\n " +++     showCurryElems (showCurryCase tf (b+2)) cs ++ sceBlanks b)+++showCurryVar i = "v" ++ show i++--- Shows an identifier in Curry form. Thus, operators are enclosed in brackets.+showCurryId name | isAlpha (head name) = name+                 | name == "[]"        = name+                 | otherwise           = ('(':name)++")"++showCurryLit (Intc   i) = show i+showCurryLit (Floatc f) = show f+showCurryLit (Charc  c) = show c++showCurryCase tf b (Branch (Pattern l vs) e) =+  sceBlanks b ++ showPattern (tf l) vs+              ++ " -> " ++ showCurryExpr tf False b e ++ "\n"+ where+   showPattern c [] = c+   showPattern c [x] = c ++ " " ++ showCurryVar x+   showPattern c [x1,x2] =+     if isAlpha (head c)+     then c ++ " " ++ showCurryVar x1 ++ " " ++ showCurryVar x2+     else if c=="(,)" -- pair constructor?+          then "(" ++ showCurryVar x1 ++ "," ++ showCurryVar x2 ++ ")"+          else showCurryVar x1 ++ " " ++ c ++ " " ++ showCurryVar x2+   showPattern c (x1:x2:x3:xs) =+     if take 2 c == "(,"  -- tuple constructor?+     then "("++ concat (intersperse "," (map showCurryVar (x1:x2:x3:xs))) ++")"+     else c ++ " " ++ showCurryElems showCurryVar (x1:x2:x3:xs)++showCurryCase tf b (Branch (LPattern l) e) =+  sceBlanks b ++ showCurryLit l ++ " "+              ++ " -> " ++ showCurryExpr tf False b e ++ "\n"++showCurryFiniteList _ _ (Comb _ ("prelude","[]") []) = []+showCurryFiniteList tf b (Comb _ ("prelude",":") [e1,e2]) =+  showCurryExpr tf False b e1 : showCurryFiniteList tf b e2++-- show a string constant+showCurryStringConstant (Comb _ ("prelude","[]") []) = []+showCurryStringConstant (Comb _ ("prelude",":") [e1,e2]) =+   showCharExpr e1 ++ showCurryStringConstant e2++showCharExpr (Lit (Charc c))+  | c=='"'  = "\\\""+  | c=='\'' = "\\\'"+  | c=='\n' = "\\n"+  | o < 32 || o > 126 =+    ['\\',chr(o `div` 100 + 48), chr(((o `mod` 100) `div` 10 + 48)),chr(o `mod` 10 + 48)]+  | otherwise = [c]+ where+   o = ord c++showCurryElems :: (a->String) -> [a] -> String+showCurryElems format elems =+   concat (intersperse " " (map format elems))++showBracketsIf nested s = if nested then '(' : s ++ ")" else s++sceBlanks b = take b (repeat ' ')++-- Is the expression a finite list (with an empty list at the end)?+isFiniteList :: Expr -> Bool+isFiniteList (Var _) = False+isFiniteList (Lit _) = False+isFiniteList (Comb _ name args)+  | name==("prelude","[]") && args==[] = True+  | name==("prelude",":") && length args == 2 = isFiniteList (args!!1)+  | otherwise = False+isFiniteList (Let _ _) = False+isFiniteList (Free _ _) = False+isFiniteList (Or _ _) = False+isFiniteList (Case _ _ _) = False++-- Is the expression a string constant?+isStringConstant :: Expr -> Bool+isStringConstant e = case e of+  Comb _ name args -> (name==("prelude","[]") && null args) ||+                      (name==("prelude",":") && length args == 2 &&+                       isCharConstant (head args) && isStringConstant (args!!1))+  _                -> False++-- Is the expression a character constant?+isCharConstant :: Expr -> Bool+isCharConstant e = case e of+  Lit (Charc _) -> True+  _             -> False+++------------------------------------------------------------------------------
+ src/lib/Curry/Module/FlatCurryXML.curry view
@@ -0,0 +1,231 @@+------------------------------------------------------------------------------+--- This library contains functions to convert FlatCurry programs+--- into corresponding XML expressions and vice versa.+--- This can be used to store Curry programs in a way independent+--- from PAKCS or to use the PAKCS back end by other systems.+---+--- The library provides the following functions:+--- <PRE>+--- "flatCurry2XmlFile": transform a FlatCurry program into XML file+--- "flatCurry2Xml":     transform a FlatCurry program into XML expression+--- "xmlFile2FlatCurry": read an XML file and return the FlatCurry program+--- "xml2FlatCurry":     transform an XML expression into a FlatCurry program+--- </PRE>+---+--- @author Michael Hanus+--- @version August 2005+------------------------------------------------------------------------------++module FlatCurryXML(flatCurry2XmlFile,flatCurry2Xml,+                    xmlFile2FlatCurry,xml2FlatCurry)  where++import FlatCurry+import XML+import Read++-- URL for the FlatCurry DTD:+flatCurryDtd = "http://www.informatik.uni-kiel.de/~curry/flatcurrynew.dtd"++------------------------------------------------------------------------------+-- Transforming FlatCurry programs into corresponding XML terms:+------------------------------------------------------------------------------++--- Transforms a FlatCurry program term into a corresponding XML file.+flatCurry2XmlFile :: Prog -> String -> IO ()+flatCurry2XmlFile flatprog filename = writeFile filename+  (showXmlDocWithParams [DtdUrl flatCurryDtd] (flatCurry2Xml flatprog))++--- Transforms a FlatCurry program term into a corresponding XML expression.+flatCurry2Xml :: Prog -> XmlExp+flatCurry2Xml (Prog modname imports types funcs ops) =+  xml "prog"+   [xml "module" [xtxt modname],+    xml "import" (map (\s->xml "module" [xtxt s]) imports),+    xml "types" (map xmlShowType types),+    xml "functions" (map xmlShowFunc funcs),+    xml "operators" (map xmlShowOp ops)]++qname2xmlattrs (mod,name) = [("module",mod),("name",name)]++xmlShowVisibity Public  = [("visibility","public")]+xmlShowVisibity Private = [("visibility","private")]++xmlShowType (Type name vis tpars consdecls) =+  XElem "type" (qname2xmlattrs name ++ xmlShowVisibity vis)+        ([xml "params" (map xmlShowTVar tpars)] ++ map xmlShowCons consdecls)+xmlShowType (TypeSyn name vis tpars texp) =+  XElem "typesyn" (qname2xmlattrs name ++ xmlShowVisibity vis)+        [xml "params" (map xmlShowTVar tpars),xmlShowTypeExpr texp]++xmlShowCons (Cons cname arity vis types) =+  XElem "cons" (qname2xmlattrs cname ++ [("arity",show arity)] ++ xmlShowVisibity vis)+        (map xmlShowTypeExpr types)++xmlShowTypeExpr (FuncType t1 t2) =+  xml "functype" [xmlShowTypeExpr t1,xmlShowTypeExpr t2]+xmlShowTypeExpr (TCons tc ts) =+  XElem "tcons" (qname2xmlattrs tc) (map xmlShowTypeExpr ts)+xmlShowTypeExpr (TVar n) = xmlShowTVar n++xmlShowTVar i = xml "tvar" [xtxt (show i)]++xmlShowFunc (Func name arity vis ftype rl) =+  XElem "func" (qname2xmlattrs name ++ [("arity",show arity)] ++ xmlShowVisibity vis)+        [xmlShowTypeExpr ftype,xmlShowRule rl]++xmlShowRule (Rule params expr) =+  xml "rule" [xml "lhs" (map xmlShowVar params),+              xml "rhs" [xmlShowExpr expr]]+xmlShowRule (External name) = xml "external" [xtxt name]++xmlShowVar i = xml "var" [xtxt (show i)]++xmlShowExpr (Var n) = xmlShowVar n+xmlShowExpr (Lit l) = xml "lit" [xmlShowLit l]+xmlShowExpr (Comb FuncCall cf es) =+  XElem "funccall" (qname2xmlattrs cf) (map xmlShowExpr es)+xmlShowExpr (Comb ConsCall cf es) =+  XElem "conscall" (qname2xmlattrs cf) (map xmlShowExpr es)+xmlShowExpr (Comb (FuncPartCall n) cf es) =+  XElem "funcpartcall" (qname2xmlattrs cf ++ [("missing",show n)]) (map xmlShowExpr es)+xmlShowExpr (Comb (ConsPartCall n) cf es) =+  XElem "conspartcall" (qname2xmlattrs cf ++ [("missing",show n)]) (map xmlShowExpr es)+xmlShowExpr (Free xs e) =+  xml "free" [xml "freevars" (map xmlShowVar xs), xmlShowExpr e]+xmlShowExpr (Or e1 e2) =+  xml "or" [xmlShowExpr e1,xmlShowExpr e2]+xmlShowExpr (Case ctype e cs) =+  XElem (if ctype==Flex then "fcase" else "case") []+        ([xmlShowExpr e] ++ map xmlShowBranch cs)+xmlShowExpr (Let bindings expr) =+  xml "letrec" (map (\(i,e)->xml "binding" [xmlShowVar i, xmlShowExpr e]) bindings+                ++ [xmlShowExpr expr])++xmlShowLit (Intc   i) = xml "intc"   [xtxt (show i)]+xmlShowLit (Floatc f) = xml "floatc" [xtxt (show f)]+xmlShowLit (Charc  c) = xml "charc"  [xtxt (show (ord c))]++xmlShowBranch (Branch (Pattern cons xs) e) =+  xml "branch" [XElem "pattern" (qname2xmlattrs cons) (map xmlShowVar xs),+                xmlShowExpr e]+xmlShowBranch (Branch (LPattern lit) e) =+  xml "branch" [xml "lpattern" [xmlShowLit lit], xmlShowExpr e]++xmlShowOp (Op name fix prec) =+  XElem "op" (qname2xmlattrs name ++ [("fixity",show fix),("prec",show prec)]) []+++------------------------------------------------------------------------------+-- Transforming XML terms into corresponding FlatCurry programs:+------------------------------------------------------------------------------++--- Reads an XML file with a FlatCurry program and returns+--- the FlatCurry program.+xmlFile2FlatCurry :: String -> IO Prog+xmlFile2FlatCurry filename =+  do xexp <- readXmlFile filename+     return (xml2FlatCurry xexp)++--- Transforms an XML term into a FlatCurry program.+xml2FlatCurry :: XmlExp -> Prog+xml2FlatCurry+ (XElem "prog" []+   [XElem "module"      [] xmodname,+    XElem "import"      [] ximports,+    XElem "types"       [] xtypes,+    XElem "functions"   [] xfunctions,+    XElem "operators"   [] xoperators]) =+  Prog (textOfXml xmodname)+       (map (\(XElem "module" [] xim) -> textOfXml xim) ximports)+       (map flatx2typedecl xtypes)+       (map (\(XElem "func" [("module",mod),("name",fname),("arity",farity),xvis]+                            [xftype,xfbody])+             -> Func (mod,fname) (readNat farity) (xvis2vis xvis) (flatx2texp xftype)+                     (flatx2FunBody xfbody))+            xfunctions)+       (map (\(XElem "op"+                     [("module",mod),("name",name),("fixity",xfix),("prec",xprec)] [])+             -> Op (mod,name) (flatx2Fixity xfix) (readNat xprec))+            xoperators)++flatx2typedecl (XElem "type" [("module",tmod),("name",tname),xtvis]+                      (XElem "params" [] xtvars : xconstructors)) =+  Type (tmod,tname) (xvis2vis xtvis)+       (map (\ (XElem "tvar" [] xtvar) -> readNat (textOfXml xtvar)) xtvars)+       (map (\ (XElem "cons" [("module",mod),("name",xcn),("arity",xar),xvis] xtexps)+              -> Cons (mod,xcn) (readNat xar) (xvis2vis xvis) (map flatx2texp xtexps))+            xconstructors)+flatx2typedecl (XElem "typesyn" [("module",tmod),("name",tname),xtvis]+                      [XElem "params" [] xtvars, xtexp]) =+  TypeSyn (tmod,tname) (xvis2vis xtvis)+          (map (\ (XElem "tvar" [] xtvar) -> readNat (textOfXml xtvar)) xtvars)+          (flatx2texp xtexp)++flatx2FunBody (XElem "external" [] xename) = External (textOfXml xename)+flatx2FunBody (XElem "rule" [] [XElem "lhs" [] xvars,+                                XElem "rhs" [] [xrhs]]) =+   Rule (map flatx2var xvars) (flatx2exp xrhs)++flatx2var :: XmlExp -> VarIndex+flatx2var (XElem "var" [] xvar) = readNat (textOfXml xvar)++flatx2exp :: XmlExp -> Expr+flatx2exp (XElem "var" [] xvar) = Var (readNat (textOfXml xvar))+flatx2exp (XElem "lit" [] [xlit]) = Lit (flatx2lit xlit)+flatx2exp (XElem "funccall" [("module",mod),("name",name)] xexps) =+  Comb FuncCall (mod,name) (map flatx2exp xexps)+flatx2exp (XElem "conscall" [("module",mod),("name",name)] xexps) =+  Comb ConsCall (mod,name) (map flatx2exp xexps)+flatx2exp (XElem "funcpartcall" [("module",mod),("name",name),("missing",nmiss)] xexps) =+  Comb (FuncPartCall (readNat nmiss)) (mod,name) (map flatx2exp xexps)+flatx2exp (XElem "conspartcall" [("module",mod),("name",name),("missing",nmiss)] xexps) =+  Comb (ConsPartCall (readNat nmiss)) (mod,name) (map flatx2exp xexps)+flatx2exp (XElem "free" [] [XElem "freevars" [] xvars, xexp]) =+  Free (map flatx2var xvars) (flatx2exp xexp)+flatx2exp (XElem "or" [] [xexp1,xexp2]) =+  Or (flatx2exp xexp1) (flatx2exp xexp2)+flatx2exp (XElem "case" [] (xexp : xbranches)) =+  Case Rigid (flatx2exp xexp) (map flatx2branch xbranches)+flatx2exp (XElem "fcase" [] (xexp : xbranches)) =+  Case Flex (flatx2exp xexp) (map flatx2branch xbranches)+flatx2exp (XElem "let" [] xbindings) =+  let (bindings,exp) = flatx2let xbindings+   in Let bindings exp+flatx2exp (XElem "letrec" [] xbindings) =+  let (bindings,exp) = flatx2let xbindings+   in Let bindings exp++flatx2let [xexp] = ([],flatx2exp xexp)+flatx2let (XElem "binding" [] [XElem "var" [] xvar, xexp] : xb:xbs) =+  let (bindings,exp) = flatx2let (xb:xbs)+   in ((readNat (textOfXml xvar), flatx2exp xexp) : bindings, exp)++flatx2branch (XElem "branch" [] [XElem "pattern" [("module",mod),("name",cons)] xvars,xexp]) =+  Branch (Pattern (mod,cons) (map flatx2var xvars)) (flatx2exp xexp)+flatx2branch (XElem "branch" [] [XElem "lpattern" [] [xlit], xexp]) =+  Branch (LPattern (flatx2lit xlit)) (flatx2exp xexp)+flatx2branch (XElem "branch" [] [XElem "hpattern" _ _,_]) =+  error "Higher-order patterns not supported in this version of FlatCurry!"++flatx2lit :: XmlExp -> Literal+flatx2lit (XElem "intc" [] xintc) = Intc (readNat (textOfXml xintc))+flatx2lit (XElem "floatc" [] _) =+            error "Reading of floats not yet implemented!"+flatx2lit (XElem "charc" [] xintc) = Charc (chr (readNat (textOfXml xintc)))++flatx2texp :: XmlExp -> TypeExpr+flatx2texp (XElem "tvar" [] xtvar) = TVar (readNat (textOfXml xtvar))+flatx2texp (XElem "functype" [] [xtexp1,xtexp2]) =+   FuncType (flatx2texp xtexp1) (flatx2texp xtexp2)+flatx2texp (XElem "tcons" [("module",mod),("name",tcname)] xtexps) =+   TCons (mod,tcname) (map flatx2texp xtexps)++xvis2vis ("visibility","public")  = Public+xvis2vis ("visibility","private") = Private++flatx2Fixity "InfixOp"  = InfixOp+flatx2Fixity "InfixlOp" = InfixlOp+flatx2Fixity "InfixrOp" = InfixrOp+++------------------------------------------------------------------------------
+ src/lib/Curry/Module/FlexRigid.curry view
@@ -0,0 +1,50 @@+------------------------------------------------------------------------------+--- This library provides a function to compute the rigid/flex status+--- of a FlatCurry expression (right-hand side of a function definition).+---+--- @author Michael Hanus+--- @version April 2005+------------------------------------------------------------------------------++module FlexRigid(FlexRigidResult(..),getFlexRigid) where++import FlatCurry++--- Datatype for representing a flex/rigid status of an expression.+data FlexRigidResult = UnknownFR | ConflictFR | KnownFlex | KnownRigid++--- Computes the rigid/flex status of a FlatCurry expression.+--- This function checks all cases in this expression.+--- If the expression has rigid as well as flex cases (which cannot+--- be the case for source level programs but might occur after+--- some program transformations), the result ConflictFR is returned.+getFlexRigid :: Expr -> FlexRigidResult+getFlexRigid (Var _) = UnknownFR+getFlexRigid (Lit _) = UnknownFR+getFlexRigid (Comb _ _ args) =+   foldr joinCaseTypes UnknownFR (map getFlexRigid args)+getFlexRigid (Let _ e) = getFlexRigid e+getFlexRigid (Free _ e) = getFlexRigid e+getFlexRigid (Or e1 e2) =+   joinCaseTypes (getFlexRigid e1) (getFlexRigid e2)+getFlexRigid (Case ctype e bs) =+   foldr joinCaseTypes (if ctype==Flex then KnownFlex else KnownRigid)+         (map getFlexRigid (e : map (\(Branch _ be)->be) bs))++joinCaseTypes ConflictFR ConflictFR = ConflictFR+joinCaseTypes ConflictFR UnknownFR  = ConflictFR+joinCaseTypes ConflictFR KnownFlex  = ConflictFR+joinCaseTypes ConflictFR KnownRigid = ConflictFR+joinCaseTypes UnknownFR  ConflictFR = ConflictFR+joinCaseTypes KnownFlex  ConflictFR = ConflictFR+joinCaseTypes KnownRigid ConflictFR = ConflictFR+joinCaseTypes UnknownFR  UnknownFR  = UnknownFR+joinCaseTypes UnknownFR  KnownFlex  = KnownFlex+joinCaseTypes UnknownFR  KnownRigid = KnownRigid+joinCaseTypes KnownFlex  UnknownFR  = KnownFlex+joinCaseTypes KnownFlex  KnownFlex  = KnownFlex+joinCaseTypes KnownFlex  KnownRigid = ConflictFR+joinCaseTypes KnownRigid UnknownFR  = KnownRigid+joinCaseTypes KnownRigid KnownFlex  = ConflictFR+joinCaseTypes KnownRigid KnownRigid = KnownRigid+
+ src/lib/Curry/Module/PrettyFlat.curry view
@@ -0,0 +1,369 @@+module PrettyFlat where++import Char+import Maybe+import Pretty+import FlatCurry+import FlatCurryGoodies+import StyledText+import System++prelude = "Prelude"++arrow = operator (text "->")+bar = operator (char '|')+dcolon = operator (text "::")++type Precs = [(QName,Int)]++precFillEncloseSep :: Int -> Int -> Doc -> Doc -> Doc -> [Doc] -> Doc+precFillEncloseSep p1 p2 l r s ds =+  fillEncloseSep (pre p1 p2 l) (pre p1 p2 r) s ds+ where+  pre pO pI br+    | pO<pI = empty+    | True  = br++isInfixName :: QName -> Bool+isInfixName (_,n) = all (`elem` infixIDs) n++infixIDs :: String+infixIDs =  "~!@#$%^&*+-=<>?./|\\:"++isTupleName :: QName -> Bool+isTupleName (mod,name) = mod == prelude && elem (take 2 name) ["()","(,"]++showStyledProg :: Prog -> String+showStyledProg = prettyProg 78++prettyProg :: Int -> Prog -> String+prettyProg n = pretty n . progDoc . updProgExps elimApp++prettyTypeExpr :: String -> TypeExpr -> String+prettyTypeExpr mod = pretty 78 . typeExprDoc mod False++prettyTypes :: String -> [TypeDecl] -> String+prettyTypes mod = pretty 78 . typesDoc mod++prettyOps :: [OpDecl] -> String+prettyOps = pretty 78 . opsDoc++showProg :: Prog -> String+showProg = plainText . showStyledProg++printStyledProg :: String -> IO ()+printStyledProg f = readFlatCurry f >>= printStyledText . showStyledProg++mainPrint :: IO ()+mainPrint = getArgs >>= mapIO_ printProg++printProg :: String -> IO ()+printProg f = readFlatCurryFile f >>= putStrLn . showProg++-- viewStyledProg :: WidgetRef -> Prog -> GuiPort -> IO ()+-- viewStyledProg ref prog = setStyledText ref (showStyledProg prog)++--viewProg :: WidgetRef -> Prog -> GuiPort -> IO ()+--viewProg ref prog = setValue ref (showProg prog)++keyword, consname :: String -> Doc+keyword = magentaDoc . text+consname = greenDoc . text++operator, literal, marked :: Doc -> Doc+operator = blueDoc+literal = cyanDoc+marked = bgYellowDoc . boldDoc++block :: Doc -> Doc+block = group . hang 1++def :: Doc -> [Int] -> Doc -> Doc+def name params body = block (name <> paramDoc <$> body)+ where+  paramDoc = if null params then empty +              else space <> align (fillSep (map varDoc params))+{-+fillMulti :: (Doc -> Doc) -> (Doc -> Doc) -> [Doc] -> Doc+fillMulti _ _ [] = empty+fillMulti x y (d:ds)+  = align (fillSep ((x d) : map (group . (linebreak<>) . y) ds))+-}+app :: Doc -> [Doc] -> Doc+app d ds = if null ds then d+            else block (fillEncloseSep empty empty space (d:ds))+            --else block (d <$> fillEncloseSep empty empty space ds)+            --else block (d <$> fillMulti (empty<>) (empty<>) ds)++layout :: [Doc] -> Doc+layout = align . compose (combine (linesep "; "))++qname :: String -> QName -> Doc+qname prog mn@(mod,name)+  | mn == (prelude,"[]") || isTupleName mn = operator (text name)+  | isInfixName mn = +      if mod == prog -- True+       then parens (operator (text name))+       else parens (operator (consname mod <> dot <> (txt name)))+  | otherwise -- do not show module names for Haskell generation+    = if -- True +         -- mod `elem` [prelude,prog]+         mod == prog+       then txt (correctName name) +       else consname mod <> dot <> (txt name)+ where+  txt (n:ame) = if isUpper n then consname (n:ame) else text (n:ame)++correctName :: String -> String+correctName name = +  let name' = filter (not . flip elem ['#','.']) name+  in+  case name' of +       ('_':xs) -> xs+       _        -> name'++d1 <$>> d2 = d1 <$> line <> d2++progDoc :: Prog -> Doc+progDoc prog@(Prog name imps types funcs ops)+  = moduleHeaderDoc name (exportedNames name prog) <$>>+    impsDoc imps <$>> opsDoc ops <$>>+    typesDoc name types <$>>+    funcsDoc (precs ops) name funcs++precs :: [OpDecl] -> Precs+precs = map (\(Op name _ i) -> (name,i))++exportedNames :: String -> Prog -> [Doc]+exportedNames mod (Prog _ _ types funcs _)+  = map typeExpDoc (filter ((Public==) . typeVisibility) types)+ ++ map (qname mod . funcName) (filter ((Public==) . funcVisibility) funcs)+ where+  typeExpDoc tdecl =+    let ecs = filter ((Public==) . consVisibility)+                     (trType (\_ _ _ cs -> cs) (\_ _ _ _ -> []) tdecl)+     in qname mod (typeName tdecl) <> if null ecs then empty else text "(..)"++moduleHeaderDoc :: String -> [Doc] -> Doc+moduleHeaderDoc name exports+  = keyword "module" <+> consname name <+> exportsDoc exports <+>+    keyword "where"++exportsDoc :: [Doc] -> Doc+exportsDoc xs+  = group (nest 1 (lparen <$> align (fillSep (punctuate comma xs)) <$> rparen))++impsDoc :: [String] -> Doc+impsDoc imps = vcat (map ((keyword "import" <+>) . consname) imps)++opsDoc :: [OpDecl] -> Doc+opsDoc ops = vcat (map opDoc ops)++opDoc :: OpDecl -> Doc+opDoc (Op n@(_,name) fix prec)+  = keyword "infix" <> fixDoc fix <+> int prec <+> operator (text infname)+ where+  infname = if isInfixName n then name else '`':name++"`"+  fixDoc InfixOp = empty+  fixDoc InfixlOp = keyword "l"+  fixDoc InfixrOp = keyword "r"++typesDoc :: String -> [TypeDecl] -> Doc+typesDoc mod = vcat . map (typeDoc mod)++typeDoc :: String -> TypeDecl -> Doc+typeDoc mod (Type name _ params cs)+  = def (keyword "data" <+> qname mod name) params (consDeclsDoc mod cs)++typeDoc mod (TypeSyn name _ params syn)+  = def (keyword "type" <+> qname mod name) params+        (operator equals <+> typeExprDoc mod False syn)++varDoc :: Int -> Doc+varDoc = text . ('x':) . show++tvarDoc :: Int -> Doc+tvarDoc i+  | i>25      = text ("x" ++ show i)+  | otherwise = text [chr (97+i)]++consDeclsDoc :: String -> [ConsDecl] -> Doc+consDeclsDoc mod+  = fillEncloseSep (operator equals<>space) empty (bar<>space)+  . map ((<>space) . consDeclDoc mod)+  --= fillMulti (equals<+>) (bar<+>) . map (consDeclDoc mod)++consDeclDoc :: String -> ConsDecl -> Doc+consDeclDoc mod (Cons name _ _ args)+  = app (qname mod name) (map (typeExprDoc mod True) args)++typeExprDoc :: String -> Bool -> TypeExpr -> Doc+typeExprDoc _ _ (TVar n) = tvarDoc n++typeExprDoc mod br (TCons name args)+  | null args = qname mod name+  | name == (prelude,"[]") = brackets (typeExprDoc mod False (head args))+  | isTupleName name = tupled (map (typeExprDoc mod False) args)+  | otherwise +    = par br $ app (qname mod name) (map (typeExprDoc mod True) args)++typeExprDoc mod br typ@(FuncType _ _)+  = par br $ fillEncloseSep empty empty (space<>arrow<>space)+              --fillMulti (empty<>) (arrow<+>)+     (map (typeExprDoc mod True) (argTypes typ) ++ +      [typeExprDoc mod False (resultType typ)])++par br = if br then parens else id++funcsDoc :: Precs -> String -> [FuncDecl] -> Doc+funcsDoc pr mod funcs = vcat (punctuate line (map (funcDoc pr mod) funcs))++funcDoc :: Precs -> String -> FuncDecl -> Doc+funcDoc pr mod (Func name _ _ typ rule)+  = funcTypeDeclDoc mod name typ <$>+    ruleDoc pr mod name rule++funcTypeDeclDoc :: String -> QName -> TypeExpr -> Doc+funcTypeDeclDoc mod name typ+  = def (qname mod name) [] (funcTypeDoc mod (argTypes typ) (resultType typ))++funcTypeDoc :: String -> [TypeExpr] -> TypeExpr -> Doc+funcTypeDoc mod args res+  = fillEncloseSep (dcolon<>space) empty (arrow<>space)+  --= fillMulti (dcolon<+>) (arrow<+>)+     (map ((<>space) . typeExprDoc mod True) (args++[res]))++ruleDoc :: Precs -> String -> QName -> Rule -> Doc+ruleDoc pr mod name (Rule args body)+  = def (qname mod name) args (equals <+> align (expDoc pr 0 mod False body))++ruleDoc _ mod name (External _)+  = qname mod name <+> keyword "external" -- <+> string decl++expDoc,expDoc2 :: Precs -> Int -> String -> Bool -> Expr -> Doc+expDoc pr _ mod br exp =+  maybe (maybe (expDoc2 pr 0 mod br exp)+          (\l -> list (map (expDoc pr 0 mod False) l))+          (toList exp))+    (\s -> if null s then consname "[]" else literal (dquotes (text s)))+      (toString exp)++expDoc2 _ _ _ _ (Var n) = varDoc n+expDoc2 _ _ _ _ (Lit l) = litDoc l++expDoc2 pr p mod br (Comb ct name args)+  | ct == FuncCall && name == (prelude,"apply")+    = par br $ app (expDoc pr 0 mod True (args!!0)) +                           [expDoc pr 0 mod True (args!!1)]+  | ct == ConsCall && isTupleName name+    = tupled (map (expDoc pr 0 mod False) args)+  | isInfixName name && length args == 2+    = align $ precFillEncloseSep pOp p lbr rbr empty+               [expDoc pr pOp mod True (args!!0) +               ,space <> operator (text (snd name)) <> space+               ,expDoc pr pOp mod True (args!!1)]+--     = par br $ app (expDoc mod True (args!!0))+--                    [text (snd name), expDoc mod True (args!!1)]+  | otherwise+    = par (not (null args) && br) $+       app (qname mod name) (map (expDoc pr 0 mod True) args)+ where+  (lbr,rbr) = if br then (lparen,rparen) else (empty,empty)+  pOp = case lookup name pr of+             Just pr -> pr+             Nothing -> 0 ++expDoc2 pr _ mod br (Let bs e)+  = par br $ hang 1 $ +     keyword "let" <+> letBindsDoc pr mod bs <$> +     keyword "in" <+> expDoc pr 0 mod False e++expDoc2 pr _ mod br (Free vs e)+--   | null vs = marked (expDoc mod br e)+--   | any (<0) vs = expDoc mod br e+--   | otherwise+    = par br $ hang 1 $ +       keyword "let" <+> align (fillSep (punctuate comma (map varDoc vs))) <+>+       keyword "free" <$> keyword "in" <+> expDoc pr 0 mod False e++expDoc2 pr _ mod br (FlatCurry.Or e1 e2)+  = expDoc pr 0 mod br (Comb FuncCall (prelude,"?") [e1,e2])++expDoc2 pr _ mod br (Case ct e bs)+  = par br $ hang 1 $ +     caseTypeDoc ct <> keyword "case" <+> align (expDoc pr 0 mod False e) +       <+> keyword "of" <$> layout (map (branchDoc pr mod) bs)++branchDoc :: Precs -> String -> BranchExpr -> Doc+branchDoc pr mod (Branch pat e)+  = def (patternDoc mod pat <+> arrow) [] (align (expDoc pr 0 mod False e))++caseTypeDoc :: CaseType -> Doc+caseTypeDoc Rigid = empty+caseTypeDoc Flex  = empty -- literal $ text "{-f-}"++patternDoc :: String -> Pattern -> Doc+patternDoc mod (Pattern name args)+  | null args = qname mod name+  | isTupleName name = tupled (map varDoc args)+  | isInfixName name && length args == 2+    = varDoc (args!!0) <> operator (text (snd name)) <> varDoc (args!!1)+  {-| name == (prelude,":")+    = varDoc (args!!0) <> operator colon <> varDoc (args!!1)-}+  | otherwise = qname mod name <+> hsep (map varDoc args)++patternDoc _ (LPattern l) = litDoc l++letBindsDoc :: Precs -> String -> [(Int,Expr)] -> Doc+letBindsDoc pr mod = layout . map (letBindDoc pr mod)++letBindDoc :: Precs -> String -> (Int,Expr) -> Doc+letBindDoc pr mod (n,e) = +  varDoc n <+> operator equals <+> expDoc pr 0 mod False e++litDoc :: Literal -> Doc+litDoc (Intc n) = literal (int n)+litDoc (Floatc x) = literal (float x)+litDoc (Charc c) = literal (squotes (text (quoteChar c)))++quoteChar c = maybe [c] id (lookup c specialChars)++-- more?+specialChars = [('\\',"\\\\"),('\n',"\\n"),('\r',"\\r"),('\t',"\\t")]++toString :: Expr -> Maybe String+toString exp+  = case exp of+      Comb ConsCall ("Prelude","[]") [] -> Just ""+      Comb ConsCall ("Prelude",":") [Lit (Charc c),cs] ->+        toString cs >>- Just . (quoteChar c++)+      _ -> Nothing++toList :: Expr -> Maybe [Expr]+toList exp+  = case exp of+      Comb ConsCall ("Prelude","[]") [] -> Just []+      Comb ConsCall ("Prelude",":") [x,xs] -> toList xs >>- Just . (x:)+      _ -> Nothing++-- introduces over-applications on purpose!+elimApp :: Expr -> Expr+elimApp = updCombs elim+ where+  elim ct name args+    | ct == FuncCall && name == (prelude,"apply") && isComb (head args) &&+      combName (head args) /= (prelude,"apply")+      = extend (head args) (args!!1)+    | otherwise = Comb ct name args+  extend (Comb ct name args) arg = Comb ct name (args++[arg])+++-- testHtml name+--   = readFlatCurry name >>=+--     writeFile (name++".html") . showHtmlPage . HtmlPage name [] . (:[]) . +--     styledHtml . showStyledProg++-- Apply x y = Comb FuncCall ("Prelude","apply") [x,y]++-- test e = pretty 78 $ expDoc "" False $ e+
+ src/lib/Curry/Module/XML.curry view
@@ -0,0 +1,368 @@+------------------------------------------------------------------------------+--- Library for processing XML data.+---+--- Warning: the structure of this library is not stable and+--- might be changed in the future!+---+--- @author Michael Hanus+--- @version December 2002+------------------------------------------------------------------------------++module XML(XmlExp(..),Encoding(..),XmlDocParams(..),+       xtxt,xml,showXmlDoc,showXmlDocWithParams,+       writeXmlFile,writeXmlFileWithParams,parseXmlString,readXmlFile,+       readUnsafeXmlFile,readFileWithXmlDocs,textOfXml) where++import Char+import Read+import List(intersperse)++------------------------------------------------------------------------------+--- The data type for representing XML expressions.+--- @cons XText - a text string (PCDATA)+--- @cons XElem - an XML element with tag field, attributes, and a list+---               of XML elements as contents+data XmlExp = XText String                             -- text string (PCDATA)+            | XElem String [(String,String)] [XmlExp]  -- (tag attrs contents)++------------------------------------------------------------------------------+--- The data type for encodings used in the XML document.+data Encoding = StandardEnc+              | Iso88591Enc++-- Transform an encoding into its XML-attribute form+encoding2Attribute :: Encoding -> String+encoding2Attribute StandardEnc = ""+encoding2Attribute Iso88591Enc = "encoding=\"iso-8859-1\" "++-- Transform an encoding into its encoding-function+encoding2EncFunc :: Encoding -> String -> String+encoding2EncFunc StandardEnc = standardEncoding+encoding2EncFunc Iso88591Enc = iso88591Encoding++------------------------------------------------------------------------------+-- List of encoding maps+------------------------------------------------------------------------------+-- standard encoding map+standardEncoding :: String -> String+standardEncoding [] = []+standardEncoding (c:cs) +   | c=='<'      = "&lt;"   ++ standardEncoding cs+   | c=='>'      = "&gt;"   ++ standardEncoding cs+   | c=='&'      = "&amp;"  ++ standardEncoding cs+   | c=='"'      = "&quot;" ++ standardEncoding cs --"+   | c=='\''     = "&apos;" ++ standardEncoding cs+   | ord c < 32  = "&#"     ++ show (ord c) ++ ";" ++ standardEncoding cs+   | ord c > 127 = "&#"     ++ show (ord c) ++ ";" ++ standardEncoding cs+   | otherwise   = c : standardEncoding cs++-- iso-8859-1+iso88591Encoding :: String -> String+iso88591Encoding [] = []+iso88591Encoding (c:cs) = +   if ord c `elem` iso88591list+   then c : iso88591Encoding cs+   else standardEncoding [c] ++ iso88591Encoding cs++-- iso-8859-1-list+-- not yet completed...+iso88591list = [192,193,194,195,196,197,198,199,200,201,202,203,204,205,207,+                208,209,210,211,212,214,216,217,218,219,220,221,224,225,228,+                229,226,227,230,231,233,232,235,234,236,237,239,240,241,248,+                246,242,243,244,245,250,249,252,251,253,255]+++------------------------------------------------------------------------------+--- The data type for XML document parameters.+--- @cons Enc    - the encoding for a document+--- @cons DtdUrl - the url of the DTD for a document+data XmlDocParams = Enc Encoding+                  | DtdUrl String++-- get the right encoding (i.e., first or standard encoding if not present)+-- from a list of XmlDocParams+lookupEncoding :: [XmlDocParams] -> Encoding+lookupEncoding (Enc f:_) = f+lookupEncoding (DtdUrl _:l) = lookupEncoding l+lookupEncoding [] = StandardEnc++-- get the first DtdUrl from a list of XmlDocParams+lookupDtdUrl :: [XmlDocParams] -> String+lookupDtdUrl (Enc _:l) = lookupDtdUrl l+lookupDtdUrl (DtdUrl url:_) = url++-- does a XmlDocParam include a DtdUrl?+hasDtdUrl :: [XmlDocParams] -> Bool+hasDtdUrl [] = False+hasDtdUrl (DtdUrl _:_) = True+hasDtdUrl (Enc _:l) = hasDtdUrl l++------------------------------------------------------------------------------+-- some useful abbreviations:++--- Basic text (maybe containing special XML chars).+xtxt   :: String -> XmlExp+xtxt s = XText s++--- XML element without attributes.+xml :: String -> [XmlExp] -> XmlExp+xml t c = XElem t [] c++------------------------------------------------------------------------------+-- Pretty printer for XML documents+------------------------------------------------------------------------------+--- Writes a file with a given XML document.+writeXmlFile :: String -> XmlExp -> IO ()+writeXmlFile file xexp = +   writeXmlFileWithParams file [Enc StandardEnc] xexp++--- Writes a file with a given XML document and XML parameters.+writeXmlFileWithParams :: String -> [XmlDocParams] -> XmlExp -> IO ()+writeXmlFileWithParams file ps xexp =+   writeFile file (showXmlDocWithParams ps xexp)+++------------------------------------------------------------------------------+--- Show an XML document in indented format as a string.+------------------------------------------------------------------------------++showXmlDoc :: XmlExp -> String+showXmlDoc xexp = showXmlDocWithParams [] xexp++showXmlDocWithParams :: [XmlDocParams] -> XmlExp -> String+showXmlDocWithParams ps (XElem root attrL xmlEL) =+   "<?xml version=\"1.0\" " ++ +   (encoding2Attribute (lookupEncoding ps)) ++ "standalone=\"" +++   (if hasDtdUrl ps then "no" else "yes") ++ "\"?>\n\n" +++   (if hasDtdUrl ps+    then "<!DOCTYPE " ++ root ++ " SYSTEM \"" ++ lookupDtdUrl ps ++ "\">\n\n"+    else "") +++   showXmlExp 0 (encoding2EncFunc (lookupEncoding ps))+                (XElem root attrL xmlEL)++showXmlExp :: Int -> (String -> String) -> XmlExp -> String+showXmlExp i encFun (XText s)  = xtab i ++ (encFun s) ++ "\n"+showXmlExp i encFun (XElem tag attrs xexps) =+  xtab i ++ showXmlOpenTag tag attrs encFun +++  if xexps == []+  then " />\n"+  else if length xexps == 1 && isXText (head xexps)+       then let [XText s] = xexps+            in  ">" ++ (encFun s) ++ "</" ++ tag ++ ">\n"+       else ">\n" ++ showXmlExps (i+2) xexps encFun +++            xtab i ++ "</" ++ tag ++ ">\n"++xtab n = take n (repeat ' ')++showXmlOpenTag tag attrs encFun =+  "<" ++ tag ++ concat (map ((" "++) . attr2string) attrs)+  where attr2string (attr,value) = attr ++ "=\""+                                        ++ (encFun value) ++ "\""++showXmlExps :: Int -> [XmlExp] -> (String -> String) -> String+showXmlExps encFun xexps i = concatMap (showXmlExp encFun i) xexps++isXText :: XmlExp -> Bool+isXText (XText _) = True+isXText (XElem _ _ _) = False++-- unquote special characters (<,>,&,',") in an XML string:+xmlUnquoteSpecials :: String -> String+xmlUnquoteSpecials [] = []+xmlUnquoteSpecials (c:cs)+  | c=='&'    = let (special,rest) = splitAtChar ';' cs+                 in xmlUnquoteSpecial special rest+  | otherwise = c : xmlUnquoteSpecials cs++xmlUnquoteSpecial special cs+  | special=="lt"   = '<'  : xmlUnquoteSpecials cs+  | special=="gt"   = '>'  : xmlUnquoteSpecials cs+  | special=="amp"  = '&'  : xmlUnquoteSpecials cs+  | special=="quot" = '"'  : xmlUnquoteSpecials cs --"+  | special=="apos" = '\'' : xmlUnquoteSpecials cs+  | special=="auml" = chr 228 : xmlUnquoteSpecials cs+  | special=="ouml" = chr 246 : xmlUnquoteSpecials cs+  | special=="uuml" = chr 252 : xmlUnquoteSpecials cs+  | special=="Auml" = chr 196 : xmlUnquoteSpecials cs+  | special=="Ouml" = chr 214 : xmlUnquoteSpecials cs+  | special=="Uuml" = chr 220 : xmlUnquoteSpecials cs+  | special=="szlig"= chr 223 : xmlUnquoteSpecials cs+  | otherwise       = unquoteUnicode special ++ xmlUnquoteSpecials cs++unquoteUnicode :: String -> String+unquoteUnicode [] = []+unquoteUnicode (c:cs)+  | c=='#'     = case cs of+                   'x':cs' -> [chr (readHex cs')]+                   _       -> [chr(readInt cs)]+  | otherwise  = '&':(c:cs) ++ ";"++------------------------------------------------------------------------------+-- Parser for XML documents+------------------------------------------------------------------------------++--- Reads a file with an XML document and returns+--- the corresponding XML expression.+readXmlFile :: String -> IO XmlExp+readXmlFile file =+ do xmlstring <- readFile file+    let xexps = parseXmlString xmlstring+    if xexps==[]+      then error ("File "++file++" contains no XML document!")+      else if tail xexps /= []+            then error ("File "++file++" contains more than one XML document!")+            else return (head xexps)++--- Tries to read a file with an XML document and returns+--- the corresponding XML expression, if possible.+--- If file or parse errors occur, Nothing is returned.+readUnsafeXmlFile :: String -> IO (Maybe XmlExp)+readUnsafeXmlFile file =+  catchFail (readXmlFile file >>= return . Just) (return Nothing)++--- Pretty prints the contents of an XML file.+showXmlFile :: String -> IO ()+showXmlFile file = readXmlFile file >>= putStr . showXmlDoc++--- Reads a file with an arbitrary sequence of XML documents and+--- returns the list of corresponding XML expressions.+readFileWithXmlDocs :: String -> IO [XmlExp]+readFileWithXmlDocs file = readFile file >>= return . parseXmlString++------------------------------------------------------------------------------+--- Transforms an XML string into a list of XML expressions.+--- If the XML string is a well structured document, the list+--- of XML expressions should contain exactly one element.+parseXmlString :: String -> [XmlExp]+parseXmlString s = fst (parseXmlTokens (scanXmlString s) Nothing)++-- parse a list of XML tokens into list of XML expressions:+-- parseXmlTokens tokens stoptoken = (xml_expressions, remaining_tokens)+parseXmlTokens :: [XmlExp] -> Maybe String -> ([XmlExp],[XmlExp])+parseXmlTokens [] Nothing = ([],[])+parseXmlTokens (XText s : xtokens) stop =+  let (xexps, rem_xtokens) = parseXmlTokens xtokens stop+  in  (XText (xmlUnquoteSpecials s) : xexps, rem_xtokens)+parseXmlTokens (XElem (t:ts) args cont : xtokens) stop+ | t == '<' && head ts /= '/'+   = let (xexps1, xtokens1) = parseXmlTokens xtokens (Just ts)+         (xexps, rem_xtokens) = parseXmlTokens xtokens1 stop+     in  (XElem ts args xexps1 : xexps, rem_xtokens)+ | t == '<' && head ts == '/'+   = if maybe False (==(tail ts)) stop+     then ([], xtokens) -- stop this parser if appropriate stop token reached+     else let (xexps, rem_xtokens) = parseXmlTokens xtokens stop+          in  (XElem ts args cont : xexps, rem_xtokens)+ | otherwise = let (xexps, rem_xtokens) = parseXmlTokens xtokens stop+               in  (XElem (t:ts) args cont : xexps, rem_xtokens)+++-- scan an XML string into list of XML tokens:+-- here we reuse XML expressions for representing XML tokens:+-- single open or closing tags are returned by the scanner+-- as an XElem with no contents and first character '<' added to the tag field+scanXmlString :: String -> [XmlExp]+scanXmlString s = scanXml (dropBlanks s)+ where+  scanXml []     = []+  scanXml (c:cs) = if c=='<'+                   then scanXmlElem cs+                   else let (initxt,remtag) = scanXmlText (c:cs)+                         in XText initxt : scanXml remtag++-- scan an XML text until next tag and remove superflous blanks:+scanXmlText :: String -> (String,String)+--original definition:+--scanXmlText s = let (s1,s2) = break (=='<') s+--                 in (concat (intersperse " " (words s1)), s2)+--this implementation is more efficient:+scanXmlText [] = ([],[])+scanXmlText (c:cs) | c=='<' = ([],c:cs)+                   | isSpace c = let (txt,rem) = scanXmlText (dropBlanks cs)+                                  in (if null txt then txt else ' ':txt, rem)+                   | otherwise = let (txt,rem) = scanXmlText cs+                                  in (c:txt,rem)++-- scan an XML element:+scanXmlElem :: String -> [XmlExp]+scanXmlElem [] = []+scanXmlElem (c:cs)+ | c=='!' = if take 2 cs == "--"+            then scanXmlComment (drop 2 cs)+            else scanXmlCData cs+ | c=='?' = scanXmlProcInstr cs+ | otherwise = scanXmlElemName [c] cs++scanXmlElemName ct [] = [XElem ('<':ct) [] []]+scanXmlElemName ct (c:cs)+  | c=='>'    = XElem ('<':ct) [] [] : scanXmlString cs+  | isSpace c = let (attrs,rest) = parseAttrs (dropBlanks cs) in+                 if (head rest)=='/'+                 then XElem ct attrs [] : scanXmlString (drop 2 rest)+                 else XElem ('<':ct) attrs [] : scanXmlString (tail rest)+  | c=='/' && head cs == '>' = XElem ct [] [] : scanXmlString (tail cs)+  | otherwise = scanXmlElemName (ct++[c]) cs++-- scan (and drop) an XML comment:+scanXmlComment :: String -> [XmlExp]+scanXmlComment [] = []+scanXmlComment (c:cs) =+  if c=='-' && take 2 cs == "->"+  then scanXmlString (drop 2 cs)+  else scanXmlComment cs++-- scan (and drop) an XML CDATA element (simplified version):+scanXmlCData :: String -> [XmlExp]+scanXmlCData cs =+  let rest = dropCData cs+  in  if head rest == '>' then scanXmlString (tail rest)+                          else scanXmlCData rest++dropCData [] = []+dropCData (c:cs) + | c=='[' = tail (dropWhile (/=']') cs) -- must be improved+ | c=='>' = c:cs+ | otherwise = dropCData cs++-- scan (and drop) an XML processing instructions:+scanXmlProcInstr :: String -> [XmlExp]+scanXmlProcInstr [] = []+scanXmlProcInstr (c:cs) =+  if c=='?' && head cs == '>'+  then scanXmlString (tail cs)+  else scanXmlProcInstr cs++-- parse a string as an attribute list:+parseAttrs :: String -> ([(String,String)],String)+parseAttrs [] = ([],[])+parseAttrs (c:cs)+ | isAlpha c = let (name,rest1)  = splitAtChar '=' (c:cs)+                   (value,rest2) = splitAtChar '"' (tail rest1) --"+                   (rem_attrs,rem_inp) = parseAttrs (dropBlanks rest2)+               in ((name,xmlUnquoteSpecials value):rem_attrs, rem_inp)+ | otherwise = ([],c:cs)++-- drop blanks in input string:+dropBlanks = dropWhile isSpace++-- split string at particular character, if possible:+splitAtChar _ [] = ([],[])+splitAtChar char (c:cs) =+ if c==char then ([],cs)+            else let (first,rest) = splitAtChar char cs in (c:first,rest)++------------------------------------------------------------------------------+--- Extracts the textual contents of a list of XML expressions.+--- Useful auxiliary function when transforming XML expression into+--- other data structures.+---+--- For instance,+--- <code>textOfXml [XText "xy", XElem "a" [] [], XText "ab"] == "xy ab"</code>+textOfXml :: [XmlExp] -> String+textOfXml xexps =+   concat (intersperse " " (filter (not . null) (map textOfXmlItem xexps)))+ where+   textOfXmlItem (XText s) = s+   textOfXmlItem (XElem _ _ xs) = textOfXml xs++-- end of XML library